1 files changed, 13 insertions, 0 deletions

@@ -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)