From 2f861fdc7eacdd36140f73dfd042214713cd8dbf Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 4 Mar 2022 20:37:40 +0000
Subject: minibuffer and mode-line clean-ups

---
 lib/eos/jao-minibuffer.el | 58 ++++++++++++++++++++++++-----------------------
 1 file changed, 30 insertions(+), 28 deletions(-)

(limited to 'lib/eos/jao-minibuffer.el')

diff --git a/lib/eos/jao-minibuffer.el b/lib/eos/jao-minibuffer.el
index 2e58f24..f77857e 100644
--- a/lib/eos/jao-minibuffer.el
+++ b/lib/eos/jao-minibuffer.el
@@ -26,8 +26,8 @@
 
 (defvar jao-minibuffer-info ())
 (defvar jao-minibuffer-msg-info '(""))
-(defvar jao-minibuffer-align-right-p t)
-(defvar jao-minibuffer-right-margin (if window-system "" "   "))
+(defvar jao-minibuffer-align-right t)
+(defvar jao-minibuffer-right-margin (if window-system 0 2))
 (defvar jao-minibuffer-maximized-frames-p t)
 (defvar jao-minibuffer-frame-width nil)
 (defvar jao-minibuffer-active-buffer-line-color "azure4")
@@ -37,7 +37,7 @@
 
 (defun jao-minibuffer--trim (s w)
   (if (<= (string-width (or s "")) w)
-      (format (format "%%%ds" (if jao-minibuffer-align-right-p w (- w))) s)
+      (format (format "%%%ds" (if jao-minibuffer-align-right w (- w))) s)
     (substring s 0 w)))
 
 (defun jao-minibuffer--width ()
@@ -46,22 +46,19 @@
         (t (min (frame-width) (window-width (minibuffer-window))))))
 
 (defun jao-minibuffer--format-info (&optional info)
-  (mapconcat 'string-trim
-             (seq-filter (lambda (s) (not (string-blank-p s)))
-                         (mapcar 'format-mode-line
-                                 (if jao-minibuffer-align-right-p
-                                     (or info jao-minibuffer-info)
-                                   (reverse (or info jao-minibuffer-info)))))
-             " "))
-
-(defun jao-minibuffer--aligned (&optional w)
+  (let* ((info (or info jao-minibuffer-info))
+         (info (if jao-minibuffer-align-right info (reverse info))))
+    (mapconcat #'string-trim
+               (seq-remove #'string-blank-p (mapcar 'format-mode-line info))
+               " ")))
+
+(defun jao-minibuffer--aligned (w)
   (let* ((msg (jao-minibuffer--format-info))
-         (msg (cond (jao-minibuffer-align-right-p (string-trim msg))
-                    (t (string-trim-left msg))))
-         (msg (propertize msg :minibuffer-message t)))
+         (msg (cond (jao-minibuffer-align-right (string-trim msg))
+                    (t (string-trim-left msg)))))
     (unless (string-empty-p msg)
-      (let* ((mw (jao-minibuffer--width))
-             (w (- mw (mod w mw) (string-width jao-minibuffer-right-margin) -1)))
+      (let ((msg (propertize msg :minibuffer-message t))
+            (w (- (jao-minibuffer--width) w jao-minibuffer-right-margin)))
         (if (> w 0) (jao-minibuffer--trim msg w) "")))))
 
 (defun jao-minibuffer--insert (msg)
@@ -72,19 +69,20 @@
       (when hack (other-window 1) (other-window -1)))))
 
 (defun jao-minibuffer--strip-prev (msg)
-  (if-let* ((l (length msg))
-            (n (text-property-any 0 l :minibuffer-message t msg)))
+  (if-let ((n (text-property-any 0 (length msg) :minibuffer-message t msg)))
       (string-trim (substring msg 0 n))
     msg))
 
+(defun jao-minibuffer--prefix (msgs)
+  (when-let (p (string-join (butlast msgs) "\n"))
+    (unless (string-blank-p p) (concat p "\n"))))
+
 (defun jao-minibuffer--format-msg (msg)
    (let* ((msgs (mapcar #'jao-minibuffer--strip-prev (split-string msg "\n")))
-          (prefix (when-let (p (string-join (butlast msgs) "\n"))
-                    (unless (string-blank-p p) (concat p "\n"))))
+          (prefix (jao-minibuffer--prefix msgs))
           (msg (car (last msgs)))
-          (msg (if (string-blank-p msg) msg (concat msg "  ")))
           (w (string-width msg)))
-     (if jao-minibuffer-align-right-p
+     (if jao-minibuffer-align-right
          (concat prefix msg (jao-minibuffer--aligned w))
        (concat prefix (jao-minibuffer--aligned (+ 3 w)) "   " msg))))
 
@@ -106,6 +104,12 @@
 (defun jao-minibuffer-add-msg-variable (variable-name &optional order)
   (jao-minibuffer--add-variable 'jao-minibuffer-msg-info variable-name order))
 
+;;;###autoload
+(defun jao-minibuffer-remove-variable (variable-name)
+  (let ((v `(:eval ,variable-name)))
+    (setq jao-minibuffer-info (remove v jao-minibuffer-info))
+    (setq jao-minibuffer-msg-info (remove v jao-minibuffer-info))))
+
 ;;;###autoload
 (define-minor-mode jao-minibuffer-mode
   "Show minibuffer status"
@@ -117,7 +121,6 @@
              (jao-minibuffer-refresh))
     (advice-remove 'select-window #'jao-minibuffer-refresh)
     (advice-remove 'force-mode-line-update #'jao-minibuffer-refresh)
-    (setq set-message-function nil)
     (setq clear-message-function nil)
     (jao-minibuffer--insert "")))
 
@@ -125,10 +128,9 @@
 (defun jao-minibuffer-refresh (&rest _ignore)
   (interactive)
   (when jao-minibuffer-mode
-    (let* ((jao-minibuffer-mode nil)
-           (msg (jao-minibuffer--format-info jao-minibuffer-msg-info))
-           (msg (jao-minibuffer--format-msg (or msg ""))))
-      (jao-minibuffer--insert (or msg "")))))
+    (let ((jao-minibuffer-mode nil)
+          (msg (jao-minibuffer--format-info jao-minibuffer-msg-info)))
+      (jao-minibuffer--insert (jao-minibuffer--format-msg (or msg ""))))))
 
 (provide 'jao-minibuffer)
 ;;; jao-minibuffer.el ends here
-- 
cgit v1.2.3