Captialize prefix name in taskwarrior--change-attribute
This commit is contained in:
parent
30adb49e95
commit
d413061ee2
1 changed files with 6 additions and 6 deletions
|
@ -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."
|
||||||
|
|
Loading…
Reference in a new issue