[nongnu] elpa/hyperdrive 7d588375ac 3/3: Change: (hyperdrive-entry) Rename modified slot to mtime

[ELPA Syncer]

branch: elpa/hyperdrive
commit 7d588375ac611e864f1d718c0eae704c6da5dff3
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (hyperdrive-entry) Rename modified slot to mtime
---
 doc/hyperdrive-manual.org | 2 +-
 hyperdrive-dir.el         | 8 ++++----
 hyperdrive-history.el     | 6 +++---
 hyperdrive-lib.el         | 6 +++---
 hyperdrive-vars.el        | 4 ++--
 5 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/doc/hyperdrive-manual.org b/doc/hyperdrive-manual.org
index 8f5b1922ff..41065a5b75 100644
--- a/doc/hyperdrive-manual.org
+++ b/doc/hyperdrive-manual.org
@@ -471,7 +471,7 @@ customize-group RET hyperdrive RET~:
   sorted.  Internally, a cons cell of (KEY . PREDICATE), the KEY being
   the `hyperdrive-entry' accessor function and the PREDICATE being the
   appropriate function (e.g. `time-less-p' for
-  `hyperdrive-entry-modified', `<' for `hyperdrive-entry-size', etc).
+  `hyperdrive-entry-mtime', `<' for `hyperdrive-entry-size', etc).
 
 #+vindex: hyperdrive-history-display-buffer-action
 - ~hyperdrive-history-display-buffer-action~ :: Display buffer action
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 7d4d3370e8..9e35b3d109 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -130,7 +130,7 @@ Columns are suffixed with up/down arrows according to
        (setf size-arrow (pcase-exhaustive predicate
                           ('< "▲")
                           ('> "▼"))))
-      (`(hyperdrive-entry-modified . ,predicate)
+      (`(hyperdrive-entry-mtime . ,predicate)
        (setf date-arrow (pcase-exhaustive predicate
                           ('time-less-p "▲")
                           ((pred functionp) "▼")))))
@@ -153,14 +153,14 @@ To be used as the pretty-printer for `ewoc-create'."
 
 (defun hyperdrive-dir--format-entry (entry)
   "Return ENTRY formatted as a string."
-  (pcase-let* (((cl-struct hyperdrive-entry size modified) entry)
+  (pcase-let* (((cl-struct hyperdrive-entry size mtime) entry)
                (size (when size
                        (file-size-human-readable size)))
                (face (if (hyperdrive--entry-directory-p entry)
                          'hyperdrive-directory
                        'default))
-               (timestamp (if modified
-                              (format-time-string hyperdrive-timestamp-format 
modified)
+               (timestamp (if mtime
+                              (format-time-string hyperdrive-timestamp-format 
mtime)
                             (format hyperdrive-timestamp-format-string " "))))
     (format "%6s  %s  %s"
             (propertize (or size "")
diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index f0a2a88edf..30cc9e7de1 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -48,7 +48,7 @@ value 'UNKNOWN.
 and whose cdr is a hyperdrive entry."
   (pcase-let* ((`(,range . ,entry) range-entry)
                (`(,range-start . ,(map (:range-end range-end) (:existsp 
existsp))) range)
-               ((cl-struct hyperdrive-entry size modified) entry)
+               ((cl-struct hyperdrive-entry size mtime) entry)
                (formatted-range (if (eq range-start range-end)
                                     (format "%d" range-start)
                                   (format "%d-%d" range-start range-end)))
@@ -58,8 +58,8 @@ and whose cdr is a hyperdrive entry."
                                               ('unknown "Unknown"))))
                (size (when size
                        (file-size-human-readable size)))
-               (timestamp (if modified
-                              (format-time-string hyperdrive-timestamp-format 
modified)
+               (timestamp (if mtime
+                              (format-time-string hyperdrive-timestamp-format 
mtime)
                             (format hyperdrive-timestamp-format-string " "))))
     ;; FIXME: Use dynamic width of range column equal to 2N+1, where N
     ;; is the width of the hyperdrive's latest version
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index c9278c7b44..e39cbd1963 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -66,7 +66,7 @@ Passes ARGS to `format-message'."
   (name nil :documentation "Decoded filename of entry (excluding leading 
slash).")
   (path nil :documentation "Encoded path (including leading slash).")
   (headers nil :documentation "HTTP headers from request.")
-  (modified nil :documentation "Last modified time.")
+  (mtime nil :documentation "Last modified time.")
   (size nil :documentation "Size of file.")
   (version nil :documentation "Hyperdrive version specified in entry's URL.")
   (type nil :documentation "MIME type of the entry.")
@@ -446,7 +446,7 @@ the given `plz-queue'"
 
 The following ENTRY slots are filled:
 - type
-- modified
+- mtime
 - size
 - hyperdrive (from persisted value if it exists)
 
@@ -468,7 +468,7 @@ The following ENTRY hyperdrive slots are filled:
                                             (cl-parse-integer content-length)))
           (hyperdrive-entry-type entry) content-type
           ;; TODO: Rename slot to "mtime" to avoid confusion.
-          (hyperdrive-entry-modified entry) last-modified)
+          (hyperdrive-entry-mtime entry) last-modified)
     (if persisted-hyperdrive
         (progn
           ;; Ensure that entry's hyperdrive is the persisted
diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index 865d21bcd7..e51cf6616a 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -99,7 +99,7 @@ Passed to `display-buffer', which see."
 Internally, a cons cell of (KEY . PREDICATE), the KEY being the
 `hyperdrive-entry' accessor function and the PREDICATE being the
 appropriate function (e.g. `time-less-p' for
-`hyperdrive-entry-modified', `<' for `hyperdrive-entry-size',
+`hyperdrive-entry-mtime', `<' for `hyperdrive-entry-size',
 etc)."
   :type '(radio (cons :tag "By name" (const :format "" hyperdrive-entry-name)
                       (choice :tag "Direction" :value string<
@@ -109,7 +109,7 @@ etc)."
                       (choice :tag "Direction" :value <
                               (const :tag "Ascending" <)
                               (const :tag "Descending" >)))
-                (cons :tag "By date" (const :format "" 
hyperdrive-entry-modified)
+                (cons :tag "By date" (const :format "" hyperdrive-entry-mtime)
                       (choice :tag "Direction" :value time-less-p
                               (const :tag "Ascending" time-less-p)
                               (const :tag "Descending" (lambda (a b)