emacs base on purcell, add some thing for my self