From 2d806a16d031624995f2791ba6d28be7b83d7753 Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@proton.me>
Date: Wed, 12 Jun 2024 18:31:58 +0200
Subject: [PATCH] feat: add lsp speedup

---
 init.el | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index 0e2fd4f..e20db38 100644
--- a/init.el
+++ b/init.el
@@ -623,15 +623,37 @@
 ;; Programming
 (my-use-package lsp-mode
   :ensure t
+  :commands lsp
   :general
   (my-leader
     "l" '(:keymap lsp-command-map :wk "LSP"))
   :custom
   (lsp-keymap-prefix "C-c l")
+
+  (lsp-enable-snippet nil)
+
+  ;; Handled by envrc
   (lsp-enable-suggest-server-download nil)
+
+  ;; Speed-up
+  (lsp-log-io nil)
+  ;; (lsp-diagnostic-package :none)
+  (lsp-enable-snippet nil)
+  (lsp-enable-symbol-highlighting nil)
+  (lsp-enable-links nil)
+  (lsp-restart 'auto-restart)
   :hook
   (lsp-mode . lsp-enable-which-key-integration)
-  :commands lsp)
+  :config
+  ;; don't ping LSP lanaguage server too frequently
+  (defvar lsp-on-touch-time 0)
+  (defadvice lsp-on-change (around lsp-on-change-hack activate)
+    ;; don't run `lsp-on-change' too frequently
+    (when (> (- (float-time (current-time))
+                lsp-on-touch-time) 5) ;; 5 seconds
+      (setq lsp-on-touch-time (float-time (current-time)))
+      ad-do-it))
+  )
 
 (my-use-package envrc
   :ensure t
-- 
2.49.0