From 1224d220985edd9de0731b26c0be96eb9f6b35a1 Mon Sep 17 00:00:00 2001
From: Gabriel Santos <gabrielsantosdesouza@disroot.org>
Date: Fri, 27 Dec 2024 10:43:20 -0300
Subject: [PATCH] Add button navigation to treesit-explorer

* lisp/treesit.el (treesit--explorer-tree-mode-map):
Define it as a child of special-mode-map,
adding keys for button navigation.
---
 lisp/treesit.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lisp/treesit.el b/lisp/treesit.el
index e643eb48654..ef27a370bc2 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -4041,6 +4041,16 @@ covers point.  PARSER-NAME are unique."
   "Mode for displaying syntax trees for `treesit-explore-mode'."
   nil)
 
+(defvar-keymap treesit--explorer-tree-mode-map
+  :doc "Keymap for the treesit tree explorer.
+
+Navigates from button to button."
+  :parent special-mode-map
+  "n" #'forward-button
+  "p" #'backward-button
+  "TAB" #'forward-button
+  "<backtab>" #'backward-button)
+
 (defun treesit-explorer-switch-parser (parser)
   "Switch explorer to use PARSER."
   (interactive
-- 
2.47.1