* Menu
[[About:self:AboutPage.txt]] | [[Profile:file/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:lisp/]] | [[あんてな:listall]] | [[■:lisp]] | [[buzz:files/southly#buzz]]
page 0 - << : 0 : >>
* editorパッケージのbuiltin関数
以下で調べて652個
(let ((count 0)) (do-symbols (sym (find-package "editor") (format t "~%count: ~d~%" count)) (when (and (not (find-symbol (symbol-name sym) "lisp")) (fboundp sym) (si:*builtin-function-p (symbol-function sym))) (format t "~a~%" sym) (incf count))))[[(ReadMore...) index.rb?1164371462.txt]]
* xyzzy : WSHでxyzzy起動
の情報をまとめてみる。
まず起動用のスクリプト。起動時にやることは
一度起動した後のことは考えていませんので注意。
さらに、
煮るなり焼くなりご自由に。
[[(ReadMore...) index.rb?1154158495.txt]]
まず起動用のスクリプト。起動時にやることは
- XYZZYHOMEに$XYZZYを設定
- ダンプファイルファイルその他をおくフォルダをTMPに作成
- そのフォルダをXYZZYCONFIGPATHに登録
- もしあればxyzzy.iniと.xyzzy.historyをそのフォルダにコピー(探す場所は$XYZZY/usr/以下)
- Pathとかいじりたい場合はご自由に
// xyzzy.js var shell = WScript.CreateObject("Wscript.Shell"); var fs = WScript.CreateObject("Scripting.FileSystemObject"); var env = shell.Environment("PROCESS"); var dir = env("TMP") + "\\xyzzy"; var path = fs.GetParentFolderName(WScript.ScriptFullName); if (! fs.FolderExists(dir)) { fs.CreateFolder(dir); } env("XYZZYHOME") = path; env("XYZZYCONFIGPATH") = dir; if (fs.FileExists(path + "\\usr\\xyzzy.ini")) { fs.CopyFile(path + "\\usr\\xyzzy.ini", dir + "\\xyzzy.ini"); } if (fs.FileExists(path + "\\usr\\.xyzzy.history")) { fs.CopyFile(path + "\\usr\\.xyzzy.history", dir + "\\.xyzzy.history"); } shell.Exec("xyzzy -image " + dir + "\\xyzzy.dump");
一度起動した後のことは考えていませんので注意。
さらに、
- siteinit.lでDOCの書き出しパスを設定
- *kill-xyzzy-hook*で設定ファイルの削除
(setq lisp::*documentation-path* (merge-pathnames "XYZZYDOC" (directory-namestring (si:dump-image-path)))) (delete-hook '*kill-xyzzy-hook* 'ed::save-history-file) (add-hook '*kill-xyzzy-hook* #'(lambda () (ed::save-history-file) (let ((ini (merge-pathnames "xyzzy.ini" (user-config-path))) (his (merge-pathnames ".xyzzy.history" (user-config-path)))) (copy-file ini (merge-pathnames "usr/xyzzy.ini" (si:system-root)) :if-exists :overwrite :if-access-denied :skip) (copy-file his (merge-pathnames "usr/.xyzzy.history" (si:system-root)) :if-exists :overwrite :if-access-denied :skip) (delete-file ini :if-does-not-exist :skip :if-access-denied :skip) (delete-file his :if-does-not-exist :skip :if-access-denied :skip) (delete-file (si:dump-image-path) :if-does-not-exist :skip :if-access-denied :skip) (delete-file (merge-pathnames "XYZZYDOC" (user-config-path)) :if-does-not-exist :skip :if-access-denied :skip))) t)ただ、*kill-xyzzy-hook*の実行よりも後にxyzzy.iniへ書き込まれる設定があるため、xyzzy.iniの削除は完全ではありません。
煮るなり焼くなりご自由に。
[[(ReadMore...) index.rb?1154158495.txt]]
* memo : コマンドプロンプト周りの環境改善
* xyzzy lisp : shell-modeで色付け
(in-package "editor") (add-hook '*shell-mode-hook* #'(lambda () (make-local-variable 'regexp-keyword-list) (setq regexp-keyword-list (compile-regexp-keyword-list `((,*shell-prompt-regexp* t (:color 3 0) nil 0 0))))))
* xyzzy lisp : めも
page 0 - << : 0 : >>