diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/+org.el | 21 |
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. | ||
587 | SELECT 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 |