Add support for Clojure/ClojureScript via clojure-lsp

Additionally enable jumping into jarred dependencies if the server is
configured to return the URI in the right format

Author: benedekfazekas

README.org

@@ -106,6 +106,7 @@
    | C++                   | [[https://github.com/MaskRay/ccls][ccls]]                                      | [[https://github.com/MaskRay/emacs-ccls][emacs-ccls]]     | [[https://github.com/MaskRay/ccls][ccls]]                                                     | Yes (gdb or lldb)            |
    | C++                   | [[https://clang.llvm.org/extra/clangd.html][clangd]]                                    | Yes            | [[https://clang.llvm.org/extra/clangd.html][clangd]]                                                   | Yes (gdb or lldb)            |
    | C++                   | [[https://github.com/cquery-project/cquery][cquery]]                                    | [[https://github.com/cquery-project/emacs-cquery][emacs-cquery]]   | [[https://github.com/cquery-project/cquery][cquery]]                                                   | Yes (gdb or lldb)            |
+   | Clojure               | [[https://github.com/snoe/clojure-lsp][clojure-lsp]]                               | Yes            | [[https://github.com/snoe/clojure-lsp][clojure-lisp]]                                             |                              |
    | CSS/LessCSS/SASS/SCSS | [[https://github.com/vscode-langservers/vscode-css-languageserver-bin][css]]                                       | Yes            | npm install -g vscode-css-languageserver-bin             |                              |
    | Dart                  | [[https://github.com/natebosch/dart_language_server][dart_language_server]]                      | Yes            | pub global activate dart_language_server                 |                              |
    | Elixir                | [[https://github.com/JakeBecker/elixir-ls][elixir-ls]]                                 | Yes            | [[https://github.com/JakeBecker/elixir-ls][elixir-ls]]                                                | Yes                          |

lsp-clients.el

@@ -35,6 +35,7 @@
 (require 'lsp-css)
 (require 'lsp-xml)
 (require 'lsp-go)
+(require 'lsp-clojure)
 
 ;;; Bash
 (lsp-register-client

lsp-clojure.el

@@ -0,0 +1,55 @@
+;;; lsp-clojure.el --- Clojure Client settings             -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2019  Benedek Fazekas
+
+;; Author: Benedek Fazekas <[email protected]>
+;; Keywords:
+
+;; 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 <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; lsp-clojure client
+
+;;; Code:
+
+(require 'lsp-mode)
+
+;; enables jumping into jarred dependencies
+;; in order to make this work the project needs to have a .lsp/config.edn with
+;; {"dependency-scheme" "jar"} in it so the server returns the URI in the right format
+(defun lsp-clj--file-in-jar (uri)
+  (string-match "^\\(jar\\|zip\\):\\(file:.+\\)!/\\(.+\\)" uri)
+  (when-let* ((entry (match-string 3 uri))
+              (path (lsp--uri-to-path (match-string 2 uri)))
+              (name (format "%s:%s" path entry))
+              (content (lsp-send-request (lsp-make-request "clojure/dependencyContents" (list :uri uri)))))
+    (if (find-buffer-visiting name)
+        (message "buffer %s exists" name)
+      (with-current-buffer (generate-new-buffer name)
+        (insert content)
+        (set-visited-file-name name)
+        (setq-local buffer-read-only t)
+        (set-buffer-modified-p nil)
+        (set-auto-mode)
+        (current-buffer)))
+    name))
+
+(lsp-register-client
+ (make-lsp-client :new-connection (lsp-stdio-connection '("bash" "-c" "clojure-lsp"))
+                  :major-modes '(clojure-mode clojurec-mode clojurescript-mode)
+                  :uri-handlers (lsp-ht ("jar" #'lsp-clj--file-in-jar))
+                  :server-id 'clojure-lsp))
+
+(provide 'lsp-clojure)