Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexadd.el @ 252:73fef09ebc15 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Completion relay: documentclass -> title, document -> section.
author HIROSE Yuuji <yuuji@gentei.org>
date Sat, 11 Feb 2012 23:38:51 +0900
parents c2aa2457a74b
children 45ea6e6e5b26
comparison
equal deleted inserted replaced
251:ceca2d094d6f 252:73fef09ebc15
1 ;;; -*- Emacs-Lisp -*- 1 ;;; -*- Emacs-Lisp -*-
2 ;;; YaTeX add-in functions. 2 ;;; YaTeX add-in functions.
3 ;;; yatexadd.el rev.20 3 ;;; yatexadd.el rev.20
4 ;;; (c)1991-2012 by HIROSE Yuuji.[yuuji@yatex.org] 4 ;;; (c)1991-2012 by HIROSE Yuuji.[yuuji@yatex.org]
5 ;;; Last modified Sat Feb 11 12:01:45 2012 on firestorm 5 ;;; Last modified Sat Feb 11 23:36:21 2012 on firestorm
6 ;;; $Id$ 6 ;;; $Id$
7 7
8 ;;; 8 ;;;
9 ;;Sample functions for LaTeX environment. 9 ;;Sample functions for LaTeX environment.
10 ;;; 10 ;;;
1767 (format "Documentclass (default %s): " YaTeX-default-documentclass) 1767 (format "Documentclass (default %s): " YaTeX-default-documentclass)
1768 'YaTeX:documentclasses-default 1768 'YaTeX:documentclasses-default
1769 'YaTeX:documentclasses-private 1769 'YaTeX:documentclasses-private
1770 'YaTeX:documentclasses-local))) 1770 'YaTeX:documentclasses-local)))
1771 (if (string= "" sname) (setq sname YaTeX-default-documentclass)) 1771 (if (string= "" sname) (setq sname YaTeX-default-documentclass))
1772 (setq YaTeX-default-documentclass sname))))) 1772 (setq YaTeX-section-name "title"
1773 YaTeX-default-documentclass sname)))))
1773 1774
1774 (defun YaTeX::title (&optional argp) 1775 (defun YaTeX::title (&optional argp)
1775 (prog1 (read-string "Document Title: ") 1776 (prog1 (read-string "Document Title: ")
1776 (setq YaTeX-section-name "author" 1777 (setq YaTeX-section-name "author"
1777 YaTeX-single-command "maketitle"))) 1778 YaTeX-single-command "maketitle")))
1778 1779
1779 (defun YaTeX::author (&optional argp) 1780 (defun YaTeX::author (&optional argp)
1780 (prog1 (read-string "Document Author: ") 1781 (prog1 (read-string "Document Author: ")
1781 (setq YaTeX-section-name "date" 1782 (setq YaTeX-section-name "date"
1782 YaTeX-single-command "maketitle"))) 1783 YaTeX-single-command "maketitle")))
1784
1785 (defun YaTeX:document ()
1786 (setq YaTeX-section-name
1787 (if (string-match "book\\|bk" YaTeX-default-documentclass)
1788 "chapter"
1789 "section"))
1790 "")
1791
1783 1792
1784 (defvar YaTeX:latex2e-named-color-alist 1793 (defvar YaTeX:latex2e-named-color-alist
1785 '(("GreenYellow") ("Yellow") ("Goldenrod") ("Dandelion") ("Apricot") 1794 '(("GreenYellow") ("Yellow") ("Goldenrod") ("Dandelion") ("Apricot")
1786 ("Peach") ("Melon") ("YellowOrange") ("Orange") ("BurntOrange") 1795 ("Peach") ("Melon") ("YellowOrange") ("Orange") ("BurntOrange")
1787 ("Bittersweet") ("RedOrange") ("Mahogany") ("Maroon") ("BrickRed") 1796 ("Bittersweet") ("RedOrange") ("Mahogany") ("Maroon") ("BrickRed")

yatex.org