「whitespace を使うための設定」の編集履歴（バックアップ）一覧はこちら

「whitespace を使うための設定」(2019/11/03 (日) 09:57:09) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

&bold(){■ Emacs 全般で利用できる設定}
----

&bold(){【お知らせ】}
----

&bold(){<2019/05/28 追記>}
TAB の表示がずれることがあるように思っていましたが、以下のページに書いてあるように tab-mark を可視化すると発生する問題のようです。このため、tab-mark を可視化するのを中止しました。
・https://qiita.com/y-sakata/items/57a4a7dab6a4f25bdf83

&bold(){【本題】}
----

以下の設定を有効としてください。コメント箇所は必要に応じて有効化してください。
 (require 'whitespace)
 
 ;; 一行が設定値を超えたら長すぎると判断する（whitespace-style 変数の lines-tail と連動）
 (setq whitespace-line-column 80)
 
 (setq whitespace-style
       '(face
         trailing
         tabs
         spaces
         ;; lines-tail
         newline
         ;; empty
         space-before-tab
         space-after-tab
         space-mark
         tab-mark
         newline-mark))
 
 (setq whitespace-display-mappings
       '((space-mark   ?\u3000 [?□])
         (newline-mark ?\n     [?\xAB ?\n])
         ;; (tab-mark     ?\t     [?\u00BB ?\t]) ; TAB の表示がずれることがあるので可視化を中止
         ))
 
 ;; スペースは全角のみを可視化
 (setq whitespace-space-regexp "\\(\u3000+\\)")
 
 ;; 対象外とするモードを指定
 (setq whitespace-global-modes '(not dired-mode tar-mode))
 
 ;; 保存前に自動でクリーンアップ
 ;; (setq whitespace-action '(auto-cleanup))
 
 (global-whitespace-mode 1)
 
 (set-face-attribute 'whitespace-trailing nil
                     :foreground "red1"
                     :background 'unspecified
                     :underline t)
 (set-face-attribute 'whitespace-tab nil
                     :foreground "slate grey"
                     :background 'unspecified
                     :underline t)
 (set-face-attribute 'whitespace-space nil
                     :foreground "slate grey"
                     :background 'unspecified)
 (set-face-attribute 'whitespace-newline nil
                     :foreground "slate grey")
 (set-face-attribute 'whitespace-space-before-tab nil
                     :foreground "DarkOrange"
                     :background 'unspecified
                     :underline t)
 (set-face-attribute 'whitespace-space-after-tab nil
                     :foreground "yellow"
                     :background 'unspecified
                     :underline t)

----
<変更履歴>
・2018/04/12　このページを作成した。

----
#javascript(){{
<script>
  (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
  (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
  m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
  })(window,document,'script','//www.google-analytics.com/analytics.js','ga');

  ga('create', 'UA-40267130-1', 'atwiki.jp');
  ga('send', 'pageview');

</script>
}}

&bold(){■ Emacs 全般で利用できる設定}
----

&bold(){【お知らせ】}
----

&bold(){<2019/05/28 追記>}
TAB の表示がずれることがあるように思っていましたが、次のページに書いてあるように tab-mark を可視化すると発生する問題のようです。このため、tab-mark を可視化するのを中止しました。
・https://qiita.com/y-sakata/items/57a4a7dab6a4f25bdf83

&bold(){【本題】}
----

以下の設定を有効としてください。コメント箇所は必要に応じて有効化してください。
 (require 'whitespace)
 
 ;; 一行が設定値を超えたら長すぎると判断する（whitespace-style 変数の lines-tail と連動）
 (setq whitespace-line-column 80)
 
 (setq whitespace-style
       '(face
         trailing
         tabs
         spaces
         ;; lines-tail
         newline
         ;; empty
         space-before-tab
         space-after-tab
         space-mark
         tab-mark
         newline-mark))
 
 (setq whitespace-display-mappings
       '((space-mark   ?\u3000 [?□])
         (newline-mark ?\n     [?\xAB ?\n])
         ;; (tab-mark     ?\t     [?\u00BB ?\t]) ; TAB の表示がずれることがあるので可視化を中止
         ))
 
 ;; スペースは全角のみを可視化
 (setq whitespace-space-regexp "\\(\u3000+\\)")
 
 ;; 対象外とするモードを指定
 (setq whitespace-global-modes '(not dired-mode tar-mode))
 
 ;; 保存前に自動でクリーンアップ
 ;; (setq whitespace-action '(auto-cleanup))
 
 (global-whitespace-mode 1)
 
 (set-face-attribute 'whitespace-trailing nil
                     :foreground "red1"
                     :background 'unspecified
                     :underline t)
 (set-face-attribute 'whitespace-tab nil
                     :foreground "slate grey"
                     :background 'unspecified
                     :underline t)
 (set-face-attribute 'whitespace-space nil
                     :foreground "slate grey"
                     :background 'unspecified)
 (set-face-attribute 'whitespace-newline nil
                     :foreground "slate grey")
 (set-face-attribute 'whitespace-space-before-tab nil
                     :foreground "DarkOrange"
                     :background 'unspecified
                     :underline t)
 (set-face-attribute 'whitespace-space-after-tab nil
                     :foreground "yellow"
                     :background 'unspecified
                     :underline t)

----
<変更履歴>
・2018/04/12　このページを作成した。

----
#javascript(){{
<script>
  (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
  (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
  m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
  })(window,document,'script','//www.google-analytics.com/analytics.js','ga');

  ga('create', 'UA-40267130-1', 'atwiki.jp');
  ga('send', 'pageview');

</script>
}}