Prompt for :sourcePaths for jdtls

[JasZhe]

I have this little method

(defun prompt-for-java-source-paths ()
  (let ((paths '()))
    (while-let ((src-path (when-let (file-name (read-file-name "src/main/java path: " (project-root (project-current)) "" t ""))
                           (if (string-empty-p file-name) nil file-name))))
      (push src-path paths)
      )
      (coerce paths 'vector)
    )
  )

To help me continuously prompt for source paths to use for java debugging.

I added :sourcePaths (prompt-for-java-source-paths) to the jdtls config. For the most part it works, but one annoying thing that happens is that this gets called twice. Not sure if anyone would know of a way to just get this to run once

[JasZhe]

Nevermind, one way I solved it was to put this method in the ensure

ensure (lambda (config) 
          (unless (plist-get config :sourcePaths)
             (plist-put config :sourcePaths (prompt-for-java-source-paths)))
        ...

This seems to work quite nicely now

A little embarrassing for me, I tried this earlier but I had (plist-get :sourcePaths config) earlier so it was still prompting me twice 🤦
Still, hopefully someone finds some use out of this