Source of Nothingness - -7843/**/OR/**/2596=2596

* 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

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]]のイラスト

* xyzzy lisp : clone-buffer

とりあえずこんなところか。
主だったところは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