Combobulate and narrowing

shared-packages.el

@@ -47,6 +47,22 @@
 ;; For per-workflow utilities
 (use-package narrow-indirect)
 
+;; Better navigation with treesitter
+(use-package combobulate
+  :config
+  (defun narrow-to-defun-indirect ()
+    "Narrow to the current defun in an indirect buffer."
+    (interactive)
+    (combobulate-navigate-end-of-defun)
+    (end-of-line)
+    (set-mark-command nil)
+    (combobulate-navigate-beginning-of-defun)
+    (beginning-of-line)
+    (ni-narrow-to-region-indirect-other-window
+     (region-beginning)
+     (region-end)
+     (point))))
+
 (provide 'shared-packages)
 
 ;;; shared-packages.el ends here