diff options
| author | jao <jao@gnu.org> | 2026-11-07 00:15:33 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-11-07 00:15:33 +0000 |
| commit | 9f2b5713795e8a3b9ff31073a2812459541d642f (patch) | |
| tree | 4c16174fa997017fb1e919bc097229fa2066255d /lib/eos/jao-borgmatic.el | |
| parent | 5f7fe32063b9c5ae4f4dd9e95650306475821036 (diff) | |
| download | elibs-9f2b5713795e8a3b9ff31073a2812459541d642f.tar.gz elibs-9f2b5713795e8a3b9ff31073a2812459541d642f.tar.bz2 | |
borgmatic nits
Diffstat (limited to 'lib/eos/jao-borgmatic.el')
| -rw-r--r-- | lib/eos/jao-borgmatic.el | 9 |
1 files changed, 6 insertions, 3 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) |