Thelie/taskwarrior.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Refactor setting of an attribute into internal helper function

Browse source
This commit is contained in:
Patrick Winter 2018-11-04 21:13:32 +01:00
parent fe518663c2
commit 1ffe30ca10
1 changed files with 19 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
taskwarrior.el
View file

@ -79,22 +79,27 @@
(error "Seems like two task have the same id.")
(car task))))
(defun taskwarrior-change-description ()
(interactive)
(save-excursion
(let* ((id (taskwarrior-id-at-point))
(defun taskwarrior--change-attribute (attribute)
"Change an attribute of a task"
(let* ((prefix (concat (upcase attribute) ": "))
(id (taskwarrior-id-at-point))
(task (taskwarrior-export-task id))
(new-text (read-from-minibuffer "Description: " (alist-get 'description task))))
(taskwarrior--shell-command "modify" id new-text)
(taskwarrior-update-buffer))))
(defun taskwarrior-change-project (project)
(interactive "sProject: ")
(let ((filter (taskwarrior-id-at-point))
(modifications (concat "project:" project)))
(taskwarrior--shell-command "modify" filter modifications)
(key (make-symbol attribute))
(old-value (alist-get key task))
(new-value (read-from-minibuffer prefix old-value)))
(taskwarrior--shell-command "modify" id new-value)
(taskwarrior-update-buffer)))
(defun taskwarrior-change-description ()
"Change the description of a task"
(interactive)
(taskwarrior--change-attribute "description"))
(defun taskwarrior-change-project ()
"Change the project of a task"
(interactive)
(taskwarrior--change-attribute "project"))
(defun taskwarrior-add (description)
(interactive "sDescription: ")
(taskwarrior--shell-command "add" "" description))