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

Add ability to add annotations to tasks

Browse source
This commit is contained in:
Patrick Winter 2019-09-01 21:44:17 +02:00
parent 214ad5cab3
commit 0c8ec9d3aa
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
taskwarrior.el
View file

@ -78,6 +78,7 @@
(define-key taskwarrior-mode-map (kbd "U") 'taskwarrior-edit-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 "g") 'taskwarrior-update-buffer)
(define-key taskwarrior-mode-map (kbd "a") 'taskwarrior-add) (define-key taskwarrior-mode-map (kbd "a") 'taskwarrior-add)
(define-key taskwarrior-mode-map (kbd "A") 'taskwarrior-annotate)
(define-key taskwarrior-mode-map (kbd "d") 'taskwarrior-done) (define-key taskwarrior-mode-map (kbd "d") 'taskwarrior-done)
(define-key taskwarrior-mode-map (kbd "l") 'taskwarrior-load-profile) (define-key taskwarrior-mode-map (kbd "l") 'taskwarrior-load-profile)
(define-key taskwarrior-mode-map (kbd "o") 'taskwarrior-open-annotation) (define-key taskwarrior-mode-map (kbd "o") 'taskwarrior-open-annotation)
@ -300,6 +301,12 @@
(when confirmation (when confirmation
(taskwarrior--mutable-shell-command "delete" id "" "" "yes")))) (taskwarrior--mutable-shell-command "delete" id "" "" "yes"))))
(defun taskwarrior-annotate (annotation)
"Delete current task."
(interactive "sAnnotation: ")
(let ((id (taskwarrior-id-at-point)))
(taskwarrior--mutable-shell-command "annotate" id annotation)))
(defun taskwarrior--mutable-shell-command (command &optional filter modifications misc confirm) (defun taskwarrior--mutable-shell-command (command &optional filter modifications misc confirm)
"Run shell command and restore taskwarrior buffer." "Run shell command and restore taskwarrior buffer."
(let ((line-number (line-number-at-pos))) (let ((line-number (line-number-at-pos)))