From 6cd993cb6efb8cf5a1c22f4a600aedb64526096f Mon Sep 17 00:00:00 2001
From: Marc <marc>
Date: Wed, 8 Mar 2023 07:51:43 +0100
Subject: [PATCH] fixed corfu for lsp

---
 config.org | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/config.org b/config.org
index 38a93e4..e067b25 100644
--- a/config.org
+++ b/config.org
@@ -716,6 +716,7 @@ dabbrev, file, history, keyword, tex, sgml, rfc1345, abbrev, ispell, dict, symbo
    ("C-c p h" . cape-history)
    ("C-c p f" . cape-file))
   :init
+  (advice-add #'lsp-completion-at-point :around #'cape-wrap-noninterruptible)  ;; for performance issues with lsp
   (add-to-list 'completion-at-point-functions #'cape-dabbrev)
   (add-to-list 'completion-at-point-functions #'cape-file)
   (add-to-list 'completion-at-point-functions #'cape-history))
@@ -743,9 +744,10 @@ Orderless orders the suggestions by recency. The package prescient orders by fre
 (use-package orderless
   :ensure t
   :init
-  (setq completion-styles '(orderless basic)
+  (setq completion-styles '(orderless partial-completion basic)
         completion-category-defaults nil
-        completion-category-overrides '((file (styles partial-completion)))))
+        completion-category-overrides nil))
+;        completion-category-overrides '((file (styles partial-completion)))))
 #+end_src
 
 * Consult
@@ -1568,11 +1570,20 @@ TODO Unterverzeichnisse wurden noch nicht getestet
   (lsp-keymap-prefix "C-c l")
   (lsp-session-file (concat MY--PATH_USER_LOCAL "lsp-session"))
   (lsp-eslint-library-choices-file (concat MY--PATH_USER_LOCAL "lsp-eslint-choices"))
-  :bind (:map lsp-mode-map ("C-c C-f" . lsp-format-buffer))
+  (lsp-completion-provider :none)  ;; use corfu
+  :bind
+  (:map lsp-mode-map
+        ("C-c C-f" . lsp-format-buffer))
   :hook
   (lsp-mode . lsp-enable-which-key-integration)
   (lsp-mode . lsp-diagnostics-modeline-mode)
   (web-mode . #'lsp-flycheck-enable)  ;; enable flycheck-lsp for web-mode locally
+  (lsp-completion-mode . my/lsp-mode-setup-completion)
+  :init
+  (defun my/lsp-mode-setup-completion ()
+    "Setup orderless for lsp"
+    (setf (alist-get 'styles (alist-get 'lsp-capf completion-category-defaults))
+          '(orderless)))  ;; configure orderless
   :config
   (setq lsp-diagnostic-package :none))              ; disable flycheck-lsp for most modes