top  Index  Search  Changes  RSS  Login

SetMode

現状は, (一覧からやメニューの > から)開いたファイルが howm-directory 内なら, howm-mode になります.

変えたい? (cf. 2ch2:385)

  • howm-search-path 内も?
  • *.howm なら?
  • 両者の and なり or なり?

howm-search-path 内も

リクエストあり → 2ch2:388

;;; howm-search-path 内なら howm-mode で開く (有効・無効にかかわらず!)
;;; howm-test040904用. テストしてません.
(defadvice howm-set-mode-p (around by-search-path (&optional buf) activate)
  (if (member-if (lambda (path) (howm-subdirectory-p (buffer-file-name buf)
                                                     path))
                 howm-search-path)
                 ; 有効なときだけにしたければ, 前行を消して次行の ; を消す
                 ; (howm-search-path))
      (setq ad-return-value t)
    ad-do-it))

これ単体ならいいけど, 「有効なときだけ」かつ「ReminderPath と組みあわせ」を するには, あちこち手直しいりそう.


*.howm なら

howm-mode は minor-mode なので, auto-mode-alist は違う.

;;; *.howm なら howm-directory 外でも howm-mode に (howm-test040904用)
;;; テストしてません
(defadvice howm-set-mode-p (around by-ext (&optional buf) activate)
  (if (string-match "[.]howm$" (buffer-file-name buf))
      (setq ad-return-value t)
    ad-do-it))

howm 以外から *.howm を開いたときも常に

cf. 2ch3:605

;; howm 以外から *.howm を開いたときも常に howm-mode
(add-hook 'find-file-hooks
  (lambda ()
    (when (string-match "\\.howm$" (buffer-file-name))
      (howm-mode t))))

(Please LogIn to post comments.)

Last modified:2008/10/29 22:48:34
Keyword(s):
References:[アイデア]