目次

1. develock-elとは
2. develock-elのインストール
3. develock-elの設定
4. Wanderlustの設定

develock-elとは

Emacsで開発する人のための追加のフォントロックキーワードです。

develockはマイナーモードで、ファイルバッファの不必要なホワイトスペース、長い行などを教えてくれます。

対応しているモードは

• Lisp modes
• ChangeLog mode
• Texinfo mode
• C modes
• OCaml modes
• Coq mode
• LaTeX mode
• Java mode
• Jde-mode
• CPerl mode
• Perl mode
• HTML modes
• some Mail modes

develock-elのインストール

# apt install develock-el

develock-elの設定

‘/etc/emacs/site-start.d/50develock-el.el’に

(cond ((featurep 'xemacs)
       (require 'develock)
       ;; `turn-on-develock' is equivalent to `turn-on-font-lock',
       ;;  except that it does not highlight the startup screen.
       (add-hook 'lisp-interaction-mode-hook 'turn-on-develock)
       (add-hook 'mail-setup-hook 'turn-on-font-lock))
      ((>= emacs-major-version 20)
       (require 'develock)
       (global-font-lock-mode 1))))

と、書かれているので特に設定する必要はありません。

Wanderlustの設定

‘/usr/share/emacs/site-lisp/develock-el/develock.el’に書いてあるfont-lockをサポートしていないWanderlustのドラフトモードでDevelockを使う設定です。

以下のコードを’.wl’ファイルに書きます。

(require 'develock)
(require 'message)

(setq wl-highlight-body-too nil)

(defadvice wl-highlight-headers (around dont-highlight-draft
                    (&optional for-draft) activate)
  "Don't highlight draft buffers."
  (or for-draft ad-do-it))

(defun wl-draft-setup-develock ()
  "Function used to setup to use Develock in `wl-draft-mode'."
  (if (featurep 'xemacs)
      (put 'wl-draft-mode 'font-lock-defaults
       '(message-font-lock-keywords t))
    (make-local-variable 'font-lock-defaults)
    (setq font-lock-defaults '(message-font-lock-keywords t t)))
  (turn-on-font-lock))

(add-hook 'wl-mail-setup-hook 'wl-draft-setup-develock)

(setq develock-max-column-plist
      (plist-put develock-max-column-plist 'wl-draft-mode t))

(let ((elem (copy-sequence (assq 'message-mode develock-keywords-alist))))
  (setcar elem 'wl-draft-mode)
  (setq develock-keywords-alist
    (cons elem (delq (assq 'wl-draft-mode develock-keywords-alist)
             develock-keywords-alist))))

‘/usr/share/emacs/site-lisp/develock-el/develock.el’には他にもMew,Ediff,Texinfo用の設定が書いてあります。

あと、各メジャーモードごと個別にDevelockモードを有効にする設定も書いてあるので参照してみるとよいでしょう。