From 5cfceb1b5adb9345d5b26a8512815048a4fd9d84 Mon Sep 17 00:00:00 2001
From: tastytea <tastytea@tastytea.de>
Date: Sun, 4 Aug 2019 09:52:33 +0200
Subject: [PATCH] Underline instead of box for overly long lines.

---
 init.el | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/init.el b/init.el
index d823d4a..7069786 100644
--- a/init.el
+++ b/init.el
@@ -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