Fix id filter taskwarrior-export with temporary workaround

This commit is contained in:
Patrick Winter 2018-10-02 18:09:34 +02:00
parent 77240a8751
commit 5164517e09

View file

@ -2,6 +2,7 @@
;; ;;
;; TODO: Implement modeline indicator for deadline and entries ;; TODO: Implement modeline indicator for deadline and entries
;; TODO: Update buffer if command modifies the state ;; TODO: Update buffer if command modifies the state
;; TODO: Extract "1-1000" id filter into variable
(require 'json) (require 'json)
@ -42,10 +43,8 @@
(defun taskwarrior-export (filter) (defun taskwarrior-export (filter)
"Export taskwarrior entries as JSON" "Export taskwarrior entries as JSON"
(let ((filter (concat "id " filter))
(command "export"))
(json-read-from-string (json-read-from-string
(taskwarrior--shell-command command filter)))) (taskwarrior--shell-command "export" filter)))
(defun taskwarrior-change-project (project) (defun taskwarrior-change-project (project)
(interactive "sProject: ") (interactive "sProject: ")
@ -86,7 +85,7 @@ the front and focus it. Otherwise, create one and load the data."
(forward-char))))) (forward-char)))))
(defun taskwarrior-write-entries () (defun taskwarrior-write-entries ()
(let ((entries (append (taskwarrior-export "context:personal") nil))) (let ((entries (append (taskwarrior-export "1-1000") nil)))
(dolist (entry entries) (dolist (entry entries)
(progn (progn
(insert (format (insert (format