http-postでresponseを

朝起きてpukiwiki-modeを試してみたら何となく、検索も出来そうだったのでやってみた。朝は何故か上手くいことが多いような気がする。

;;http post and return result html
;"何となく試してみたら上手く行ったので"
(defun http-post-get (url data &key headers)
  "postして帰ってきたhtmlを戻り値に"
  (let (http result)
	(multiple-value-bind (proto host file anchor port)
		(junk::junk-http-url-study url)
	  (unless (string= proto "http")
		(junk::junk-error "Protocol is not http: ~A" url))
	  (unwind-protect
		  (multiple-value-prog1
		   (setq http (junk::junk-http-request-send host file "POST"
													:data data
													:headers headers))
		   (junk::junk-http-response-get http)
		   (while (setq in (read-line http nil))
			 (setq result (concat result (convert-encoding-to-internal
										  *pukiwiki-view-character-set* in))))
		   (and http (close http)))
		(close http :abort t)))
	result))

しかし、最近Emacsのpuwikiwiki-mode見てたらプレビューとかソートだの閲覧用の機能まで大量に在って、再現するのは非常に面倒そう。なので多分やらない。差分とかは何となく使いたいような気もしないでもないような。やっぱり面倒かな。

elのメモ
・現在のバッファとサーバのデータを比較し、表示する。
・差分表示
・プレビュー
・モードのヘルプをモード上で
・今日変更された箇所を一覧表示
・ページ一覧の並び替え
・1.3系への対処

□追記
実体参照で問題になりそうなのは大方片付けたと思う。