About | Profile | まとめ | オリジナル | xyzzy | あんてな | ■ | buzz

とりあえずできた。REPL では動作確認できた。
要 cl-interpol。
SANO さんの情報がなかったらどうにか interpol-reader を使えないか、悩んでいたかも。サンクスです。
(ReadMore...)

• エスケープシーケンスの件は readtable をいじるのが妥当かな。
• cl-interpol の reader を引数をあわせて使うのが一番楽そう。やってみるか。
• cldoc の使い方がなんとなく分かった。けど、使い方を調べた関数 etc のメモを取りたいんだよな〜
• cldoc の出力する html も気に入らないので手を入れたい……
• メモを取るという目的からすると一度 DocBook 形式で出力する Albert の方が向いていそうだけど、DocBook よく分からんし。
• 話は変わって、MediaWiki ですか。実績も十分ですし、日本語の情報も多そうですし、良いんじゃないでしょうか。
• 個人的には MoinMoin はどうなかな〜とか思ってました。
• Colorize code に Lisp syntax があったら絶対こっちを推しましたけど、無いみたいです。残念。
• loop マクロといえば http://homepage1.nifty.com/bmonkey/lisp/index.html にもあったりしますけど、どんな感じなんでしょう。loop マクロは基本的に使わないので、試してないのですが。

• (ni-view xyzzy:*packages*) を更新
• http://raido.sakura.ne.jp/southly/lisp/ni/view.lisp
• 各アプリごとのページが見れるようにした。
• エスケープシーケンスの情報が read 時点で落ちているな。Common Lisp にはないもんな。うまく読むにはどうしたら良いんだろ。
• その他 TODO
• hook を仕込んで情報の訂正・追加ができるようにする。
• rss & atom の出力

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")