PPxからTeXファイルを作成

PPxのカレントフォルダに、TeXファイルをテンプレ付きで作る方法。基本的に前回やったのと同じ要領です。

Xyzzy

Xyzzyのsite-lispに次のファイルを保存。

(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%}

実際に使ってみる