From 0124957b18d900080bc420512ff55adb4ed391dd Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 28 Sep 2021 16:22:24 -0500
Subject: Add org-narrow-to-task

---
 lisp/acdw-org.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'lisp/acdw-org.el')

diff --git a/lisp/acdw-org.el b/lisp/acdw-org.el
index 96f3f69..8821b28 100644
--- a/lisp/acdw-org.el
+++ b/lisp/acdw-org.el
@@ -451,6 +451,19 @@ probably abandon it at some point for a better solution (see:
                           (nth day-of-week '("Sun" "Mon" "Tue" "Wed" "Thu"
                                              "Fri" "Sat"))
                           "]")))))))
+
+;;; Org task stuff
+
+(defun org-narrow-to-task ()
+  "Narrow buffer to the nearest task and its subtree."
+  (interactive)
+  (save-excursion
+    (save-match-data
+      (widen)
+      (while (not (org-entry-is-todo-p))
+        ;; TODO: need a better error message
+        (org-previous-visible-heading 1))
+      (org-narrow-to-subtree))))
 
 
 (provide 'acdw-org)
-- 
cgit 1.4.1-21-gabe81