From 2a41488ab0822b8680886a5a22661d350dd7a3c5 Mon Sep 17 00:00:00 2001
From: tastytea <tastytea@tastytea.de>
Date: Wed, 2 Jun 2021 00:02:30 +0200
Subject: [PATCH] Enable company-prescient, configure it for LSP.

---
 init.d/misc/completion.el | 4 +++-
 init.d/programming/lsp.el | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/init.d/misc/completion.el b/init.d/misc/completion.el
index 04a00e9..987d7e3 100644
--- a/init.d/misc/completion.el
+++ b/init.d/misc/completion.el
@@ -78,7 +78,9 @@
 ;; Sorting and filtering for company.
 (use-package company-prescient
   :after (prescient company)
-  :hook (after-init . company-prescient-mode))
+  :config (defun my/company-prescient-sort-length-off ()
+            (setq-local company-prescient-sort-length-enable nil))
+  :hook (company-mode . company-prescient-mode))
 
 (provide 'misc/completion)
 ;;; completion.el ends here
diff --git a/init.d/programming/lsp.el b/init.d/programming/lsp.el
index 0f0c004..7f0e6f7 100644
--- a/init.d/programming/lsp.el
+++ b/init.d/programming/lsp.el
@@ -8,6 +8,7 @@
 (require 'basics/global-variables)
 (require 'programming/common)
 (require 'text/common)
+(require 'misc/completion)
 
 ;; Client for Language Server Protocol servers.
 (use-package lsp-mode
@@ -61,7 +62,8 @@
          (css-mode . lsp)
          (js-mode . lsp)
          (lsp-mode . lsp-enable-which-key-integration)
-         (lsp-mode . my/rebind-other-file-maybe)))
+         (lsp-mode . my/rebind-other-file-maybe)
+         (lsp-mode . my/company-prescient-sort-length-off)))
 
 ;; Eye-candy and flycheck support for lsp-mode.
 (use-package lsp-ui