diff options
| author | jao <jao@gnu.org> | 2024-12-01 05:18:57 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2024-12-01 05:19:14 +0000 |
| commit | ed457a9d22991727eae7e488a016c315131d115f (patch) | |
| tree | c206bafe9f39a98cfd43f505699960d4ddc8dbe8 | |
| parent | 418212e4eb963813c078cf290cddfe7e3defd7ed (diff) | |
| download | elibs-ed457a9d22991727eae7e488a016c315131d115f.tar.gz elibs-ed457a9d22991727eae7e488a016c315131d115f.tar.bz2 | |
nits
| -rw-r--r-- | init.el | 17 | ||||
| -rw-r--r-- | lib/eos/jao-minibuffer.el | 2 |
2 files changed, 11 insertions, 8 deletions
@@ -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) |