[elpa] externals/dtache b285ac5a0f 128/158: Update version schema for sessions

[ELPA Syncer]

branch: externals/dtache
commit b285ac5a0f1ae04b6bce9dc900615b709a06e4e8
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    Update version schema for sessions
    
    Use [package-version].[revision] as version for sessions. This makes
    the versioning aligned with the package. Then whenever the version of
    the package increases its time to deprecate the cache.
---
 dtache.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/dtache.el b/dtache.el
index 9f52cc98ff..cd9ed5e213 100644
--- a/dtache.el
+++ b/dtache.el
@@ -143,8 +143,9 @@ Valid values are: create, new and attach")
 (defvar dtache-metadata-annotators-alist nil
   "An alist of annotators for metadata.")
 
-(defconst dtache-session-version 1
-  "The version of `dtache-session'.")
+(defconst dtache-session-version "0.2.1"
+  "The version of `dtache-session'.
+This version is encoded as [package-version].[revision].")
 
 (defvar dtache-action-map
   (let ((map (make-sparse-keymap)))
@@ -954,17 +955,16 @@ Optionally make the path LOCAL to host."
         (insert-file-contents db)
         (cl-assert (eq (point) (point-min)))
         (goto-char (point-min))
-        (when (= (dtache--db-session-version) dtache-session-version)
+        (when (string= (dtache--db-session-version) dtache-session-version)
           (setq dtache--sessions
                 (read (current-buffer))))))))
 
 (defun dtache--db-session-version ()
   "Return `dtache-session-version' from database."
   (let ((header (thing-at-point 'line))
-        (regexp (rx "Dtache Session Version: " (group (one-or-more digit)))))
+        (regexp (rx "Dtache Session Version: " (group (one-or-more (or digit 
punct))))))
     (string-match regexp header)
-    (string-to-number
-     (match-string 1 header))))
+    (match-string 1 header)))
 
 (defun dtache--db-insert-entry (session)
   "Insert SESSION into `dtache--sessions' and update database."
@@ -998,7 +998,7 @@ Optionally make the path LOCAL to host."
   "Write `dtache--sessions' to database."
   (let ((db (expand-file-name "dtache.db" dtache-db-directory)))
     (with-temp-file db
-      (insert (format ";; Dtache Session Version: %d\n\n" 
dtache-session-version))
+      (insert (format ";; Dtache Session Version: %s\n\n" 
dtache-session-version))
       (prin1 dtache--sessions (current-buffer)))))
 
 ;;;;; Other