Expand region treesitter integration

treesit-expand-region.el

(defun treesit-mark-bigger-node ()
    (interactive)
    (let* ((node (treesit-node-on (region-beginning) (region-end))))
      (let ((next-node (treesit-parent-until node (lambda (n)
                                                    (not (and
                                                          (= (region-beginning) (treesit-node-start n))
                                                          (= (region-end) (treesit-node-end n))))))))
        (set-mark (treesit-node-end next-node))
        (goto-char (treesit-node-start next-node)))))

(defun er-use-treesit-expansions ()
    (setq-local er/try-expand-list '(er/mark-word treesit-mark-bigger-node)))