[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dtache 2fe1e6fb0d 13/16: Update initialization of sessi
From: |
ELPA Syncer |
Subject: |
[elpa] externals/dtache 2fe1e6fb0d 13/16: Update initialization of sessions |
Date: |
Fri, 20 May 2022 05:57:42 -0400 (EDT) |
branch: externals/dtache
commit 2fe1e6fb0dd13834a0b3bd538d00f2d84ad56b91
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>
Update initialization of sessions
Make sure initialization of sessions are not only called when
retrieving sessions but also when creating sessions. Prior behavior
should have overwritten known sessions if sessions had yet been
initialized when creating a new session.
---
detached.el | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/detached.el b/detached.el
index 1f5c846f98..a39aada48e 100644
--- a/detached.el
+++ b/detached.el
@@ -786,7 +786,6 @@ This function uses the `notifications' library."
(defun detached-get-sessions ()
"Return validated sessions."
- (detached-initialize-sessions)
(detached--validate-unknown-sessions)
(detached--db-get-sessions))
@@ -1068,36 +1067,42 @@ Optionally make the path LOCAL to host."
(string-match regexp header)
(match-string 1 header)))
-(defun detached--db-insert-entry (session)
+(defun detaced--db-insert-entry (session)
"Insert SESSION into `detached--sessions' and update database."
+ (detached-initialize-sessions)
(push `(,(detached--session-id session) . ,session) detached--sessions)
(detached--db-update-sessions))
(defun detached--db-remove-entry (session)
"Remove SESSION from `detached--sessions', delete log and update database."
+ (detached-initialize-sessions)
(let ((log (detached--session-file session 'log)))
(when (file-exists-p log)
(delete-file log)))
(setq detached--sessions
- (assq-delete-all (detached--session-id session) detached--sessions ))
+ (assq-delete-all (detached--session-id session) detached--sessions))
(detached--db-update-sessions))
(defun detached--db-update-entry (session &optional update)
"Update SESSION in `detached--sessions' optionally UPDATE database."
+ (detached-initialize-sessions)
(setf (alist-get (detached--session-id session) detached--sessions) session)
(when update
(detached--db-update-sessions)))
(defun detached--db-get-session (id)
"Return session with ID."
+ (detached-initialize-sessions)
(alist-get id detached--sessions))
(defun detached--db-get-sessions ()
"Return all sessions stored in the database."
+ (detached-initialize-sessions)
(seq-map #'cdr detached--sessions))
(defun detached--db-update-sessions ()
"Write `detached--sessions' to database."
+ (detached-initialize-sessions)
(let ((db (expand-file-name "detached.db" detached-db-directory)))
(with-temp-file db
(insert (format ";; Detached Session Version: %s\n\n"
detached-session-version))
- [elpa] externals/dtache updated (02651e47d3 -> e38c9c7649), ELPA Syncer, 2022/05/20
- [elpa] externals/dtache 518317cc3e 07/16: Update comment, ELPA Syncer, 2022/05/20
- [elpa] externals/dtache a2761a0517 06/16: Update broken test, ELPA Syncer, 2022/05/20
- [elpa] externals/dtache 72c563bc96 08/16: Fix indentation, ELPA Syncer, 2022/05/20
- [elpa] externals/dtache 2fe1e6fb0d 13/16: Update initialization of sessions,
ELPA Syncer <=
- [elpa] externals/dtache 71028ba150 14/16: Fix incorrect function name, ELPA Syncer, 2022/05/20
- [elpa] externals/dtache e38c9c7649 16/16: Revert badges in README, ELPA Syncer, 2022/05/20
- [elpa] externals/dtache eefc2833b1 01/16: Update README, ELPA Syncer, 2022/05/20
- [elpa] externals/dtache 450c12ea0c 03/16: Rename all files, ELPA Syncer, 2022/05/20
- [elpa] externals/dtache f835ca1172 04/16: Update README, ELPA Syncer, 2022/05/20
- [elpa] externals/dtache 5a26fa0cb1 11/16: Fix broken command width, ELPA Syncer, 2022/05/20
- [elpa] externals/dtache 249e21f498 15/16: Fix too long docstring, ELPA Syncer, 2022/05/20
- [elpa] externals/dtache 2d33efdd9d 02/16: Rename dtache -> detached, ELPA Syncer, 2022/05/20
- [elpa] externals/dtache fa7aa42f43 05/16: Update CHANGELOG, ELPA Syncer, 2022/05/20
- [elpa] externals/dtache cbc8c8ae70 09/16: Minor update to README, ELPA Syncer, 2022/05/20