PPxからTeXファイルを作成
PPxのカレントフォルダに、TeXファイルをテンプレ付きで作る方法。基本的に前回やったのと同じ要領です。
Xyzzy
(defun make-tex () (interactive) (let* ((filepath (pop si:*command-line-args*)) (filename (pathname-name filepath))) (find-file filepath) (if (eq (point-max) (point-min)) (progn (insert (format-date-string "\\documentclass{jsarticle}\n\\begin{document}\n\\title{")) (insert filename) (insert (format-date-string "}\n\\author{つかさ}\n\\maketitle\n\n\\tableofcontents\n\n\n\n\\end{document}")) (goto-line (+ (point-min) 9))))))
.xyzzyには次を追加。
(require "make-tex")
タイトルはファイル名になるようにしています。
PPx
PPxでは、以下を適当なキーかメニューに登録。
%Ob D:\bin\xyzzy\xyzzy.exe -e (make-tex) %1\%"Tex"%{%|.tex%}