From aeddb119501b4442f725accd68b268b703b4e265 Mon Sep 17 00:00:00 2001
From: Riyyi <riyyi3@gmail.com>
Date: Fri, 17 Jul 2020 18:40:35 +0200
Subject: [PATCH] Update lsp bindings

---
 .emacs.d/config.org | 29 ++++++++++++++++++-----------
 1 file changed, 18 insertions(+), 11 deletions(-)

diff --git a/.emacs.d/config.org b/.emacs.d/config.org
index 8179bab..9871989 100644
--- a/.emacs.d/config.org
+++ b/.emacs.d/config.org
@@ -297,6 +297,13 @@ On the fly syntax checking.
 	(lsp-enable-xref t)
 	(lsp-keep-workspace-alive nil)
 	(lsp-prefer-flymake nil)
+	:config
+
+	;; Enable which-key descriptions
+	(dolist (leader-key (list "SPC" "M-SPC"))
+	  (let ((lsp-keymap-prefix (concat leader-key " l")))
+		(lsp-enable-which-key-integration)))
+
 	:commands lsp)
 
   (use-package company-lsp
@@ -1024,16 +1031,6 @@ General.el ~leader key binds.
 	  "c v" '(config-visit                            :which-key "Config visit")
 	  "c y" '(evilnc-comment-and-kill-ring-save       :which-key "Comment and copy")
 
-	  ;; LSP
-	  "d"   '(:ignore t                        :which-key "lsp")
-	  "d c" '(lsp-describe-thing-at-point      :which-key "LSP Describe under cursor")
-	  "d d" '(lsp-find-definition              :which-key "LSP Find definition")
-	  "d e" '(lsp-execute-code-action          :which-key "LSP Execute code action")
-	  "d f" '(lsp-format-region-or-buffer      :which-key "LSP Format region/buffer")
-	  "d r" '(lsp-find-references              :which-key "LSP Find references")
-	  "d R" '(lsp-rename                       :which-key "LSP Rename")
-	  "d s" '(lsp                              :which-key "Start LSP")
-
 	  ;; Elisp
 	  "e"   '(:ignore t                        :which-key "elisp")
 	  "e b" '(eval-buffer                      :which-key "Evaluate buffer")
@@ -1091,7 +1088,7 @@ General.el ~leader key binds.
 	  ;; Window
 	  ;; "w"         '(:keymap evil-window-map    :which-key "window")
 	  "w"         '(:ignore t                  :which-key "window")
-	  "w +"       '(balance-windows-area       :which-key "Balance windows area")
+	  "w ="       '(balance-windows-area       :which-key "Balance windows area")
 	  "w h"       '(windmove-left              :which-key "Focus window left")
 	  "w j"       '(windmove-down              :which-key "Focus window down")
 	  "w k"       '(windmove-up                :which-key "Focus window up")
@@ -1113,6 +1110,16 @@ General.el ~leader key binds.
 	  ))
 #+END_SRC
 
+Evaluated keybinds.
+
+#+BEGIN_SRC emacs-lisp
+  (with-eval-after-load 'lsp-mode
+	(space-leader lsp-mode-map
+	  "l" lsp-command-map
+	  )
+	)
+#+END_SRC
+
 Source:
 https://github.com/redguardtoo/emacs.d/blob/master/lisp/init-evil.el#L712
 https://github.com/suyashbire1/emacs.d/blob/master/init.el