* Menu
[[About:self:AboutPage.txt]] | [[Profile:file/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:lisp/]] | [[あんてな:listall]] | [[■:lisp]] | [[buzz:files/southly#buzz]]
* RandomNote : コメント記入欄
コメント記入欄をつけてみる。
これでなんとなくblogっぽく見えるかな。
所詮飾りですけど。
「edit」でいくらでも編集できるし。
[[(ReadMore...) index.rb?1140618077.txt]]
これでなんとなくblogっぽく見えるかな。
所詮飾りですけど。
「edit」でいくらでも編集できるし。
[[(ReadMore...) index.rb?1140618077.txt]]
* RandomNote : RSS auto-discovery
付けてみました。
HTTP応答ヘッダも「Content-type: application/xml」に変更。
参考
HTTP応答ヘッダも「Content-type: application/xml」に変更。
参考
* RandomNote : NOT検索
適当にNOT検索ができるようにしてみる。
Rubyはまだよく分からんので変なことしているかも。
どなたかうまいこと実装してくれないかなぁ。
検索語が「-」で始まる場合はNOT検索をします。
[[(ReadMore...) index.rb?1140351696.txt]]
Rubyはまだよく分からんので変なことしているかも。
どなたかうまいこと実装してくれないかなぁ。
検索語が「-」で始まる場合はNOT検索をします。
[[(ReadMore...) index.rb?1140351696.txt]]
* 2006-02-13
RandomNoteをソーシャルブックマーク的に使えるように改造。
個人で使うから「ソーシャル」じゃないけど。
RubyはRubyで頭の使い方が微妙に違う気がする。
リファレンスの読み方は慣れの問題かな。
javaの方が見やすいような気がするけど。
個人で使うから「ソーシャル」じゃないけど。
RubyはRubyで頭の使い方が微妙に違う気がする。
リファレンスの読み方は慣れの問題かな。
javaの方が見やすいような気がするけど。
* 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したほうがいいんだっけ?