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

Add function to edit task description

Browse source
This commit is contained in:
Patrick Winter 2018-10-31 20:13:24 +01:00
parent f337de88cf
commit da690024d8
1 changed files with 19 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
taskwarrior.el
View file

@ -27,6 +27,7 @@
(define-key taskwarrior-mode-map (kbd "n") 'next-line) (define-key taskwarrior-mode-map (kbd "n") 'next-line)
(define-key taskwarrior-mode-map (kbd "j") 'next-line) (define-key taskwarrior-mode-map (kbd "j") 'next-line)
(define-key taskwarrior-mode-map (kbd "q") 'quit-window) (define-key taskwarrior-mode-map (kbd "q") 'quit-window)
(define-key taskwarrior-mode-map (kbd "e") 'taskwarrior-change-description)
(define-key taskwarrior-mode-map (kbd "u") 'taskwarrior-update-buffer) (define-key taskwarrior-mode-map (kbd "u") '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 "p") 'taskwarrior-change-project)) (define-key taskwarrior-mode-map (kbd "p") 'taskwarrior-change-project))
@ -54,12 +55,27 @@
"Load tasks into buffer-local variable" "Load tasks into buffer-local variable"
(setq-local taskwarrior-tasks (taskwarrior-export filter))) (setq-local taskwarrior-tasks (taskwarrior-export filter)))
(defun taskwarrior-change-project (project) (defun taskwarrior-export-task (id)
(let ((task (vector-to-list
(json-read-from-string
(taskwarrior--shell-command "export" (concat "id:" id))))))
(if (< (length task) 1)
(error "Seems like two task have the same id.")
(car task))))
(defun taskwarrior-change-description ()
(interactive)
(save-excursion
(let* ((id (taskwarrior-id-at-point))
(new-text (read-from-minibuffer "Description: " (alist-get 'description (taskwarrior-export-task id)))))
(taskwarrior--shell-command "modify" id new-text)
(taskwarrior-update-buffer))))
(defun taskwarrior-changetaskwarrior-project (project)
(interactive "sProject: ") (interactive "sProject: ")
(let ((filter (taskwarrior-id-at-point)) (let ((filter (taskwarrior-id-at-point))
(command "modify")
(modifications (concat "project:" project))) (modifications (concat "project:" project)))
(taskwarrior--shell-command command filter modifications))) (taskwarrior--shell-command "modify" filter modifications)))
(defun taskwarrior-add (description) (defun taskwarrior-add (description)
(interactive "sDescription: ") (interactive "sDescription: ")