 `org-read-date’."
   (interactive (list (org-read-date nil nil nil "Start time: ")
                      (org-read-date nil nil nil "End time: ")))
-  (let ((timeline (->> (timeline-tools-timeline-in-range tstart tend files)
+  (let ((timeline (->> (timeline-tools-timeline tstart tend files)
                        (timeline-tools-skip-short-entries
                         timeline-tools-short-task-threshold)
                        timeline-tools-cluster-same-category)))

      (display-buffer target-buffer)
      t)))

(defun timeline-tools-timeline-of-day (date &optional files)
  "Format timeline of given DATE.

DATE should be a string of the form %Y-%m-%d.  When called

    (save-mark-and-excursion
     (org-with-point-at marker
       (org-narrow-to-subtree)
       (timeline-tools-map-clocklines
        (lambda (start end)
          (push (cons (org-time-string-to-seconds start)
                      (org-time-string-to-seconds end))
