From a513a3fd92f31fc968b71e11eb3f3d23ceffb27b Mon Sep 17 00:00:00 2001 From: Patrick Winter Date: Wed, 22 May 2019 21:49:31 +0200 Subject: [PATCH] Add auto completion to priority selection --- taskwarrior.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/taskwarrior.el b/taskwarrior.el index e69e7bd..75fcfec 100644 --- a/taskwarrior.el +++ b/taskwarrior.el @@ -72,7 +72,7 @@ (define-key taskwarrior-mode-map (kbd "j") 'taskwarrior-next-task) (define-key taskwarrior-mode-map (kbd "q") 'quit-window) (define-key taskwarrior-mode-map (kbd "e") 'taskwarrior-change-description) - (define-key taskwarrior-mode-map (kbd "U") 'taskwarrior-change-priority) + (define-key taskwarrior-mode-map (kbd "U") 'taskwarrior-edit-priority) (define-key taskwarrior-mode-map (kbd "g") 'taskwarrior-update-buffer) (define-key taskwarrior-mode-map (kbd "a") 'taskwarrior-add) (define-key taskwarrior-mode-map (kbd "d") 'taskwarrior-done) @@ -258,10 +258,13 @@ (interactive) (taskwarrior--change-attribute "description")) -(defun taskwarrior-change-priority () +(defun taskwarrior-edit-priority () "Change the priority of a task" (interactive) - (taskwarrior--change-attribute "priority")) + (let* ((id (taskwarrior-id-at-point)) + (options '("" "H" "M" "L")) + (new (completing-read "Priority: " options))) + (taskwarrior--mutable-shell-command "modify" id (concat "priority:" new)))) (defun taskwarrior-add (description) (interactive "sDescription: ")