start working on lsp-latex

lib/extensions/latex.el

@@ -3,7 +3,10 @@
 (require 'extensions/latex/init)
 
 ;; Dependencies ----------------------------------
-(depends-on 'company-auctex)
+;(depends-on 'lsp-mode)
+
+;TODO: add to MELPA and remove lsp-latex.el file beside init.el
+;(with-ability lsp-latex (depends-on 'lsp-latex))
 
 (defun latex-doc ()
   "something fun")

lib/extensions/latex/init.el

@@ -1,9 +1,13 @@
 ;;;###autoload
 (defun extensions/latex-initialize ()
   ;;LaTeX development initialization
-  (ability latex-ac (code-completion)
+  (ability lsp-latex ('lsp)
            "Latex autocompletion support."
-           (require 'company-auctex)
-           (add-hook 'latex-mode #'company-auctex-init)))
+	   (setq lsp-latex-texlab-executable "/home/velorin/texlab-x86_64-linux/texlab")
+           (require 'extensions/latex/lsp-latex)
+	   (with-eval-after-load "tex-mode"
+	   (add-hook 'tex-mode-hook 'lsp)
+	   (add-hook 'latex-mode-hook 'lsp))))
+
 
 (provide 'extensions/latex/init)

lib/extensions/latex/lsp-latex.el

@@ -0,0 +1,134 @@
+;;; lsp-latex.el --- lsp-mode client for LaTeX.      -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2019  ROCKTAKEY
+
+;; Author: ROCKTAKEY <rocktakey@gmail.com>
+;; Keywords: languages, extensions, tex
+
+;; Version: 1.0.0
+
+;; Package-Requires: ((emacs "25.1") (lsp-mode "6.0"))
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;
+
+;;; Code:
+(require 'lsp-mode)
+
+(defgroup lsp-latex nil
+  "Language Server Protocol client for LaTeX."
+  :group 'lsp-mode)
+
+
+;; Under texlab v1.0
+
+(defcustom lsp-latex-java-executable "java"
+  "Executable command to run Java.
+This is used with `lsp-latex-java-argument-list'."
+  :group 'lsp-latex
+  :type 'string)
+
+(defcustom lsp-latex-java-argument-list '("-jar")
+  "List of arguments passed to `lsp-latex-java-executable'."
+  :group 'lsp-latex
+  :risky t
+  :type '(repeat string))
+
+(defcustom lsp-latex-texlab-jar-file 'search-from-exec-path
+  "File named \"texlab.jar\".
+You can install it from https://github.com/latex-lsp/texlab/releases/tag/v0.4.1 .
+
+The value can be a string (path to \"texlab.jar\") or the symbol search-from-exec-path. See the docstring of `lsp-latex-get-texlab-jar-file'."
+  :group 'lsp-latex
+  :type '(choice string (const search-from-exec-path)))
+
+(defcustom lsp-latex-texlab-jar-argument-list '()
+  "List of arguments passed to `lsp-latex-texlab-jar-file'. "
+  :group 'lsp-latex
+  :type '(repeat string))
+
+(defun lsp-latex-get-texlab-jar-file ()
+  "Return the path to \"texlab.jar\".
+
+If `lsp-latex-texlab-jar-file' is a string, return it.
+If `lsp-latex-texlab-jar-file' is the symbol search-from-exec-path, then search a file named \"texlab.jar\" from `exec-path'."
+  (cond
+   ((stringp lsp-latex-texlab-jar-file)
+    lsp-latex-texlab-jar-file)
+   ((eq lsp-latex-texlab-jar-file 'search-from-exec-path)
+    (locate-file "texlab.jar" exec-path))
+   (t (error "invalid value of `lsp-latex-texlab-jar-file'"))))
+
+
+;; texlab v1.0 or more
+
+(defcustom lsp-latex-texlab-executable
+  (cond ((eq system-type 'windows-nt)
+         "texlab.exe")
+        (t "texlab"))
+  "Exeucutable command to run texlab.
+Runned with the arguments `lsp-latex-texlab-executable-argument-list'."
+  :group 'lsp-latex
+  :type 'string)
+
+(defcustom lsp-latex-texlab-executable-argument-list '()
+  "list of Arguments passed to `lsp-latex-texlab-executable'."
+  :group 'lsp-latex
+  :type '(repeat string))
+
+
+
+(add-to-list 'lsp-language-id-configuration '(".*\\.tex$" . "latex"))
+
+(defun lsp-latex-new-connection ()
+  ""
+  (let (jar-file)
+    (cond
+     ((locate-file lsp-latex-texlab-executable exec-path)
+      (cons lsp-latex-texlab-executable
+            lsp-latex-texlab-executable-argument-list))
+     ((setq jar-file (lsp-latex-get-texlab-jar-file))
+      (append
+       (cons
+        lsp-latex-java-executable
+        lsp-latex-java-argument-list)
+       (cons
+        jar-file
+        lsp-latex-texlab-jar-argument-list)))
+     (t
+      (error "No executable \"texlab\" file")))))
+
+;; Copied from `lsp-clients--rust-window-progress' in `lsp-rust'.
+(defun lsp-latex-window-progress (_workspace params)
+  "Progress report handling.
+PARAMS progress report notification data."
+  ;; Minimal implementation - we could show the progress as well.
+  (lsp-log (gethash "title" params)))
+
+(lsp-register-client
+   (make-lsp-client :new-connection
+                    (lsp-stdio-connection
+                     #'lsp-latex-new-connection)
+                    :major-modes '(tex-mode yatex-mode latex-mode)
+                    :server-id 'texlab
+                    :notification-handlers
+                    (lsp-ht
+                     ("window/progress"
+                      'lsp-latex-window-progress))))
+
+(provide 'lsp-latex)
+;;; lsp-latex.el ends here