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

Display tags in task list

Browse source
This commit is contained in:
Patrick Winter 2019-05-20 15:20:34 +02:00
parent 4975d5fd7e
commit 19c2e08799
1 changed files with 16 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
taskwarrior.el
View file

@ -19,11 +19,12 @@
"Taskwarrior mode face used for tasks with a priority of C.") "Taskwarrior mode face used for tasks with a priority of C.")
(setq taskwarrior-highlight-regexps (setq taskwarrior-highlight-regexps
`(("^\\*.*$" . font-lock-variable-name-face) `(("^\\*.*$" . font-lock-variable-name-face)
("^ [0-9]*" . font-lock-variable-name-face) ("^ [0-9]*" . font-lock-variable-name-face)
("([0-9.]*?)" . font-lock-builtin-face) ("([0-9.]*?)" . font-lock-builtin-face)
("\\[.*\\]" . font-lock-preprocessor-face) ("\\+[a-zA-Z0-9\\-_]+" . font-lock-doc-face)
("[:space:].*:" . font-lock-function-name-face))) ("\\[.*\\]" . font-lock-preprocessor-face)
("[:space:].*:" . font-lock-function-name-face)))
(defvar taskwarrior-mode-map nil "Keymap for `taskwarrior-mode'") (defvar taskwarrior-mode-map nil "Keymap for `taskwarrior-mode'")
(progn (progn
@ -267,19 +268,19 @@ the front and focus it. Otherwise, create one and load the data."
(defun taskwarrior-write-entries () (defun taskwarrior-write-entries ()
(let ((entries (taskwarrior--sort-by-urgency taskwarrior-tasks))) (let ((entries (taskwarrior--sort-by-urgency taskwarrior-tasks)))
(dolist (entry entries) (dolist (entry entries)
(let* ((id (alist-get 'id entry)) (let* ((id (format "%-2d" (alist-get 'id entry)))
(urgency (alist-get 'urgency entry)) (urgency (format "(%05.2f)" (alist-get 'urgency entry)))
(project (alist-get 'project entry)) (tags (format "%s" (taskwarrior--concat-tag-list (alist-get 'tags entry))))
(project-max-length (taskwarrior--get-max-length 'project entries)) (project (format "[%s]" (alist-get 'project entry)))
(project-spacing (- project-max-length (length project))) ;; (project-max-length (taskwarrior--get-max-length 'project entries))
;; (project-spacing (- project-max-length (length project)))
(description (alist-get 'description entry))) (description (alist-get 'description entry)))
(insert (if project (insert (concat " " id " " urgency " " project " " tags " " description "\n"))))))
(format (concat " %-2d (%05.2f) [%s]%-" (number-to-string project-spacing) "s %s\n") id urgency project "" description)
(format
(concat " %-2d (%05.2f) %-" (number-to-string (+ 3 project-max-length)) "s%s\n")
id urgency "" description)))))))
(defun taskwarrior--concat-tag-list (tags)
(mapconcat (function (lambda (x) (format "+%s" x))) (vector-to-list tags) " "))
(defun taskwarrior--parse-timestamp (ts) (defun taskwarrior--parse-timestamp (ts)
"Turn the taskwarrior timestamp into a readable format" "Turn the taskwarrior timestamp into a readable format"
(if (not ts) (if (not ts)