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

Display annotation count

Browse source
This commit is contained in:
Patrick Winter 2019-09-04 21:27:21 +02:00
parent 188692cd8d
commit 75a7e3f147
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
taskwarrior.el
View file

@ -216,10 +216,11 @@
(let* ((id (format "%s" (alist-get 'id entry))) (let* ((id (format "%s" (alist-get 'id entry)))
(urgency (format "%0.2f" (alist-get 'urgency entry))) (urgency (format "%0.2f" (alist-get 'urgency entry)))
(priority (format " %s " (or (alist-get 'priority entry) ""))) (priority (format " %s " (or (alist-get 'priority entry) "")))
(annotations (format "%d" (length (or (alist-get 'annotations entry) '()))))
(project (or (format "%s" (alist-get 'project entry)) "")) (project (or (format "%s" (alist-get 'project entry)) ""))
(tags (or (taskwarrior--concat-tag-list (alist-get 'tags entry)) "")) (tags (or (taskwarrior--concat-tag-list (alist-get 'tags entry)) ""))
(description (format "%s" (alist-get 'description entry)))) (description (format "%s" (alist-get 'description entry))))
`(,id [,id ,urgency ,priority ,project ,tags ,description]))) `(,id [,id ,urgency ,priority ,annotations ,project ,tags ,description])))
(vector-to-list (vector-to-list
(json-read-from-string (json-read-from-string
(taskwarrior--shell-command "export" "id.not:0"))))) (taskwarrior--shell-command "export" "id.not:0")))))
@ -353,6 +354,7 @@
`[("Id" 3 nil) `[("Id" 3 nil)
("Urg" 6 taskwarrior--urgency-predicate) ("Urg" 6 taskwarrior--urgency-predicate)
("Pri" 3 nil) ("Pri" 3 nil)
("Ann" 3 nil)
("Project" 15 nil) ("Project" 15 nil)
("Tags" 15 nil) ("Tags" 15 nil)
("Description" 100 nil)]) ("Description" 100 nil)])