* 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 : >>
* そこそこまとまっていて役に立つかもしれないもの
* xyzzy lisp : 候補の絞込みをするpopup-list
http://xyzzy.s53.xrea.com/wiki/index.php?%BC%C1%CC%E4%C8%A2%2F173
上のページにいくつかありますが元のpopup-listと引数が異なっていて置き換えにくいので書き直し。正規表現を使っていなかった佐野さんのがベース。
ちなみに実際に使うときは[[これ:self:1155828305.txt]]みたいに引数にbase（すでに一致している部分）をとらないといけないような気がしてる。
上のページにいくつかありますが元のpopup-listと引数が異なっていて置き換えにくいので書き直し。正規表現を使っていなかった佐野さんのがベース。
(defun popup-list-loop (list callback &optional point with-insert)
(let ((str "") (matched list) matched1 selected input)
(loop
(if with-insert (insert str))
(popup-list matched (lambda (x) (setq selected x)) point) ; #\ESC
(refresh-screen)
(while (not (or selected (setq input (read-char-no-hang *keyboard*))))
(do-events))
(if with-insert (delete-region (- (point) (length str)) (point)))
(cond (selected
(funcall callback selected)
(if (eql input #\SPC) (unread-char input))
(return t))
; ((eql input #\ESC) (return nil))
((eql input #\C-h) (unless (zerop (length str)) (setq str (substring str 0 -1))))
((graphic-char-p input) (setq str (format nil "~A~C" str input)))
(t (unread-char input) (return nil)))
(setq matched1 (remove-if (lambda (x)
(or (< (length x) (length str))
(string/= x str :end1 (length str))))
list))
(if (endp matched1) (if with-insert
(progn (funcall callback str) (return t))
(setq str (substring str 0 -1)))
(setq matched matched1)))))
できるだけ元のpopup-listと同じ操作感になるようにしたつもりですが、ウィンドウをESCで閉じたときの動作だけは感知する手段が無くて無理でした。- 2006-10-19修正。eqで文字を比較するのは処理系依存だったのでeqlに。
ちなみに実際に使うときは[[これ:self:1155828305.txt]]みたいに引数にbase（すでに一致している部分）をとらないといけないような気がしてる。
page 0 - << : 0 : >>
Source of Nothingness
NANRI
NANRI