branch: elpa/hyperdrive
commit 0478d218275b78801c091a6a29fc6cc75bc9d5b6
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
WIP
---
hyperdrive-vars.el | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index 6f48943512..08e4f09159 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -102,9 +102,16 @@ Internally, a cons cell of (KEY . PREDICATE), the KEY
being the
appropriate function (e.g. `time-less-p' for
`hyperdrive-entry-modified', `<' for `hyperdrive-entry-size',
etc)."
- :type '(choice (const :tag "By name" (hyperdrive-entry-name . string<))
- (const :tag "By size" (hyperdrive-entry-size . <))
- (const :tag "By date" (hyperdrive-entry-modified .
time-less-p)))
+ :type '(choice (cons :tag "By name" (const hyperdrive-entry-name)
+ (choice (const :tag "Ascending" string<)
+ (const :tag "Descending" string>)))
+ (cons :tag "By size" (const hyperdrive-entry-size)
+ (choice (const :tag "Ascending" <)
+ (const :tag "Descending" >)))
+ (cons :tag "By date" (const hyperdrive-entry-modified)
+ (choice (const :tag "Ascending" time-less-p)
+ (const :tag "Descending" (lambda (a b)
+ (not (time-less-p a
b)))))))
:group 'hyperdrive)
(defcustom hyperdrive-history-display-buffer-action
