xyzzy + KaTeX

いじってみたので、忘れないようにメモメモ。

目的

pdfを作る＆開くコマンドを登録する。
pdfを開くのは関連づけされたプログラムで。

コマンド登録

site-lisp/katex/katex.lを編集

(and (boundp 'window-system) window-system "S)earch ")
 "V)iewerr L)pr dvipdF)m viewpD)f"))

 ;((= c #\s) (KaTeX-xdvi-remote-search arg))
 ((= c #\f) (KaTeX-dvipdfm))
 ((= c #\d) (KaTeX-viewpdf))
 )

 (defvar dvipdfm-command "dvipdfmx ")
 (defun KaTeX-dvipdfm ()
 (interactive)
 (KaTeX-save-buffers)
 (KaTeX-call-command-on-file dvipdfm-command KaTeX-typeset-buffer))

 (defun KaTeX-viewpdf ()
  (interactive)
  (shell-execute
   (concat (KaTeX-get-preview-file-name) ".pdf")
   ))

ツールバー

KaTeXツールバーに表示する。site-lisp/katex/katexbar.lをこんな感じに。

 (defun KaTeX-tool-bar ()
  (create-tool-bar
   'KaTeX-tool-bar
   *KaTeX-toolbar-bitmap*
   '(("LaTeX" 0 (lambda () (interactive) (KaTeX-typeset-menu-after-mode-check nil #\j)))
 	 ("Preview" 1 (lambda () (interactive) (KaTeX-typeset-menu-after-mode-check nil #\p)))
 	 ("dvipdFm" 5 (lambda () (interactive) (KaTeX-typeset-menu-after-mode-check nil #\f)))
    )))

"site-lisp/katex/KaTeX-toolbar.bmp"には5がないのでアイコン加えておく。