Add support for workspace/codeLens/refresh (#3047)

Author: ericdallo

lsp-lens.el

@@ -309,6 +309,13 @@ CALLBACK - callback for the lenses."
           (funcall callback lsp-lens--backend-cache lsp--cur-version)
         (lsp-lens--backend-fetch-missing lsp-lens--backend-cache callback lsp--cur-version)))))
 
+(defun lsp--lens-on-refresh (workspace)
+  "Clear lens within all buffers of WORKSPACE, refreshing all workspace buffers."
+  (cl-assert (not (eq nil workspace)))
+  (cl-loop
+   for ws-buffer in (lsp--workspace-buffers workspace) do
+   (lsp-lens-refresh t ws-buffer)))
+
 ;;;###autoload
 (defun lsp-lens--enable ()
   "Enable lens mode."

lsp-mode.el

@@ -3347,7 +3347,7 @@ disappearing, unset all the variables related to it."
                    (workspaceFolders . t)
                    (configuration . t)
                    ,@(when lsp-semantic-tokens-enable '((semanticTokens . ((refreshSupport . t)))))
-                   ,@(when lsp-lens-enable '((codeLens . ((refreshSupport . :json-false)))))
+                   ,@(when lsp-lens-enable '((codeLens . ((refreshSupport . t)))))
                    (fileOperations . ((didCreate . :json-false)
                                       (willCreate . :json-false)
                                       (didRename . :json-false)
@@ -6181,6 +6181,11 @@ WORKSPACE is the active workspace."
                                  (fboundp 'lsp--semantic-tokens-on-refresh))
                         (lsp--semantic-tokens-on-refresh workspace))
                       nil)
+                     ((equal method "workspace/codeLens/refresh")
+                      (when (and lsp-lens-enable
+                                 (fboundp 'lsp--lens-on-refresh))
+                        (lsp--lens-on-refresh workspace))
+                      nil)
                      (t (lsp-warn "Unknown request method: %s" method) nil))))
     ;; Send response to the server.
     (unless (eq response 'delay-response)