[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/detached c2c2cc5d48 3/3: Add message when all directori
From: |
ELPA Syncer |
Subject: |
[elpa] externals/detached c2c2cc5d48 3/3: Add message when all directories are initialized |
Date: |
Wed, 5 Oct 2022 15:57:29 -0400 (EDT) |
branch: externals/detached
commit c2c2cc5d488cb5ac9b83621dfc50a1ec99391ec9
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>
Add message when all directories are initialized
---
detached-list.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/detached-list.el b/detached-list.el
index caa6cc689e..00c7a7ff9f 100644
--- a/detached-list.el
+++ b/detached-list.el
@@ -105,7 +105,7 @@ detached list implements."
Optionally initialize ALL session-directories."
(interactive "P")
- (when-let* ((uninitialized-directories
+ (if-let* ((uninitialized-directories
(thread-last (detached-get-sessions)
(seq-filter #'detached--uninitialized-session-p)
(seq-map #'detached--session-directory)
@@ -113,7 +113,8 @@ Optionally initialize ALL session-directories."
(if all
(seq-do #'detached-list--initialize-directory
uninitialized-directories)
(when-let ((directory (completing-read "Initialize directory: "
uninitialized-directories)))
- (detached-list--initialize-directory directory)))))
+ (detached-list--initialize-directory directory)))
+ (message "All session directories have been initialized")))
(defun detached-list-edit-annotation (session)
"Edit SESSION's annotation."