summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el7
-rw-r--r--lisp/+org.el21
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.
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