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

xyzzy/aspell_l.html

• *aspell-assigned-characters*でキーバインドの指定が可能に。

(2006-03-22)

機能的には[[しょぼしょぼすくりぷと xyzzy/library/buffer.html#buffer_rename]]さんと同等。
ひとつ上のディレクトリでやめてしまうみたいだから自分で書いてみた。

(defun buffer-name-with-directory ()
  (let* ((buffer (selected-buffer))
         (name (buffer-name buffer))
         dirs)
    (when (string-match "<[0-9]+>" name)
      (setq dirs (reverse (pathname-directory (get-buffer-file-name buffer))))
      (setq name (format nil "~A/~A" (pop dirs) (file-namestring (get-buffer-file-name buffer))))
      (while (and dirs (dolist (x (buffer-list))
                         (if (string= (buffer-name x) name)
                             (return t))))
        (setq name (format nil "~A/~A" (pop dirs) name)))
      (rename-buffer (abbreviate-display-string name 40) buffer))))
(add-hook '*find-file-hooks* 'buffer-name-with-directory)

http://www.opensource.jp/licenses/

prox/wiki/

http://www.vicus-oryzae.com/gorua/agent.html

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

いつの間にやら英語の論文を読むことに。門外漢の分野なのに……
たぶん直感に従ったやつが答え。それも結局はややこしいことに。
閑話休題。
[[outline-tree2 http://ohkubo.s53.xrea.com/xyzzy/index.html#outline-tree2]]のフォルダの表示は同じフォルダでもロングネームとショートネームで区別されちゃってます。
ロングネームで統一しておいたほうが無難かと。
状況としては[[こんな感じ http://raido.sakura.ne.jp/southly/xyzzy/outline-tree2.png]]。
27日のCommon Lispセミナー（http://jp.franz.com/base/seminar-2006-03-27.html）は結局行くことにしました。
OSC2006は行くつもりだったのに、寝てすごしてしまったので今度はちゃんと行きます。

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

100万円か