blob: ff4b4eea76b39c7b9fcab9812d01401bb96593fe (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
;;; init-lsp.el --- LSP Configuration File -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(use-package lsp-ui
:config
(require 'lsp-ui-imenu)
(setq lsp-ui-sideline-enable t
lsp-ui-peek-enable t
lsp-ui-peek-always-show t
lsp-ui-doc-delay 1
lsp-ui-doc-enable t
lsp-ui-doc-show-with-mouse t
lsp-ui-doc-show-with-cursor nil
lsp-ui-sideline-show-diagnostics t
lsp-ui-sideline-show-code-actions nil
lsp-ui-doc-position 'at-point))
(use-package lsp-treemacs)
(use-package lsp-mode
:diminish
:hook
(clojure-mode . lsp)
(lsp-lens-mode . really-diminish-lsp-lens-mode)
(lsp-mode . xref-prefer-cider)
:config
(defun really-diminish-lsp-lens-mode ()
(diminish 'lsp-lens-mode)
(remove-hook 'lsp-lens-mode-hook 'really-diminish-lsp-lens-mode))
(defun xref-prefer-cider ()
(when (and lsp-mode
(eq 'lsp--xref-backend (car xref-backend-functions))
(memq 'cider--xref-backend xref-backend-functions))
(remove-hook 'xref-backend-functions 'cider--xref-backend 'local)
(add-hook 'xref-backend-functions 'cider--xref-backend nil 'local)))
(if (eq system-type 'darwin)
(setq lsp-keymap-prefix "s-l")
(setq lsp-keymap-prefix "C-c C-l"))
(define-key lsp-mode-map (kbd lsp-keymap-prefix) lsp-command-map)
(setq read-process-output-max (* 1024 1024)
lsp-log-io nil
lsp-lens-enable t
lsp-headerline-breadcrumb-enable t
lsp-enable-symbol-highlighting t
lsp-headerline-breadcrumb-enable-diagnostics nil
lsp-modeline-code-actions-enable nil
lsp-modeline-diagnostics-enable nil
lsp-treemacs-theme "Iconless"
;; user cider for indendation and completion instead
lsp-enable-indentation nil
lsp-completion-enable nil))
(provide 'init-lsp)
;;; init-lsp.el ends here
|