   (let ((new-start (float-time start))
         (new-end   (float-time end)))
     (with-current-buffer (marker-buffer target-marker)
-      (db/org-map-clock-lines-and-entries
+      (timeline-tools-map-clock-lines-and-entries
        (lambda (timestamp-1 timestamp-2)
          (let ((current-start (float-time
                                (apply #'encode-time

                            (format-time-string "%Y-%m-%d %H:%M" end)
                            (floor (/ (- end start) 60))))
            ;; insert headline line by line, but only once
            (dolist (headline (->> (mapcar #'db/org-get-headline markers)
                                   -uniq
                                   (-interpose "|\n |||||")))
              (insert headline))

;; myself was more fun :)
;; XXX: Find actual org-mode functions that do the stuff we are doing here

(defun timeline-tools-clocklines-in-range (tstart tend)
  "Return tasks in current buffer between TSTART and TEND.

The resulting list consists of elements of the form
