* Menu
[[About:self:AboutPage.txt]] | [[Profile:file/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:lisp/]] | [[あんてな:listall]] | [[■:lisp]] | [[buzz:files/southly#buzz]]
page 0 - << : 0 : >>
* 2009-03-21 :
print-objectを定義するとprincとprin1の両方に影響するんだなぁ
別々に定義することはできないんだろうか。
と思ったらできた。
princとprin1の差は*print-escape*に現れるので、この値で分岐すれば良かった。*print-readably*かと勘違いしてた。
別々に定義することはできないんだろうか。
と思ったらできた。
princとprin1の差は*print-escape*に現れるので、この値で分岐すれば良かった。*print-readably*かと勘違いしてた。
(defclass point () ((x :initform (random 100)) (y :initform (random 100)))) (make-instance 'point) ;=> #<POINT {121573B1}> (defmethod print-object ((object point) stream) (if *print-escape* (print-unreadable-object (object stream :type t) (format stream "(~D, ~D)" (slot-value object 'x) (slot-value object 'y))) (format stream "(~D, ~D)" (slot-value object 'x) (slot-value object 'y)))) (make-instance 'point) ;=> #<POINT (53, 69)> (format nil "~A" (make-instance 'point)) ;=> "(55, 81)" (format nil "~S" (make-instance 'point)) ;=> "#<POINT (41, 71)>"[[(ReadMore...) index.rb?1237620463.txt]]
* xyzzy lisp : シャッフル
(defun nswap (l x y) (rotatef (car (nthcdr x l)) (car (nthcdr y l))) l) (defun nshuffle (l) (do ((i (length l) (1- i))) ((>= 1 i)) (setq l (nswap l (1- i) (random i)))) l)元のデータを直接いじっていくほうが分かりやすくないッスか?
ってことでこんな。
nswapは関数にする必要は無いけど意味が分かりやすいように。
* RandomNote : ChangeLog (改造記録)
- 2007-03-03 : search wordの重複を避けるようにした(データの再構築)
- 2007-01-12 : またまたspam対策。全角文字が無い投稿は弾く事にした
- 2007-01-11 : spam対策。書き込めるURIの数に制限をつけた
- 2006-11-21 : REFERERのデータをいじった(改造じゃないけど)
- 2006-11-05 : search wordの並びに辞書順を追加
- 2006-09-08 : spam対策。狙われているページを編集不可に。
- 2006-04-25 : RSSのdescriptionまわりとか(うっかり検索履歴を消してしまう(汗 )
- 2006-04-12 : へなちょこspam対策 第一弾の修正
- 2006-04-02 : RSSをファイルに出力するようにした
- 2006-04-02 : なんか細々と
- 2006-03-26 : RSSも検索結果に(完成)
- 2006-03-23 : RSSも検索結果に(途中まで)
- 2006-03-17 : change_logを少し見易くした
- 2006-03-04 : へなちょこspam対策 第一弾
- 2006-03-03 : 下部にもページリンクを設置
- 2006-02-28 : refererの表示をカウント2以上に
- 2006-02-28 : 特定leafへのリンクに別名をつける
- 2006-02-28 : こまごまとしたこと
- 2006-02-22 : コメント欄 (飾り)
- 2006-02-22 : RSS周り (RSS auto-discovery & HTTP応答ヘッダ)
- 2006-02-19 : NOT検索 (へなちょこ)
- 2006-02-13 : ブックマーク
→[[Todo self:1140534666.txt]]
* RandomNote の [[Wiki記法]] - TextFormat
- 改行は改行として、空行は空行として扱われます。
- 行の先頭が空白の場合、その行はそのまま表示されます。整形されません。
- URL(http://ninjinix.x0.com/rn/)はそのURLへのリンクになります。
- [[ ]] で囲まれた言葉は、その言葉を検索するリンクになります。
* RandomNote について。
* xyzzy lisp : junk/httpの利用例として
* RandomNote : Todo
- spam対策
- コメント書き専用leaf
- 書き込まれたコメントをもう少し分かりやすく
- 時刻検索(並びは降順が欲しい)
- フレーズ検索
- 自動リンクの表示時の長さを制限
- その他なんかある?
→[[ChangeLog self:1141132537.txt]]
* 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したほうがいいんだっけ?
page 0 - << : 0 : >>