nits

4 files changed, 21 insertions, 12 deletions

diff --git a/custom/jao-custom-exwm.el b/custom/jao-custom-exwm.el
index 6b8b2c0..2aa4a8b 100644
--- a/custom/jao-custom-exwm.el
+++ b/custom/jao-custom-exwm.el
@@ -12,7 +12,8 @@
               exwm-floating-border-color
               (if (jao-colors-scheme-dark-p) "black" "grey90")
               ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=58245 :
-              x-no-window-manager t)
+              x-no-window-manager t
+	      jao-minibuffer-maximized-frames-p t)
   :config
   (use-package jao-exwm
     :demand t)
diff --git a/custom/jao-custom-x11.el b/custom/jao-custom-x11.el
index 3922bc5..7d8b9cd 100644
--- a/custom/jao-custom-x11.el
+++ b/custom/jao-custom-x11.el
@@ -88,7 +88,7 @@
       (make-symbolic-link f current t)
       (cond (jao-river-enabled (jao-river-set-wallpaper f))
             (jao-sway-enabled (jao-sway-set-wallpaper f))
-            (t (shell-command-to-string (format "xwallpaper --zoom %s" f)))))))
+            (t (shell-command-to-string (format "hsetroot -cover %s" f)))))))
 
 (defun jao-set-random-wallpaper ()
   (interactive)
diff --git a/init.el b/init.el
index 0a1219e..3aba00d 100644
--- a/init.el
+++ b/init.el
@@ -2019,14 +2019,17 @@
  (transient-define-prefix jao-transient-utils ()
    "Global operations."
    [["Notes"
-     ("n" "create new note" jao-org-notes-create)
-     ("/" "open note" jao-org-notes-open)
-     ("\\" "open note by tags" jao-org-notes-consult-tags)
-     ("g" "ripgrep notes" jao-org-notes-consult-ripgrep)]
+     ("nn" "create new note" jao-org-notes-create)
+     ("n/" "open note" jao-org-notes-open)
+     ("n\\" "open note by tags" jao-org-notes-consult-tags)
+     ("ng" "ripgrep notes" jao-org-notes-consult-ripgrep)]
     ["Documents"
      ("dd" "go to doc" jao-select-pdf :if display-graphic-p)
      ("do" "open doc" jao-open-doc)
      ("dr" "search docs with recoll" jao-recoll-consult-docs)]
+    ["Workspaces"
+     ("e" "main" jao-exwm-firefox* :if jao-exwm-enabled-p)
+     ("g" "mail" jao-afio-goto-mail)]
     ["Monitors"
      ;; ("p" "list projects" list-projects)
      ;; ("p" "htop" jao-term-htop)
@@ -2040,18 +2043,18 @@
      ("S" "sieve" jao-sieve-manage)]
     ["Chats"
      ("c" "connect chats" jao-all-chats)
-     ("i"  "irc" jao-chats-irc)
+     ("i"  "irc buffer" jao-chats-irc)
      ("M" "mastodon" jao-mastodon)
      ("T" "telegram rooster" jao-telega)]
     ["Window system" :if jao-window-system-p
      ("w" "set wallpaper" jao-set-wallpaper)
      ("W" "set radom wallpaper" jao-set-random-wallpaper)
-     ("B u" (lambda ()
+     ("Bu" (lambda ()
               (let ((b (jao-x11-brightness)))
                 (format "bright up %s" (and (string-match ".*\\((.+)\\).*" b)
                                             (match-string 1 b)))))
       jao-x11-bright-up :transient t)
-     ("B d" "bright down" jao-x11-bright-down :transient t)]
+     ("Bd" "bright down" jao-x11-bright-down :transient t)]
     ["Utilities"
      ("a" "aptitude" jao-term-aptitude)
      ("l" "packages" jao-list-packages)
diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el
index 0809d7b..db23bc1 100644
--- a/lib/net/jao-notmuch.el
+++ b/lib/net/jao-notmuch.el
@@ -402,7 +402,8 @@
             (tb (seq-find (lambda (b)
                             (with-current-buffer b
                               (and (derived-mode-p 'notmuch-tree-mode) b)))
-                          (buffer-list))))
+                          (buffer-list)))
+            (subject (propertize subject 'face 'message-header-subject)))
       `((:eval
          (jao-notmuch--format-header-line ,(buffer-name tb) ,cb ,subject)))
     (concat " " subject)))
@@ -545,11 +546,15 @@
           (t "  "))))
 
 (provide 'jao-notmuch)
+
 ;;; bars
+(defvar jao-notmuch-bar-max 188)
+
 (defun jao-notmuch-hbar (margin)
-  (widget-insert (propertize (make-string (- (window-width) margin) ?—)
-                             'face '(:foreground "grey80")))
+  (let ((w (- (min (window-width) jao-notmuch-bar-max) margin)))
+    (widget-insert (propertize (make-string w ?—) 'face '(:foreground "grey80"))))
   (newline))
+
 ;;; org links
 (defun jao-notmuch-id-file-name (id)
   (let ((cmd (format "notmuch search --output=files id:%s" id)))