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系への対処
□追記
実体参照で問題になりそうなのは大方片付けたと思う。