[Org] Adapt report formatting
This commit is contained in:
parent
1b6018dd84
commit
5a68daa8e3
|
@ -1066,14 +1066,15 @@ When not given, FILES defaults to `org-agenda-files’."
|
||||||
(erase-buffer)
|
(erase-buffer)
|
||||||
(org-mode)
|
(org-mode)
|
||||||
(insert "|--|\n")
|
(insert "|--|\n")
|
||||||
(insert "| Category | Start | End | Task |\n")
|
(insert "| Category | Start | End | Duration | Task |\n")
|
||||||
(insert "|--|\n")
|
(insert "|--|\n")
|
||||||
(dolist (entry timeline)
|
(dolist (entry timeline)
|
||||||
(cl-destructuring-bind (start end marker) entry
|
(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")
|
(org-entry-get marker "CATEGORY")
|
||||||
(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))
|
||||||
(save-match-data
|
(save-match-data
|
||||||
(let* ((heading (save-mark-and-excursion
|
(let* ((heading (save-mark-and-excursion
|
||||||
(with-current-buffer (marker-buffer marker)
|
(with-current-buffer (marker-buffer marker)
|
||||||
|
|
Loading…
Reference in New Issue