読者です 読者をやめる 読者になる 読者になる

xyzzy導入メモ

;;;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)

    • M-x netinstallerでNetinstaller起動,Nでサイトを最新のものに更新
    • アローキーで移動,スペースで詳細表示,iでインストール
    • paren, clickable-uri, rv-region, chcolorをインストール
    • C:/Program Files/xyzzy/site-lisp/chcolor/ini/に自分用の色設定をycolorとして保存
  • .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