Change a e s t h e t i c

1 files changed, 12 insertions, 3 deletions

@@ -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