xyzzy導入メモ
- ダウンロード http://www.jsdlab.co.jp/~kamei/
- 展開して C:\Program Files\xyzzy に置く
- ユーザー環境変数に XYZZYHOME C:\Program Files\xyzzy を追加
- ツール->共通設定
- 表示をTABとかスペースとかもするように変更
- フォント変更
- 表示->ツールバー->バッファ
- ネットインストーラ導入 参考QuickTour/ext/NetInstaller - XyzzyWiki
- caldixを使ってdllをインストール caldix - kMonos.NET
- ヘルプ->について からインストールを確認
- Netinstallerをダウンロード Junk Scripts
- C:\Program Files\xyzzy\site-lispの中に入れる
- C:\Program Files\xyzzy\.xyzzyに以下の内容を記述しxyzzyを再起動 参考tips/ネットインストーラのsiteを無理やり最新に - XyzzyWiki
- caldixを使ってdllをインストール caldix - kMonos.NET
;;;Netinstaller
(require "ni/setup")
(ni-autoload)
(defun ni::add-site-from-wiki ()
(interactive)
(let *1
(car tmp))))
(split-string (match-string 1) #\&)))))
(let (out)
(while
(handler-case
(progn
(push (read-line s) out)
t)
(quit (c)
(return-from ni::add-site-from-wiki))
(error (c)
nil)))
(nreverse out))))
(mapcar (lambda (x) (cdr (assoc "src" x :test 'equal))) ni::*site-data*)
:test 'equal))) t)
(define-key ni::*site-map* #\N 'ni::add-site-from-wiki)
- .xyzzy設定
- 次の分を追加
;;;Incremental Search
(require "isearch");;;括弧の強調
(require "paren")
(turn-on-global-paren)
; Fundamental モード対応
(add-hook '*fundamental-mode-hook* #'(lambda()
(set-syntax-match (syntax-table) #\( #\))
(set-syntax-match (syntax-table) #\{ #\})
(set-syntax-match (syntax-table) #\[ #\])
));;;キーバインド
(define-key ctl-x-map #\3 'split-window-vertically)
(define-key ctl-x-map '(#\h) 'selection-whole-buffer);;;clickable-uri
(require "clickable-uri")
(global-set-key '(#\C-c #\C-o) 'clickable-uri-open);;;backup
(require "backup")
(setq *backup-directory* "C:/Users/yambi/backup")
(setq *hierarchic-backup-directory* t);;;chcolor
(autoload 'chcolor "chcolor/chcolor" t)
(autoload 'chcolor-specify-file "chcolor/chcolor" t)
(chcolor-specify-file "ycolor")
(setq *chcolor-table* (chcolor-load-from-ini
(merge-pathnames "ycolor" *chcolor-ini-dir*) *chcolor-keylist*))
(chcolor-set 1)
*1:s (ni::http-get-url "http://xyzzy.s53.xrea.com/wiki/index.php?cmd=source&page=NetInstaller%2F%C7%DB%C9%DB%A5%D1%A5%C3%A5%B1%A1%BC%A5%B8%B0%EC%CD%F7"))) (ni::load-site-data) (mapcar (lambda (x) (ignore-errors (ni::site-add x))) (set-difference (remove-if 'null (mapcar (lambda (i) (and (string-match "^:[^|]+|\\(http:.*\\)$" i) (apply #'concat (mapcar (lambda (x) (let ((tmp (split-string x #\;))) (if (equal (car tmp) "amp") (apply #'concat "&" (cdr tmp