Captialize prefix name in taskwarrior--change-attribute

This commit is contained in:
Patrick Winter 2019-11-05 20:16:06 +01:00
parent 30adb49e95
commit d413061ee2

View file

@ -290,13 +290,13 @@
(defun taskwarrior--change-attribute (attribute) (defun taskwarrior--change-attribute (attribute)
"Change an ATTRIBUTE of a task." "Change an ATTRIBUTE of a task."
(let* ((prefix (concat attribute ":")) (let* ((prefix (format "%s: " (capitalize attribute)))
(id (taskwarrior-id-at-point)) (id (taskwarrior-id-at-point))
(task (taskwarrior-export-task id)) (task (taskwarrior-export-task id))
(old-value (cdr (assoc-string attribute task))) (old (cdr (assoc-string attribute task)))
(new-value (read-from-minibuffer (concat prefix " ") old-value)) (new (read-from-minibuffer prefix old))
(quoted-value (concat "\"" new-value "\""))) (escaped (format "%s:\"%s\"" attribute new)))
(taskwarrior--mutable-shell-command "modify" id (concat prefix quoted-value)))) (taskwarrior--mutable-shell-command "modify" id escaped)))
(defun taskwarrior-edit-tags () (defun taskwarrior-edit-tags ()
"Edit tags on task." "Edit tags on task."