ryuslash/emacs-config
1
0
Fork 0
Code Activity

Add documentation command for LSP

Browse source 
The default way lsp (at least for Java) is displayed is annoying. I’m used to
calling documentation with a keybinding like in Emacs Lisp. This command makes
it more like that.
This commit is contained in:
Tom Willemse 2019-10-21 00:41:19 -07:00
parent 220ad644dd
commit d4e4a25cde
2 changed files with 26 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
oni-java.el
View file

@ -4,8 +4,8 @@
;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local
;; Version: 2019.1016.231834
;; Package-Requires: (oni-fci oni-data-dir lsp-java company-lsp lsp-ui hydra)
;; Version: 2019.1021.002901
;; Package-Requires: (oni-fci oni-data-dir oni-lsp lsp-java company-lsp hydra)
;; 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
@ -30,6 +30,7 @@
(require 'hydra)
(require 'lsp-java)
(require 'oni-data-dir)
(require 'oni-lsp)
(defun oni-java-enable-buffer-formatting ()
"Format the buffer before save."
@ -50,6 +51,9 @@
("p" lsp-java-create-parameter "Create parameter")
("l" lsp-java-create-local "Create local"))
(defhydra java-documentation-hydra (:color blue)
("d" oni-lsp-show-doc "Show documentation"))
(setq lsp-java-server-install-dir
(oni-data-dir-locate "lsp-java/server/"))
@ -74,6 +78,7 @@
(add-to-list 'company-backends 'company-lsp)
(define-key java-mode-map (kbd "C-c r") 'java-refactor-hydra/body)
(define-key java-mode-map (kbd "C-c d") 'java-documentation-hydra/body)
(add-to-list 'auto-insert-alist
'("\\.java\\'"

21
oni-lsp.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local
;; Version: 2019.1016.231222
;; Version: 2019.1021.004102
;; Package-Requires: (lsp-mode lsp-ui)
;; This program is free software; you can redistribute it and/or modify
@ -29,12 +29,25 @@
(require 'lsp)
(require 'lsp-ui)
(defun oni-lsp-show-doc ()
"Show documentation string in a help buffer."
(interactive)
(let* ((position-params (lsp--text-document-position-params))
(response (lsp-request "textDocument/hover" position-params))
(contents (gethash "contents" response))
(help-string (lsp-ui-doc--extract contents))
(symbol (gethash "value" (pcase contents
((pred arrayp) (aref contents 0))
(_ contents)))))
(with-help-window (help-buffer)
(princ symbol)
(princ "\n\n")
(princ help-string))))
(setq lsp-prefer-flymake nil)
(setq lsp-ui-doc-enable t)
(setq lsp-ui-doc-enable nil)
(setq lsp-ui-sideline-enable nil)
(setq lsp-ui-doc-position 'at-point)
(setq lsp-ui-doc-delay 1)
(add-hook 'lsp-mode-hook 'lsp-lens-mode)