Set whitespace-line-column to fill-column.

This commit is contained in:
tastytea 2019-07-29 14:18:39 +02:00
parent f5ca950ff3
commit fbd518c534
2 changed files with 12 additions and 3 deletions

13
init.el
View File

@ -1,5 +1,5 @@
;;; init.el --- tastytea's Emacs init file.
;; Time-stamp: <2019-07-29T02:39:35+00:00>
;; Time-stamp: <2019-07-29T12:17:18+00:00>
;;; Commentary:
;; I am using this file with Emacs 26, but most of it will probably work with
@ -607,6 +607,8 @@ With argument, do this that many times."
;; Visualize whitespace.
(use-package whitespace
:after company
;; :custom
;; (whitespace-line-column nil) ; Set to fill-column.
:config
(delete 'newline-mark whitespace-style) ; Don't paint $ at eol.
;; (delete 'lines whitespace-style) ; Don't mark overly long lines.
@ -636,11 +638,18 @@ With argument, do this that many times."
(if my/ws-enabled
(whitespace-mode t)))
:bind
("C-x w" . 'whitespace-mode)
("C-x w" . whitespace-mode)
:hook
(prog-mode . whitespace-mode)
(conf-mode . whitespace-mode)
(text-mode . whitespace-mode)
(find-file . (lambda ()
(when (my/whitespace-mode-enabled-p)
(whitespace-mode -1)
(setq-local whitespace-line-column fill-column)
(whitespace-mode t)
)
))
:custom-face
(whitespace-space ((nil :foreground "gray18")))
(whitespace-line ((nil :inherit whitespace-line

View File

@ -1,2 +1,2 @@
127.0.0.1:51313 19011
127.0.0.1:51313 28112
phahw2ohVoh0oopheish7IVie9desh8aequeenei3uo8wahShe%thuadaeNa4ieh