diff options
-rw-r--r-- | init.el | 7 | ||||
-rw-r--r-- | lisp/+org.el | 21 |
2 files changed, 7 insertions, 21 deletions
diff --git a/init.el b/init.el index e5dcbb4..247f241 100644 --- a/init.el +++ b/init.el | |||
@@ -1798,6 +1798,13 @@ See also `crux-reopen-as-root-mode'." | |||
1798 | ;; (:hook-into org-mode) | 1798 | ;; (:hook-into org-mode) |
1799 | ) | 1799 | ) |
1800 | 1800 | ||
1801 | (setup (:straight (org-taskwise | ||
1802 | :host github | ||
1803 | :repo "duckwork/org-taskwise.el")) | ||
1804 | (:load-after org) | ||
1805 | (:bind-into org-mode | ||
1806 | "C-x n t" #'org-taskwise-narrow-to-task)) | ||
1807 | |||
1801 | (setup (:straight org-visibility) | 1808 | (setup (:straight org-visibility) |
1802 | (:require org-visibility) | 1809 | (:require org-visibility) |
1803 | (:option org-visibility-state-file (.etc "org-visibility") | 1810 | (:option org-visibility-state-file (.etc "org-visibility") |
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 |