diff options
| author | jao <jao@gnu.org> | 2025-11-02 00:26:27 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2025-11-02 00:26:27 +0000 |
| commit | 46f7cd206124556a53965742cdf1f39fa05f37c7 (patch) | |
| tree | c4de8cdaf801feeecb01ffa540b642a57b065242 | |
| parent | cce9d312b1fa140afb365803d03329783660417d (diff) | |
| download | elibs-46f7cd206124556a53965742cdf1f39fa05f37c7.tar.gz elibs-46f7cd206124556a53965742cdf1f39fa05f37c7.tar.bz2 | |
notmuch geometry
| -rw-r--r-- | custom/jao-custom-notmuch.el | 1 | ||||
| -rw-r--r-- | lib/doc/jao-mac.el | 3 | ||||
| -rw-r--r-- | lib/net/jao-notmuch.el | 5 |
3 files changed, 6 insertions, 3 deletions
diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index 96631fb..9d5fc0c 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -480,6 +480,7 @@ (defun jao-notmuch-before-tree (&rest _args) (when (string= (buffer-name) "*notmuch-hello*") (window-configuration-to-register ?G) + (when (< (frame-width) 230) (delete-other-windows)) (split-window-right 40) (other-window 1))) diff --git a/lib/doc/jao-mac.el b/lib/doc/jao-mac.el index cb16752..1f325c7 100644 --- a/lib/doc/jao-mac.el +++ b/lib/doc/jao-mac.el @@ -97,7 +97,8 @@ (defun jao-skim-current-doc () "Returns a list of path and page number for the current Skim doc." - (when-let* ((p (jao-mac-run-applescript jao-skim--current-file-script))) + (when-let* ((p (jao-mac-run-applescript jao-skim--current-file-script)) + (p (and (not (string-blank-p p)) p))) (let ((ps (split-string p "::"))) (list (car ps) (string-to-number (cadr ps)))))) diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 2471dc7..73a736e 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -390,9 +390,10 @@ (seq-sort #'jao-notmuch-cmp-tags)))) (format-spec fmt `((?s . ,(mapconcat #'identity ts " ")))))) -(defun jao-notmuch-format-tree-and-subject (fmt msg) +(defun jao-notmuch-format-tree-and-subject (_fmt msg) (let ((tr (notmuch-tree-format-field "tree" " %s" msg)) - (sb (notmuch-tree-format-field "subject" " %s" msg))) + (sb (notmuch-tree-format-field "subject" " %s" msg)) + (fmt (format "%%>-%ds" (- (window-width) 60)))) (format-spec fmt `((?s . ,(concat tr sb)))))) (defun jao-notmuch-format-msg-ticks (mails-rx msg) |