emacs: configure tree-sitter based text objects
Alan Pearce alan@alanpearce.eu
Sun, 14 May 2023 21:57:31 +0200
2 files changed, 28 insertions(+), 0 deletions(-)
M user/emacs/init.el → user/emacs/init.el
@@ -470,6 +470,33 @@ (add-hook 'org-agenda-mode-hook #'evil-org-agenda-set-keys)) :ghook ('org-mode-hook #'evil-org-mode) :gfhook #'evil-org-set-key-theme) +(defun etts/start-of-next-function () + (interactive) + (evil-textobj-tree-sitter-goto-textobj "function.outer" nil nil)) +(defun etts/start-of-prev-function () + (interactive) + (evil-textobj-tree-sitter-goto-textobj "function.outer" t nil)) +(defun etts/end-of-next-function () + (interactive) + (evil-textobj-tree-sitter-goto-textobj "function.outer" nil t)) +(defun etts/end-of-prev-function () + (interactive) + (evil-textobj-tree-sitter-goto-textobj "function.outer" t t)) +(use-package evil-textobj-tree-sitter + :after evil + :general + (:keymaps 'evil-outer-text-objects-map + "f" (evil-textobj-tree-sitter-get-textobj "function.outer") + "a" (evil-textobj-tree-sitter-get-textobj ("conditional.outer" "loop.outer"))) + (:keymaps 'evil-inner-text-objects-map + "f" (evil-textobj-tree-sitter-get-textobj "function.inner") + "a" (evil-textobj-tree-sitter-get-textobj ("conditional.inner" "loop.inner"))) + (:states 'normal + "]f" #'etts/start-of-next-function + "[f" #'etts/start-of-prev-function + "]F" #'etts/end-of-next-function + "[F" #'etts/end-of-prev-function)) + ;;; Completion (use-package company
M user/settings/emacs.nix → user/settings/emacs.nix
@@ -117,6 +117,7 @@ evil-org evil-quickscope evil-space evil-surround + evil-textobj-tree-sitter eyebrowse format-all flycheck