[hack]emacs lispと格闘

(setq unixtime (substring (int-to-string
			   (let ((curtime (current-time)))
			     (+ (* (car curtime) 65536.0) (cadr curtime)))) 0 10))

たったこれだけを作るのに 1時間ほど格闘…。しかも最適化されてないし。10文字決め打ちだし。 car と cdr を組み合わせた cadr もここに書くまですっかり忘れてましたな。

ちうことで日記表紙作成スクリプトも .* つけて修正完了。

(defun insert-unixtime ()
  "insert unixtime."
  (interactive)
  (setq unixtime (substring (int-to-string
			     (let ((curtime (current-time)))
			       (+ (* (car curtime) 65536.0) (cadr curtime)))) 0 10))
  (insert unixtime))

よくわかんないので html-mode.el のほかの関数を真似して書いてみたら冗長に。