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

Fix format of taskwarrior entries

Browse source 
Handle that certain entries don't have a project.
This commit is contained in:
Patrick Winter 2018-10-23 21:32:01 +02:00
parent 8f24fd3dd3
commit df20f9d1c1
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
taskwarrior.el
View file

@ -8,15 +8,17 @@
(defgroup taskwarrior nil "An emacs frontend to taskwarrior.")
(defconst taskwarrior-mutating-commands '("add" "modify"))
(defvar taskwarrior-description 'taskwarrior-description
"Taskwarrior mode face used for tasks with a priority of C.")
(setq taskwarrior-highlight-regexps
`(("^[0-9]*" . font-lock-variable-name-face)
("(.*)" . font-lock-builtin-face)
("([0-9.]*?)" . font-lock-builtin-face)
("\\[.*\\]" . font-lock-preprocessor-face)
("[:space:].*:" . font-lock-function-name-face)))
(defvar taskwarrior-mode-map nil "Keymap for `taskwarrior-mode'")
(progn
(setq taskwarrior-mode-map (make-sparse-keymap))
@ -92,10 +94,10 @@ the front and focus it. Otherwise, create one and load the data."
(defun taskwarrior-write-entries ()
(let ((entries (append (taskwarrior-export "1-1000") nil)))
(dolist (entry entries)
(progn
(insert (format
"%-2d (%0.2f) %s: %s?\n"
(alist-get 'id entry)
(alist-get 'urgency entry)
(alist-get 'project entry)
(alist-get 'description entry)))))))
(let ((id (alist-get 'id entry))
(urgency (alist-get 'urgency entry))
(project (alist-get 'project entry))
(description (alist-get 'description entry)))
(insert (if project
(format "%-2d (%05.2f) [%s] %s?\n" id urgency project description)
(format "%-2d (%05.2f) %s?\n" id urgency description)))))))