* Menu
[[About:self:AboutPage.txt]] | [[Profile:file/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:lisp/]] | [[あんてな:listall]] | [[■:lisp]] | [[buzz:files/southly#buzz]]
- 2006-03-28
- SLIME勉強会
- editorパッケージのbuiltin関数
- xyzzy lisp : clone-buffer
- xyzzy lisp : 候補の絞込みをするpopup-list
- xyzzy lisp : Buffer selection
- xyzzy lisp : walk-windowsの代わりに
- xyzzy lisp : へなちょこ補完その3
- xyzzy lisp : へなちょこ補完その2
- xyzzy lisp : へなちょこ補完
- xyzzy lisp : ディレクトリ付きにしてユニークなバッファ名に
- xyzzy topic : $XYZZY/lispのファイルはread-onlyで開く
- xyzzy lisp : outline-treeの表示順にnext-bufferとか
page 0 - << : 0 : >>
* 2006-03-28
「0(ゼロ)」にスラッシュが入ったフォントがいっぱい見つかってうれしくなったので、色設定を見直し。
暗い背景にしてみた。
xyzzy.png
[[(ReadMore...) index.rb?1143555179.txt]]
暗い背景にしてみた。
xyzzy.png
[[(ReadMore...) index.rb?1143555179.txt]]
* SLIME勉強会
- いろいろと便利な機能を教えてもらいました。
- 気に入ったのは M-x slime-scratch や M-x slime-selector。
- コンパイル主体の開発スタイルも、なるほどと思いました。xyzzyでのやり方に引きずられていたんだなと。
- あとsbclを主体にしないともったいないなと、clispでは使えない機能がいくつかありました。
- 少なくともclispのarglistの件はどうにかしたいな。要調査ということで。
- ビデオを見つつ復習。
- [[SLIME Quick Reference Card:view=auto]] を知ったので、自分用を作ってみようかと。
- SLIME以外の話が半分くらい? [[colorize:colorize]] は試してみようと思います。
- http://cadr.g.hatena.ne.jp/g000001/20080427
- http://d.hatena.ne.jp/tsz/20080426
- http://cadr.g.hatena.ne.jp/mokehehe/20080426
* editorパッケージのbuiltin関数
以下で調べて652個
(let ((count 0)) (do-symbols (sym (find-package "editor") (format t "~%count: ~d~%" count)) (when (and (not (find-symbol (symbol-name sym) "lisp")) (fboundp sym) (si:*builtin-function-p (symbol-function sym))) (format t "~a~%" sym) (incf count))))[[(ReadMore...) index.rb?1164371462.txt]]
* xyzzy lisp : clone-buffer
とりあえずこんなところか。
主だったところはsession.lから。
outline-tree2をバッファバーの代わりにしつつ、rename-bufferを良く使う人向け。
もしくは*compilation*バッファとかでうっかりそのまま編集して、undoができず残念な思いをする人向け。
メモ:
undo情報をそっくり写せるとうれしいかも。
[[(ReadMore...) index.rb?1161833288.txt]]
主だったところはsession.lから。
outline-tree2をバッファバーの代わりにしつつ、rename-bufferを良く使う人向け。
もしくは*compilation*バッファとかでうっかりそのまま編集して、undoができず残念な思いをする人向け。
(defun clone-buffer (buffer-name &optional (buffer (selected-buffer))) (interactive "sClone Buffer: ") (let ((major buffer-mode) (minor (mapcan #'(lambda (mode) (let ((var (and (consp mode) (car mode)))) (and (symbolp var) (boundp var) (symbol-value var) (list var)))) *minor-mode-alist*)) (locals (mapcar #'(lambda (var) (and (symbolp var) (local-variable-p var) (cons var (symbol-value var)))) *buffer-info-variable-list*)) (point (point))) (set-buffer (create-new-buffer buffer-name)) (insert-buffer buffer) (funcall major) (mapc #'(lambda (f) (and (fboundp f) (funcall f))) minor) (mapc #'(lambda (x) (when (and (car x) (symbolp (car x))) (make-local-variable (car x)) (set (car x) (cdr x)))) locals) (goto-char point)))
メモ:
undo情報をそっくり写せるとうれしいかも。
[[(ReadMore...) index.rb?1161833288.txt]]