emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive 5f1d617ae1 11/30: Change: (hyperdrive-dir-sort-


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 5f1d617ae1 11/30: Change: (hyperdrive-dir-sort-fields) Add description
Date: Wed, 6 Sep 2023 18:59:43 -0400 (EDT)

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

    Change: (hyperdrive-dir-sort-fields) Add description
---
 hyperdrive-vars.el | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index 574fc45ec9..3dd5e29173 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -295,9 +295,18 @@ values are alists mapping version range starts to plists 
with
 Keys are regexps matched against MIME types.")
 
 (defvar hyperdrive-dir-sort-fields
-  '((name  :accessor hyperdrive-entry-name  :ascending string<     :descending 
string>)
-    (size  :accessor hyperdrive-entry-size  :ascending <           :descending 
>)
-    (mtime :accessor hyperdrive-entry-mtime :ascending time-less-p :descending 
hyperdrive-time-greater-p))
+  '((size  :accessor hyperdrive-entry-size
+           :ascending <
+           :descending >
+           :desc "Size")
+    (mtime :accessor hyperdrive-entry-mtime
+           :ascending time-less-p
+           :descending hyperdrive-time-greater-p
+           :desc "Last Modified")
+    (name  :accessor hyperdrive-entry-name
+           :ascending string<
+           :descending string>
+           :desc "Name"))
   "Fields for sorting hyperdrive directory buffer columns.")
 
 ;;;; Footer



reply via email to

[Prev in Thread] Current Thread [Next in Thread]