From becff06c71d277647eda4378203d03ab36e141eb Mon Sep 17 00:00:00 2001 From: mattkae Date: Tue, 17 May 2022 07:07:37 -0400 Subject: Evil mode and latex support --- elpa/auctex-13.1.3/tex-wizard.el | 111 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 111 insertions(+) create mode 100644 elpa/auctex-13.1.3/tex-wizard.el (limited to 'elpa/auctex-13.1.3/tex-wizard.el') diff --git a/elpa/auctex-13.1.3/tex-wizard.el b/elpa/auctex-13.1.3/tex-wizard.el new file mode 100644 index 0000000..1597e27 --- /dev/null +++ b/elpa/auctex-13.1.3/tex-wizard.el @@ -0,0 +1,111 @@ +;;; tex-wizard.el --- Check the TeX configuration -*- lexical-binding: t; -*- + +;; Copyright (C) 2003-2021 Free Software Foundation, Inc. + +;; Author: David Kastrup +;; Keywords: tex, wp, convenience + +;; This file 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, or (at your option) +;; any later version. + +;; This file 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 GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; This checks through your TeX configuration. Call M-x TeX-wizard RET + +;;; Code: + +(defun TeX-wizard nil + (interactive) + (switch-to-buffer "*TeX wizard*") + (let ((wizwin (selected-window)) + (wizbuf (current-buffer))) + (set-visited-file-name nil) + (erase-buffer) + (if (featurep 'tex-site) + (insert-before-markers "AUCTeX is enabled. Good.\n") + (insert-before-markers "\ +It appears that AUCTeX is not enabled. AUCTeX is the main +major mode for editing TeX/LaTeX files.\n") + (condition-case nil + (info-other-window "(AUCTeX)") + (error (select-window wizwin) + (switch-to-buffer wizbuf) + (insert-before-markers "(I am unable to find AUCTeX's info file.)\n"))) + (if (prog1 (y-or-n-p "Should I try enabling AUCTeX now? ") + (select-window wizwin) + (switch-to-buffer wizbuf)) + (condition-case nil + (require 'tex-site) + (error (insert-before-markers "AUCTeX appears not to be installed.\n"))) + (insert-before-markers "AUCTeX installation imprudently skipped.\n")) + (when (featurep 'tex-site) + (when (prog1 (yes-or-no-p (format "Also enable AUCTeX in `%s'" user-init-file)) + (select-window wizwin) + (switch-to-buffer wizbuf)) + (write-region "\ +;;; Enable AUCTeX +\(require 'tex-site)\n" nil user-init-file t)))) + (if (memq 'turn-on-reftex + (if (featurep 'tex-site) + (and (boundp 'LaTeX-mode-hook) LaTeX-mode-hook) + (and (boundp 'latex-mode-hook) latex-mode-hook))) + (insert-before-markers "RefTeX is enabled. Good.\n") + (insert-before-markers "\ +It appears that RefTeX is not enabled. RefTeX is a mode +that will greatly facilitate the management of labels +and bibliographics references.\n") + (condition-case nil + (info-other-window "(RefTeX)") + (error (select-window wizwin) + (switch-to-buffer wizbuf) + (insert-before-markers + "(I am unable to find RefTeX's info file.)\n"))) + (when (prog1 (yes-or-no-p + (format "Enable RefTeX in `%s'" user-init-file)) + (select-window wizwin) + (switch-to-buffer wizbuf)) + (add-hook 'LaTeX-mode-hook #'turn-on-reftex) + (add-hook 'latex-mode-hook #'turn-on-reftex) + (condition-case nil + (write-region "\ +;;; Enable RefTeX +\(add-hook 'LaTeX-mode-hook #'turn-on-reftex) +\(add-hook 'latex-mode-hook #'turn-on-reftex) +" nil user-init-file t) + (error (insert-before-markers + (format "Unable to write to file `%s'\n" user-init-file)))))) + (when (and (featurep 'tex-site) + (boundp 'LaTeX-mode-hook) + (memq #'turn-on-reftex LaTeX-mode-hook)) + (if (and (boundp 'reftex-plug-into-AUCTeX) + reftex-plug-into-AUCTeX) + (insert-before-markers + "RefTeX appears to be configured for use with AUCTeX.\n") + (require 'reftex) + (insert-before-markers "\ +It appears that RefTeX is not configured to cooperate with +AUCTeX. Please configure it using the menus, save for future +sessions, then press the finish button.") + (customize-variable-other-window 'reftex-plug-into-AUCTeX) + (set (make-local-variable 'custom-buffer-done-kill) t) + (add-hook 'kill-buffer-hook #'exit-recursive-edit nil t) + (recursive-edit) + (select-window wizwin) + (switch-to-buffer wizbuf)))) + (insert-before-markers "That's all!\n")) + + +(provide 'tex-wizard) +;;; tex-wizard.el ends here -- cgit v1.2.1