Eval expression:
(buffer-local-value 'acm-backend-lsp-server-names (current-buffer))
;; => ("tailwindcss" "typescript-ls" "emmet-ls")
我现在方法是:
(defun my/bridge-server-setup ()
(when (bound-and-true-p acm-backend-lsp-server-names)
(with-current-buffer (current-buffer)
(let ((servers (buffer-local-value 'acm-backend-lsp-server-names (current-buffer))))
;; enable : in emmet completion
(when (member "emmet-ls" servers)
(setq-local lsp-bridge-completion-hide-characters
(delete ":" lsp-bridge-completion-hide-characters)))
;; enable - in tailwindcss completion
(when (member "tailwindcss" servers)
(modify-syntax-entry ?- "w"))))))
(add-hook 'lsp-bridge-mode-hook
(lambda ()
(run-with-timer 3 nil #'my/bridge-server-setup)))