From 5a68daa8e39b2a60c937dde7de4dc811429ed16e Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 2 Dec 2017 21:57:45 +0100 Subject: [PATCH] [Org] Adapt report formatting --- site-lisp/db-org.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 5e01881..b37758a 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -1066,14 +1066,15 @@ When not given, FILES defaults to `org-agenda-files’." (erase-buffer) (org-mode) (insert "|--|\n") - (insert "| Category | Start | End | Task |\n") + (insert "| Category | Start | End | Duration | Task |\n") (insert "|--|\n") (dolist (entry timeline) (cl-destructuring-bind (start end marker) entry - (insert (format "| %s | %s | %s | %s |\n" + (insert (format "| %s | %s | %s | %s min | %s | \n" (org-entry-get marker "CATEGORY") (format-time-string "%Y-%m-%d %H:%M" start) (format-time-string "%Y-%m-%d %H:%M" end) + (floor (/ (- end start) 60)) (save-match-data (let* ((heading (save-mark-and-excursion (with-current-buffer (marker-buffer marker)