概述
我是一名电气工程师，从10年开始使用emacs，到现在已经5年多，它已经成为了电脑上必不可少的应用之一。说它是操作系统可能会有点夸张，不如说是一个整合的工作站会更加好点。
我的工作和电气自动化相关，偶尔会处理一些嵌入式或单片机的代码，或编写一些批处理的文件，所以使用的范围并非和编程太相关，说白了就是一个非程序员的应用。而且这个行业的很多软件还是运行在windows下，在mac或者linux下就歇菜了，所以这里的内容主要还是针对windows下的平台。
前期教训或经验
由于刚开始玩的时候没有太多正确的方法，而且emacs的学习曲线较其他的要陡峭，所以走了很多弯路。以下总结了一些自己的经验：
- 尽量使用terminal下的emacs。当初什么都不会，直接下载了一个windows下的emacs版本，结果遇到了3个很恼火的地方：配置中文显示麻烦，而且org mode下的表格中英文字母混排时，显示效果很差；ansi term根本无法起作用；路径还是沿用windows的风格，很多时候无法和一些cygwin的工具配合。后来就直接转到cygwin，中英文显示都很在正确，也不需要配置中文，而且可以和terminal配合。
- 使用conemu。用cygwin下的mintty感觉还是不好，就使用conemu来启动了。但默认的配色方案不多，也足够用。
- 使用zsh。如果想深入了解gnu/linux的系统，最好还是装zsh，配合oh my zsh真的很好。当然有人对这个傻瓜包感到不满，但对于我这种非程序员来说就足够了。emacs的确是有一个eshell，但还是过于简单，所以就用multi term开一个zsh，这样使用能够和emacs配合的天衣无缝。
- 使用package。一开始没注意，很多时候扩展都是使用git pull来更新，累死了，也不好管理。所以还是使用包管理会好很多。
- 需要有折腾的精神。曾经看过一个幻灯片，上面一个老外说到emacs不是目的，而是一个过程。如果需要开箱即用的配置，固然有prelude或者spacemacs之类的，但这样就少了折腾的份了。
- 放弃LaTeX。个人感觉它还是太老，很多不兼容的包和不统一的语法令人发狂。如果要折腾，还是用conTeXt为好。
- 越新的插件越好。在刚开始玩的时候，ido, helm这些补全都不满意，直到最近使用ivy才觉得补全就应该是这样子。
- 不过于迷信插件。要满足自己实际的需求，如果有些比较简单功能，能够自己写，或者是抄别人的代码稍微tweak一下就能实现的，就尽量不用插件。当然很多例子也是东抄西抄，然后自己改改就用了。在编写一些小功能的时候，发觉用得最多的是
shell-command这条命令，配合一些命令行的工具，就可以量身定做一些实用的功能。
常用插件
- swiper: 用于查找字符，觉得比helm好用。
- projectile: 项目管理的插件，很好用，能够随意跳转到项目中的文件和文件夹。
- orgmode: 在emacs里面90%都是使用这个功能，就不多说了，笔记，待办事务，打草稿等。
- workgroup2: 用于保存虚拟桌面的插件，很好用，但貌似很久都没更新了。
- multi-term: 直接在emacs运行多个终端。
- avy: 用于跳转到文件中任意的位置。
- olivetti: 用于专心写作的模式，文字全部居中。
- hydra: 开头还是不怎么喜欢这种辅助功能的插件，但随着快捷件越来越多，
- slime: 学习lisp的利器。
orgmode文件
关于这个万能的模式说得太多了，有两点想说说。一是我将所有的东西都塞在不多的2，3个文件中，这样的做法可能看上去很怪，但看了lifehacker的一篇文章后就决定这样做了。有个老外也是使用纯文本来管理他自己的笔记和文件，但后来发现要管理的东西太多，他干脆放弃了管理，仅仅用几个文件就搞好了。开头我也使用deft插件来管理文件，但发觉太多的碎片文件要管理，现在也是使用少数的文件，如果需要查找，用emacs的标记功能，加上swiper来查找就OK了。
二是使用orgmode的literate programming，也即所谓的文学编程。在以前没有接触这个功能之前，emacs的配置文件，ledger文件，计算机编程语言例程搞到到处都是，很难管理，使用这个功能就能够将大部分的文件集中在一起。
打开二进制文件
emacs打开文件的方法，默认都是针对纯文本性质的文件，如果要打开一些二进制的文件就无力了，所以打开二进制文件的功能就非常实用，可以将emacs作为文件管理器来用。这个在xah lee的网站上说过，例子是针对windows，linux和mac的。学艺不精，当时就拿过来就用，后来才知道原来每个系统都有一个相关的命令，可以用文件默认的程序来打开。因为使用的是cygwin，直接用cygstart就可以了。稍微修改一下代码，捆绑在C-c C-o就可以了。
(defun rw-open-in-external-app ()
"Open the current file or dired marked files in external app.
The app is chosen from your OS's preference."
(interactive)
(let* (
(ξfile-list
(if (string-equal major-mode "dired-mode")
(dired-get-marked-files)
(list (buffer-file-name))))
(ξdo-it-p (if (<= (length ξfile-list) 5)
t
(y-or-n-p "Open more than 5 files? "))))
(when ξdo-it-p
(mapc (lambda (fPath) (shell-command (format "cygstart \"%s\"" fPath))) ξfile-list))))
(define-key global-map (kbd "C-c C-o") 'rw-open-in-external-app)
事实上上面这个函数用得不多。因为经常使用的projectile，但只有一个projectile-find-file的功能，所以将这个函数也稍微修改，同样也是增加cygstart这条命令，就可以在projectile上实现打开二进制文件的功能了。
(defun projectile-open-file-externally (&optional arg)
"Jump to a project's file using completion.
With a prefix ARG invalidates the cache first."
(interactive "P")
(projectile-maybe-invalidate-cache arg)
(let ((file (projectile-completing-read "Find file: "
(projectile-current-project-files))))
(shell-command (format "cygstart \"%s\""(expand-file-name file (projectile-project-root))))
(run-hooks 'projectile-find-file-hook)))
查英文字典
查找过一些比较旧的方法，就是在计算机上安装一个字典，然后再用emacs作为前端去查找单词。Xah Lee的方法是直接查在线字典，但我还想查找的同时，在另一个windwow显示查找的结果。以前使用w3m，但最新的emacs带有内部的eww文本浏览器，所以也改用这种方式，稍微tweak一下，绑定在f5功能键上，就可以查merriam-webster的在线字典了。
;; merriam-webster dictionary
(defvar webster-url "http://www.m-w.com/cgi-bin/dictionary?book=Dictionary&va=")
(defun merriam (word)
(interactive "slook up a word in merriam-webster: ")
(let (start (point))
;;
(cond ((string= (format "%s" (current-buffer)) "*eww*")
(eww-browse-url (concat webster-url word)))
;;
((bufferp (get-buffer "*eww*"))
(progn (view-buffer-other-window (get-buffer "*eww*"))
(eww-browse-url (concat webster-url word))))
;;
(t
(progn (view-buffer-other-window (get-buffer "*scratch*"))
(eww-browse-url (concat webster-url word)))))))
(global-set-key (kbd "<f5>") 'merriam)
total commander的模仿
emacs的一个特性就是，如果你看到其他编辑器或程序有好用的地方，那么总会有相应的插件或者也可以自己写一些简单点的函数来实现，也就是它的模仿能力特别强。
以前使用过称为神器的total commander，觉得此类双面板的资源管理器很好用。当然emacs有一个sunrise commander的插件，但查看它的使用，太复杂了。想照搬该插件里面的移动及复制功能，又看不出所以然来。其实我在TC上99%用的功能就无非是将左边面板的文件，移动或者复制到左边的面板，还有就是将左右两边的面板互换一下。查看了一下elisp手册，移动或复制功能实现如下。逻辑无非就是先跳转到目标面板，将它的路径复制下来，然后跳回到源面板，再将所有标记的文件用cp或mv命令复制或移动到目标路径中，再更新一下显示就OK了。写得比较随意，没有dired-mode的判断，progn也显得多余，但实用就行了。
;; total commander function
(defun total-commander-copy-files ()
"total commander copy method. Copy the marked files to the next panel."
(interactive)
(progn (switch-window)
(let ((target-directory (expand-file-name default-directory)))
(progn (switch-window)
(mapc (lambda (marked-file)
(shell-command (concat (format "cp -r \"%s\""
(file-name-nondirectory marked-file))
" "
target-directory)))
(dired-get-marked-files))
(switch-window)
(revert-buffer)))))
当然两个面板的互换的实现功能在网上早就有了，我将它捆绑在f9的功能键上面。但我想光标停在互换后新的面板上，所以在代码的最后加了(switch-window)这一句。
;; transpose buffers
(defun transpose-buffers (arg)
(interactive "p")
(let ((selector (if (>= arg 0) 'next-window 'previous-window)))
(while (/= arg 0)
(let ((this-win (window-buffer))
(next-win (window-buffer (funcall selector))))
(set-window-buffer (selected-window) next-win)
(set-window-buffer (funcall selector) this-win)
(select-window (funcall selector)))
(setq arg (if (plusp arg) (1- arg) (1+ arg))))
(switch-window)))
(global-set-key [f9] 'transpose-buffers)
快速截屏及编辑
在编写笔记时，需要一种快速插入截屏方法，在网上也曾经说过这样一种方法，但它是基于linux下的scrot命令的，而且我想在截屏之后马上对其进行编辑，所以稍微修改了如下的代码。截屏使用irfanview的命令，然后编辑使用picpick的命令，注意路径都是使用windows的路径方式。捆绑在快捷键C-c r上。
;; screenshot
(defun cut ()
"Take a screenshot into a unique-named file in the current buffer file
directory and insert a link to this file."
(interactive)
(setq filename
(concat (make-temp-name "img-") ".png"))
;; (shell-command (format "boxcutter f:/cy/home/thinkT420/Notiz/img/\"%s\"" filename))
(shell-command (concat "i_view32 /capture=4 /convert=" "\"f:\\cy\\home\\thinkT420\\Notiz\\img" (format "\\%s\"" filename)))
(insert (concat "[[./img/" filename "]]"))
(shell-command (format "picpick f:/cy/home/thinkT420/Notiz/img/\"%s\"" filename))
)
(define-key org-mode-map (kbd "C-c r") 'cut)
简单的pdf文件合并
在工作中90%的时候都需要合并pdf文件，自动使用了emacs作为文件管理工具，就不想再打开工具去合并。有一个pdftk的命令行工具，可以对pdf进行多种的操作。
;; pdf method
(defun pdf-merge ()
"Merge the marked files into a pdf file."
(interactive)
(setq filename
(concat (make-temp-name "c-") ".pdf"))
(shell-command (format "pdftk %s cat output %s"
(list-to-string (dired-get-marked-files))
filename))
(revert-buffer))
(defun list-to-string (l)
"Return a STRING which is the concatenation of the elements of L."
(if (not l)
nil
(if (stringp (car l))
(concat (file-name-nondirectory (car l)) " " (list-to-string (cdr l)))
(list-to-string (cdr l)))))
简单的压缩及解压
同理，压缩和解压在工作中很常见，但emacs自带的压缩功能并不是我想要的。所以使用7z的命令行工具，对文件进行解压或者压缩，也是绑定在hydra的功能键上。但缺点是我收到的文件很多还是rar的压缩方式，用emacs解压时出错，非要打开GUI解压才行。或者是这个功能还没有摸清楚其正确使用方法吧。
;; compress and uncompress files with 7z
(defun 7z-unzip ()
"Uncompress the marked files to a directory. The directory name is same as the zip file name without suffix."
(interactive)
(mapc (lambda (marked-file)
(shell-command (format "7z e -o\"%s\" \"%s\""
(file-name-base marked-file)
(file-name-nondirectory marked-file))))
(dired-get-marked-files))
(revert-buffer))
(defun 7z-zip ()
"Compress the marked files to a zip files. The zip file name is random."
(interactive)
(setq filename
(concat (buffer-name) ".zip"))
(mapc (lambda (marked-file)
(shell-command (format "7z a \"%s\" \"%s\""
(file-name-nondirectory filename)
(file-name-nondirectory marked-file))))
(dired-get-marked-files))
(revert-buffer))
关机，重启及睡眠
再次是懒人的道理，使用MS的psshutdown命令行功能，在emacs上直接实现这三个功能，也懒得去记一些命令行和快捷键，也不想动鼠标。然后将他们捆绑在hydra上的三个功能键上。
每月花费结算
很多文章都提到了ledger来进行个人的财务结算，但windows版本的ledger太旧了。后来找到一个克隆版的hledger，windows版本更新也快。使用文学编程的方式，在orgmode文件中增加如下代码，就可以直接将当月的花费记录下来。
#+BEGIN_SRC sh :dir ~/note
hledger balance -p "2016/06" --file finance.ledger
#+END_SRC
编写简单的幻灯片
利用pandoc，reveal.js编写一些简单，非正式的幻灯片，快捷简单。后来发现有个ox-reveal的插件，但没有用。
;; create the revealjs slideshow file
(defun org-revealjs-compile ()
(interactive)
(compile (concat "pandoc -s -i -t revealjs --self-contained" " " (file-name-nondirectory (buffer-file-name)) " " "-o" " "(file-name-sans-extension (file-name-nondirectory (buffer-file-name))) ".html" " " "-V theme=league")))
文件加密
网上推荐的方式是使用GNU GPG的方法，但过于复杂，而在一次不小心的操作中在加密的文字上再加密，之后无法恢复。其实只需要简单的ccrypt这个简单的工具，他本身也捆绑了elisp的插件，简单好用。
hydra
有些键的组合实在太难记，所以都捆绑在hydra上，这个插件还是挺好用的。
没有用emacs做的事
- 邮件：试过用mutt实现过，但本身对邮件操作不太重视，后来也没有用了。
- 多标签：因为是在cygwin下使用emacs，而且本身对标签的使用不感冒，开得多反而会混乱。
- 查看图片，pdf，听音乐：在emacs里面实现了，但太geek，作用也不大，所以后来也没用。
- 编写正式的幻灯片：考虑到大家多数还是用MS ppt，用LaTeX等写的方式没有人会改，也放弃了。
网友评论