godotengine/emacs-gdscript-mode
1
0
Fork 0
mirror of https://github.com/godotengine/emacs-gdscript-mode.git synced 2026-01-04 18:09:55 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add gdscript-eglot--extract-port function

Browse Source
This commit is contained in:
Kato Muso
2024-11-05 07:04:14 +00:00
parent f8fce3ad1a
commit 686feebf2d
1 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
gdscript-eglot.el
View File

@@ -50,6 +50,17 @@
(or (getenv "XDG_CONFIG_HOME") "~/.config/") (or (getenv "XDG_CONFIG_HOME") "~/.config/")
"godot")))) "godot"))))
(defun gdscript-eglot--extract-port (editor-settings-file)
(when (file-exists-p editor-settings-file)
(with-temp-buffer
(insert-file-contents editor-settings-file)
(when (re-search-forward
(rx "network/language_server/remote_port"
(* space) ?= (* space)
(group (+ digit)))
nil t)
(string-to-number (match-string 1))))))
;;;###autoload ;;;###autoload
(defun gdscript-eglot-contact (_interactive) (defun gdscript-eglot-contact (_interactive)
"Attempt to help `eglot' contact the running gdscript LSP. "Attempt to help `eglot' contact the running gdscript LSP.
@@ -64,16 +75,8 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2023-04/msg01070.html."
(settings-file (file-name-concat (settings-file (file-name-concat
config-dir config-dir
(format "editor_settings-%s.tres" gdscript-eglot-version)))) (format "editor_settings-%s.tres" gdscript-eglot-version))))
(when (file-exists-p settings-file) (when-let ((port (gdscript-eglot--extract-port settings-file)))
(when-let ((port (with-temp-buffer (list "localhost" port)))))
(insert-file-contents settings-file)
(when (re-search-forward
(rx "network/language_server/remote_port"
(* space) ?= (* space)
(group (+ digit)))
nil t)
(string-to-number (match-string 1))))))
(list "localhost" port))))))
(provide 'gdscript-eglot) (provide 'gdscript-eglot)
;;; gdscript-eglot.el ends here. ;;; gdscript-eglot.el ends here.