PSTricksが使いやすくなる（かもしれない）.emacs
Linux使ってて，PSTrickで図を描こうという人には役立つかもしれない.emacsの設定．
これを書いた時は（というか今でも）自分でemacs lispとかほとんど書かないので変なことをしてるかも．とりあえず，下のコードを.emacsに張れば
- 普通にtexを（yatexとかで）コンパイルして*.dviファイルを生成
- 「C-c ps 」で開いてる*.texファイルから作られた*.dviファイルから，*.psファイルを生成
- 「C-c pp 」で生成した*.psファイルを表示
- 「C-c Eps」で*.psファイルを*.epsファイルに変換
が出来るはず．
（追記：Snipplrのほうが見やすいかもしれない > http://snipplr.com/view/5810/emacs-for-pstrick-user/）
; dvips
(defun my-dvips nil
(interactive)
(shell-command
(concat “dvips “ (substring (buffer-name) 0 -4) “.dvi”)))
(global-set-key “\C-cps” ‘ my-dvips )
; evince (PostScript viewer)
(defun my-evince nil
(interactive)
(shell-command
(concat “evince “ (substring (buffer-name) 0 -4) “.ps &”)))
(global-set-key “\C-cpp” ‘ my-evince )
; dvips -E -o output.eps input.dvi
(defun my-dvips-eps nil
(interactive)
(setq my-dvips-eps-filename (substring (buffer-name) 0 -4))
(shell-command
(concat “dvips -E -o” my-dvips-eps-filename “.eps “
my-dvips-eps-filename “.dvi”)))
(global-set-key “\C-cEps” ‘ my-dvips-eps)
(defun my-dvips nil
(interactive)
(shell-command
(concat “dvips “ (substring (buffer-name) 0 -4) “.dvi”)))
(global-set-key “\C-cps” ‘ my-dvips )
; evince (PostScript viewer)
(defun my-evince nil
(interactive)
(shell-command
(concat “evince “ (substring (buffer-name) 0 -4) “.ps &”)))
(global-set-key “\C-cpp” ‘ my-evince )
; dvips -E -o output.eps input.dvi
(defun my-dvips-eps nil
(interactive)
(setq my-dvips-eps-filename (substring (buffer-name) 0 -4))
(shell-command
(concat “dvips -E -o” my-dvips-eps-filename “.eps “
my-dvips-eps-filename “.dvi”)))
(global-set-key “\C-cEps” ‘ my-dvips-eps)
