From 67cff9a99d9f3d661f65959893b4482eeddb7d3c Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 1 Feb 2022 15:04:45 -0600
Subject: Change a e s t h e t i c

---
 init.el | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/init.el b/init.el
index 18ab4ea..9fdf785 100644
--- a/init.el
+++ b/init.el
@@ -628,14 +628,17 @@
 (setup prog
   (:local-set comment-auto-fill-only-comments t)
   (:hook #'prettify-symbols-mode
-         #'display-fill-column-indicator-mode
          #'turn-on-auto-fill))
 
 (setup scratch
   (:require +scratch)
   (:option initial-major-mode #'lisp-interaction-mode
            initial-scratch-message
-           ";; ABANDON ALL HOPE YE WHO ENTER HERE\n\n")
+           (concat (replace-regexp-in-string "^" ";; "
+                                             (string-trim (if (executable-find "fortune")
+                                                              (shell-command-to-string "fortune -s")
+                                                            "ABANDON ALL HOPE YE WHO ENTER HERE")))
+                   "\n\n"))
   (add-hook 'kill-buffer-query-functions #'+scratch-immortal))
 
 (setup shr
@@ -649,7 +652,8 @@
            tab-bar-tab-name-ellipsis truncate-string-ellipsis
            tab-bar-show t
            tab-bar-close-button-show t
-           tab-bar-close-button (propertize " ✕ "
+           +tab-bar-menu-bar-icon " Ɛ "
+           tab-bar-close-button (propertize " - "
                                             'display t
                                             'close-tab t)
            tab-bar-new-button (propertize "+ " 'display t))
@@ -925,6 +929,11 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
                  (0x0-upload-text (0x0--choose-server)))
                 (current-kill 0)))
     (add-to-list '+pulse-location-commands #'lui-track-jump-to-indicator)
+    (:face lui-track-bar ((t (:height 10
+                                      :underline (:color foreground-color
+                                                         :style line
+                                                         :position line)
+                                      :extend t :inhert (default)))))
     (:hook #'visual-line-mode
            #'enable-lui-track
            #'visual-fill-column-mode
-- 
cgit 1.4.1-21-gabe81