xyzzyのLisp用例

ロードパスの追加

load-library等でライブラリをロードする対象パスを*load-path*にリストで設定することもできます。

;; ライブラリをロードするパスを追加する。
(setq *load-path*
      (cons (merge-pathnames "bar" (user-homedir-pathname))
            *load-path*))

この例は、ユーザのホームディレクトリにあるbarというサブディレクトリもライブラリをロードする際の検索対象となる。但し、追加されるパスのサブディレクトリについては、検索対象から除外される。

.xyzzyから.xyzzy.lをロードする。

.xyzzyに大量のLispコードを記述する場合には、.xyzzy.lという別の名前のファイルへ内容をコピーして、それをバイトコンパイルし、.xyzzyでは下記の様にloadでバイトコンパイル済みファイル（.xyzzy.lc）をロードする記述のみしておくと良い。

(load ".xyzzy.lc")

この例は、次の様に工夫すると何かと便利である。

(defvar *init-file-name* (merge-pathnames ".xyzzy.l" (user-homedir-pathname)))
;; コンパイル済みファイルがあれば、それを対象とする。
(if (file-exist-p (concat *init-file-name* "c"))
    (setq *init-file-name* (concat *init-file-name* "c")))
;; Lispファイルのロード
(if (file-exist-p *init-file-name*)
    (load *init-file-name*)
  ;; .xyzzy.lファイルが無い場合は、デフォルトの初期化ファイルを利用する。
  ;; 但し、user-homedir-pathname と si:system-root が異なる場合のみ。
  (unless (equalp (user-homedir-pathname) (si:system-root))
    (load (merge-pathnames ".xyzzy" (si:system-root)))))

この例は、.xyzzy.lc（コンパイル済みの.xyzzy.l）ファイルがあればそれをロードし、コンパイル済みで無ければ.xyzzy.lをロードするが、それも無ければ全てのユーザ共通の初期化ファイルを（マルチユーザ環境の場合のみ）ロードする。

次の例では、前記と同様の結果を得ることができる。

(unless (equalp (user-homedir-pathname) (si:system-root))
  (setq *load-path*
        (cons (merge-pathnames "site-lisp" (user-homedir-pathname))
              *load-path*))
  )

(if (file-exist-p (merge-pathnames ".xyzzy.*" (user-homedir-pathname)))
    (require "../.xyzzy")
  (unless (equalp (user-homedir-pathname) (si:system-root))
    (load (merge-pathnames ".xyzzy" (si:system-root)))))

この例では、マルチユーザ環境であれば、*load-path* に ~/site-lispディレクトリを追加するので、当該ユーザの為のライブラリの管理にも便利である。

英和/和英辞書を組み込む

辞書の導入方法については、$XYZZY/etc/README.gendicファイルに記載があります。記載内容に従って、次の辞書を導入することで辞書機能を利用することができます。

辞書ファイル

• EDICT 辞書
• GENE95 辞書
• 英辞郎

注釈

EDICT 辞書は必須です。他の辞書はあってもなくてもかまいません。

参考

$XYZZY/etc/README.gendic

辞書選択メニュー

次のLispコードでは、辞書を選択することを可能にする。

;;; 辞書選択
;; 辞書の位置
(defvar *dictionary-eijiro-path* (merge-pathnames "edict/eijiro/" (si:system-root)))
(defvar *dictionary-gene-path* (merge-pathnames "edict/gene/" (si:system-root)))
;; メニュー定義
(setq *my-dictionary-popup-menu*
      (define-popup-menu
        (:popup nil "英和(&E)"
         (:item nil "英辞郎(&E)"
          #'(lambda ()
              (interactive)
              (setq *edict-dictionary-path* *dictionary-eijiro-path*))
          #'(lambda ()
              (if (path-equal *edict-dictionary-path* *dictionary-eijiro-path*)
                  :check)))
         (:item nil "GENE(&G)"
          #'(lambda ()
              (interactive)
              (setq *edict-dictionary-path* *dictionary-gene-path*))
          #'(lambda ()
              (if (path-equal *edict-dictionary-path* *dictionary-gene-path*)
                  :check)))
         )))
;; フローティングポップアップメニュー
(defun init-dictionary ()
  (interactive)
  (track-popup-menu *my-dictionary-popup-menu*))

このLispコードは、フローティングポップアップメニューにて辞書選択メニューを提供する。

更に、必要ならば次の例の様な記述を追加することで、辞書選択メニューを辞書のメニュー項目に追加することができる。

;; [ﾂｰﾙ] → [辞書] にポップアップメニューを追加
(add-hook '*init-app-menus-hook*
          #'(lambda ()
              (add-popup-menu *dictionary-popup-menu*
                              *my-dictionary-popup-menu* "辞書の切り替え(&C)")))

他にも、辞書のツールバーを登録したい場合もあるだろう。

