[Org] Minor changes for main timeline formatting function
This commit is contained in:
parent
c8d5bb24e1
commit
e4893fe52e
|
@ -1110,7 +1110,7 @@ called interactively, START and END are queried with
|
||||||
(erase-buffer)
|
(erase-buffer)
|
||||||
(org-mode)
|
(org-mode)
|
||||||
(insert "|--|\n")
|
(insert "|--|\n")
|
||||||
(insert "| Category | Start | End | Duration | Task |\n")
|
(insert "| Category | Start | End | Duration | Task |\n")
|
||||||
(insert "|--|\n")
|
(insert "|--|\n")
|
||||||
(dolist (cluster timeline)
|
(dolist (cluster timeline)
|
||||||
(cl-destructuring-bind (start end markers) cluster
|
(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" start)
|
||||||
(format-time-string "%Y-%m-%d %H:%M" end)
|
(format-time-string "%Y-%m-%d %H:%M" end)
|
||||||
(floor (/ (- end start) 60))))
|
(floor (/ (- end start) 60))))
|
||||||
|
;; insert headline line by line, but only once
|
||||||
(dolist (headline (->> (mapcar #'db/org-get-headline markers)
|
(dolist (headline (->> (mapcar #'db/org-get-headline markers)
|
||||||
-uniq
|
-uniq
|
||||||
(-interpose "|\n |||||")))
|
(-interpose "|\n |||||")))
|
||||||
|
|
Loading…
Reference in New Issue