[Emacs] treesit-auto copy hooks WIP
This commit is contained in:
parent
ad28f370c3
commit
a37287524c
@ -1583,8 +1583,19 @@ out how to detect that a buffer is a man mode buffer.
|
|||||||
(to (treesit-auto-recipe-ts-mode recipe)))
|
(to (treesit-auto-recipe-ts-mode recipe)))
|
||||||
(funcall fn from to))))
|
(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)
|
(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 ()
|
(defun treesit-auto-copy-all-lsp-languages ()
|
||||||
(cl-loop for recipe in treesit-auto-recipe-list
|
(cl-loop for recipe in treesit-auto-recipe-list
|
||||||
|
Loading…
Reference in New Issue
Block a user