diff --git a/oni-java.el b/oni-java.el index e545a24..fb4fe42 100644 --- a/oni-java.el +++ b/oni-java.el @@ -4,8 +4,8 @@ ;; Author: Tom Willemse ;; 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,14 +78,15 @@ (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\\'" () "public class " (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) " {\n" - (indent-for-tab-command) _ "\n" - "}")) + (indent-for-tab-command) _ "\n" + "}")) ;;;###autoload(with-eval-after-load 'cc-mode (require 'oni-java)) diff --git a/oni-lsp.el b/oni-lsp.el index 78581a4..312e294 100644 --- a/oni-lsp.el +++ b/oni-lsp.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse ;; 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)