From 46f7cd206124556a53965742cdf1f39fa05f37c7 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 2 Nov 2025 00:26:27 +0000 Subject: notmuch geometry --- lib/doc/jao-mac.el | 3 ++- lib/net/jao-notmuch.el | 5 +++-- 2 files changed, 5 insertions(+), 3 deletions(-) (limited to 'lib') 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) -- cgit v1.2.3