Emacs のツールバーに TeX コマンドを追加

Emacs のツールバーに TeX コマンドを追加してみました。

tool-bar

 

;; ツールバーのラベルを日本語に!(深い意味はありません)
(tool-bar-add-item-from-menu 'find-file "new" nil :label "新規作成" :vert-only t)
(tool-bar-add-item-from-menu 'menu-find-file-existing "open" nil :label "開く" :vert-only t)
(tool-bar-add-item-from-menu 'dired "diropen" nil :label "フォルダー" :vert-only t)
(tool-bar-add-item-from-menu 'kill-this-buffer "close" nil :label "閉じる" :vert-only t)
(tool-bar-add-item-from-menu 'save-buffer "save" nil :label "保存")
(tool-bar-add-item-from-menu 'undo "undo" nil :label "取り消し")
(tool-bar-add-item-from-menu 'kill-region "cut" nil :label "切り取り" :vert-only t)
(tool-bar-add-item-from-menu 'kill-ring-save "copy" nil :label "コピー" :vert-only t)
(tool-bar-add-item-from-menu 'yank "paste" nil :label "ペースト" :vert-only t)
(tool-bar-add-item-from-menu 'isearch-forward "search" nil :label "検索" :vert-only t)

;; よく使う TeX コマンド
(tool-bar-add-item "tex" 'tex-file 'tex-file :label "TeX" :help "TeX → PS")
(tool-bar-add-item "viewps" 'tex-ps-preview 'tex-ps-preview :label "View PS" :help "View PS")
(tool-bar-add-item "pspdf" 'tex-print 'tex-print :label "PDF" :help "TeX → PDF")
(tool-bar-add-item "viewpdf" 'tex-pdf-preview 'tex-pdf-preview :label "View PDF" :help "View PDF")

関数 tool-bar-add-item の使い方は

(tool-bar-add-item "アイコン" '関数 '偽関数? 以下おまけ)

です。第 3 引数は「the fake function key symbol in the prefix keymap」とのこと。アイコンは AUCTeX から拝借しました。

 

AUCTeX に付属しているアイコン一覧

amstex bibtex dvipdf dvips error
amstex.xpm
bibtex.xpm
dvipdf.xpm
dvips.xpm
error.xpm
exec execbibtex execdvips execerror execpdftex
exec.xpm
execbibtex.xpm
execdvips.xpm
execerror.xpm
execpdftex.xpm
exectex execviewdvi execviewpdf execviewps gv
exectex.xpm
execviewdvi.xpm
execviewpdf.xpm
execviewps.xpm
gv.xpm
jumpdvi ltx-symb-turn-off ltx-symb-turn-on pdftex pspdf
jumpdvi.xpm
ltx-symb-turn-off.xpm
ltx-symb-turn-on.xpm
pdftex.xpm
pspdf.xpm
tex view viewdvi viewpdf viewps
tex.xpm
view.xpm
viewdvi.xpm
viewpdf.xpm
viewps.xpm