summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2022-02-28 09:39:42 -0600
committerCase Duckworth2022-02-28 09:39:58 -0600
commitb454114819f8fb2529b4fd6c3373bb35e707a9a6 (patch)
treeadf5d195d96d0ccbc8fb445ffd18870387366bf0 /lisp
parentWhitespace and bugginess (diff)
downloademacs-b454114819f8fb2529b4fd6c3373bb35e707a9a6.tar.gz
emacs-b454114819f8fb2529b4fd6c3373bb35e707a9a6.zip
Add org-taskwise
Diffstat (limited to 'lisp')
-rw-r--r--lisp/+org.el21
1 files changed, 0 insertions, 21 deletions
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'."
570;;; Taskwise functions 570;;; Taskwise functions
571;; TODO: break out into another library 571;; TODO: break out into another library
572 572
573(defun +org-upto-task ()
574 "Go to the heading of the current task."
575 (interactive)
576 (while (not (org-get-todo-state))
577 (org-up-heading-or-point-min)))
578
579(defun +org-narrow-to-task ()
580 "Narrow the buffer to current task."
581 (interactive)
582 (+org-upto-task)
583 (org-narrow-to-subtree))
584
585(defun +org-task-clock-in (&optional select start-time)
586 "Start the clock on the current task.
587SELECT and START-TIME, if provided, are passed on to
588`org-clock-in'."
589 (interactive)
590 (save-excursion
591 (+org-upto-task)
592 (call-interactively #'org-clock-in)))
593
594(provide '+org) 573(provide '+org)
595;;; +org.el ends here 574;;; +org.el ends here