* 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]]
- Scrapbook : ゑBLOG: Subversion
- 適当すぎる
- Scrapbook : Proxomitron で proxy の使用/非使用を自動切換え
- Scrapbook : log::dual : シューティングゲームの歴史 (Histoire Du Shooting Game)
- Scrapbook : 交差点の真中で
- xyzzy lisp : clone-buffer
- Scrapbook : Going My Way: Firefox 2.0から対応するサイトごとの検索エンジンのAuto Discovery
- Scrapbook : ASIMO | ASIMOギャラリー
- Scrapbook : coLinux - Bobchin's Wiki
- Scrapbook : rein 2.0 RC 3 (Weblog)
- xyzzy lisp : insert-include
- xyzzy : モバイルxyzzyの件
- xyzzy lisp : 候補の絞込みをするpopup-list
- Scrapbook : 強力な拡張機能を備えたテキスト・エディタ：ITpro
- 2006-10-18
page 16 - << : 0 : 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 : 35 : 36 : 37 : 38 : >>
* Scrapbook : ゑBLOG: Subversion
http://yebisuya.dip.jp/yeblog/archives/a000496.html
* 適当すぎる
[[(ReadMore...) index.rb?1162458380.txt]]
* Scrapbook : Proxomitron で proxy の使用/非使用を自動切換え
proxomitron.html
* Scrapbook : log::dual : シューティングゲームの歴史 (Histoire Du Shooting Game)
http://harmless.exblog.jp/4429439/
* Scrapbook : 交差点の真中で
gittarius.dip.jp/~toshi/
[[星野君のWebアプリほのぼの改造計画:http://www.atmarkit.co.jp/fsecurity/index/index_hoshino.html]]のイラスト
[[星野君のWebアプリほのぼの改造計画:http://www.atmarkit.co.jp/fsecurity/index/index_hoshino.html]]のイラスト
* 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]]
* Scrapbook : Going My Way: Firefox 2.0から対応するサイトごとの検索エンジンのAuto Discovery
http://kengo.preston-net.com/archives/002873.shtml
* Scrapbook : ASIMO | ASIMOギャラリー
http://www.honda.co.jp/ASIMO/gallery/
* Scrapbook : coLinux - Bobchin's Wiki
http://bobchin.ddo.jp/wiki/index.php?coLinux
* Scrapbook : rein 2.0 RC 3 (Weblog)
* xyzzy lisp : insert-include
てきとー
(defun insert-include (file &optional cwd)
(interactive "lHeader: " :default0 (merge-pathnames "*.h"))
(unless cwd
(if (get-buffer-file-name)
(setq cwd (directory-namestring (get-buffer-file-name)))
(return-from insert-include nil)))
(if (consp file)
(dolist (f file)
(insert-include f cwd))
(insert (format nil "~%#include \"~A\"" (substitute-string file (regexp-quote cwd) "" :case-fold t)))))
* xyzzy : モバイルxyzzyの件
ヒストリ変数でパスを指定する場合でのみ問題ということであれば.xyzzy.historyの出力をどうにかすればいいのでは?と思い、書いてみる。
未テストなので注意。
帰ってからテストします。
[[(ReadMore...) index.rb?1161316310.txt]]
未テストなので注意。
帰ってからテストします。
[[(ReadMore...) index.rb?1161316310.txt]]
* xyzzy lisp : 候補の絞込みをするpopup-list
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（すでに一致している部分）をとらないといけないような気がしてる。
* Scrapbook : 強力な拡張機能を備えたテキスト・エディタ：ITpro
http://itpro.nikkeibp.co.jp/article/COLUMN/20061013/250646/
* 2006-10-18
- [[この件:http://d.hatena.ne.jp/hasegawayosuke/20061017/p1#seemore]]でmixiの技術が信用に値しないことがはっきりしたので方針を変更。
- 「隠す必要が無い情報だけ載せる」から「載せる必要が無い情報は隠す」に。
- コミュニティの方は面倒なので放置。
- mixi日記はこのまま封印かな。
- mixiのコミュニティといえば中学コミュあったんだね。メンバー数 90人なら立派にコミュだし。
- タメっぽい人がちらほら見つかったけどワカンネ。
- 中学コミュは地元情報に直結するから入れないなぁ。
- 二次方程式の解の公式を忘れてた事に気付くorz...
- つーか二次方程式を解く必要に迫られるってのがちょっとへこむ。ったく、(以下略)
page 16 - << : 0 : 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 : 35 : 36 : 37 : 38 : >>
Source of Nothingness
NANRI
NANRI