      (insert (format-time-string timestamp-format time-2))
      (org-clock-update-time-maybe))))
 
-(defun db/org-add-clocking-time (starting-time ending-time)
+(defun timeline-tools-insert-clockline-to-current-task (starting-time ending-time)
+  ;; XXX: this function has a similar name to the next one, but does something
+  ;; different
   "Add clock line from STARTING-TIME to ENDING-TIME to task under point."
   (interactive
    (list (org-read-date 4 'totime nil

                    (mapcar #'third cluster)))
            new-timeline)))

(defun db/org-skip-short-entries-in-timeline (threshold timeline)
  "Skip entries shorter than THRESHOLD in TIMELINE.

A slot is short if it is not longer than THRESHOLD seconds.

        (lambda ()))))
    clock-lines))

(defun timeline-tools-copy-clocklines (source-id target-id)
  "Copy clock lines from SOURCE-ID to TARGET-ID.

Both SOURCE-ID and TARGET-ID must designate known `org-mode’
