* Menu
[[About:self:AboutPage.txt]] | [[Profile:http://iddy.jp/profile/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:http://raido.sakura.ne.jp/southly/xyzzy/site-lisp/]] | [[あんてな:http://i-know.jp/southly/listall]] | [[■:http://raido.sakura.ne.jp/southly/lisp/ni/view.lisp]] | [[buzz:http://www.google.com/profiles/southly#buzz]]
page 0 - << : 0 : >>
* Scrapbook : かぎしっぽツール - [物理のかぎしっぽ]
http://hooktail.org/computer/index.php?cmd=read&page=%A4%AB%A4%AE%A4%B7%A4%C3%A4%DD%A5%C4%A1%BC%A5%EB
数式画像とPDF
数式画像とPDF
* memo : コマンドプロンプト周りの環境改善
* xyzzy lisp : junk/httpの利用例として
* 2006-02-09
;;; RandomNote投稿
(require "junk/http")
(in-package "junk")
(defvar *rn-url* "http://raido.sakura.ne.jp/southly/rn/index.rb")
(defun rn-post (url str)
(let (http)
(multiple-value-bind (proto host file anchor port)
(junk-http-url-study url)
(unless (string= proto "http")
(junk-error "Protocol is not http: ~A" url))
(unwind-protect
(multiple-value-prog1
(setq http (junk-http-request-send host file "POST" :data (format nil "cmd=edit_do&fname=&mes=~A" (si:www-url-encode str nil "0-9A-Za-z"))))
; 結果確認するならここ
(and http (close http)))
(close http :abort t)))))
(defun user::rn-post-region (beg end)
(interactive "r")
(rn-post *rn-url* (buffer-substring beg end)))
ということでできたRandomNote投稿Lisp。
xyzzyからM-x rn-post-regionで投稿します。
編集とか削除はしない方針なので作る予定はありません。
with-open-streamを見てちょっと修正。
一応closeしたほうがいいんだっけ?
page 0 - << : 0 : >>
Source of Nothingness
NANRI
NANRI