ardggy's blog

Esc - Meta - Alt - Ctrl - Shift

view-mode とディレクトリ変数

プロジェクトルートに、下の内容の .dir-locals.el を入れておく。 すると、プロジェクト下のファイルを開いたときに view-mode になっている。

ライブラリとかカーネルとかを読むときはありがたい。

((nil . ((eval . (view-mode 1)))))

find-file-hook にひっかけるという手もあるけど、なんでもかんでも view-mode になるのはちょっと煩わしい。

標準拡張は view-mode で読みたい

find-library とか describe-function でライブラリのファイルに飛ぶときに、view-mode になっているといいなあと思って設定した。

地味にありがたい存在。

(add-hook 'find-function-after-hook 'view-mode-when-el)
(add-hook 'xref-after-jump-hook 'view-mode-when-el)

(defun view-mode-when-el ()
  (when (or (string-suffix-p ".el.gz" (buffer-file-name))
            (string-suffix-p ".el" (buffer-file-name)))
    (view-mode 1)))