xyzzy / modeの作成

xyzzy

メジャーモード

;;; hoge-mode

(provide "hoge-mode")
(in-package "editor")

(export '(*hoge-mode-hook* hoge-mode *hoge-mode-map*
	  )) ; このファイルに作った関数・変数を外部から使いたい場合はここに関数・変数名を追加
; フック
(defvar *hoge-mode-hook* nil
  "hoge-mode: フック変数")

;;キーマップ
(defvar *hoge-mode-map* nil
  "hoge-mode: モードマップ変数")
(unless *hoge-mode-map*
  (setq *hoge-mode-map* (make-sparse-keymap))
	;;以下キー割り当て
)

;;modeの実行
(defun hoge-mode ()
  "hoge-mode"
  (interactive)
  (kill-all-local-variables)
  (setq mode-name "hoge-mode")
  (setq buffer-mode 'hoge-mode)
  (use-keymap *hoge-mode-map*)
  (run-hooks '*hoge-mode-hook*))