【Emacs】 タブ・全角スペースのハイライト表示

プログラム作ってると全角スペースが入っていると不都合があったりするので、それを目立たせる設定です。これもMeadow memoで教わったものやったような。個人的にはタブも余り好きではないので、一緒に目立たせています。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; タブ、全角スペースを表示する
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defface my-face-r-1 ‘((t (:background "gray15"))) nil)
(defface my-face-b-1 ‘((t (:background "gray"))) nil)
(defface my-face-b-2 ‘((t (:background "gray26"))) nil)
(defface my-face-u-1 ‘((t (:foreground "red" :underline t))) nil)
(defvar my-face-r-1 ‘my-face-r-1)
(defvar my-face-b-1 ‘my-face-b-1)
(defvar my-face-b-2 ‘my-face-b-2)
(defvar my-face-u-1 ‘my-face-u-1)
(defadvice font-lock-mode (before my-font-lock-mode())
  (font-lock-add-keywords
   major-mode
   ‘(
     ("t" 0 my-face-b-2 append)
     (" " 0 my-face-b-2 append)
     ("[ t]+$" 0 my-face-u-1 append)
     (" [r]*n" 0 my-face-r-1 append)
     )))
(ad-enable-advice ‘font-lock-mode ‘before ‘my-font-lock-mode)
(ad-activate ‘font-lock-mode)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

やりかたはカーソル行のハイライトと同じやね。カスタムフェイスを定義して、それを各文字に設定してるみたいです。

Author: kan
初めてプログラムらしきものを作ったのは幼稚園の時。それから約40年経ち、現在はデジタル回路設計から信号処理、機械学習まで幅広い経験を活かしてシステムアーキテクトとして活動中。超並列処理、デジタル回路とソフトウェアのバランス設計が得意分野。 Linux/Mac/Windows使い。 C/C++を主要言語として、Unity、Qtなどのフレームワーク興味あり。UI/UXデザイン、STL拡張など。 音声処理、画像処理、技術コンサルは仕事でも請け負います。 一般ソフトウェア開発プロセス、医療機器ソフトウェア開発プロセス作成も進行中。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください