   "Format timeline of given DATE.
 DATE should be a string of the form %Y-%m-%d.  When called
 interactively, this date will be queried with `org-read-date’.
-The timeline will be formatted for this day, starting at 00:00
-and ending at 23:61.  When not given, FILES defaults to
+The timeline will be formatted for DATE starting at 00:00 and
+ending at 23:61.  When not given, FILES defaults to
 `org-agenda-files’."
   (interactive (list (org-read-date nil nil)))
   (db/org-format-timeline (concat date " 00:00")


  (START END MARKER),

where START, END, MARKER are as return from
`db/org-clocking-time-in-range’, which see.  Entries in the
resulting list are sorted by START, ascending."
  (let (timeline-of-files turned-around-timeline)


(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
called interactively, START and END are queried with
`org-read-date’."
  (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)))
