.emacs.d/init.d/programming/lsp.el

83 lines
3.3 KiB
EmacsLisp
Raw Normal View History

;;; lsp.el --- Language Server Protocol. -*- lexical-binding: t; -*-
2020-12-07 15:28:43 +01:00
;; Time-stamp: <2020-12-07T15:03:32+0100>
;;; Commentary:
;;; Code:
(require 'basics/package-management)
(require 'basics/global-variables)
(require 'programming/common)
(unless slow-computer
;; Client for Language Server Protocol servers.
(use-package lsp-mode
:if (executable-find "clangd")
:defines (lsp-clients-clangd-args)
2020-02-11 17:59:12 +01:00
:diminish lsp-mode
2020-03-09 15:14:43 +01:00
:custom ((lsp-prefer-flymake nil) ; Disable flymake.
(lsp-auto-guess-root t) ; Don't ask for project root.
(lsp-eldoc-render-all t)
(lsp-restart 'auto-restart)
(lsp-enable-semantic-highlighting t) ; Needs clangd 11(?).
(lsp-semantic-tokens-apply-modifiers t)
(lsp-prefer-capf t)
(lsp-keymap-prefix "C-c l")
(lsp-keep-workspace-alive nil))
:custom-face
;; Semantic highlighting. TODO: Check later if better options are available.
(lsp-face-semhl-variable ((t (:inherit font-lock-variable-name-face
:italic t))))
(lsp-face-semhl-parameter ((t (:inherit font-lock-variable-name-face
:italic t :underline t))))
(lsp-face-semhl-member ((t (:inherit default :weight semibold))))
(lsp-face-semhl-enum ((t (:inherit font-lock-type-face))))
2020-03-09 15:14:43 +01:00
:config (progn
(setq lsp-clients-clangd-args '("--compile-commands-dir=build"))
;; Add “-clang-tidy” to clangd args if the version supports it.
(when (>= (my/clangd-version) 9.0)
(add-to-list 'lsp-clients-clangd-args "--clang-tidy" t))
;; Mark lsp-clients-clangd-args as safe to override.
(put 'lsp-clients-clangd-args 'safe-local-variable #'consp))
:bind ("C-c C-f" . lsp-execute-code-action)
2020-03-09 15:14:43 +01:00
:hook ((c++-mode . lsp)
(c-mode . lsp)
2020-12-01 21:00:37 +01:00
(python-mode . lsp)
2020-12-07 15:28:43 +01:00
(nxml-mode . lsp)
(lsp-mode . lsp-enable-which-key-integration)))
;; Eye-candy and flycheck support for lsp-mode.
(use-package lsp-ui
2020-03-09 15:14:43 +01:00
:after (lsp-mode flycheck whitespace)
:functions (my/whitespace-mode-on my/whitespace-mode-off)
:custom ((lsp-ui-sideline-enable nil) ; Do not insert doc into buffer.
(lsp-ui-doc-include-signature t) ; Include signature in doc popup.
(lsp-ui-doc-enable nil)) ; Disable doc popup.
:config (defun my/lsp-ws-toggle ()
"Works around the dots-in-wrong-color bug."
(if lsp-ui-peek-mode
(my/whitespace-mode-off)
(my/whitespace-mode-on)))
:bind (:map lsp-ui-mode-map
("M-." . lsp-ui-peek-find-definitions)
("C-M-." . lsp-ui-peek-find-references)
("C-M-," . lsp-ui-peek-find-implementation))
:hook ((lsp-mode . lsp-ui-mode)
(lsp-ui-peek-mode . my/lsp-ws-toggle)))
;; ivy interface to lsp-mode.
(use-package lsp-ivy
:demand t
2020-03-09 15:14:43 +01:00
:after (lsp-mode ivy))
;; Integration between lsp-mode and treemacs.
(use-package lsp-treemacs
:after (treemacs lsp-ui)
2020-03-09 15:14:43 +01:00
:bind (:map lsp-ui-mode-map
("<f7>" . lsp-treemacs-errors-list)))
) ; unless slow-computer.
(provide 'programming/lsp)
;;; lsp.el ends here