         (insert org-clock-heading)))))
 
 (defun db/org-update-frame-title-with-current-clock ()
-  "Set the title of all active frames to the headline of the
-  current task."
+  "Set title of all active frames to the headline of the current task."
   (interactive)
   (let ((clock-buffer (marker-buffer org-clock-marker)))
     (when clock-buffer

         (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'."
  (with-temp-file db/org-clock-current-task-file
    (let ((clock-buffer (marker-buffer org-clock-marker)))
      (if (null clock-buffer)

  (delete-other-windows)
  (org-capture))

(defun db/delete-frame-if-capture (&rest)
  "If current frame was made for a capture, close after done."
  (when (equal (frame-parameter nil 'name)
               "capture")
    (delete-frame)))
