diff options
| author | Case Duckworth | 2022-02-28 09:39:42 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-02-28 09:39:58 -0600 |
| commit | b454114819f8fb2529b4fd6c3373bb35e707a9a6 (patch) | |
| tree | adf5d195d96d0ccbc8fb445ffd18870387366bf0 /lisp | |
| parent | Whitespace and bugginess (diff) | |
| download | emacs-b454114819f8fb2529b4fd6c3373bb35e707a9a6.tar.gz emacs-b454114819f8fb2529b4fd6c3373bb35e707a9a6.zip | |
Add org-taskwise
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 |