自作のlispで投稿してみる

自作のxyzzy lispからAtomPubで投稿してみるテスト。
ここから下の文字化けは今までのテスト結果。

使ってるものはこんな感じ

(require "atomm/publish")

(defvar *hateda-user* "arashi77")
(defvar *hateda-password* "hogehoge")
(defvar *debug-mode* t)


(defun hateda-post (data)
  (let ((url nil))
	(setq url (format nil "http://d.hatena.ne.jp/~A/atom/blog" *hateda-user*))
	(when *debug-mode*
;	  (msgbox "~S" url)
	  (msgbox "~S" data))
;	(msgbox "~A" "debug")
	(atomm::atomm-post-entry url *hateda-user* *hateda-password* data)
	))

(defun hateda-post-entry ()
  (interactive "p")
  (let ((title (read-string "Entry Title: ")) (data nil))
	(setq data (list
				(list
				"entry"
				 '(("xmlns" . "http://purl.org/atom/ns#"))
				 (cons "title" (cons nil (cons title nil)))
				 (cons "content" (cons nil (cons (buffer-substring (point-min) (point-max)) nil)))
				 )))
	(hateda-post data)
	))

これでどうかな？