fix diagnostics when visiting JDT provided files

Change the URI used to refer to a JDT provided file to the one that
was used to generate it in the first place.

Author: gnuemacscoin

eglot-java.el

@@ -1459,6 +1459,24 @@ DESTINATION-DIR is the directory where the LSP server will be installed."
 
 (defvar eglot-java-jdt-uri-handling-patch-applied nil "Whether or not JDT uri handling is already patched.")
 
+(defun eglot-java--wrap-eglot--path-to-uri (original-fn &rest args)
+  "Hack until eglot is updated.
+ARGS is a list with one element, a file path. If that path names a java
+file inside a `.eglot-java' directory, recover the `jdt://' URI from
+within the matching `.metadata' file. Otherwise, call ORIGINAL-FN."
+  (let* ((path (car args))
+         (directory-path (file-name-directory path)))
+    (if (not (and (string= (file-name-extension path) "java")
+                  (string= (file-name-nondirectory (directory-file-name directory-path)) ".eglot-java")))
+        (apply original-fn args)
+      (let* ((base-name (file-name-base path))
+             (metadata-file (concat directory-path "." (format "%s.metadata" base-name))))
+        (if (not (file-readable-p metadata-file))
+            (apply original-fn args)
+          (with-temp-buffer
+            (insert-file-contents metadata-file)
+            (buffer-string)))))))
+
 (defun eglot-java--wrap-legacy-eglot--path-to-uri (original-fn &rest args)
   "Hack until eglot is updated.
 ARGS is a list with one element, a file path or potentially a URI.
@@ -1482,6 +1500,8 @@ handle it. If it is not a jar call ORIGINAL-FN."
 (defun eglot-java--jdthandler-patch-eglot ()
   "Patch old versions of Eglot to work with Jdthandler."
   (interactive) ;; TODO Remove when eglot is updated in melpa
+  (unless (advice-member-p #'eglot-java--wrap-eglot--path-to-uri 'eglot-path-to-uri)
+    (advice-add 'eglot-path-to-uri :around #'eglot-java--wrap-eglot--path-to-uri))
   ;; See also https://debbugs.gnu.org/cgi/bugreport.cgi?bug=58790
   ;; See also https://git.savannah.gnu.org/gitweb/?p=emacs.git;a=blob;f=lisp/progmodes/eglot.el#l1558
   (unless (or (and (advice-member-p #'eglot-java--wrap-legacy-eglot--path-to-uri 'eglot--path-to-uri)