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/style/foils.el | 68 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 68 insertions(+) create mode 100644 elpa/auctex-13.1.3/style/foils.el (limited to 'elpa/auctex-13.1.3/style/foils.el') diff --git a/elpa/auctex-13.1.3/style/foils.el b/elpa/auctex-13.1.3/style/foils.el new file mode 100644 index 0000000..b53b532 --- /dev/null +++ b/elpa/auctex-13.1.3/style/foils.el @@ -0,0 +1,68 @@ +;;; foils.el - Special code for FoilTeX. -*- lexical-binding: t; -*- + +;; Copyright (C) 1994-2021 Free Software Foundation, Inc. + +;; Author: Per Abrahamsen +;; Maintainer: auctex-devel@gnu.org +;; Keywords: tex + +;; This file is part of AUCTeX. + +;; AUCTeX 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. + +;; AUCTeX 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 AUCTeX. If not, see . + +;;; Code: + +(require 'tex) +(require 'latex) +(require 'timezone) + +(TeX-add-style-hook "foils" + (function + (lambda () + (add-hook 'LaTeX-document-style-hook #'LaTeX-style-foils) + (setq LaTeX-default-style "foils") + (setq LaTeX-default-options '("landscape")) + (TeX-add-symbols + '("foilhead" [ "Rubric-body separation" ] "Foil rubric")))) + TeX-dialect) + +(defun LaTeX-style-foils nil + "Prompt for and insert foiltex options." + (let* ((date (timezone-parse-date (current-time-string))) + (year (string-to-number (aref date 0))) + (month (string-to-number (aref date 1))) + (day (string-to-number (aref date 2))) + (title (TeX-read-string "Title: "))) + (save-excursion + (goto-char (point-max)) + (re-search-backward ".begin.document.") + (insert TeX-esc "title" + TeX-grop title TeX-grcl "\n") + (insert TeX-esc "author" + TeX-grop (user-full-name) TeX-grcl "\n") + (insert TeX-esc "date" TeX-grop + (format "%d-%02d-%02d" year month day) + TeX-grcl "\n") + (insert "" TeX-esc "MyLogo" TeX-grop TeX-grcl "\n") + (insert "%" TeX-esc "Restriction" TeX-grop TeX-grcl "\n") + (insert "%" TeX-esc "rightfooter" TeX-grop TeX-grcl "\n") + (insert "%" TeX-esc "leftheader" TeX-grop TeX-grcl "\n") + (insert "%" TeX-esc "rightheader" TeX-grop TeX-grcl "\n\n") + (re-search-forward ".begin.document.") + (end-of-line) + (newline-and-indent) + (insert "" TeX-esc "maketitle\n\n")) + (forward-line -1))) + +;;; foils.el ends here -- cgit v1.2.1