From f0febf681490412709be7b494232de8c41253769 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 5 May 2022 18:41:42 -0500
Subject: Change modeline

---
 init.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 8b1c43e..61b2858 100644
--- a/init.el
+++ b/init.el
@@ -429,6 +429,8 @@
     (add-to-list 'Info-additional-directory-list dir))
   (:with-mode Info-mode                 ; -_-
     (:hook #'reading-mode)
+    (:local-set +modeline-buffer-position #'+Info-modeline-breadcrumbs
+                +modeline-position-function #'ignore)
     (:bind "c" #'+Info-copy-current-node-name
            "w" #'+Info-copy-current-node-name)))
 
@@ -1712,6 +1714,8 @@
 (setup (:straight info+)
   (:load-after info)
   (:option Info-fontify-isolated-quote-flag nil
+           Info-breadcrumbs-in-mode-line-mode nil
+           Info-fontify-emphasis-flag nil
            Info-fontify-quotations nil
            Info-saved-history-file (.etc "info-history"))
   (add-hook 'Info-mode-hook #'Info-variable-pitch-text-mode))
@@ -1802,6 +1806,7 @@
                                               (cond
                                                ((string-match-p "hmm@" (buffer-name))
                                                 "🤔 ")))
+                file-percentage-mode nil
                 wrap-prefix (make-string +jabber-ws-prefix ?\ )))
   (:+leader "C-j" jabber-global-keymap)
   (advice-add 'jabber-activity-add :after #'+jabber-tracking-add)
@@ -2173,7 +2178,7 @@
                                            (readonly . "=")
                                            (modified . "+")
                                            (t . "-"))
-           +modeline-minions-icon ";"
+           +modeline-minions-icon "&"
            +modeline-buffer-name-max-length 0.35)
   ;; Segments
   (:option simple-modeline-segments
@@ -2182,9 +2187,6 @@
               +modeline-modified
               +modeline-buffer-name
               (lambda () (+modeline-vc " : "))
-              ,(+modeline-concat
-                '(+modeline-minions
-                  +modeline-major-mode))
               +modeline-anzu
               )
              (                          ; right
@@ -2203,6 +2205,10 @@
                 ",")
               +modeline-input-method
               +modeline-position
+              ,(+modeline-concat
+                '(+modeline-minions
+                  +modeline-major-mode))
+              +modeline-file-percentage
               )))
   (simple-modeline-mode +1))
 
-- 
cgit 1.4.1-21-gabe81