summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-02-01 15:04:45 -0600
committerCase Duckworth2022-02-01 15:04:45 -0600
commit67cff9a99d9f3d661f65959893b4482eeddb7d3c (patch)
tree10f54f5cac4706f3ca9c8d69efe9be111a11b150
parentChanges (diff)
downloademacs-67cff9a99d9f3d661f65959893b4482eeddb7d3c.tar.gz
emacs-67cff9a99d9f3d661f65959893b4482eeddb7d3c.zip
Change a e s t h e t i c
-rw-r--r--init.el15
1 files 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 @@
628(setup prog 628(setup prog
629 (:local-set comment-auto-fill-only-comments t) 629 (:local-set comment-auto-fill-only-comments t)
630 (:hook #'prettify-symbols-mode 630 (:hook #'prettify-symbols-mode
631 #'display-fill-column-indicator-mode
632 #'turn-on-auto-fill)) 631 #'turn-on-auto-fill))
633 632
634(setup scratch 633(setup scratch
635 (:require +scratch) 634 (:require +scratch)
636 (:option initial-major-mode #'lisp-interaction-mode 635 (:option initial-major-mode #'lisp-interaction-mode
637 initial-scratch-message 636 initial-scratch-message
638 ";; ABANDON ALL HOPE YE WHO ENTER HERE\n\n") 637 (concat (replace-regexp-in-string "^" ";; "
638 (string-trim (if (executable-find "fortune")
639 (shell-command-to-string "fortune -s")
640 "ABANDON ALL HOPE YE WHO ENTER HERE")))
641 "\n\n"))
639 (add-hook 'kill-buffer-query-functions #'+scratch-immortal)) 642 (add-hook 'kill-buffer-query-functions #'+scratch-immortal))
640 643
641(setup shr 644(setup shr
@@ -649,7 +652,8 @@
649 tab-bar-tab-name-ellipsis truncate-string-ellipsis 652 tab-bar-tab-name-ellipsis truncate-string-ellipsis
650 tab-bar-show t 653 tab-bar-show t
651 tab-bar-close-button-show t 654 tab-bar-close-button-show t
652 tab-bar-close-button (propertize " ✕ " 655 +tab-bar-menu-bar-icon " Ɛ "
656 tab-bar-close-button (propertize " - "
653 'display t 657 'display t
654 'close-tab t) 658 'close-tab t)
655 tab-bar-new-button (propertize "+ " 'display t)) 659 tab-bar-new-button (propertize "+ " 'display t))
@@ -925,6 +929,11 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
925 (0x0-upload-text (0x0--choose-server))) 929 (0x0-upload-text (0x0--choose-server)))
926 (current-kill 0))) 930 (current-kill 0)))
927 (add-to-list '+pulse-location-commands #'lui-track-jump-to-indicator) 931 (add-to-list '+pulse-location-commands #'lui-track-jump-to-indicator)
932 (:face lui-track-bar ((t (:height 10
933 :underline (:color foreground-color
934 :style line
935 :position line)
936 :extend t :inhert (default)))))
928 (:hook #'visual-line-mode 937 (:hook #'visual-line-mode
929 #'enable-lui-track 938 #'enable-lui-track
930 #'visual-fill-column-mode 939 #'visual-fill-column-mode