あったらいいなとは思ってたけど標準機能にあったことは今日まで知らなかったシリーズ
何がしたいのか
バッファ内にある特定の文字列を色付けて強調表示したい。
ユースケースとしてはいくつか考えられるけれど、コードリーディング中に注目したい変数やメソッドなどに色をつけていくなどはわかりやすいかもしれない。
どうすればいいのか
一時的に表示 M-x highlight-xxxxxコマンド
以下のGIFアニメはM-x highlight-symbol-at-pointやM-x highlight-regexpを使ってみたところ。
たぶんいちばん使いやすいのはM-x highlight-symbol-at-pointです。
-
M-x highlight-symbol-at-point- カーソル位置の関数名や変数名のようなシンボルを強調表示します
- 内部的には
"\\_<...\\_>で括られたパターンになります - たとえば
redを強調してredirectionのような部分文字列に誤爆しません
- 内部的には
- 色は適当に割り当てられます
- カーソル位置の関数名や変数名のようなシンボルを強調表示します
-
M-x highlight-regexp- 正規表現で入力します (Emacs特有の癖があるやつ)
- リージョン選択していたらデフォルト選択されます
- 色は選べますが、まだ使ってない色がいい感じにサジェストされてます
- 正規表現で入力します (Emacs特有の癖があるやつ)
-
M-x highlight-phrase- 小文字で指定すると、大文字小文字を区別し
- 名前でわかりにくいですが正規表現でも書けます
-
highlight-symbol-at-pointのように暗黙的なシンボル境界は不可されません-
highlightを指定すると、Highlights(のs以外)やhighlighting(のing以外)に色がつきます - 正規表現で明示的に指定すれば単語全体に色をつけることもできます
-
- 色は選べますが、まだ使ってない色がいい感じにサジェストされてます
- 小文字で指定すると、大文字小文字を区別し
M-x highlight-phraseをちょっと使いやすくする
M-x highlight-phraseもいいのですが、カーソル位置のキーワードをいい感じに拾ってきてくれません。なので、自分でラッパーを用意することもできます。
(defun my-highlight-phrase (regexp &optional face)
"Set face of each match of phrase REGEXP to FACE."
(interactive
(list
(hi-lock-regexp-okay
(read-regexp "Phrase to highlight"
(rx-to-string
(list : (if (region-active-p)
(buffer-substring-no-properties (region-beginning) (region-end))
(thing-at-point 'symbol)))
t)
'regexp-history-last))
(hi-lock-read-face-name)))
(highlight-phrase regexp face))
M-x hi-lock-mode
ここまでの強調表示機能は、hi-lock-modeというマイナーモードが提供しています。上記のコマンド起動時にマイナーモードが有効化されていなければ、暗黙的に有効化されます。
hi-lock-modeを有効化するとき、ファイル内に以下のような記述があるとAdd patterns from this buffer to hi-lock? (y or n)と尋ねられて有効化されます
;; Hi-lock: (("search" (0 'hi-salmon prepend)))
;; Hi-lock: (("\\_<defcustom\\_>" (0 'hi-blue prepend)))
;; Hi-lock: (("\\_<const\\_>" (0 'hi-green prepend)))
;; Hi-lock: (("\\_<string\\_>" (0 'hi-pink prepend)))
;; Hi-lock: (("Search" (0 'hi-yellow prepend)))
強調箇所の永続化
M-x hi-lock-write-interactive-patternsを実行すると、バッファ内で強調している強調キーワードをカーソル位置にコメントアウトされた状態で展開します。
ただし、下記のようにやたら冗長な行が出力されるので気をつけてください。
Hi-lock: ((#[257 "\301\300\305\302\242\306#*\207" ["[ ]+" t ("without") search-spaces-regexp case-fold-search re-search-forward t] 5 ("/Applications/Emacs.app/Contents/Resources/lisp/hi-lock.elc" . 28983)] (0 'hi-yellow prepend)))
先述のようにいい感じに削っても動作しますが、highlight-phraseのようにcase-sensitiveな(大文字小文字を問わない)強調はできなくなるので気をつけてください。
機能の呼び出し方
hi-lock-modeを有効化すると、メニューバーのEditの中にもメニューが生えてきます。
メニューバー自体が無視されがちな不憫なやつですが…