* 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 : >>
* Common Lisp : 文字列中のエスケープシーケンスを解釈する
とりあえずできた。REPL では動作確認できた。
要 cl-interpol。
SANO さんの情報がなかったらどうにか interpol-reader を使えないか、悩んでいたかも。サンクスです。
[[(ReadMore...) index.rb?1204642645.txt]]
要 cl-interpol。
SANO さんの情報がなかったらどうにか interpol-reader を使えないか、悩んでいたかも。サンクスです。
[[(ReadMore...) index.rb?1204642645.txt]]
* 2008-03-04 :
- エスケープシーケンスの件は readtable をいじるのが妥当かな。
- cl-interpol の reader を引数をあわせて使うのが一番楽そう。やってみるか。
- cldoc の使い方がなんとなく分かった。けど、使い方を調べた関数 etc のメモを取りたいんだよな〜
- cldoc の出力する html も気に入らないので手を入れたい……
- メモを取るという目的からすると一度 DocBook 形式で出力する [[Albert:http://albert.sourceforge.net/]] の方が向いていそうだけど、DocBook よく分からんし。
- 話は変わって、MediaWiki ですか。実績も十分ですし、日本語の情報も多そうですし、良いんじゃないでしょうか。
- 個人的には [[MoinMoin:http://moinmo.in/]] はどうなかな〜とか思ってました。
- [[Colorize code:http://moinmo.in/HelpOnFormatting#SyntaxHighlighting]] に Lisp syntax があったら絶対こっちを推しましたけど、無いみたいです。残念。
- loop マクロといえば lisp/index.html にもあったりしますけど、どんな感じなんでしょう。loop マクロは基本的に使わないので、試してないのですが。
* 2008-03-02 :
- (ni-view xyzzy:*packages*) を更新
- lisp
- 各アプリごとのページが見れるようにした。
- エスケープシーケンスの情報が read 時点で落ちているな。Common Lisp にはないもんな。うまく読むにはどうしたら良いんだろ。
- その他 TODO
- hook を仕込んで情報の訂正・追加ができるようにする。
- rss & atom の出力
* xyzzy lisp : ミニバッファの入力にエスケープシーケンス
interactive指定子を作っちゃえば楽に置き換えられるんじゃね?
ってことで、こんな。
ってことで、こんな。
(in-package "editor") (defun interactive-read-string-with-escape-sequence (prompt default history title) (list (decode-escape-sequence (read-string prompt :default default :history history) nil))) (pushnew '(#\w . interactive-read-string-with-escape-sequence) *interactive-specifier-alist* :test #'equal) (defun interactive-read-regexp-with-escape-sequence (prompt default history title) (list (decode-escape-sequence (read-string prompt :default default :history history) t))) (pushnew '(#\W . interactive-read-regexp-with-escape-sequence) *interactive-specifier-alist* :test #'equal) ;; こんな感じで使う ;; 文字列 (defun search-forward-wes (pattern &optional noerror) (interactive "wSearch forward: " :default0 *last-search-string* :history0 'search) (search-command pattern nil nil (interactive-p) noerror)) ;; 正規表現 (defun re-search-forward-wes (regexp &optional noerror) (interactive "WRe-search forward: " :default0 *last-search-regexp* :history0 'search) (search-command regexp nil t (interactive-p) noerror)) (export '(search-forward-wes re-search-forward-wes)) (in-package "user")
page 0 - << : 0 : >>