sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-11 19:45:25 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat(emacs): run lsp-ltex only when necessary

Browse source
This commit is contained in:
Pavel Korytov 2023-02-13 18:30:33 +03:00
parent d2620549b8
commit 868e94ef20
2 changed files with 39 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
.emacs.d/init.el
View file

@ -1234,7 +1234,7 @@ influence of C1 on the result."
(haskell-literate-mode . lsp) (haskell-literate-mode . lsp)
(java-mode . lsp) (java-mode . lsp)
;; (csharp-mode . lsp) ;; (csharp-mode . lsp)
(text-mode . lsp)) )
:commands lsp :commands lsp
:init :init
(setq lsp-keymap-prefix nil) (setq lsp-keymap-prefix nil)
@ -2181,6 +2181,21 @@ Returns (<buffer> . <workspace-index>) or nil."
'("en-US" "ru-RU" "de-DE"))) '("en-US" "ru-RU" "de-DE")))
(lsp-workspace-restart (lsp--read-workspace))) (lsp-workspace-restart (lsp--read-workspace)))
(defun my/ltex-need-p ()
(let ((file-name (buffer-file-name)))
(cond
((null file-name) nil)
((string-match-p (rx "/home/pavel/" (+ alnum) ".org" eos) file-name) nil)
((string-match-p (rx (literal org-directory) "/" (or "roam" "inbox-notes" "literature-notes" "journal")) file-name) t)
((string-match-p (rx (literal org-directory)) file-name) nil)
(t t))))
(defun my/text-mode-lsp-maybe ()
(when (my/ltex-need-p)
(lsp)))
(add-hook 'text-mode-hook #'my/text-mode-lsp-maybe)
(use-package langtool (use-package langtool
:straight t :straight t
:commands (langtool-check) :commands (langtool-check)

25
Emacs.org
View file

@ -1945,7 +1945,7 @@ References:
(haskell-literate-mode . lsp) (haskell-literate-mode . lsp)
(java-mode . lsp) (java-mode . lsp)
;; (csharp-mode . lsp) ;; (csharp-mode . lsp)
(text-mode . lsp)) )
:commands lsp :commands lsp
:init :init
(setq lsp-keymap-prefix nil) (setq lsp-keymap-prefix nil)
@ -2964,6 +2964,27 @@ A function to switch the current language.
'("en-US" "ru-RU" "de-DE"))) '("en-US" "ru-RU" "de-DE")))
(lsp-workspace-restart (lsp--read-workspace))) (lsp-workspace-restart (lsp--read-workspace)))
#+end_src #+end_src
Check whether it's necessary to run LTeX:
#+begin_src emacs-lisp
(defun my/ltex-need-p ()
(let ((file-name (buffer-file-name)))
(cond
((null file-name) nil)
((string-match-p (rx "/home/pavel/" (+ alnum) ".org" eos) file-name) nil)
((string-match-p (rx (literal org-directory) "/" (or "roam" "inbox-notes" "literature-notes" "journal")) file-name) t)
((string-match-p (rx (literal org-directory)) file-name) nil)
(t t))))
#+end_src
To use it in =text-mode-hook=
#+begin_src emacs-lisp
(defun my/text-mode-lsp-maybe ()
(when (my/ltex-need-p)
(lsp)))
(add-hook 'text-mode-hook #'my/text-mode-lsp-maybe)
#+end_src
*** LanguageTool *** LanguageTool
LanguageTool is a great offline spell checker. For some reason, the download link is nowhere to be found on the home page, so it is listed in the references as well. LanguageTool is a great offline spell checker. For some reason, the download link is nowhere to be found on the home page, so it is listed in the references as well.
@ -3601,7 +3622,7 @@ Setting up =org-crypt= to encrypt parts of file.
(with-eval-after-load-norem 'org (with-eval-after-load-norem 'org
(require 'org-crypt) (require 'org-crypt)
(org-crypt-use-before-save-magic) (org-crypt-use-before-save-magic)
(setq org-tags-exclude-from-inheritance (quote ("crypt"))) (setq org-tags-exclude-from-inheritance '("crypt"))
(setq org-crypt-key "C1EC867E478472439CC82410DE004F32AFA00205")) (setq org-crypt-key "C1EC867E478472439CC82410DE004F32AFA00205"))
#+end_src #+end_src