handle relative glob pattern (#4777)

compatible with plist and ht

also fix error in json schema

Author: thanhvg

lsp-mode.el

@@ -2997,11 +2997,11 @@ and end-of-string meta-characters."
 (defun lsp-glob-to-regexps (glob-pattern)
   "Convert a GLOB-PATTERN to a list of Elisp regexps."
   (when-let*
-      ((glob-pattern (cond ((hash-table-p glob-pattern)
-                            (ht-get glob-pattern "pattern"))
-                           ((stringp glob-pattern) glob-pattern)
-                           (t (error "Unknown glob-pattern type: %s" glob-pattern))))
-       (trimmed-pattern (string-trim glob-pattern))
+      ((glob (pcase glob-pattern
+               ((pred stringp) glob-pattern)
+               ((lsp-interface RelativePattern :base-uri :pattern) (format "%s%s" base-uri pattern))
+               (_ (error "Unknown glob-pattern type: %s" glob-pattern))))
+       (trimmed-pattern (string-trim glob))
        (top-level-unbraced-patterns (lsp-glob-unbrace-at-top-level trimmed-pattern)))
     (seq-map #'lsp-glob-convert-to-wrapped-regexp
              top-level-unbraced-patterns)))

lsp-protocol.el

@@ -828,6 +828,7 @@ See `-let' for a description of the destructuring mechanism."
  (WillSaveTextDocumentParams (:reason :textDocument) nil)
  (WorkspaceSymbolParams (:query) nil)
  ;; 3.17
+ (RelativePattern (:baseUri :pattern) nil)
  (LabelDetails nil (:detail :description))
  (InlayHint (:label :position) (:kind :paddingLeft :paddingRight))
  (InlayHintLabelPart (:value) (:tooltip :location :command))

scripts/generated.protocol.schema.json

@@ -1737,7 +1737,7 @@
                     "type": "string"
                 }
             },
-            "required": ["uri" "name"]
+            "required": ["uri", "name"]
         },
         "WorkspaceFoldersChangeEvent": {
             "type": "object",