* 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 : VMwareの詳細
- Scrapbook : ぷよぷよクルクル
- xyzzy topic : $XYZZY/lispのファイルはread-onlyで開く
- xyzzy topic : bufbar2, popup-key, www-search更新
- xyzzy topic : KaMailV3
- xyzzy topic : はてダラを使いやすく
- Scrapbook : 脳力系ゲーム
- Scrapbook : 本当に30日でOSが出来上がるのかを試してみるBlog
- Scrapbook : xyzzyの内部コードについて
- Scrapbook : Wallpapers
- memo :
- memo :
- xyzzy topic : 「らいおさむのお屋敷」さん復帰
- 2006-03-15
- xyzzy topic : The Body Asterisk ! - xyzzy + chalowのインストールメモ:
page 31 - << : 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 : VMwareの詳細
http://nobumasa-web.hp.infoseek.co.jp/multi_boot/vmware/vmware.html
* Scrapbook : ぷよぷよクルクル
* xyzzy topic : $XYZZY/lispのファイルはread-onlyで開く
lisp-dir-read-only
素直な方法はファイル属性を読み取り専用にすることだと思いますけど。
Lispでやるのなら自分だったら*lisp-mode-hook*に引っ掛けます。
string-matchp を使うと大差が無いのでこんなで。
って、修正が入ったのは[[2ch-modeなどのフレームでファイルを開かないようにする http://f55.aaa.livedoor.jp/~ynomura/xyzzy/#c_pframe-find-file]]のほうでしたね。
素直な方法はファイル属性を読み取り専用にすることだと思いますけど。
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などのフレームでファイルを開かないようにする http://f55.aaa.livedoor.jp/~ynomura/xyzzy/#c_pframe-find-file]]のほうでしたね。
* xyzzy topic : bufbar2, popup-key, www-search更新
* xyzzy topic : KaMailV3
* xyzzy topic : はてダラを使いやすく
http://d.hatena.ne.jp/takef/20060320/1142829588
find-fileでバッファを作っても保存するまではファイルができないから、こんな感じでもよさそう。
find-fileでバッファを作っても保存するまではファイルができないから、こんな感じでもよさそう。
(defvar *hatedara-directory* "~/hatena") (defun hatedara () (interactive) (find-file (merge-pathnames *hatedara-directory* (format-date-string "%Y-%m-%d.txt"))))
* Scrapbook : 脳力系ゲーム
http://matari.s35.xrea.com/noryoku_g.html