     (save-mark-and-excursion
      (org-clock-find-position nil)
      (open-line 1)
-     (db/org-insert-clockline starting-time ending-time))))
-
-(bind-key "C-c C-x C-a" #'db/org-add-clocking-time org-mode-map)
-
-(defun db/org-add-clock-line-to-marker (target-marker start end)
+     (timeline-tools-insert-clockline starting-time ending-time))))
+
+(defun timeline-tools-add-clockline-to-marker (target-marker start end)
   "Add clock line to task under TARGET-MARKER from START to END.
 
 START and END must be given as time objects as returned by

     (insert (format-time-string timestamp-format time-2))
     (org-clock-update-time-maybe))))

(defun db/org-add-clocking-time (starting-time ending-time)
  "Add clock line from STARTING-TIME to ENDING-TIME to task under point."
  (interactive
   (list (org-read-date 4 'totime nil

                    heading)
      (match-string 4 heading))))

(defun timeline-tools-format-timeline (tstart tend &optional files)
  "Display timeline of tasks between TSTART and TEND from FILES.

When not given, FILES defaults to `org-agenda-files’.  Short
