branch: externals/tmr
commit e3ff16c6856c0efe02821c01745dfd21a623c347
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Add tmr-timer completion category
The category makes it possible to use Embark in the completing-read
interface.
Furthermore disable sorting in the completing-read interface such that the
newest timers appear at the top.
---
tmr.el | 31 +++++++++++++++++++------------
1 file changed, 19 insertions(+), 12 deletions(-)
diff --git a/tmr.el b/tmr.el
index c1ab8945f0..521f7d0e25 100644
--- a/tmr.el
+++ b/tmr.el
@@ -300,7 +300,11 @@ completion candidates."
(lambda (x)
(cons (funcall formatter x) x))
timers)))
- (cdr (assoc (completing-read "Timer: " timer-alist nil t)
timer-alist)))))))
+ (cdr (assoc (completing-read
+ "Timer: "
+ (tmr--completion-table timer-alist 'tmr-timer)
+ nil t)
+ timer-alist)))))))
;; NOTE 2022-04-21: Emacs has a `play-sound' function but it only
;; supports .wav and .au formats. Also, it does not work on all
@@ -356,17 +360,11 @@ If optional DEFAULT is provided use it as a default
candidate."
(if default
(format "Description for this tmr [%s]: " default)
"Description for this tmr: ")
- (lambda (string predicate action)
- (if (eq action 'metadata)
- `(metadata (display-sort-function . ,#'identity)
- (cycle-sort-function . ,#'identity))
- (complete-with-action action
- (if (listp tmr-description-list)
- tmr-description-list
- (symbol-value tmr-description-list))
- string predicate)))
- nil nil nil
- 'tmr-description-history default))
+ (tmr--completion-table
+ (if (listp tmr-description-list)
+ tmr-description-list
+ (symbol-value tmr-description-list)))
+ nil nil nil 'tmr-description-history default))
(defun tmr--complete (timer)
"Mark TIMER as finished and execute `tmr-timer-finished-functions'."
@@ -446,5 +444,14 @@ Without a PROMPT, clone TIMER outright."
(tmr--description-prompt (tmr--timer-description timer))
(tmr--timer-description timer))))
+(defun tmr--completion-table (candidates &optional category)
+ "Return completion table for CANDIDATES of CATEGORY with sorting disabled."
+ (lambda (str pred action)
+ (if (eq action 'metadata)
+ `(metadata (display-sort-function . identity)
+ (cycle-sort-function . identity)
+ (category . ,category))
+ (complete-with-action action candidates str pred))))
+
(provide 'tmr)
;;; tmr.el ends here
