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 |