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

Fix deletion of tasks

Browse source
This commit is contained in:
Patrick Winter 2019-01-16 19:46:37 +01:00
parent ce8bae17cd
commit 888dd38a40
1 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
taskwarrior.el
View file

@ -86,12 +86,18 @@
(taskwarrior--set-filter new-filter)
(taskwarrior-update-buffer new-filter))))
(defun taskwarrior--shell-command (command &optional filter modifications miscellaneous)
(let ((cmd (format "task %s %s %s %s"
(or filter "")
command
(or modifications "")
(or miscellaneous ""))))
(shell-command-to-string "echo yes | task 34 delete")
(defun taskwarrior--shell-command (command &optional filter modifications miscellaneous confirm)
(let* ((confirmation (if confirm (concat "echo " confirm " |") ""))
(cmd (format "%s task %s %s %s %s"
(or confirmation "")
(or filter "")
(or command "")
(or modifications "")
(or miscellaneous ""))))
(progn
(message cmd)
(shell-command-to-string cmd))))
@ -155,9 +161,7 @@
(let ((id (taskwarrior-id-at-point))
(confirmation (read-from-minibuffer "Delete [y/n]?: ")))
(when (string= confirmation "y")
(taskwarrior--shell-command "config" "" "confirmation off")
(message (taskwarrior--shell-command "delete" id))
(taskwarrior--shell-command "config" "" "confirmation on")
(message (taskwarrior--shell-command "delete" id "" "" "yes"))
(taskwarrior-update-buffer))))
;; Setup a major mode for taskwarrior