   (org-with-point-at (org-id-find task-id 'marker)
     (org-clock-out))
   (org-save-all-org-buffers))
+
+(defun db/org-clock-out ()
+  "Clock out current clock."
+  (interactive)
+  (org-clock-out))
+
+(defun db/org-clock-in-break-task ()
+  "Clock into default break task as given by `org-break-task-id’."
+  (interactive)
+  (db/clock-in-task-by-id org-break-task-id))
+
+(defun db/org-clock-in-home-task ()
+  "Clock into default home task as given by `org-home-task-id’."
+  (interactive)
+  (db/clock-in-task-by-id org-home-task-id))
+
+(defun db/org-clock-in-work-task ()
+  "Clock into default work task as given by `org-work-task-id’."
+  (interactive)
+  (db/clock-in-task-by-id org-working-task-id))
 
 (defun db/org-clock-in-last-task (&optional arg)
   ;; from doc.norang.ca, originally bh/clock-in-last-task

(defhydra hydra-org-clock (:color blue)
  "
Current Task: %s(db/org-clock-current-task); "
  ("w" (lambda ()
         (interactive)
         (db/clock-in-task-by-id org-working-task-id)))
  ("h" (lambda ()
         (interactive)
         (db/clock-in-task-by-id org-home-task-id)))
  ("b" (lambda ()
         (interactive)
         (db/clock-in-task-by-id org-break-task-id)))
  ("i" (lambda ()
         (interactive)
         (org-clock-in '(4))))

          (insert "No running clock")
        (insert org-clock-heading)))))


;;; Fixes
