diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/eos/jao-borgmatic.el | 9 | ||||
| -rw-r--r-- | lib/net/jao-notmuch.el | 11 |
2 files changed, 14 insertions, 6 deletions
diff --git a/lib/eos/jao-borgmatic.el b/lib/eos/jao-borgmatic.el index f5d800d..6be370e 100644 --- a/lib/eos/jao-borgmatic.el +++ b/lib/eos/jao-borgmatic.el @@ -1,6 +1,6 @@ ;;; jao-borgmatic.el --- Simple access to borgmatic -*- lexical-binding: t; -*- -;; Copyright (C) 2022 jao +;; Copyright (C) 2022, 2026 jao ;; Author: jao <mail@jao.io> ;; Keywords: convenience @@ -116,8 +116,11 @@ (when (and (eq (process-status proc) 'exit) (y-or-n-p "Borg extraction finished, show?")) (if (eq (process-exit-status proc) 0) - (let ((d (file-name-directory (car paths)))) - (dired (expand-file-name d jao-borgmatic-extract-path))) + (let* ((d (file-name-directory (car paths))) + (p (expand-file-name d jao-borgmatic-extract-path))) + (if (file-exists-p p) + (dired p) + (message "%s is not in the archive" d))) (pop-to-buffer jao-borgmatic--extract-output))))) (defvar jao-borgmatic--extract-history nil) 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))) |