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--get-config-dir function

Browse Source
This commit is contained in:
Kato Muso
2024-11-05 06:52:29 +00:00
parent 3052839d71
commit f8fce3ad1a
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
gdscript-eglot.el
View File

@@ -42,6 +42,14 @@
"The version of godot in use." "The version of godot in use."
:type 'string) :type 'string)
(defun gdscript-eglot--get-config-dir ()
(pcase system-type
('darwin "~/Library/Application Support/Godot/")
('windows-nt (substitute-in-file-name "$APPDATA/Godot/"))
('gnu/linux (file-name-concat
(or (getenv "XDG_CONFIG_HOME") "~/.config/")
"godot"))))
;;;###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.
@@ -52,12 +60,7 @@ definitions of HOST, PORT, and INTERACTIVE.
For more context, see For more context, see
https://lists.gnu.org/archive/html/bug-gnu-emacs/2023-04/msg01070.html." https://lists.gnu.org/archive/html/bug-gnu-emacs/2023-04/msg01070.html."
(save-excursion (save-excursion
(let* ((config-dir (pcase system-type (let* ((config-dir (gdscript-eglot--get-config-dir))
('darwin "~/Library/Application Support/Godot/")
('windows-nt (substitute-in-file-name "$APPDATA/Godot/"))
('gnu/linux (file-name-concat
(or (getenv "XDG_CONFIG_HOME") "~/.config/")
"godot"))))
(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))))