dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Org] Minor changes for main timeline formatting function

This commit is contained in:
Daniel - 2018-01-07 17:17:54 +01:00
parent c8d5bb24e1
commit e4893fe52e
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
site-lisp/db-org.el
View File

@ -1110,7 +1110,7 @@ called interactively, START and END are queried with
(erase-buffer)
(org-mode)
(insert "|--|\n")
(insert "| Category | Start | End | Duration | Task |\n")
(insert "| Category | Start | End | Duration | Task |\n")
(insert "|--|\n")
(dolist (cluster timeline)
(cl-destructuring-bind (start end markers) cluster
@ -1119,6 +1119,7 @@ called interactively, START and END are queried with
(format-time-string "%Y-%m-%d %H:%M" start)
(format-time-string "%Y-%m-%d %H:%M" end)
(floor (/ (- end start) 60))))
;; insert headline line by line, but only once
(dolist (headline (->> (mapcar #'db/org-get-headline markers)
-uniq
(-interpose "|\n |||||")))