Underline instead of box for overly long lines.

This commit is contained in:
tastytea 2019-08-04 09:52:33 +02:00
parent 1d216d3efb
commit 5cfceb1b5a
1 changed files with 9 additions and 6 deletions

15
init.el
View File

@ -156,13 +156,19 @@
(set-frame-parameter nil 'buffer-predicate 'my/buffer-predicate)
:hook
(text-mode . auto-fill-mode)) ; Enable word-wrapping at fill-column.
(text-mode . auto-fill-mode) ; Enable word-wrapping at fill-column.
)
;; Save cursor position.
(use-package saveplace
:config
(save-place-mode t))
;; Show and select buffers.
(use-package bs
:bind
("C-x C-b" . bs-show))
;;;;;;;;;;;;;;;;;;;; Keybindings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-package bind-key
:init
@ -670,7 +676,8 @@ With argument, do this that many times."
:weight normal
:foreground nil
:background nil
:box (:line-width 1 :color "dark red")
;; :box (:line-width 1 :color "dark red")
:underline (:color "dark red")
)))))
(custom-set-faces ; else
'(whitespace-line ((t (:inherit whitespace-line
@ -823,10 +830,6 @@ With argument, do this that many times."
:hook
(find-file . auto-insert))
(use-package bs
:bind
("C-x C-b" . bs-show))
;;;;;;;;;;;;;;;;;;;; LaTeX ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (executable-find "xetex")
(use-package tex-site