From e4893fe52e80cb01bd274a24f9522746b424023d Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 7 Jan 2018 17:17:54 +0100 Subject: [PATCH] [Org] Minor changes for main timeline formatting function --- site-lisp/db-org.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index a8a46c5..85c4549 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -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 |||||")))