[Mew-dist 11892] Re: 初期設定ファイル(Re: 1.95b13)

[Ninomiya Hideyuki]

こんにちは	二宮 % 言い出しっぺ @ お四国 です。

Shun-ichi TAHARA (田原 俊一) <jado at example.com> は Fri, 17 Dec 1999 09:23:28 +0900 頃に
    Subject:    [Mew-dist 11890] Re: 初期設定ファイル(Re: 1.95b13)
    Message-ID: <19991217092320K.shunichi_tahara at example.com>
        に於いて、以下のようにおっしゃっていました。
※都合により手を加えさせて頂く事があります。御了承下さいマセマセ....
jado> > setq で変数の設定は出来るけど, (add-hook で追加する)関数の
jado> > 書き方は知らないという人も多い気がするので, 必要な設定を
jado> 
jado> Elispを書けないヒトへの敷居を高くするだけという気はしています。
jado> 結局シンプルさととっつきやすさのトレードオフですね。
jado> # 最近のMewの流れそのままといった感じですが。
jado> 
jado> ~/.mew を読む説は、

default は nil で構わないと思います。

jado> Mewの場合、本体の初期化前と初期化後に処理を分けたい、という人

言い出しっぺがそうです f^^;;
でっ、hook に load を突っ込んでます今。
ファイル2つですねっ start-up.el と post-init.el .....

jado> が出てこないかなあ、といらぬ心配をしてしまいます。
jado> まあ、そんな人は自分でHookをかけるのでしょうけど。

hook にかけるより ファイルをロードする方が美しいと思う人が
ここに一人 .......


それだけじゃなんなんで、ちょいとコードを.....

mew-func.el に

(defun mew-load (file-name)
  (if file-name
      (let ((f (expand-file-name file-name)))
	(if (file-exists-p f) (load f t t)))))

なんて作っといて

mew.el の mew-init を

(defun mew-init ()
  (mew-hello)
  (message "Setting Mew world ...")

  (mew-load mew-startup-file)

  (run-hooks 'mew-env-hook)
  (mew-set-environment)

  (mew-load mew-post-init-file)

  (run-hooks 'mew-init-hook)
......

なんて感じにする。

もち、
mew-vars.el で
(defvar mew-startup-file nil)
(defvar mew-post-init-file nil)
にしとく


なんてふうに思うのですが、いかがなもんでせうか ?
---
                                         二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint: 6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
ICQ UIN:57442553                           mailto:nin at example.com
                           http://user.shikoku.ne.jp/nin/index.html