エントリ一覧の日付書式を変更

エントリ一覧の日付フォーマットが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 ()