エントリ一覧の日付書式を変更
エントリ一覧の日付フォーマットがISO8601形式のままでちょっと見づらいので表示を修正
しかし服部さんの junk-lib って、よくできてるなぁ…
--- c:\tools\xyzzy\site-lisp\ht.l.0508 Fri May 08 17:02:05 2009 +++ c:\tools\xyzzy\site-lisp\ht.l Mon May 18 17:12:31 2009 @@ -35,6 +35,7 @@ (provide "hatena-atompub") (require "atomm/publish") +(require "junk/lib") (defvar *hatena-atompub-mode-map* nil) @@ -164,8 +165,7 @@ (setq title (caddr element))) ((equal "updated" (car element)) (setq updated (caddr element))) - ) - )) + ))) (push (list link updated title) *hateda-entry-list*) ))) @@ -207,7 +207,7 @@ (apply #'set-text-attribute (point) (progn - (insert (format nil "[~A] ~A~%" (cadr column) (caddr column))) + (insert (format nil "[~A] ~A~%" (format-updated (cadr column)) (caddr column))) (point)) ;(car column) str_entry @@ -215,6 +215,10 @@ (when *debug-mode* (msgbox "~A" (list-text-attributes))) ))) + +;; ISO 8601形式の日付を編集 +(defun format-updated (str) + (format-date-string "%Y/%m/%d(%v) %H:%M:%S" (junk::iso8601-parse-datetime str))) ;; 現在のpointからtag情報を取得する (defun hatena-atompub-current-tag ()