Emacsで印刷

今までソースコードの印刷は

例)

$ nkf -e test.c > test.euc.c

$ e2ps test.euc.c > test.ps

$ lpr test.ps

などという大変面倒なことを繰り返していた。

この作業をどうにかして簡略化できないものかと思っていたらayukawaさんのubulogにカレントバッファをnkf, e2ps, lprを使って印刷する方法が書かれていた。(ありがたや)

Link：Emacsから印刷する - ubulog

(setq my-print-command-format "nkf -e | e2ps -a4 -p -nh | lpr")
(defun my-print-region (begin end)     
   (interactive "r")     
   (shell-command-on-region begin end my-print-command-format))
(defun my-print-buffer ()    
   (interactive)    
   (my-print-region (point-min) (point-max)))

オリジナルのままだと印刷時に「current buffer」みたいなヘッダーが表示されてしまうので、e2psに-nhオプション(no header)を与えている。

使い方は

M-x my-print-buffer

でカレントバッファを印刷。

M-x my-print-region

で選択範囲を印刷。

言うまでもないけど、とても便利！

もちろん、デフォルトプリンタを設定しておくことが大前提。