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

Align description relative to max project width

Browse source
This commit is contained in:
Patrick Winter 2019-01-15 20:45:30 +01:00
parent e91c0e4970
commit ce8bae17cd
1 changed files with 17 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
taskwarrior.el
View file

@ -209,16 +209,27 @@ the front and focus it. Otherwise, create one and load the data."
"Convert a vector to a list" "Convert a vector to a list"
(append vector nil)) (append vector nil))
(defun taskwarrior--get-max-length (key lst)
"Get the length of the longst element in a list"
(apply 'max
(-map 'length
(-map (-partial 'alist-get key) lst))))
(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 (alist-get 'id entry))
(urgency (alist-get 'urgency entry)) (urgency (alist-get 'urgency entry))
(project (alist-get 'project entry)) (project (alist-get 'project entry))
(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 (if project
(format "%-2d (%05.2f) [%s] %s\n" id urgency project description) (format (concat "%-2d (%05.2f) [%s]%-" (number-to-string project-spacing) "s %s\n") id urgency project "" description)
(format "%-2d (%05.2f) %s\n" id urgency description))))))) (format
(concat "%-2d (%05.2f) %-" (number-to-string (+ 3 project-max-length)) "s%s\n")
id urgency "" description)))))))
(defun taskwarrior--parse-timestamp (ts) (defun taskwarrior--parse-timestamp (ts)