| Version 7 (modified by munepi, 17 years ago) (diff) |
|---|
このページでは、 次期 5.0 に対応する予定の emacs-23, emacs22-22.x に関する情報を集めています。
Vine Linux の Emacs 23 では、 Emacs 上で動作するアプリケーションのパッケージをインストールしたら、 ユーザ初期設定ファイル ~/.emacs.el に何も設定を記述しなくても、 そのアプリケーションがある程度使えるように、 あらかじめ設定を用意し、その設定を自動的に読み込むようにしています。 この Emacs における Vine Linux のデフォルト設定を vine-default と呼ぶことにします。
vine-default は、/usr/share/emacs-23.x/site-lisp 以下に格納されています。
Emacs を起動すると、デフォルトで vine-default の boolean が t になっているので、 vine-default を読み込みます。
もし vine-default をすべて無効にしたい場合は、 ~/.emacs.el に
(setq vine-default nil)
を設定します。 この場合は、メニューバーと言語ロケール以外は何も設定されていません。
vine-default のうち、いくつかの設定を無効にすることができます。 各 vine-default は、vine-default-name の boolean が定義されていて、 デフォルトでは t になっています。
例えば、vine-default-base, vine-default-faces, vine-default-yatex, vine-default-mew を無効にしたい場合は、 ~/.emacs.el に
(setq vine-default-base nil
vine-default-faces nil
vine-default-yatex nil
vine-default-mew nil
)
を設定します。
vine-default をすべて無効にしたときに、いくつかの vine-default を有効にすることができます。 例えば、vine-default.yatex, vine-default-tamago のみを有効にしたい場合は、 ~/.emacs.el に
(setq vine-default nil) (requires 'vine-default-yatex) (requires 'vine-default-tamago)
を設定します。
Vine Linux の Emacs 上における IME は、 X 上におけるそれと連動して、環境変数 EMACS_IME により設定されます。
もし EMACS_IME と異なる IME を使いたい場合は、 skk を例にすると、~/.emacs.el に
(setq emacs-ime "skk")
を設定します。
vine-default は、各デフォルト設定を読み込む *-init.el を、 vine-default-setup 内で読まれる vine-default-setup-hook にひっかけて一旦ストックしておき、 after-init-hook にひっかけた vine-default-setup を実行することにより、 Vine Linux のデフォルト設定が読み込まれます。
具体的には、site-start.el と *-init.el に以下のような関数とフックを定義しています。
;;; Emacs default settings for Vine Linux
(defcustom emacs-ime (getenv "EMACS_IME")
"A variable of default Input Method Editor"
:type 'string)
(if (null emacs-ime)
(setq emacs-ime "scim"))
(defcustom vine-default t
"A boolean for all Vine Linux default settings"
:type 'boolean)
(if (equal (getenv "LOGNAME") "root")
(setq vine-default nil))
(defcustom vine-default-base t
"A boolean for vine-default-base"
:type 'boolean)
(defcustom vine-default-faces t
"A boolean for vine-default-faces"
:type 'boolean)
(defvar vine-default-setup-hook nil
"*List of functions to be called at vine-default-setup")
(defvar after-vine-default-setup-hook nil
"*List of functions to be called at the end of vine-default-setup")
(defun vine-default-setup ()
"a function for setup to default configurations of Vine Linux."
(if vine-default
(progn
(if vine-default-base (require 'vine-default-base))
(if vine-default-faces (require 'vine-default-faces))
(run-hooks 'vine-default-setup-hook)
(run-hooks 'after-vine-default-setup-hook)
)
)
)
(add-hook 'after-init-hook 'vine-default-setup)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(mapc 'load (directory-files "/etc/emacs-23.0.92/site-start.d" t "\\.el\\'"))
Emacs の関連パッケージに対しては、 例えば YaTeX の場合は、 50yatex-init.el に以下のような設定を追加しています。
(defcustom vine-default-yatex t "A boolean for vine-default-yatex" :type 'boolean) (add-hook 'vine-default-setup-hook (lambda() (if vine-default-yatex (require 'vine-default-yatex))))