             (save-mark-and-excursion
              (funcall headline-fn)))))))))
 
++
+;; Reporting
+
+;; All of what follows should be available in org-mode somewhere, but doing it
+;; myself was more fun :)
+;; XXX: Find actual org-mode functions that do the stuff we are doing here
+
 (defun db/org-clocking-time-in-range (tstart tend)
-  "Return list of all tasks in the current buffer together with
-their clocking times that are between TSTART and TEND.  The
-resulting list consists of elements of the form
+  "Return tasks in current buffer between TSTART and TEND.
+
+The resulting list consists of elements of the form
 
   (MARKER . CLOCK-TIMES)
 

well.  The order of the entries in the resulting list will be
reversed of what it is in the subtree of MARKER."
  (when (not (markerp marker))
    (user-error "Marker not valid."))
  (let ((clock-lines nil))
    (save-mark-and-excursion
     (org-with-point-at marker

                                       (car clock-line) (cdr clock-line)))))

(provide 'timeline-tools)
;;; timeline-tools.el ends here
