          (org-clock-in '(4))))))))
 
 (defun db/save-current-org-task-to-file ()
-  "Format currently clocked task and write it to
-`db/org-clock-current-task-file'."
+  "Format currently clocked task and write it to`db/org-clock-current-task-file'."
   (with-temp-file db/org-clock-current-task-file
     (let ((clock-buffer (marker-buffer org-clock-marker)))
       (if (null clock-buffer)

;;; Capturing

(defun db/org-timestamp-difference (stamp-1 stamp-2)
  "Returns time difference between two given org-mode timestamps."
  ;; Things copied from `org-clock-update-time-maybe’
  (let* ((s (-
             (float-time

  "Clock in org mode task as given by TASK-ID."
  (let ((location (org-id-find task-id 'marker)))
    (if (null location)
        (user-error "Invalid location give: %s»" task-id)
      (org-with-point-at location
        (org-clock-in))
      (org-save-all-org-buffers))))
