2004年 07月 25日

xyzzy での xmldatetime, unix timestamp

prog 
; Unix-Timestamp
(global-set-key #\C-2
#'(lambda ()
(interactive)
(with-output-to-selected-buffer
(format t "~d" (- (get-universal-time) (encode-universal-time 0 0 9 1 1 1970))))))
; xml datetime
(global-set-key #\C-1
#'(lambda ()
(interactive)
(let (date)
(setq date (format-date-string "%Y-%m-%dT%H:%M:%S%Z"))
(insert (concat (substring date 0 -2) ":" (substring date -2)))))) ;%Z => "+0900" -> "+09:00"

これなしじゃ生きれない！

それと pre を使うときは CDATA で囲ってる……そうしないとインデントされてしまうから……

関連エントリー