fix(ltex): use ltex-ls as TCP server, add helpers

LTeX-LS v16.0.0 is not working when launched as a STDIO stream, we
switch to TCP for communications. The server can be started or stopped
locally using `ltex-ls-start` and `ltex-ls-stop` respectively.

core/me-loaddefs.el

@@ -588,9 +588,11 @@ Fallback to FALLBACK-RELEASE when it can't get the last one.
 (register-definition-prefixes "me-defaults" '("+whitespace-auto-cleanup-modes"))
 
 
-;;; Generated autoloads from ../modules/extras/me-eglot-ltex-extras.el
+;;; Generated autoloads from ../modules/extras/me-eglot-ltex.el
 
-(register-definition-prefixes "../modules/extras/me-eglot-ltex-extras" '("eglot-ltex-"))
+(autoload 'ltex-ls-start "../modules/extras/me-eglot-ltex" "\
+Start LTeX-LS as a TCP server at localhost:40001." t)
+(register-definition-prefixes "../modules/extras/me-eglot-ltex" '("eglot-ltex-" "ltex-ls-"))
 
 
 ;;; Generated autoloads from ../modules/extras/me-elisp-extras.el

modules/extras/me-eglot-ltex-extras.el → modules/extras/me-eglot-ltex.el

@@ -1,4 +1,4 @@
-;;; me-eglot-ltex-extras.el --- Extra functionality for Eglot+LTeX-LS -*- lexical-binding: t; -*-
+;;; me-eglot-ltex.el --- Extra functionality for Eglot+LTeX-LS -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2022-2023  Abdelhak Bougouffa
 
@@ -34,6 +34,36 @@
 (defvar-local eglot-ltex-language "auto")
 (defvar eglot-ltex-user-rules-path (concat minemacs-local-dir "eglot/ltex/"))
 
+(defvar ltex-ls-command "ltex-ls")
+(defvar ltex-ls-server-port 40001)
+(defvar ltex-ls-server-process-name "ltex-ls-server")
+(defvar ltex-ls--process nil)
+
+;;;###autoload
+(defun ltex-ls-start ()
+  "Start LTeX-LS as a TCP server at port `ltex-ls-server-port' on \"localhost\"."
+  (interactive)
+  (if (eq (process-status ltex-ls-server-process-name) 'run)
+      (message "LTeX-LS server already running!")
+    (if (executable-find ltex-ls-command)
+        (setq ltex-ls--process
+              (make-process
+               :name ltex-ls-server-process-name
+               :buffer (format " *%s*" ltex-ls-server-process-name)
+               :command (list ltex-ls-command "--server-type=TcpSocket" (format "--port=%d" ltex-ls-server-port))))
+      (user-error "LTeX-LS command \"%s\" not found." ltex-ls-command))
+    (if (process-live-p ltex-ls--process)
+        (message "Started LTeX-LS TCP server successfuly.")
+      (user-error "Cannot start LTeX-LS TCP server."))))
+
+(defun ltex-ls-stop ()
+  "Stop LTeX-LS server if running."
+  (interactive)
+  (if (not (process-live-p ltex-ls--process))
+      (message "No running instance of LTeX-LS server!")
+    (delete-process ltex-ls--process)
+    (message "LTeX-LS server stopped.")))
+
 (defvar eglot-ltex-dictionary
   (+deserialize-sym 'eglot-ltex-dictionary eglot-ltex-user-rules-path))
 
@@ -85,14 +115,16 @@ When STORE is non-nil, this will also store the new plist in the directory
             (plist-get args-plist lang)))))
 
 (defun eglot-ltex-enable-handling-client-commands ()
+  "Enable Eglot hack to handle code actions of LTeX-LS."
   (interactive)
   (advice-add 'eglot-execute-command :before #'eglot-ltex--can-process-client-commands-a))
 
 (defun eglot-ltex-disable-handling-client-commands ()
+  "Disable Eglot hack to handle code actions of LTeX-LS."
   (interactive)
   (advice-remove 'eglot-execute-command #'eglot-ltex--can-process-client-commands-a))
 
 
-(provide 'me-eglot-ltex-extras)
+(provide 'me-eglot-ltex)
 
-;;; me-eglot-ltex-extras.el ends here
+;;; me-eglot-ltex.el ends here

modules/me-natural-langs.el

@@ -200,14 +200,14 @@
 ;;        . ((ltex . ((language . "fr")
 ;;                    (disabledRules . ((fr . ["FRENCH_WHITESPACE"])))
 ;;                    (additionalRules . ((languageModel . "/usr/share/ngrams/")))))))))
-(use-package me-eglot-ltex-extras
+(use-package me-eglot-ltex
   :after eglot
   :demand t
   :config
   (eglot-ltex-enable-handling-client-commands)
   (+eglot-register
     '(text-mode org-mode markdown-mode rst-mode latex-mode bibtex-mode context-mode)
-    "ltex-ls"))
+    `("localhost" ,ltex-ls-server-port)))
 
 
 (provide 'me-natural-langs)