74 lines
2.6 KiB
EmacsLisp
74 lines
2.6 KiB
EmacsLisp
;; Copyright (C) 2016 Vibhav Pant <vibhavp@gmail.com> -*- lexical-binding: t -*-
|
|
|
|
;; This program is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
;;; Code:
|
|
|
|
(require 'compile)
|
|
|
|
(defconst lsp--message-type-face
|
|
`((1 . ,compilation-error-face)
|
|
(2 . ,compilation-warning-face)
|
|
(3 . ,compilation-message-face)
|
|
(4 . ,compilation-info-face)))
|
|
|
|
(defcustom lsp-print-io nil
|
|
"If non-nil, print all messages to and from the language server to *Messages*."
|
|
:group 'lsp-mode
|
|
:type 'boolean)
|
|
|
|
(define-error 'lsp-error "Unknown lsp-mode error")
|
|
(define-error 'lsp-empty-response-error
|
|
"Empty response from the language server" 'lsp-error)
|
|
(define-error 'lsp-timed-out-error
|
|
"Timed out while waiting for a response from the language server" 'lsp-error)
|
|
|
|
(defun lsp--propertize (str type)
|
|
"Propertize STR as per TYPE."
|
|
(propertize str 'face (alist-get type lsp--message-type-face)))
|
|
|
|
(defvar lsp--no-response)
|
|
|
|
;; from http://emacs.stackexchange.com/questions/8082/how-to-get-buffer-position-given-line-number-and-column-number
|
|
(defun lsp--position-to-point (params)
|
|
"Convert Position object in PARAMS to a point."
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(forward-line (gethash "line" params))
|
|
(move-to-column (gethash "character" params))
|
|
(point)))
|
|
|
|
(defun lsp--assert-type (obj pred)
|
|
(if (funcall pred obj)
|
|
obj
|
|
(signal 'wrong-type-argument `(,pred ,obj))))
|
|
|
|
(defun lsp-make-traverser (name)
|
|
"Return a closure that walks up the current directory until NAME is found.
|
|
NAME can either be a string or a predicate used for `locate-dominating-file'.
|
|
The value returned by the function will be the directory name for NAME.
|
|
|
|
If no such directory could be found, log a warning and return `default-directory'"
|
|
#'(lambda ()
|
|
(let ((dir (locate-dominating-file "." name)))
|
|
(expand-file-name
|
|
(if dir
|
|
dir
|
|
(message
|
|
"Couldn't find project root, using the current directory as the root.")
|
|
default-directory)))))
|
|
|
|
(provide 'lsp-common)
|
|
;;; lsp-common.el ends here
|