about summary refs log tree commit diff
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2018-08-09T16·02-0400
committerWilliam Carroll <wpcarro@gmail.com>2018-08-09T16·02-0400
commit6393e47c778725864c6141b369a2119eeb0774f2 (patch)
tree0f0d51b584e2c8f9c1e9b7bf671bbd306bc5bab6
parent2211d65557fbeb88dba1f8292330cf01ed1fa219 (diff)
Support highlighting fill-column overflows
This was previously semi-supported. There were two problems, however:

1. My fill-column value of 80 got out-of-sync with my white-line-column
   value of 100.
   Solution: globally define wpc/fill-column, set that to 80, and
   consume the new const in my config.

2. Nothing was activating whitespace mode.
   Solution: add whitespace-mode to prog-mode-hook.

This SO answer helped tremendously:
https://stackoverflow.com/questions/18855510/have-emacs-highlight-characters-over-80
-rw-r--r--emacs.d/wpc/packages/wpc-misc.el2
-rw-r--r--emacs.d/wpc/packages/wpc-ui.el7
-rw-r--r--emacs.d/wpc/variables.el4
3 files changed, 10 insertions, 3 deletions
diff --git a/emacs.d/wpc/packages/wpc-misc.el b/emacs.d/wpc/packages/wpc-misc.el
index 4edcdcda01c1..ee80e019abe4 100644
--- a/emacs.d/wpc/packages/wpc-misc.el
+++ b/emacs.d/wpc/packages/wpc-misc.el
@@ -70,7 +70,7 @@
       create-lockfiles nil)
 
 ;; ensure code wraps at 80 characters by default
-(setq-default fill-column 80)
+(setq-default fill-column wpc/fill-column)
 
 (put 'narrow-to-region 'disabled nil)
 
diff --git a/emacs.d/wpc/packages/wpc-ui.el b/emacs.d/wpc/packages/wpc-ui.el
index 307379495f1c..03899e61ba2b 100644
--- a/emacs.d/wpc/packages/wpc-ui.el
+++ b/emacs.d/wpc/packages/wpc-ui.el
@@ -127,8 +127,11 @@
 ;; highlight lines that are over 100 characters long
 (use-package whitespace
   :config
-  (setq whitespace-line-column 100)
-  (setq whitespace-style '(face lines-tail)))
+  (setq whitespace-line-column wpc/fill-column)
+  (setq whitespace-style '(face lines-tail))
+  (add-hook 'prog-mode-hook #'whitespace-mode))
+
+
 
 ;; disable GUI scrollbars
 (when (display-graphic-p)
diff --git a/emacs.d/wpc/variables.el b/emacs.d/wpc/variables.el
index bd5af2a01051..d0bba261593d 100644
--- a/emacs.d/wpc/variables.el
+++ b/emacs.d/wpc/variables.el
@@ -18,5 +18,9 @@
     [mouse-5] [down-mouse-5] [drag-mouse-5] [double-mouse-5] [triple-mouse-5])
   "This variable stores all of the mouse-related keybindings that Emacs recognizes.")
 
+(defconst wpc/fill-column
+  80
+  "Variable used to set the defaults for wrapping, highlighting, etc.")
+
 (provide 'variables)
 ;;; variables.el ends here