Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexadd.el @ 602:a7ad9158e3ce draft dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add completions for macros in booktab package
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 01 Dec 2022 14:42:04 +0859
parents cd375a3d7a29
children 9ec429ace1c5
comparison
equal deleted inserted replaced
601:cd375a3d7a29 602:a7ad9158e3ce
1 ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*- 1 ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*-
2 ;;; (c)1991-2019 by HIROSE Yuuji.[yuuji@yatex.org] 2 ;;; (c)1991-2019 by HIROSE Yuuji.[yuuji@yatex.org]
3 ;;; Last modified Thu Nov 3 10:42:43 2022 on firestorm 3 ;;; Last modified Thu Dec 1 14:40:42 2022 on firestorm
4 ;;; $Id$ 4 ;;; $Id$
5 5
6 ;;; Code: 6 ;;; Code:
7 ;;; 7 ;;;
8 ;;Sample functions for LaTeX environment. 8 ;;Sample functions for LaTeX environment.
2249 ((memq c '(?s ?S)) (setq left "{\\small " right "}")) 2249 ((memq c '(?s ?S)) (setq left "{\\small " right "}"))
2250 ((memq c '(?t ?T)) (setq left "{\\tiny " right "}")) 2250 ((memq c '(?t ?T)) (setq left "{\\tiny " right "}"))
2251 ((memq c '(?c ?C)) (setq left "{\\scriptsize " right "}"))) 2251 ((memq c '(?c ?C)) (setq left "{\\scriptsize " right "}")))
2252 (format "%s%s%s" left char right))))) 2252 (format "%s%s%s" left char right)))))
2253 2253
2254
2255 ;;; -------------------- booktab staff --------------------
2256 (defun YaTeX::toprule (argp)
2257 (if (equal argp 1) (YaTeX:read-length "Top Rule Width: ")))
2258 (defun YaTeX::midrule (argp)
2259 (if (equal argp 1) (YaTeX:read-length "Middle Rule Width: ")))
2260 (defun YaTeX::cmidrule (argp)
2261 (if (equal argp 1) (YaTeX:read-length "Inter-Columns Rule Width: ")))
2262 (defun YaTeX::bottomrule (argp)
2263 (if (equal argp 1) (YaTeX:read-length "Bottom Rule Width: ")))
2264 (defun YaTeX::addlinespace (argp)
2265 (if (equal argp 1) (YaTeX:read-length "Additional Line space: ")))
2266 (defun YaTeX::specialrule (argp)
2267 (if (equal argp 1) (YaTeX:read-length "Special rule: ")))
2268
2254 ;;; -------------------- beamer stuff -------------------- 2269 ;;; -------------------- beamer stuff --------------------
2255 (defvar YaTeX:frame-option-alist-default 2270 (defvar YaTeX:frame-option-alist-default
2256 '(("plain") ("containsverbatim") ("shrink") ("squeeze") 2271 '(("plain") ("containsverbatim") ("shrink") ("squeeze")
2257 ("allowframebreaks") ("label="))) 2272 ("allowframebreaks") ("label=")))
2258 (defvar YaTeX:frame-option-alist-private nil 2273 (defvar YaTeX:frame-option-alist-private nil

yatex.org