;; tool-bar: 辞書
(defun dictionary-tool-bar ()
  (create-tool-bar
   'dictionary-tool-bar
   (merge-pathnames "toolbar.bmp" (etc-path))
   '(("辞書" 36 edict-mode (lambda () (when edict-mode :check))))))
(define-command-bar 'dictionary-tool-bar "辞書引きﾓｰﾄﾞ(&D)")

参考

Memo/dictionary -- Xyzzy Wiki

タイトルバーのフォーマットを設定する。

;; タイトルバーのフォーマット
;(setq-default title-bar-format "%p %v %#h - %#F") ; 標準
(setq-default title-bar-format "%b %#*(%M) [%k:%l] - %p %v%#h")

表示する情報を指定する文字列は、文字の並び順に表示されます。

モードラインのフォーマットを設定する。

;; モードラインフォーマット
;(setq-default mode-line-format "--%*- %b (%M) [%k:%l] %P %f") ; 標準
(setq-default mode-line-format "--%*- %b (%M) [%k:%l] %P %f [%i]")

表示する情報を指定する文字列は、タイトルバーのフォーマットと同様です。

ステータスバーのフォーマットを設定する。

;; ステータスバーに表示する情報
;(setq *status-bar-format* "T") ; 標準
(setq *status-bar-format* "cupT")

表示する情報を指定する文字列は、文字の並び順に表示されます。

パラメータについて

下記は、タイトルバーのフォーマット及びモードラインのフォーマットで表示する情報を指定する文字列の一覧である。

%*

**（変更あり）、%-（書込禁止）、%*（変更あり・書込禁止）、--（それ以外）

%#*

*（変更あり）、空白（変更なし）

%r

空白（書込可）、%（書込禁止）

%#r

空白（書込可）、%（書込禁止）、#（不完全バッファ）

%p

プログラム名

%v

バージョン

%h

ホスト名

%#h

@ホスト名

%b

バッファ名

%f

File: ファイル名

%#f

ファイル名

%F

File: ファイル名（ファイル名がなければバッファ名）

%#F

ファイル名（ファイル名がなければバッファ名）

%M

モード（マイナーモード含む）

%m

モード

%k

エンコーディング

%l

改行コード

%i

IMEの状態（mode-line-formatのみ）

%P

カーソル位置（mode-line-formatのみ）

下記は、ステータスバーのフォーマットで表示する情報を指定する文字列の一覧である。

t

時計（月/日 時:分）

p

カーソル位置（行:桁）

c

カーソル位置の文字コード(内部コード)

u

カーソル位置の文字コード(ユニコード)

T

時計（月/日(曜日) 時:分）

出典

$XYZZY/html/OChangeLog.html (Wed Aug 09 2000 Version 0.2.1.153)

xyzzy Reference

メニューを非表示にする。

次の例では、起動時からメニューを非表示にする。

;; 起動時からメニューを非表示
(add-hook '*post-startup-hook*
          #'(lambda ()
              (set-menu nil)))

メニュー表示状態切り替えスイッチ

次の例では、メニューの表示状態の切り替えを行う事ができる。

;;; メニューいらんよなの切り替えスイッチ
(add-hook '*init-app-menus-hook*
          #'(lambda ()
              (let ((toggle-app-menu *app-menu*))
                (defun toggle-app-menu ()
                  (interactive)
                  (set-menu (setq toggle-app-menu
                                  (unless toggle-app-menu *app-menu*)))))))

出典

メニューのカスタマイズ -- xyzzy の音

メニューにクローズボックス

次の例は、メニューにカレントバッファを閉じる為のクローズボックスを追加することができる。

;;; メニューにクローズボックス
(add-hook '*init-app-menus-hook*
          #'(lambda ()
              (add-menu-item *app-menu* 'close-box :close-box
                             #'kill-selected-buffer)))

出典

xyzzy [151]

$XYZZY/html/ChangeLog.html (Fri Feb 16 2001 Version 0.2.1.180)

ファイラの各種設定

;; ファイラの初期ディレクトリ
(setq *filer-primary-directory* (si:system-root)) ; 左側
(setq *filer-secondary-directory* (user-homedir-pathname)) ; 右側

;; ファイラの初期ファイルマスク
;; 2画面用
(setq *filer-primary-file-mask* '("*"))   ; 左側
(setq *filer-secondary-file-mask* '("*")) ; 右側
;; 1画面用
(setq *filer-last-file-mask* '("*"))

;; ファイラのパスマスクリスト
(setq *filer-path-masks*
      '(("すべてのﾌｧｲﾙ" "*")
        ("ﾄﾞｷｭﾒﾝﾄ" "*.doc" "*.txt" "*.man" "*readme*")
        ("C/C++" "*.c" "*.h" "*.cpp" "*.cxx" "*.cc" "*.inl")
        ("Lisp" "*.l" "*.el" "*.lsp" "*.lisp")
        ("Visual Basic" "*.bas" "*.frm" "*.vbp")
        ("実行ﾌｧｲﾙ" "*.exe" "*.com" "*.bat" "*.pif")
        ("ｱｰｶｲﾌﾞ" . ("*.lzh" "*.zip" "*.arj" "*.tar" "*.bz2" "*.gz"
                     "*.Z" "*.tbz" "*.taz" "*.tgz" "*.cab" "*.rar"
                     "*.gza" "*.bza" "*.yz1" "*.7z"))
        ("ﾊﾞｯｸｱｯﾌﾟ" "*~" "*.bak")
        ("自動ｾｰﾌﾞ" "#*#")))

;; 削除時のゴミ箱使用
(setq *filer-use-recycle-bin* t)

;; ファイラのステータスウィンドウへのファイル名の表示
(setq *filer-echo-filename* t)

;; ファイラのジャンプ用のディレクトリ（連想リスト）
(setq *filer-directories*
      (list
       (cons "home" (concat "D:/home/" (user-name)))
       (cons "homedir" (user-homedir-pathname))
       (cons "xyzzy" (si:system-root))
       (cons "lisp" (merge-pathnames "lisp" (si:system-root)))
       (cons "site-lisp" (merge-pathnames "site-lisp" (si:system-root)))
       (cons "Windows" (get-windows-directory))
       ;(cons "System" (get-system-directory))
       (cons "DeskTop" (get-special-folder-location :desktop))
       (cons "Personal" (get-special-folder-location :personal))
       ;(cons "Program Files" (get-special-folder-location :programs))
       ;(cons "Recent" (get-special-folder-location :recent))
       ;(cons "SendTo" (get-special-folder-location :send-to))
       ;(cons "Start Menu" (get-special-folder-location :start-menu))
       ;(cons "Startup" (get-special-folder-location :startup))
       ;(cons "ShellNew" (get-special-folder-location :templates))
       (cons "Temp" (or (map-backslash-to-slash (si:getenv "TEMP"))
                        (map-backslash-to-slash (si:getenv "TMP"))))
       (cons "public_html"
             (merge-pathnames "public_html" (concat "D:/home/" (user-name))))
       '("share" . "d:/share/")
       ))

;; ファイラの送るのリンク先
(setq *filer-send-to-list*
      (list
       '("C:/" . "C:/")
       '("D:/" . "D:/")
       (cons "homedir" (user-homedir-pathname))
       ))

;; ファイラのガイドテキスト
(setq *filer-guide-text*
      '("A:属性  C:ｺﾋﾟｰ  D:削除  E:解凍  F:検索  J:DIR移動  \
K:mkdir  L:ﾄﾞﾗｲﾌﾞ  M:移動  N:ﾌｧｲﾙ名  O:圧縮  P:DIR??"
        "R:名前変更  S:DIR??  T:ｼｮｰﾄｶｯﾄ  U:DIRｻｲｽﾞ  V:ﾘｽﾄ  X:実行  .:ﾏｽｸ  \
/:ﾏｰｸ  *:load  Home:ﾄｸﾞﾙ  S-Home:ｸﾘｱ  End:ﾘﾛｰﾄﾞ  F3:実行  M-h:ﾍﾙﾌﾟ"))

(setq *filer-guide-text* nil)

ガイドテキストをポップアップ表示

;;; ガイドテキストをポップアップ表示
(setq *popup-filer-guide-text*
      (concat
       "A:属性\t\tB:ﾊﾞｲﾄｺﾝﾊﾟｲﾙ\tC:ｺﾋﾟｰ\t\tD:削除\t\tE:解凍\n"
       "F:検索\t\tG:ﾌｧｲﾙ名検索\tJ:DIR移動\tK:mkdir\t\tL:ﾄﾞﾗｲﾌﾞ\n"
       "M:移動\t\tN:ﾌｧｲﾙ名\tO:圧縮\t\tP:DIR??\t\tQ:終了\n"
       "R:名前変更\tS:DIR??\t\tT:ｼｮｰﾄｶｯﾄ\tU:DIRｻｲｽﾞ\tV:ﾘｽﾄ\n"
       "W:閲覧\t\tX:実行\t\tY:ｼｮｰﾄｶｯﾄ\tZ:ﾌﾟﾛﾊﾟﾃｨ\n"
       "\n"
       "*:load\t\t.:ﾏｽｸ\t\t/:ﾏｰｸ\t\t<:先頭\t\t>:末尾\n"
       "@:別名ｺﾋﾟｰ\t\:ﾙｰﾄ\t\t=:比較\t\t^:ｲｼﾞｪｸﾄ\t]:送る\n"
       "\n"
       "C-h:上ﾃﾞｨﾚｸﾄﾘ\tC-r:後isearch\tC-s:前isearch\tC-u:ﾃﾞｨﾚｸﾄﾘｻｲｽﾞ\n"
       "C-1:ﾌｧｲﾙ広\tC-2:ｻｲｽﾞ広\tC-3:日時広\tC-4:属性広\n"
       "C-M-1:ﾌｧｲﾙ狭\tC-M-2:ｻｲｽﾞ狭\tC-M-3:日時狭\tC-M-4:属性狭\n"
       "\n"
       "M-g:grep\tM-r:gresreg\tM-v:ﾘｰﾄﾞｵﾝﾘｰ\n"
       "\n"
       "F3:実行\t\tF5:ﾏｰｸﾄｸﾞﾙ\tF6:ｿｰﾄ\t\tS-F10:ﾎﾟｯﾌﾟｱｯﾌﾟﾒﾆｭｰ\n"
       "\n"
       "TAB:移動\tSPC:ﾏｰｸ\n"
       "Home:ﾄｸﾞﾙ(ﾌｧｲﾙ)\tS-Home:ｸﾘｱ\tC-Home:ﾄｸﾞﾙ(含Dir)\tS-C-Home:全ﾌｧｲﾙﾏｰｸ\n"
       "End:ﾘﾛｰﾄﾞ\n"
       "\n"
       ))

(define-key filer-keymap #\M-h
            #'(lambda () (interactive)
                (message-box *popup-filer-guide-text*)
                ))

追加登録しているキーがあれば、次の様に記述しておくと良い。

;; カスタマイズ
(setq *popup-filer-guide-text*
      (concat
       *popup-filer-guide-text*
       "\n"
       "M-f:diff\t\tM-h:ｶﾞｲﾄﾞ\tM-j:dir選択\tM-s:小文字\t"M-x:実行\n"
       "M-Home:ﾄｸﾞﾙ(Dir)\n"
       "\n"
       ))

出典

ファイラ -- xyzzy の音

大文字のファイル名をファイラで一括して小文字へ

;;; 大文字のファイル名をファイラで一括して小文字へ
(defun filer-downcase-filename ()
  (let ((files (filer-get-mark-files)))
    (when (and files (yes-or-no-p "小文字にしまっせ"))
      (filer-subscribe-to-reload (filer-get-directory))
      (mapc #'(lambda (x) (rename-file x (string-downcase x))) files)
      (filer-demand-reload)
      (filer-goto-file (file-namestring (car files))))
    t))
(define-key filer-keymap #\M-s 'filer-downcase-filename)

出典

ファイラ -- xyzzy の音

ディレクトリ全部を選択

;;; ディレクトリ全部を選択
(defun filer-directory-select ()
  (filer-mark-all nil)
  (filer-toggle-mark-files))
(define-key filer-keymap #\M-Home 'filer-directory-select)

出典

ファイラ -- xyzzy の音

二画面ファイラから選択してテキストの比較

;;; 二画面ファイラから選択してテキストの比較
(defun my-filer-diff-file ()
  (let ((file1 (ed::filer-fetch-file nil nil))
        (file2 (ed::filer-fetch-file nil t)))
    (unless (and file1 file2)
      (error "diffするファイルを指定して"))
    (diff file1 file2)
    (and (find-buffer ed::*diff-new-buffer-name*)
         (find-buffer ed::*diff-old-buffer-name*)
         (filer-cancel))))
(define-key filer-keymap #\M-f 'my-filer-diff-file)

出典

tips -- 66MHz.com

ディレクトリ選択ダイアログ

;;; ディレクトリ選択ダイアログ
(define-key filer-keymap #\M-j
            #'(lambda ()
                (setq dir (directory-name-dialog :title "ﾃﾞｨﾚｸﾄﾘ移動"
                                                    :default (filer-get-directory)))
                (when dir
                  (filer-set-directory dir nil)
                  (filer-reload))))

ファイラの起動方法の拡張

;;; 一画面ファイラから二画面ファイラを開く
(defun filer-open-dual-window ()
  (interactive)
  (unless (filer-dual-window-p)
    (let ((*filer-primary-directory* (filer-get-directory))
          (*filer-secondary-directory* (filer-get-directory)))
      (filer-cancel)
      (open-filer))))
(define-key filer-keymap #\M-2 'filer-open-dual-window)

;;; 一画面ファイラの表示
;; 現在開いているファイルのディレクトリを表示する。
(defun open-single-filer ()
  (interactive)
  (toggle-ime nil)
  (multiple-value-bind (files result)
      (filer nil t nil nil)
    (when result
      (dolist (f files t)
        (unless (file-directory-p f)
          (find-file f)
          (add-history f '*minibuffer-file-name-history*))))))
(define-key ctl-x-map #\d 'open-single-filer)

;;; エクスプローラの表示
(defun open-explorer ()
  (interactive)
  (call-process
   (concat "c:/windows/EXPLORER.EXE /e," ; for Windows 9x/Me
           ;; 現在開いているファイルのディレクトリ
           (map-slash-to-backslash
            (directory-namestring (or (get-buffer-file-name)
                                      (si:system-root)))
            ))))

;;; ファイラ選択メニュー
(add-hook '*init-app-menus-hook*
          #'(lambda ()
              (let ((tools (get-menu *app-menu* 'ed::tools)))
                ;; [ﾂｰﾙ] → [ﾌｧｲﾗ] のカスタマイズ
                (delete-menu tools 18 t) ; 元々のメニューを削除
                (insert-popup-menu tools 18
                                   (define-popup-menu
                                     (:item nil "二画面ﾌｧｲﾗ(&D)" 'open-filer)
                                     (:item nil "一画面ﾌｧｲﾗ(&C)" 'open-single-filer)
                                     (:item nil "ｴｸｽﾌﾟﾛｰﾗ(&E)" 'open-explorer)
                                     ) "ﾌｧｲﾗ(&F)..."))))

ファイラから「ファイルの実行」後にファイラを閉じる

;;; ファイラから「ファイルの実行」後にファイラを閉じる
(define-key filer-keymap #\M-x
            #'(lambda ()
                (interactive)
                (ed::filer-shell-execute)
                (ed::filer-cancel)))

参考

ファイラ -- xyzzy の音

カレントバッファのファイルをバイトコンパイル

;;; カレントバッファのファイルをバイトコンパイル
(defun byte-compile-this-file ()
  (interactive)
  (if (string= "l" (pathname-type (get-buffer-file-name)))
      (byte-compile-file (get-buffer-file-name))))

siteinit.lのバイトコンパイルとダンプファイルの削除

;;; siteinit.lのバイトコンパイルとダンプファイルの削除
(defun compile-and-delete-dump-file ()
  (interactive)
  (and (find-buffer "siteinit.l")
       (eval-buffer "siteinit.l"))
  (byte-compile-file
   (concat (si:system-root) "site-lisp/siteinit.l"))
  (let ((dumpfile
         (concat (si:system-root) "xyzzy."
                 (case (os-platform)
                   (whistler "wxp")
                   (windows-2000 "w2k")
                   (windows-nt "wnt")
                   (windows-me "wme")
                   (windows-98 "w98")
                   (windows-95 "w95")
                   (win32s "32s")
                   (t "nt")))))
    (and (file-exist-p dumpfile)
         (delete-file dumpfile)
         (princ (concat "delete " (file-namestring dumpfile) "..."))))
  (princ "done.\n"))
(global-set-key '(#\C-c #\b) 'compile-and-delete-dump-file)

;;; siteinit.lのバイトコンパイルとダンプファイルの削除
(defun byte-compile-and-delete-dump-file ()
  (interactive)
  (and (find-buffer "siteinit.l")
       (eval-buffer "siteinit.l"))
  (byte-compile-file
   (merge-pathnames "site-lisp/siteinit.l" (si:system-root)))
  (let ((path (namestring (si:dump-image-path))))
    (and (file-exist-p path)
         (princ (concat "delete "
                        (if (path-equal (directory-namestring path) (si:system-root))
                            (file-namestring path)
                          path)
                        "..."))
         (delete-file path)))
  (princ "done.\n"))
(global-set-key '(#\C-c #\b) 'byte-compile-and-delete-dump-file)

この例では、起動時の引数に [-config config-directory] を指定していてもダンプファイルの削除が行える。

全てのバッファのファイルをバイトコンパイル

;;; bufferら(*.l)をコンパイル
(defun byte-compile-open-buffers()
  (interactive)
  (let ((b-n) (error-msges))
    (with-output-to-temp-buffer ("*byte-compile*" nil)
      (dolist (a-b (buffer-list))
        (setq b-n  (get-buffer-file-name a-b))
        ;(pathname-type(file-namestring b-n))
        (if(and b-n
                (string= "l" (pathname-type b-n)))
            (if ;(msgbox "do ~A" b-n)
                (byte-compile-file b-n)
                (setq error-msges (concat error-msges "\n compiled:" b-n))
              ;(setq error-msges (concat error-msges "\n not :" b-n))
              )
          )))
    (msgbox "do compile\n~A" error-msges)))

出典

バッファーリスプ系 -- しょぼしょぼすくりぷと

保存時に自動的にバイトコンパイル

;;; 保存時に自動的にバイトコンパイル
(add-hook '*after-save-buffer-hook*
          #'(lambda ()
              (interactive)
              (let ((bn (get-buffer-file-name)))
                (if (and (string= "l" (pathname-type bn))
                         (file-exist-p (format nil "~Ac" bn)))
                    (if (path-equal bn (merge-pathnames "site-lisp/siteinit.l" (si:system-root)))
                        (byte-compile-and-delete-dump-file)
                      (save-excursion
                        (byte-compile-file bn)))))))

デバッグ

(defun debug ()
  (interactive)
  (setq *error-output* (make-buffer-stream (create-new-buffer "*Stack Trace*")))
  (setq si:*trace-on-error* t))

emacs 風のバッファ名指定

以下を .xyzzy に書いておけば emacs 風のバッファ名指定ができる。

;; emacs 風のバッファ名指定
(pushnew '(#\B . emacs-interactive-buffer-name)
         *interactive-specifier-alist* :test #'equal)
(pushnew '(#\b . emacs-interactive-exist-buffer-name)
         *interactive-specifier-alist* :test #'equal)

参考

$XYZZY/lisp/buffer.l (241行辺り)

漢字コード・改行コードの初期設定

次の例は、デフォルトの漢字コードをEUC-JP、改行コードをLFに設定している。

;; 漢字コード・改行コードの初期設定（euc-jp/lf）
(setq *default-fileio-encoding* *encoding-euc-jp*
      *default-eol-code* *eol-lf*)

参考

$XYZZY/lisp/encoding.l

*scratch* バッファ

;;; *scratch* バッファの削除許否 [t:許|nil:否] の設定
(setq *kill-buffer-kills-scratch* t)

;;; *scratch* バッファを自動で保存・復元する。
;; *scratch* バッファの漢字コード・改行コードの設定
(save-excursion
  (set-buffer "*scratch*")
  (change-fileio-encoding *encoding-euc-jp*) ; EUC-JP
  (change-eol-code *eol-lf*)) ; LF
;; *scratch* を終了時に保存
(add-hook '*kill-xyzzy-hook*
          #'(lambda ()
              (set-buffer (find-buffer "*scratch*"))
              (write-file "~/.scratch")))
;; *scratch* を起動時に復元
(add-hook '*post-startup-hook*
          #'(lambda ()
                (let ((file "~/.scratch"))
                  (when (file-exist-p file)
                    (set-buffer (find-buffer "*scratch*"))
                    ;(erase-buffer (selected-buffer))
                    (insert-file-contents file t)
                    (message "*scratch* restored")))))

一発インデント

次の例は、バッファ全体を一発でインデントし直すのに便利である。

;;; 一発インデント
(defun indent-current-buffer ()
  (interactive)
  (when mode-specific-indent-command
    (indent-region (point-min) (point-max))
    (message "indent buffer")))
(global-set-key #\C-F8 'indent-current-buffer)
(set-function-bar-label #\C-F8 "一発ｲﾝﾃﾞﾝﾄ")

;;; tool-bar: 一発インデント
(defun indent-current-buffer-tool-bar ()
  (create-tool-bar
   'indent-current-buffer-tool-bar
   (merge-pathnames "toolbar.bmp" (etc-path))
   '(("一発ｲﾝﾃﾞﾝﾄ" 32 indent-current-buffer (lambda () (or mode-specific-indent-command :disable))))))
(define-command-bar 'indent-current-buffer-tool-bar "一発ｲﾝﾃﾞﾝﾄ(&I)")

;;; バッファ全体のインデント
(defun indent-buffer ()
  (interactive)
  (when mode-specific-indent-command
    (save-excursion
      (goto-char (point-min))
      (funcall mode-specific-indent-command)
      (indent-region (point-min) (point-max)))))

出典

xyzzy Part12 [538]

タブ <=> スペース変換

リージョンを選択し、M-x: tabify でスペースをタブに、M-x: untabify でタブをスペースに変換できます。

また、セレクションでは、M-x: tabify-selection 及び M-x: untabify-selection で相互に変換が行えます。同様に 編集→変換 メニューからも実行できます。

地味な機能ですが、覚えておくと非常に便利です。

ナローイングした領域の表示設定

;; ナローイングした領域の表示状態
(setq hide-restricted-region nil)

ナローイングした領域の表示状態は、デフォルト設定と同じ nil ならば薄く表示し、non-nil ならば非表示となる。

セレクションでナローイング

リージョンを指定して、C-x n (narrow-to-region) とすると、指定した範囲以外を移動・編集できないようにすることができます。

以下の例では、セレクションで範囲の指定を行いナローイングすることができる。

;;; セレクションでナローイング
(defun narrow-to-selection ()
  (interactive "*")
  (let ((type (get-selection-type)))
    (if type
      (let ((pre (pre-selection-p)))
        (selection-start-end (start end)
            (narrow-to-region start end)
            (cond ((< start end)
                   (goto-char (point-min))
                   (start-selection type pre (point-max)))
                  (t
                   (goto-char (point-max))
                   (start-selection type pre (point-min))))))
      (error "範囲が選択されていません。"))))

ワイディング（制限された領域を元に戻す）操作は narrow-to-region と同じく C-x w (widen) です。

デフォルトのモード

次の例では、新規に作成したバッファのデフォルトのモードをtext-modeにする。

;; デフォルトのモード
(setq *default-buffer-mode* 'text-mode)

特定の処理に対し、処理を追加する。

次の例では、テキストモードやそれに関するモードでは、自動詰め込みモードを有効にする。

(add-hook '*text-mode-hook*
          '(lambda () (auto-fill-mode t)))

これは、ノーマルフック変数にフック関数を追加する場合の一例である。フックとは、ある特定の状況で既存のプログラムから呼び出される関数／関数群を格納しておく変数のことで、xyzzyには、設定用のフックが数多くあります。

特定のファイルに対し、メジャーモードを指定する。

ファイルの名称や拡張子とメジャーモードとの対応関係は、*auto-mode-alist*変数に格納されます。

次の例では、ファイルを開く際に.txtというファイル拡張子ならば、自動的にtext-modeになる。

(setq *auto-mode-alist*
      (append '(("\\.txt$" . text-mode))
              *auto-mode-alist*)

次の例では、前記と同様の結果を得ることができる。

(pushnew '("\\.txt$" . text-mode) *auto-mode-alist*)

また、複数のファイルや拡張子に対する指定を同時に加えるのであれば、次の様に記述すると良い。

(setq *auto-mode-alist*
      (append '(("\\.\\(xht[ml]?\\|rdf\\|rss\\)" . xml-mode)
                ("\\.s?html?" . html-mode))
              *auto-mode-alist*)

次の例では、前記と同様の結果を得ることができる。

(pushnew '("\\.\\(xht[ml]?\\|rdf\\|rss\\)" . xml-mode) *auto-mode-alist*)
(pushnew '("\\.s?html?" . html-mode) *auto-mode-alist*)

キーワードファイルの場所指定

(setq *keyword-load-path* '("~/keywords"))

この例では、キーワードファイルを使う場合に、ユーザのホームディレクトリにある keywordsディレクトリ内に格納されたキーワードファイルを優先的に使用することができる。

shell-modeでCygwinのbashを使用する。

(setq *eshell* "bash -i")
(setq *shell-command-option* (concat "/E:2048" *shell-command-option*))

shell-modeでCygwinのbashを使用する場合には、Cygwinをインストールし、環境変数のPATHとSHELLを適切に設定しておく必要ある。

PATH

$PATH;d:\cygwin\bin;d:\cygwin\usr\local\bin;

SHELL

/bin/bash

尚、Cygwinについての詳細は、本サイト内のCygwin備忘録をご覧下さい。

インクリメンタルサーチ

インクリメンタルサーチを使うには、初期化ファイルに次のコードを追加すると良い。

(require "isearch")

dabbrev

(require "dabbrev")
(global-set-key #\M-/ 'dabbrev-expand)
(global-set-key #\C-\; 'dabbrev-popup)

dabbrev-popupについては、補完の候補のポップアップ設定もしておくと良い。

英語のスペルチェック（Ispell）

英語のスペルチェックを行いたい場合には、ispellが必要になります。最も手っ取り早いのは、xyzzyの作者・亀井氏のサイトにて入手できる Ispell for Win32 を導入することです。

Ispellを導入したら、初期化ファイルに実行ファイルのパスを次のように指定しておきましょう。

;; Ispell --- スペルチェック
(setq *ispell-command*
      (map-slash-to-backslash (merge-pathnames "bin/ispell.exe" (si:system-root))))

また、ツールバーを登録しておくと手軽にIspellを使用できます。

;; Ispell --- ツールバー
(defun ispell-tool-bar ()
  (create-tool-bar
   'ispell-tool-bar
   (merge-pathnames "toolbar.bmp" (etc-path))
   '(("ispell" 15 (lambda () (interactive)
                    (ed::map-selection #'ispell-region)) :selection))))
(define-command-bar 'ispell-tool-bar "Ispell(&I)")

尚、ツールバーを削除したい場合には、ESC-ESCとキーを押してミニバッファに Eval: と表示されたら (delete-command-bar 'ispell-tool-bar) と入力し、Enterキーを押します。最後にIspellの為のツールバーの記述を削除してください。

テキストの比較（diff）

xyzzyにてテキストの比較を行いたい場合には、diffが必要になります（diff関連の拡張Lispを導入する場合も同様）。その際、Cygwinを導入してそのdiff.exeを使うのも良いが、態々Cygwinを導入したくないならば、Cygwinから必要なファイルだけを抜き出して使う方法もあるので、その方法を次に説明する。

尚、Cygwinを導入する際には、本サイト内のCygwin備忘録を参考にしてみて下さい。

1. $XYZZY/bin ディレクトリを作成する。
2. diff.exe, cygwin1.dll, cygintl-1.dll を$XYZZY/bin ディレクトリに置く。
3. $XYZZY/site-lisp/siteinit.lに下記のLispコードを書いておく（要：再ダンプ）。
4. diffを使用する場合は、M-xdiff

;; diff --- テキストの比較
(in-package "editor")
(setq *diff-command-name*
      (map-slash-to-backslash (merge-pathnames "bin/diff.exe" (si:system-root))))
(in-package "user")

css-mode

;; @規則や!に色付けする。
(set-syntax-word ed::*css-mode-syntax-table* #\@)
(set-syntax-word ed::*css-mode-syntax-table* #\!)

···
;;; At-rules
;*0b
@charset
@font-face
@import
@media
@page
;;; Inheritance
;*2b
!important
inherit
···

;;; CSS Validator
          ;; for the Command line version
          (add-hook 'ed::*css-mode-hook*
          #'(lambda ()
          (defvar *css-validator-file* "D:/usr/local/CssValidator.bat")
          (defun css-validator-exec ()
          (interactive)
          (let ((file (get-buffer-file-name)))
          (when file
          (pipe-command
          (format nil "~A ~A"
          (map-slash-to-backslash *css-validator-file*)
          (map-slash-to-backslash file))))))
          (define-key ed::*css-mode-map* '(#\C-c #\v) 'css-validator-exec)))

@echo off
          set classpath=D:\usr\local\css-validator\validator.zip
          Java org.w3c.css.css.StyleSheetCom %1
          rem pause

;;; CSS Validator
          ;; for the Servlet version
          (add-hook 'ed::*css-mode-hook*
          #'(lambda ()
          (defvar *css-validator-string*
          "http://127.0.0.1:8001/servlet/css-validator/validator?warning=2&uri=")
          (defun css-validator-servlet ()
          (interactive)
          (let ((file (get-buffer-file-name)))
          (when file
          (shell-execute (concat *css-validator-string* file) t)
          )))
          (define-key ed::*css-mode-map* '(#\C-c #\C-v) 'css-validator-servlet)))

;(shell-execute (concat *css-validator-string* file) t)
          (bx:close-browser)
          (bx:navigate (concat *css-validator-string* file))

lisp-mode

(setf (gethash "UTF-8N" *mime-charset-name-hash-table*) *encoding-utf8n*)

html-mode

;;; Another HTML-lint
;; for the Command line version
(add-hook 'ed::*html-mode-hook*
          #'(lambda ()
              (defvar *htmllint-file* "D:/usr/local/htmllint/htmllint")
              (defun htmllint-exec ()
                (interactive)
                (let ((file (get-buffer-file-name (selected-buffer))))
                  (when file
                    (pipe-command
                     (format nil "perl \"~A\" \"~A\""
                             (map-slash-to-backslash *htmllint-file*)
                             (map-slash-to-backslash file))))))
              (define-key ed::*html-mode-map* '(#\C-c #\l) 'htmllint-exec)))

;;; Another HTML-lint
;; for the gateway version
(add-hook 'ed::*html-mode-hook*
          #'(lambda ()
              (defvar *htmllint-string*
                "http://127.0.0.1/htmllint/htmllint.cgi?V;X=w3m;URL=")
              (defun htmllint-cgi ()
                (interactive)
                (let ((file (get-buffer-file-name)))
                  (when file
                    (shell-execute (concat *htmllint-string* file) t)
                    )))
              (define-key ed::*html-mode-map* '(#\C-c #\C-l) 'htmllint-cgi)))

;(shell-execute (concat *htmllint-string* file) t)
(bx:close-browser)
(bx:navigate (concat *htmllint-string* file))

(in-package "editor")
(export 'html+-mode)
(autoload 'html+-mode "html+-mode" t)
(pushnew '("\\.s?html?" . html+-mode) *auto-mode-alist* :test 'equal)
;; charsetで指定された文字コードの使用
(setq *html+-detect-charset* t)
;; DOCTYPE毎に異なる補完リストの生成
(setq *html+-use-html-kwd* t)
(setq *html-default-doctype* "HTML4.01 strict") ; 初期値及び未指定時
;; インデント付けの対象外とするタグ
(setq *html+-tags-list-no-indent* '("PRE" "XMP" "CODE" "SAMP"))
(in-package "user")

clickable-uri

拡張lispのclickable-uriを導入すると、マウスの左ダブルクリック操作によるウェブブラウザ、メーラー等の起動が可能になります。

私の場合、browserexも愛用させて頂いているので、コマンド指定にそれを指定して利用しています。

(when (find "clickable-uri" *modules* :test #'string-equal)
  (when (and (packagep (find-package "browserex"))
             (symbolp (find-symbol "navigate" "browserex")))
    (push '("^https?:" . bx:navigate)
          *clickable-uri-open-command-alist*)
    (push '("^file:" . bx:navigate)
          *clickable-uri-open-command-alist*)))
        

xml-mode

;;; XHTML／HTMLで適切なモードを自動選択する。
(defun html-select-mode ()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (if (scan-buffer "<\\?xml[^>]+>" :regexp t)
        (xml-mode)
      (if (scan-buffer "<!DOCTYPE[ \t\r\n]+" :regexp t)
          (html+-mode)))))
(pushnew '("\\.s?html?" . html-select-mode) *auto-mode-alist* :test 'equal)

;; 拡張子無しのソースを開く場合の設定（コンテント・ネゴシエーションへの対処）
;; MsIE や Mozilla (XUL of "ContextMenu Extensions") で有効。
(pushnew '("(/Temporary Internet Files/\\|/TEMP(.*)$)" . html-select-mode)
         *auto-mode-alist* :test 'equal)

(pushnew '("\\.xht[ml]?" . xml-mode) *auto-mode-alist* :test #'equal)

xyzzy lisp言語を弄る際に、知っておくと便利なコマンド。

M-x: apropos

キーワードを入力すると、そのキーワードを名前に含む全ての関数や変数をリストアップします。

M-x: describe-bindings

キーバインドの一覧を表示します。

M-x: describe-function

キーワードを入力すると、そのキーワードと一致する関数の説明文を表示します。

M-x: describe-variable

キーワードを入力すると、そのキーワードと一致する変数の値とその説明文を表示します。

関連リンク

• XT & Xerces (for Java) on xyzzy
• xml-mode で使用するXSLTプロセッサの切り替えメニュー