Use lsp-protocol and plists

Author: ericdallo

lsp-ivy.el

@@ -33,6 +33,8 @@
 
 (require 'ivy)
 (require 'dash)
+
+(require 'lsp-protocol)
 (require 'lsp-mode)
 
 (defgroup lsp-ivy nil
@@ -111,33 +113,34 @@
           (cons string face)))
 
 
-(defun lsp-ivy--format-symbol-match (match)
-  "Convert the MATCH returned by `lsp-mode` into a candidate string.
-MATCH is a cons cell whose cdr is the hash-table from `lsp-mode`."
-  (let* ((match (cdr match))
-         (container-name (gethash "containerName" match))
-         (name (gethash "name" match))
-         (type (elt lsp-ivy-symbol-kind-to-face (gethash "kind" match) ))
-         (typestr (if lsp-ivy-show-symbol-kind
-                      (propertize (format "[%s] " (car type)) 'face (cdr type))
-                    "")))
-    (concat typestr (if (or (null container-name) (string-empty-p container-name))
+(defun lsp-ivy--format-symbol-match (symbol-information-match)
+  "Convert the match returned by `lsp-mode` into a candidate string.
+SYMBOL-INFORMATION-MATCH is a cons cell whose cdr is the hash-table from `lsp-mode`."
+  (-let* (((&SymbolInformation :name :kind :container-name?) (cdr symbol-information-match))
+          (type (elt lsp-ivy-symbol-kind-to-face kind))
+          (typestr (if lsp-ivy-show-symbol-kind
+                       (propertize (format "[%s] " (car type)) 'face (cdr type))
+                     "")))
+    (concat typestr (if (or (null container-name?) (string-empty-p container-name?))
                         (format "%s" name)
-                      (format "%s.%s" container-name name)))))
-
-(defun lsp-ivy--workspace-symbol-action (candidate)
-  "Jump to selected CANDIDATE, a cons cell whose cdr is a hash table."
-  (-let* ((candidate (cdr candidate))
-          ((&hash "uri" "range" (&hash "start" (&hash "line" "character")))
-           (gethash "location" candidate)))
+                      (format "%s.%s" container-name? name)))))
+
+(defun lsp-ivy--workspace-symbol-action (symbol-information-candidate)
+  "Jump to selected SYMBOL-INFORMATION-CANDIDATE, a cons cell whose cdr is a hash table."
+  (-let (((&SymbolInformation :location
+                              (&Location :uri
+                                         :range
+                                         (&Range :start
+                                                 (&Position :line :character))))
+          (cdr symbol-information-candidate)))
     (find-file (lsp--uri-to-path uri))
     (goto-char (point-min))
     (forward-line line)
     (forward-char character)))
 
-(defun lsp-ivy--filter-func (candidate)
-  "Filter CANDIDATE kind from symbol kinds."
-  (member (gethash "kind" candidate) lsp-ivy-filter-symbol-kind))
+(lsp-defun lsp-ivy--filter-func ((&SymbolInformation :kind))
+  "Filter candidate kind from symbol kinds."
+  (member kind lsp-ivy-filter-symbol-kind))
 
 (defun lsp-ivy--workspace-symbol (workspaces prompt initial-input)
   "Search against WORKSPACES with PROMPT and INITIAL-INPUT."
@@ -147,13 +150,13 @@ MATCH is a cons cell whose cdr is the hash-table from `lsp-mode`."
      (with-lsp-workspaces workspaces
        (lsp-request-async
         "workspace/symbol"
-        (list :query user-input)
+        (lsp-make-workspace-symbol-params :query user-input)
         (lambda (result)
           (ivy-update-candidates
            (mapcar
-            (lambda (data)
-              (cons (gethash "name" data) data))
-            (-remove 'lsp-ivy--filter-func result))))
+            (-lambda ((symbol-information &as &SymbolInformation :name))
+              (cons name symbol-information))
+            (-remove #'lsp-ivy--filter-func result))))
         :mode 'detached
         :cancel-token :workspace-symbol))
      0)