branch: externals/dtache
commit 6897a0e67d2a2ca6c8ab729e25e398c17a7b4a0e
Author: Niklas Eklund <[email protected]>
Commit: Niklas Eklund <[email protected]>
Finalize completion implementation
---
dtache.el | 19 +++++++++----------
1 file changed, 9 insertions(+), 10 deletions(-)
diff --git a/dtache.el b/dtache.el
index 1b725e98be..84e61cd51b 100644
--- a/dtache.el
+++ b/dtache.el
@@ -243,15 +243,15 @@ cluttering the comint-history with dtach commands."
(let* ((sessions (dtache--sessions))
(selected
(completing-read "Select session: "
- (lambda (string pred action)
- (if (eq action 'metadata)
- '(metadata (category . dtache)
- (cycle-sort-function . identity)
- (display-sort-function . identity))
- ;; TODO: Tweak this and implement full
- ;; programable completion
- (complete-with-action
- action sessions string pred)))
+ (lambda (str pred action)
+ (pcase action
+ ('metadata '(metadata (category . dtache)
+ (cycle-sort-function .
identity)
+ (display-sort-function .
identity)))
+ (`(boundaries . ,_) nil)
+ ('nil (try-completion str sessions pred))
+ ('t (all-completions str sessions pred))
+ (_ (test-completion str sessions pred))))
nil t nil 'dtache-session-history)))
(dtache-session-decode selected)))
@@ -339,7 +339,6 @@ cluttering the comint-history with dtach commands."
(defun dtache-session--update (session)
"Update the `dtache' SESSION."
- ;; TODO: Make this function private
(setf (dtache--session-active session) (dtache--session-active-p session))
(setf (dtache--session-duration session) (dtache--duration session))
(setf (dtache--session-log-size session) (file-attribute-size
