blob: fff904547af533b89b6a35fe4a34b69eac76059e (
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
56
57
58
59
60
|
;;; 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-completion-mode . my/lsp-mode-setup-completion)
(sql-mode . lsp)
:config
(defun really-diminish-lsp-lens-mode ()
(diminish 'lsp-lens-mode)
(remove-hook 'lsp-lens-mode-hook 'really-diminish-lsp-lens-mode))
(defun my/lsp-mode-setup-completion ()
(setf (alist-get 'styles (alist-get 'lsp-capf completion-category-defaults))
'(orderless)))
(defun lsp--make-reference-params-exclude-declaration (orig &optional td-position exclude-declaration)
(funcall orig td-position t))
(advice-add 'lsp--make-reference-params :around 'lsp--make-reference-params-exclude-declaration)
(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 lsp-sqls-workspace-config-path nil)
(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"
lsp-completion-provider :none ;; use corfu
;; user cider for indendation, completion and eldoc instead
lsp-enable-indentation nil
;;lsp-completion-enable nil
lsp-eldoc-enable-hover nil))
(provide 'init-lsp)
;;; init-lsp.el ends here
|