Reduce amount of auto-staring

This commit is contained in:
Alexander Rosenberg 2024-10-21 17:12:25 -07:00
parent 22c70eaaa6
commit d77e600000
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730

19
init.el
View File

@ -1025,12 +1025,11 @@ With PROJECT, give diagnostics for all buffers in the current project."
(use-package eglot (use-package eglot
:demand t :demand t
:pin gnu ;; try to force Elpa version to fix warnings :pin gnu ;; try to force Elpa version to fix warnings
:hook ((eglot-managed-mode . my/-eglot-setup) :hook ((eglot-managed-mode . my/-eglot-setup))
(text-mode . my/eglot-in-text-mode-only))
:init :init
(defun my/eglot-in-text-mode-only () ;; (defun my/eglot-in-text-mode-only ()
(when (eq major-mode 'text-mode) ;; (when (eq major-mode 'text-mode)
(eglot-ensure))) ;; (eglot-ensure)))
(defvar my/-eglot-documentation-buffer nil (defvar my/-eglot-documentation-buffer nil
"Buffer for showing documentation for `my/eglot-documentation-at-point'.") "Buffer for showing documentation for `my/eglot-documentation-at-point'.")
(defun my/eglot-documentation-at-point () (defun my/eglot-documentation-at-point ()
@ -1366,8 +1365,7 @@ otherwise, call `bibtex-find-text'."
:hook ((LaTeX-mode . turn-on-reftex) :hook ((LaTeX-mode . turn-on-reftex)
(LaTeX-mode . LaTeX-math-mode) (LaTeX-mode . LaTeX-math-mode)
(LaTeX-mode . my/-setup-LaTeX-mode) (LaTeX-mode . my/-setup-LaTeX-mode)
(LaTeX-mode . flycheck-mode) (LaTeX-mode . flycheck-mode))
(LaTeX-mode . eglot-ensure))
:bind (:map TeX-mode-map :bind (:map TeX-mode-map
("C-c ?" . latex-help)) ("C-c ?" . latex-help))
:init :init
@ -1616,9 +1614,9 @@ line in the block and manually deal with indentation."
;; sly ;; sly
(use-package sly (use-package sly
:hook (lisp-mode . my/-lisp-mode-autoconnect-sly) ;; :hook (lisp-mode . my/-lisp-mode-autoconnect-sly)
:bind (:map sly-mode-map :bind (:map sly-mode-map
("C-c e" . my/sly-show-notes-at-point)) ; noindent ("C-c e" . my/sly-show-notes-at-point))
:autoload sly-connected-p :autoload sly-connected-p
:init :init
(defun my/-lisp-mode-autoconnect-sly () (defun my/-lisp-mode-autoconnect-sly ()
@ -2137,7 +2135,8 @@ The name is compared with the field name using TESTFN (defaults to `equal')."
"Setup up stuff in `org-mu4e-compose' buffers." "Setup up stuff in `org-mu4e-compose' buffers."
(setq-local ltex-eglot-variable-save-method 'file) (setq-local ltex-eglot-variable-save-method 'file)
;; this should come last so it can pick up the above ;; this should come last so it can pick up the above
(eglot-ensure)) ;; (eglot-ensure)
)
(add-hook 'org-mu4e-compose-mode-hook #'my/-setup-org-mu4e-compose-mode) (add-hook 'org-mu4e-compose-mode-hook #'my/-setup-org-mu4e-compose-mode)
;; elfeed ;; elfeed