今日の改修(ぜんぜんできてない)
今日は触れる時間が無いので、少しだけ改変。そうかー、let* ってこうやって使うのね。
こうやって取得したものをスタックにつんだりして選択取得できる状態を作らないといけないのか、特にlinkについて。このlinkをメンバURIとしてGETしてきたりとかすればいいんだよね?
Kamail V3とかのインタフェースを参考にしてみることにしよう
--- ht.l.0416 Thu Apr 16 16:24:01 2009 +++ ht.l Fri Apr 17 14:56:01 2009 @@ -78,16 +78,15 @@ (defun hateda-entry-format-list (entry) (if (atom entry) nil - (let ((element (car entry))) - (setq title (cdr (xml-title element))) - (setq link (cdr (caar (xml-link element)))) - (setq content (cdr (xml-content element))) + (let* ((element (car entry)) + (title (cadr (xml-title element))) + (link (cdr (caar (xml-link element)))) + (content (cadr (xml-content element)))) (insert (format nil "\n~A:~A:~A\n" title link content)) (when *debug-mode* (msgbox "~A:~A:~A" title link content)) (hateda-entry-format-list (cdr entry))) - ) - ) + )) (defun init () (load-config) (while (not *hateda-user*)