* Menu

2008-03-09 :
xyzzy lisp : clone-buffer
xyzzy : モバイルxyzzyの件
xyzzy lisp : popup-gmark.l

page 0 - << : 0 : >>

* 2008-03-09 :

elisp を書く気はさらさらないので (requre 'cl) には拘らないです。
具体例として、現在の .emacs はこんな感じです。

session.el
tails-history.el

キーバインドを覚えていないのですが、M-x の履歴で何とかしています。

[[(ReadMore...) index.rb?1205059356.txt]]

* 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]]

* xyzzy : モバイルxyzzyの件

ヒストリ変数でパスを指定する場合でのみ問題ということであれば.xyzzy.historyの出力をどうにかすればいいのでは?と思い、書いてみる。
未テストなので注意。
帰ってからテストします。
[[(ReadMore...) index.rb?1161316310.txt]]

* xyzzy lisp : popup-gmark.l

[[popup-gmark.l gmark.l]]
[[gmark-session.l session.l]]

以前gmark-session.lを書いたのはおよそ2年前か。
多少マシになっているかも。