From 134409aa670be39e676f093f5aa5b5b941126375 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 12 May 2022 22:37:16 -0500
Subject: Modeline stuff!

---
 init.el | 32 +++++++++++++++++++-------------
 1 file changed, 19 insertions(+), 13 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index f5b8ab3..73f5685 100644
--- a/init.el
+++ b/init.el
@@ -2021,6 +2021,11 @@
   (add-hook 'modus-themes-after-load-theme-hook
             (defun +modus-themes-mostly-monochrome ()
               "Set up mdous-themes to be mostly monochrome."
+              ;; Major mode in the mode-line
+              (defface +modeline-text-mode-face nil
+                "Text-mode major mode face.")
+              (defface +modeline-prog-mode-face nil
+                "Prog-mode major mode face.")
               (modus-themes-with-colors
                 (custom-set-faces
                  `(font-lock-builtin-face ((,class :inherit modus-themes-bold
@@ -2050,14 +2055,11 @@
                                                    :foreground ,red-nuanced-fg)))
                  `(font-lock-todo-face ((,class :inherit font-lock-comment-face
                                                 :foreground ,fg-header
-                                                :background ,yellow-intense-bg))))
-                ;; Major mode in the mode-line
-                (defface +modeline-text-mode-face `((,class ( :foreground ,blue
-                                                              :inherit modus-themes-bold)))
-                  "Text-mode major mode face.")
-                (defface +modeline-prog-mode-face `((,class ( :foreground ,magenta
-                                                              :inherit modus-themes-bold)))
-                  "Prog-mode major mode face.")
+                                                :background ,yellow-intense-bg)))
+                 `(+modeline-text-mode-face ((,class :foreground ,blue
+                                                     :inherit modus-themes-bold)))
+                 `(+modeline-prog-mode-face ((,class :foreground ,magenta
+                                                     :inherit modus-themes-bold))))
                 (:option +modeline-major-mode-faces `((text-mode . +modeline-text-mode-face)
                                                       (prog-mode . +modeline-prog-mode-face)
                                                       (t . bold))))))
@@ -2161,6 +2163,11 @@
            org-visibility-include-regexps '("\\.org\\'"))
   (org-visibility-enable-hooks))
 
+(setup (:straight org-wc)
+  (:load-after org simple-modeline)
+  (:also-load +org-wc)
+  (add-hook 'org-mode-hook #'+org-wc-mode))
+
 (setup (:straight orglink)
   (:option orglink-activate-in-modes '(text-mode prog-mode))
   (global-orglink-mode +1)
@@ -2273,18 +2280,17 @@
                   (+modeline-concat
                    '(+modeline-track
                      simple-modeline-segment-misc-info))))
+              +modeline-position
               simple-modeline-segment-process
-              +modeline-text-scale
               ,(+modeline-concat
                 '(+modeline-god-mode
                   +modeline-kmacro-indicator
                   +modeline-reading-mode
-                  +modeline-narrowed)
+                  +modeline-narrowed
+                  +modeline-text-scale
+                  +modeline-input-method)
                 ",")
-              +modeline-input-method
-              +modeline-position
               +modeline-major-mode
-              +modeline-file-percentage
               +modeline-spacer)))
   (simple-modeline-mode +1))
 
-- 
cgit 1.4.1-21-gabe81