 ;; All of what follows should be available in org-mode somewhere, but doing it
 ;; myself was faster and also more fun :)
 
+(defgroup timeline-reporting nil
+  "Functionality for formatting timelines."
+  :tag "Formatting timelines")
+
 (require 'dash)
 
 (defun db/org-map-clock-lines-and-entries (clockline-fn headline-fn)

                    heading)
      (match-string 4 heading))))

(defun db/org-format-timeline (tstart tend &optional files)
  "Display timeline of tasks in FILES between TSTART and TEND.
When not given, FILES defaults to `org-agenda-files’.  When

  (interactive (list (org-read-date nil nil nil "Start time: ")
                     (org-read-date nil nil nil "End time: ")))
  (let ((timeline (->> (db/org-timeline-in-range tstart tend files)
                       (db/org-skip-short-entries-in-timeline
                        timeline-short-task-threshold)
                       db/org-cluster-timeline-same-category)))
    (let ((target-buffer (get-buffer-create " *Org Timeline*")))
      (with-current-buffer target-buffer
