;;; pkg/lsp -- summary -*- lexical-binding: t; -*-
;;; Commentary:
;;; Global Language Server Protocol Config
;;; Code:

(use-package lsp-mode
  :straight t
  :defer t
  :requires (company)
  :config
  (setq-default lsp-file-watch-threshold 10000
                lsp-restart 'auto-restart
                lsp-prefer-capf t
                lsp-completion-provider :capf
                lsp-server-trace nil
                lsp-lens-enable nil
                lsp-lens-mode nil
                read-process-output-max (* 1024 1024 2)
                lsp-enable-file-watchers nil)
  (unbind-key "s-l =" lsp-mode-map)
  (unbind-key "s-l G" lsp-mode-map)
  (unbind-key "s-l T" lsp-mode-map)
  (unbind-key "s-l a" lsp-mode-map)
  (unbind-key "s-l g" lsp-mode-map)
  (unbind-key "s-l r" lsp-mode-map)
  (unbind-key "C-S-SPC" lsp-mode-map)
  (unbind-key "s-l G g" lsp-mode-map)
  (unbind-key "s-l G r" lsp-mode-map)
  (unbind-key "s-l G s" lsp-mode-map)
  (unbind-key "s-l h g" lsp-mode-map)
  (unbind-key "s-l h h" lsp-mode-map)
  (unbind-key "s-l h s" lsp-mode-map)
  (unbind-key "s-l g a" lsp-mode-map)
  (unbind-key "s-l g e" lsp-mode-map)
  (unbind-key "s-l g g" lsp-mode-map)
  (unbind-key "s-l g h" lsp-mode-map)
  (unbind-key "s-l g r" lsp-mode-map)
  (unbind-key "s-l T D" lsp-mode-map)
  (unbind-key "s-l T L" lsp-mode-map)
  (unbind-key "s-l T S" lsp-mode-map)
  (unbind-key "s-l T T" lsp-mode-map)
  (unbind-key "s-l T b" lsp-mode-map)
  (unbind-key "s-l T d" lsp-mode-map)
  (unbind-key "s-l T f" lsp-mode-map)
  (unbind-key "s-l T l" lsp-mode-map)
  (unbind-key "s-l T s" lsp-mode-map)
  (unbind-key "s-l F a" lsp-mode-map)
  (unbind-key "s-l F b" lsp-mode-map)
  (unbind-key "s-l F r" lsp-mode-map)
  (unbind-key "s-l = =" lsp-mode-map)
  (unbind-key "s-l s D" lsp-mode-map)
  (unbind-key "s-l s d" lsp-mode-map)
  (unbind-key "s-l s q" lsp-mode-map)
  (unbind-key "s-l s r" lsp-mode-map)
  (unbind-key "s-l s s" lsp-mode-map)
  :hook ((typescript-mode . lsp-deferred)))

(use-package lsp-ui
  :straight t
  :requires (lsp-mode)
  :defer t)

(setq lsp-ui-doc-enable t
      lsp-ui-header t
      lsp-ui-delay 0.5 ;; Wait half a second to display documentation
      lsp-ui-doc-position 'at-point
      lsp-ui-doc-include-signature t
      ;; Disable the piece of shit vue LSP server. It activates itself in every
      ;; project with .js, .ts or .json file due to something called 'takeover
      ;; mode' or 'hybrid mode' or some such.
      ;; It would be okay, but it also doesn't work 99% of the time.

      ;; When needed, enable this hot garbage in dir-locals.el
      lsp-disabled-clients '(vue-semantic-server)
      lsp-log-io nil)

;; Lsp debugger mode
(use-package dap-mode
  :straight t
  :defer t
  :requires (lsp-mode lsp-ui))

(provide '+custom-pkg-lsp)
;;; lsp.el ends here