[[About:self:AboutPage.txt]] | [[Profile:file/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:lisp/]] | [[あんてな:listall]] | [[■:lisp]] | [[buzz:files/southly#buzz]]

lisp-dir-read-only

素直な方法はファイル属性を読み取り専用にすることだと思いますけど。
Lispでやるのなら自分だったら*lisp-mode-hook*に引っ掛けます。
string-matchp を使うと大差が無いのでこんなで。

(add-hook '*lisp-mode-hook*
          #'(lambda ()
              (let ((lpath (append-trail-slash (merge-pathnames (si:system-root) "lisp"))))
                (if (string-equal lpath (get-buffer-file-name (selected-buffer)) :end2 (length lpath))
                    (toggle-read-only t)))))

って、修正が入ったのは[[2ch-modeなどのフレームでファイルを開かないようにする file]]のほうでしたね。

xyzzy/
それぞれ変更点は

bufbar2

起動時のファイル周りの処理を改善。delete-buffer と get-next-buffer とでバッファを文字列指定できるように修正。

popup-key

popup-key-add-doc を追加。

www-search

アンインストール方法を変更。

とのこと。

kamail3/readme.html

「Hyper Estraierを利用する検索ベースのメールリーダー」とのこと。
まだ試していないけど、まずHyper Estraierをインストールしないと。

http://d.hatena.ne.jp/takef/20060320/1142829588

find-fileでバッファを作っても保存するまではファイルができないから、こんな感じでもよさそう。

(defvar *hatedara-directory* "~/hatena")
(defun hatedara ()
  (interactive)
  (find-file (merge-pathnames *hatedara-directory* (format-date-string "%Y-%m-%d.txt"))))

http://www.osamurai.flnet.org/

サーバー不調で参照できない状況が解消。(2006-03-15)