カレントバッファを Postscriptとして出力する

Emacsはデフォルトで Postscriptへの変換 ps-spool-*関数(ps-spool-buffer等)
があるんですが、デフォルトだと日本語が文字化けしたり、見た目も個人的に
いまいちなので、u2psを使って Postscriptに変換する elispを書きました。
毎回毎回手打ちするのが面倒だったというのもあります。

(defun u2ps-buffer ()
  (interactive)
  (let ((u2ps-output "/tmp/u2ps-buffer.ps")
         (current-file (buffer-file-name (current-buffer))))
    (call-process "u2ps" nil nil t "-o" u2ps-output current-file)
    (find-file u2ps-output)
    (doc-view-toggle-display)))

doc-view-modeを使ってどんな具合に変換されているかを
すぐに確かめるようにしています。