From ed457a9d22991727eae7e488a016c315131d115f Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 1 Dec 2024 05:18:57 +0000
Subject: nits

---
 init.el                   | 17 ++++++++++-------
 lib/eos/jao-minibuffer.el |  2 +-
 2 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/init.el b/init.el
index 809009e..e1b27ce 100644
--- a/init.el
+++ b/init.el
@@ -2196,7 +2196,8 @@
 (defun jao-org--set-geiser-impl () (setq-local geiser-repl--impl 'guile))
 (add-hook 'org-mode-hook #'jao-org--set-geiser-impl)
 
-(jao-load-path "geiser")
+;; (jao-load-path "geiser")
+;; (package-vc-install-from-checkout ...)
 (use-package geiser
   :init
   (setq geiser-repl-history-filename "~/.emacs.d/cache/geiser-history"
@@ -2207,10 +2208,10 @@
   (dolist (m '(geiser-repl-mode geiser-doc-mode geiser-debug-mode))
     (jao-define-attached-buffer `(major-mode . ,m) 0.4)))
 
-(jao-load-path "geiser-guile")
+;; (jao-load-path "geiser-guile")
 (use-package geiser-guile)
 
-(jao-load-path "geiser-chez")
+;; (jao-load-path "geiser-chez")
 (use-package geiser-chez)
 
 ;; (jao-load-path "geiser/mit")
@@ -2684,9 +2685,10 @@
    ("M" "mute user"       mastodon-tl--mute-user)
    ("B" "block user"      mastodon-tl--block-user)
    ("m" "message user"    mastodon-tl--dm-user)
-   ""
-   ("," "favouriters"     mastodon-toot--list-toot-favouriters)
-   ("." "boosters"        mastodon-toot--list-toot-boosters)]
+   ;; ""
+   ;; ("," "favouriters"     mastodon-toot--list-toot-favouriters)
+   ;; ("." "boosters"        mastodon-toot--list-toot-boosters)
+   ]
 
   ;; S-RET                mastodon-tl--unmute-user
   ;; C-S-b                mastodon-tl--unblock-user
@@ -2971,7 +2973,8 @@
   :demand t
   :config
   (defun jao--notify-album (album)
-    (jao-notify album "Next album" jao-notify-audio-icon)
+    (unless jao-minibuffer-mode
+      (jao-notify album "Next album" jao-notify-audio-icon))
     (jao-minibuffer-refresh))
   (setq jao-random-album-notify #'jao--notify-album))
 
diff --git a/lib/eos/jao-minibuffer.el b/lib/eos/jao-minibuffer.el
index 77bd49a..42cef74 100644
--- a/lib/eos/jao-minibuffer.el
+++ b/lib/eos/jao-minibuffer.el
@@ -40,7 +40,7 @@
 (defun jao-minibuffer--trim (s w)
   (if (< (string-width (or s "")) w)
       (format (format "%%%ds" (if jao-minibuffer-align-right w (- w))) s)
-    (substring s 0 w)))
+    (substring s 0 (min w (length s)))))
 
 (defun jao-minibuffer--width ()
   (cond ((numberp jao-minibuffer-frame-width) jao-minibuffer-frame-width)
-- 
cgit v1.2.3