Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Some changes

Browse Source
This commit is contained in:
Alexander Rosenberg 2024-10-14 16:12:36 -07:00
parent 7cd012f02b
commit a83f5ea6c1
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
elisp/latex-help.el
View File

@ -2,7 +2,7 @@
;;; Commentary: ;;; Commentary:
;; This is inspired by an old package (originally from the 90s!!) called ;; This is inspired by an old package (originally from the 90s!!) called
;; ltx-help.el. This package used to be called latex-help.el too, but it seems ;; ltx-help.el. That package used to be called latex-help.el too, but it seems
;; to have had its name changed sometime around 2010. This package aims for ;; to have had its name changed sometime around 2010. This package aims for
;; similar functionality, but using more up to date and convention-conforming ;; similar functionality, but using more up to date and convention-conforming
;; Elisp. For example, the original package still assumes that you may not have ;; Elisp. For example, the original package still assumes that you may not have
@ -285,8 +285,7 @@ FOUND is the hash table in which to put the entries."
(let ((name (file-name-nondirectory file))) (let ((name (file-name-nondirectory file)))
(and (not (equal name ".")) (and (not (equal name "."))
(not (equal name ".."))))) (not (equal name "..")))))
files))))) files)))))))
finally return found))
(defun latex-help--texdoc-config-files () (defun latex-help--texdoc-config-files ()
"Return a list of texdoc config files." "Return a list of texdoc config files."

17
init.el
View File

@ -643,6 +643,8 @@ visual states."
(use-package corfu (use-package corfu
:bind (("M-<tab>" . completion-at-point) :bind (("M-<tab>" . completion-at-point)
:map corfu-map :map corfu-map
("C-j" . corfu-next)
("C-k" . corfu-previous)
("M-SPC" . corfu-insert-separator) ("M-SPC" . corfu-insert-separator)
("M-m" . my/corfu-move-to-minibuffer)) ("M-m" . my/corfu-move-to-minibuffer))
:init :init
@ -1127,6 +1129,17 @@ otherwise, call `bibtex-find-text'."
(add-to-list 'major-mode-remap-alist '(doctex-mode . docTeX-mode)) (add-to-list 'major-mode-remap-alist '(doctex-mode . docTeX-mode))
(add-to-list 'auto-mode-alist '("/\\.latexmkrc\\'" . perl-mode)) (add-to-list 'auto-mode-alist '("/\\.latexmkrc\\'" . perl-mode))
:config :config
(defun my/-auctex-texdoc-setup-env (oldfun &rest args)
(let ((process-environment))
(if (display-graphic-p)
(progn (setenv "MDVIEWER_texdoc" "emacsclient")
(setenv "PDFVIEWER_texdoc" "emacsclient")
(setenv "PAGER_texdoc" "emacsclient"))
(setenv "MDVIEWER_texdoc" "emacsclient -nw")
(setenv "PDFVIEWER_texdoc" "evince")
(setenv "PAGER_texdoc" "emacsclient -nw"))
(apply oldfun args)))
(advice-add 'TeX-documentation-texdoc :around 'my/-auctex-texdoc-setup-env)
(defun my/-setup-LaTeX-mode () (defun my/-setup-LaTeX-mode ()
(setq evil-lookup-func 'latex-help-at-point)) (setq evil-lookup-func 'latex-help-at-point))
(setq TeX-auto-save t (setq TeX-auto-save t
@ -1541,8 +1554,8 @@ argument."
(eshell-load . eat-eshell-mode) (eshell-load . eat-eshell-mode)
(eshell-mode . my/-eshell-mode-setup)) (eshell-mode . my/-eshell-mode-setup))
:bind (:map eshell-mode-map :bind (:map eshell-mode-map
("TAB" . company-complete) ("TAB" . completion-at-point)
("<tab>" . company-complete)) ("<tab>" . completion-at-point))
:init :init
(defun my/-eshell-mode-setup () (defun my/-eshell-mode-setup ()
"Setup function run from `eshell-mode-hook'" "Setup function run from `eshell-mode-hook'"