blob: b53b532605a06bc8ffa69295813b50d5cbdf4d30 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
;;; foils.el - Special code for FoilTeX. -*- lexical-binding: t; -*-
;; Copyright (C) 1994-2021 Free Software Foundation, Inc.
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; 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 <https://www.gnu.org/licenses/>.
;;; 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
|
