Emacs: Show minor-modes, but only some of them.

init.d/basics/appearance.el

@@ -1,6 +1,6 @@
 ;;; appearance.el --- Configure appearance. -*- lexical-binding: t; -*-
 
-;; Time-stamp: <2020-02-03T04:26:50+0100>
+;; Time-stamp: <2020-02-11T17:48:36+0100>
 
 ;;; Commentary:
 
@@ -68,7 +68,7 @@
   (size-indication-mode)                ; Buffer size display in the modeline.
 
   :custom
-  (doom-modeline-minor-modes nil)
+  (doom-modeline-minor-modes t)
   (doom-modeline-buffer-file-name-style 'truncate-except-project)
 
   :hook

init.d/basics/input.el

@@ -1,6 +1,6 @@
 ;;; input.el --- Configure behaviour of input devices. -*- lexical-binding: t; -*-
 
-;; Time-stamp: <2020-02-11T16:35:03+0100>
+;; Time-stamp: <2020-02-11T17:46:36+0100>
 
 ;;; Commentary:
 ;; * Setup mouse & keyboard behaviour.
@@ -89,6 +89,8 @@ With argument, do this that many times."
 
 ;; Display available keybindings.
 (use-package which-key
+  :diminish which-key-mode
+
   :config
   (which-key-mode)
   )

init.d/basics/misc.el

@@ -1,11 +1,13 @@
 ;;; misc.el --- Basic things that do not fit any other category. -*- lexical-binding: t; -*-
 
-;; Time-stamp: <2020-01-10T11:02:37+0100>
+;; Time-stamp: <2020-02-11T17:33:45+0100>
 
 ;;; Commentary:
 
 ;;; Code:
 
+;; Hide minor-mode from modeline.
+(use-package diminish)
 
 (provide 'basics/misc)
 ;;; misc.el ends here

init.d/basics/ui.el

@@ -1,6 +1,6 @@
 ;;; ui.el --- Configure user interfaces. -*- lexical-binding: t; -*-
 
-;; Time-stamp: <2020-02-11T16:37:37+0100>
+;; Time-stamp: <2020-02-11T17:45:47+0100>
 
 ;;; Commentary:
 ;; * treemacs
@@ -40,6 +40,7 @@
 ;; Completion in many Emacs commands.
 (use-package ivy
   :demand t
+  :diminish ivy-mode
 
   :custom
   (ivy-use-virtual-buffers t)

init.d/programming/common.el

@@ -1,6 +1,6 @@
 ;;; common.el --- Common programming settings. -*- lexical-binding: t; -*-
 
-;; Time-stamp: <2020-02-11T16:49:40+0100>
+;; Time-stamp: <2020-02-11T17:47:01+0100>
 
 ;;; Commentary:
 
@@ -27,6 +27,7 @@
 ;; Guess indentation and if spaces or tabs are to be used.
 (use-package dtrt-indent
   :after (editorconfig)
+  :diminish dtrt-indent-mode
 
   :hook
   (dtrt-indent-mode . editorconfig-apply)
@@ -35,6 +36,8 @@
 
 ;; Online documentation mode.
 (use-package eldoc
+  :diminish eldoc-mode
+
   :hook
   (prog-mode . turn-on-eldoc-mode)
   )
@@ -44,6 +47,7 @@
   (use-package flycheck
     :defer nil
     :functions (flycheck-add-mode)
+    :diminish flycheck-mode
 
     :custom
     (flycheck-cppcheck-checks '("style" "warning" "information"))
@@ -67,6 +71,8 @@
 ;; Autocompletion mode with many plugins.
 (unless slow-computer
   (use-package company
+    :diminish company-mode
+
     :custom
     ;; Show suggestions after entering one character.
     (company-minimum-prefix-length 1)
@@ -118,6 +124,7 @@
                 treemacs-collapse-other-projects
                 treemacs-toggle-node
                 my/projectile-kill-buffers)
+    :diminish projectile-mode
 
     :init
     (defvar my/cmake-compile-command    ; cmake command for compiling with 1
@@ -191,8 +198,14 @@
   ("<end>"  . mwim-end-of-line-or-code)
   )
 
+;; Needs to be here in order to diminish it.
+(use-package hideshow
+  :diminish hs-minor-mode)
+
 ;; Fold code.
 (use-package fold-dwim
+  :after (hideshow)
+
   :bind
   ("C-c f" . fold-dwim-toggle)
 
@@ -242,6 +255,8 @@
 
 ;; Support .editorconfig files.
 (use-package editorconfig
+  :diminish editorconfig-mode
+
   :config
   (editorconfig-mode 1)
   )
@@ -289,6 +304,8 @@ year if mode is derived from prog-mode."
   )
 
 (use-package rainbow-mode
+  :diminish rainbow-mode
+
   :hook
   (prog-mode . rainbow-mode)
   )

init.d/text/common.el

@@ -1,6 +1,6 @@
 ;;; common.el --- Common settings for text files. -*- lexical-binding: t; -*-
 
-;; Time-stamp: <2020-02-05T19:58:53+0100>
+;; Time-stamp: <2020-02-11T17:43:37+0100>
 
 ;;; Commentary:
 
@@ -63,6 +63,7 @@
     :if (or (executable-find "aspell")
             (executable-find "hunspell")
             (executable-find "ispell"))
+    :diminish flyspell-mode
 
     :custom
     (ispell-dictionary "english")
@@ -124,6 +125,7 @@
   :after (company)
   :defines (company-candidates)
   :functions (yas-reload-all yas-expand-snippet)
+  :diminish yas-minor-mode
 
   :config
   (defun my/tab-yas-or-company ()
@@ -198,6 +200,7 @@
 (use-package whitespace
   :after (company)
   :functions (my/whitespace-mode-enabled-p my/on-off-whitespace-before-company)
+  :diminish whitespace-mode
 
   :custom
   (whitespace-line-column nil)          ; Set to fill-column.