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

Merge branch 'master' of github.com:winpat/taskwarrior.el

Browse source
This commit is contained in:
Patrick Winter 2019-04-15 14:48:52 +02:00
commit 2790a34b00
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
taskwarrior.el
View file

@ -33,6 +33,7 @@
(define-key taskwarrior-mode-map (kbd "j") 'taskwarrior-next-task) (define-key taskwarrior-mode-map (kbd "j") 'taskwarrior-next-task)
(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 "e") 'taskwarrior-change-description)
(define-key taskwarrior-mode-map (kbd "U") 'taskwarrior-change-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 "d") 'taskwarrior-done) (define-key taskwarrior-mode-map (kbd "d") 'taskwarrior-done)
@ -110,10 +111,6 @@
(taskwarrior--set-filter new-filter) (taskwarrior--set-filter new-filter)
(taskwarrior-update-buffer new-filter)))) (taskwarrior-update-buffer new-filter))))
(shell-command-to-string "echo yes | task 34 delete")
(defun taskwarrior--shell-command (command &optional filter modifications miscellaneous confirm) (defun taskwarrior--shell-command (command &optional filter modifications miscellaneous confirm)
(let* ((confirmation (if confirm (concat "echo " confirm " |") "")) (let* ((confirmation (if confirm (concat "echo " confirm " |") ""))
(cmd (format "%s task %s %s %s %s" (cmd (format "%s task %s %s %s %s"
@ -150,15 +147,20 @@
(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-value (cdr (assoc-string attribute task)))
(new-value (read-from-minibuffer (concat prefix " ") old-value))) (new-value (read-from-minibuffer (concat prefix " ") old-value))
(taskwarrior--shell-command "modify" id (concat prefix new-value)) (quoted-value (concat "\"" new-value "\"")))
(taskwarrior-update-buffer))) (taskwarrior--mutable-shell-command "modify" id (concat prefix quoted-value))))
(defun taskwarrior-change-description () (defun taskwarrior-change-description ()
"Change the description of a task" "Change the description of a task"
(interactive) (interactive)
(taskwarrior--change-attribute "description")) (taskwarrior--change-attribute "description"))
(defun taskwarrior-change-priority ()
"Change the priority of a task"
(interactive)
(taskwarrior--change-attribute "priority"))
(defun taskwarrior-change-project () (defun taskwarrior-change-project ()
"Change the project of a task" "Change the project of a task"
(interactive) (interactive)
@ -278,5 +280,3 @@ the front and focus it. Otherwise, create one and load the data."
(global-set-key (kbd "C-x t") 'taskwarrior) (global-set-key (kbd "C-x t") 'taskwarrior)
(taskwarrior--set-filter "project:pro5")
(message (car taskwarrior-active-filters))