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

[Org] Add customization for timeline reporting

Browse Source
This commit is contained in:
Daniel Borchmann 2018-01-07 17:28:20 +01:00
parent e4893fe52e
commit 3d283d600f
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -938,6 +938,10 @@ Current Task: %`org-clock-current-task; "
;; All of what follows should be available in org-mode somewhere, but doing it ;; All of what follows should be available in org-mode somewhere, but doing it
;; myself was faster and also more fun :) ;; myself was faster and also more fun :)
(defgroup timeline-reporting nil
"Functionality for formatting timelines."
:tag "Formatting timelines")
(require 'dash) (require 'dash)
(defun db/org-map-clock-lines-and-entries (clockline-fn headline-fn) (defun db/org-map-clock-lines-and-entries (clockline-fn headline-fn)
@ -1095,6 +1099,11 @@ Resulting gaps are distributed evenly among adjacent slots."
heading) heading)
(match-string 4 heading)))) (match-string 4 heading))))
(defcustom timeline-short-task-threshold 300
"Duration of task to be considered as short."
:group 'timeline-reporting
:type 'integer)
(defun db/org-format-timeline (tstart tend &optional files) (defun db/org-format-timeline (tstart tend &optional files)
"Display timeline of tasks in FILES between TSTART and TEND. "Display timeline of tasks in FILES between TSTART and TEND.
When not given, FILES defaults to `org-agenda-files’. When When not given, FILES defaults to `org-agenda-files’. When
@ -1103,7 +1112,8 @@ called interactively, START and END are queried with
(interactive (list (org-read-date nil nil nil "Start time: ") (interactive (list (org-read-date nil nil nil "Start time: ")
(org-read-date nil nil nil "End time: "))) (org-read-date nil nil nil "End time: ")))
(let ((timeline (->> (db/org-timeline-in-range tstart tend files) (let ((timeline (->> (db/org-timeline-in-range tstart tend files)
(db/org-skip-short-entries-in-timeline 300) (db/org-skip-short-entries-in-timeline
timeline-short-task-threshold)
db/org-cluster-timeline-same-category))) db/org-cluster-timeline-same-category)))
(let ((target-buffer (get-buffer-create " *Org Timeline*"))) (let ((target-buffer (get-buffer-create " *Org Timeline*")))
(with-current-buffer target-buffer (with-current-buffer target-buffer