diff options
author | Mountain Man <43313373+MountainMan1312@users.noreply.github.com> | 2023-05-30 19:27:55 -0400 |
---|---|---|
committer | Mountain Man <43313373+MountainMan1312@users.noreply.github.com> | 2023-05-30 19:27:55 -0400 |
commit | 3aea326cdf52201489fc28656d3f8247041fdece (patch) | |
tree | c4afaf1601a2aa48b6726b3bbe37c1965653d0b8 | |
parent | Fix IJKL version of org-mode's `M-<up>`/`M-<down>` keybinds (diff) | |
download | mmosmacs-3aea326cdf52201489fc28656d3f8247041fdece.tar.gz mmosmacs-3aea326cdf52201489fc28656d3f8247041fdece.tar.bz2 mmosmacs-3aea326cdf52201489fc28656d3f8247041fdece.zip |
Use `delight` to hide modes from modeline
-rw-r--r-- | init.el | 33 |
1 files changed, 31 insertions, 2 deletions
@@ -73,6 +73,21 @@ | |||
73 | (setq load-prefer-newer t) | 73 | (setq load-prefer-newer t) |
74 | 74 | ||
75 | 75 | ||
76 | ;; --------------------------------- | ||
77 | ;; Exclude modes from modeline list | ||
78 | ;; -------------------------------- | ||
79 | ;; The modeline can get rather | ||
80 | ;; clogged with all these modes | ||
81 | ;; running around. Delight allows | ||
82 | ;; you to hide them | ||
83 | ;; --------------------------------- | ||
84 | |||
85 | (use-package delight | ||
86 | :straight t | ||
87 | :delight | ||
88 | (buffer-face-mode)) | ||
89 | |||
90 | |||
76 | 91 | ||
77 | 92 | ||
78 | ;; --------------------------------------------------------------------- | 93 | ;; --------------------------------------------------------------------- |
@@ -90,6 +105,7 @@ | |||
90 | (use-package gcmh | 105 | (use-package gcmh |
91 | :straight t | 106 | :straight t |
92 | :defer t | 107 | :defer t |
108 | :delight | ||
93 | :init | 109 | :init |
94 | (setq gcmh-idle-delay 15 | 110 | (setq gcmh-idle-delay 15 |
95 | gcmh-idle-delay-factor 10 | 111 | gcmh-idle-delay-factor 10 |
@@ -197,6 +213,7 @@ | |||
197 | ;; Highlight color codes as their respective color | 213 | ;; Highlight color codes as their respective color |
198 | (use-package rainbow-mode | 214 | (use-package rainbow-mode |
199 | :straight t | 215 | :straight t |
216 | :delight | ||
200 | :hook (prog-mode . rainbow-mode)) | 217 | :hook (prog-mode . rainbow-mode)) |
201 | 218 | ||
202 | 219 | ||
@@ -426,8 +443,10 @@ | |||
426 | (setq-default indent-tabs-mode nil | 443 | (setq-default indent-tabs-mode nil |
427 | tab-width 2) | 444 | tab-width 2) |
428 | 445 | ||
429 | ;; Wrap words at buffer edge | 446 | ;; Wrap words at buffer edge (and hide modeline entry for WRAP) |
430 | (global-visual-line-mode) | 447 | (global-visual-line-mode) |
448 | (use-package emacs | ||
449 | :delight (visual-line-mode)) | ||
431 | 450 | ||
432 | 451 | ||
433 | ;; --------------------------------- | 452 | ;; --------------------------------- |
@@ -827,6 +846,8 @@ | |||
827 | 846 | ||
828 | ;; Agenda configuration | 847 | ;; Agenda configuration |
829 | (use-package org | 848 | (use-package org |
849 | :delight | ||
850 | (org-indent-mode) | ||
830 | :config | 851 | :config |
831 | (setq org-agenda-start-with-log-mode t | 852 | (setq org-agenda-start-with-log-mode t |
832 | org-agenda-files '("~/kb/agenda.org") | 853 | org-agenda-files '("~/kb/agenda.org") |
@@ -914,11 +935,18 @@ | |||
914 | ;; a mistake. | 935 | ;; a mistake. |
915 | ;; --------------------------------- | 936 | ;; --------------------------------- |
916 | 937 | ||
938 | ;; Eldoc shows function definition hints in the echo area | ||
939 | (use-package eldoc | ||
940 | :straight (:type built-in) | ||
941 | :delight | ||
942 | :config) | ||
943 | |||
917 | ;; Flycheck is activated by specific language modes. | 944 | ;; Flycheck is activated by specific language modes. |
918 | ;; See `:hook's in language modes below to see which ones use it. | 945 | ;; See `:hook's in language modes below to see which ones use it. |
919 | (use-package flycheck | 946 | (use-package flycheck |
920 | :straight t | 947 | :straight t |
921 | :defer t) | 948 | :defer t |
949 | :delight 'flycheck-mode) | ||
922 | 950 | ||
923 | 951 | ||
924 | ;; --------------------------------- | 952 | ;; --------------------------------- |
@@ -1000,6 +1028,7 @@ | |||
1000 | 1028 | ||
1001 | (use-package which-key | 1029 | (use-package which-key |
1002 | :straight t | 1030 | :straight t |
1031 | :delight | ||
1003 | :init (which-key-mode) | 1032 | :init (which-key-mode) |
1004 | :config | 1033 | :config |
1005 | (setq which-key-idle-delay 1.5 | 1034 | (setq which-key-idle-delay 1.5 |