[Emacs] treesit-auto copy hooks WIP

This commit is contained in:
Kat Huang 2023-07-31 18:34:38 -06:00
parent ad28f370c3
commit a37287524c

View File

@ -1583,8 +1583,19 @@ out how to detect that a buffer is a man mode buffer.
(to (treesit-auto-recipe-ts-mode recipe)))
(funcall fn from to))))
;; (treesit-auto-for-each
;; (lambda (from to)
;; (letrec ((to-hook (treesit-auto-get-mode-hook-symbol to))
;; (from-hook (treesit-auto-get-mode-hook-symbol from))
;; (set-exp (list 'setq to-hook from-hook)))
;; (message (format "%s" set-exp))
;; (when (boundp from-hook)
;; (eval result)))))
(defun treesit-auto-get-mode-hook-symbol (mode)
(intern (concat (symbol-name mode) "-mode-hook")))
(intern (concat (symbol-name mode) "-hook")))
(treesit-auto-get-mode-hook-symbol 'python-mode)
(defun treesit-auto-copy-all-lsp-languages ()
(cl-loop for recipe in treesit-auto-recipe-list