Created
July 9, 2018 16:50
-
-
Save i-oliva/ed0b024054fea3c73a501b9e51d28a49 to your computer and use it in GitHub Desktop.
lsp funcs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; packages.el --- Language Server Protocol functions File for Spacemacs | |
;; | |
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors | |
;; | |
;; Author: Fangrui Song <i@maskray.me> | |
;; URL: https://github.com/syl20bnr/spacemacs | |
;; | |
;; This file is not part of GNU Emacs. | |
;; | |
;;; License: GPLv3 | |
(defun spacemacs//lsp-sync-peek-face () | |
"Synchronize the face used in `lsp-ui' peek window according to the theme." | |
(set-face-attribute 'lsp-ui-peek-list nil | |
:background (face-attribute 'hl-line :background nil t)) | |
(set-face-attribute 'lsp-ui-peek-peek nil | |
:background (face-attribute 'hl-line :background nil t)) | |
(set-face-attribute 'lsp-ui-peek-selection nil | |
:background (face-attribute 'highlight :background nil t) | |
:foreground (face-attribute 'default :foreground nil t)) | |
(set-face-attribute 'lsp-ui-peek-filename nil | |
:foreground (face-attribute 'font-lock-constant-face | |
:foreground nil t)) | |
(set-face-attribute 'lsp-ui-peek-highlight nil | |
:background (face-attribute 'highlight :background nil t) | |
:foreground (face-attribute 'highlight :foreground nil t) | |
:distant-foreground (face-attribute 'highlight | |
:foreground nil t)) | |
(set-face-attribute 'lsp-ui-peek-header nil | |
:background (face-attribute 'highlight :background nil t) | |
:foreground (face-attribute 'default :foreground nil t)) | |
) | |
(defun spacemacs//setup-lsp-jump-handler (&rest modes) | |
"Set jump handler for LSP with the given MODE." | |
(dolist (m modes) | |
(add-to-list (intern (format "spacemacs-jump-handlers-%S" m)) | |
'(lsp-ui-peek-find-definitions)))) | |
(defun fix-lsp-company-prefix () | |
"fix lsp-javascript company prefix | |
https://github.com/emacs-lsp/lsp-javascript/issues/9#issuecomment-379515379" | |
(interactive) | |
(defun lsp-prefix-company-transformer (candidates) | |
(let ((completion-ignore-case t)) | |
(all-completions (company-grab-symbol) candidates))) | |
(make-local-variable 'company-transformers) | |
(push 'lsp-prefix-company-transformer company-transformers)) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment