From b454114819f8fb2529b4fd6c3373bb35e707a9a6 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 28 Feb 2022 09:39:42 -0600 Subject: Add org-taskwise --- lisp/+org.el | 21 --------------------- 1 file changed, 21 deletions(-) (limited to 'lisp/+org.el') diff --git a/lisp/+org.el b/lisp/+org.el index 7b4ac4a..d23d778c 100644 --- a/lisp/+org.el +++ b/lisp/+org.el @@ -570,26 +570,5 @@ and POST-PROCESS are passed to `org-export-to-file'." ;;; Taskwise functions ;; TODO: break out into another library -(defun +org-upto-task () - "Go to the heading of the current task." - (interactive) - (while (not (org-get-todo-state)) - (org-up-heading-or-point-min))) - -(defun +org-narrow-to-task () - "Narrow the buffer to current task." - (interactive) - (+org-upto-task) - (org-narrow-to-subtree)) - -(defun +org-task-clock-in (&optional select start-time) - "Start the clock on the current task. -SELECT and START-TIME, if provided, are passed on to -`org-clock-in'." - (interactive) - (save-excursion - (+org-upto-task) - (call-interactively #'org-clock-in))) - (provide '+org) ;;; +org.el ends here -- cgit 1.4.1-21-gabe81