Mercurial > hgrepos > hgweb.cgi > yatex
diff yatexadd.el @ 609:c1b39bbfcf34 draft default
Merged with 1.83
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Sun, 25 Dec 2022 14:13:45 +0900 |
parents | 38a414d755c1 |
children |
line wrap: on
line diff
--- a/yatexadd.el Thu Sep 29 10:00:57 2022 +0900 +++ b/yatexadd.el Sun Dec 25 14:13:45 2022 +0900 @@ -1,6 +1,6 @@ ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*- -;;; (c)1991-2019 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Thu Sep 22 11:41:04 2022 on firestorm +;;; (c)1991-2022 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Fri Dec 2 08:40:27 2022 on firestorm ;;; $Id$ ;;; Code: @@ -1855,6 +1855,7 @@ ("oneside") ("twoside") ("draft") ("final") ("leqno") ("fleqn") ("openbib") ("tombow") ("titlepage") ("notitlepage") ("dvips") ("mingoth") ;for jsarticle + ("uplatex") ;for uplatex ("clock") ;for slides class only ) "Default options list for documentclass") @@ -1892,7 +1893,9 @@ (defvar YaTeX:documentclasses-default '(("article") ("jarticle") ("report") ("jreport") ("book") ("jbook") - ("jsarticle") ("jsbook") + ("ltjsarticle") ("ltjsreport") ("ltjsbook") + ("ltjarticle") ("ltjreport") ("ltjbook") + ("jsarticle") ("jsreport") ("jsbook") ("j-article") ("j-report") ("j-book") ("letter") ("slides") ("ltxdoc") ("ltxguide") ("ltnews") ("proc")) "Default documentclass alist") @@ -2098,7 +2101,8 @@ (if (string= "" str) "" (concat "[" str "]")))) -(defvar YaTeX::get-boundingbox-cmd YaTeX-cmd-gs +(defvar YaTeX::get-boundingbox-cmd + (or (YaTeX-executable-find "extractbb") YaTeX-cmd-gs) "Command to get bounding box from PDF files. Possible values are `gs' and `extractbb'.") @@ -2132,7 +2136,7 @@ (or (fboundp 'yahtml-get-image-info) (progn (load "yahtml" t) (featurep 'yahtml))) ;(require 'yahtml nil t) - (if (string-match "\\.pdf" imgfile) + (if (string-match "\\.\\(pdf\\|png\\)" imgfile) (and (setq info (YaTeX::get-boundingbox imgfilepath)) (stringp info) @@ -2250,6 +2254,21 @@ ((memq c '(?c ?C)) (setq left "{\\scriptsize " right "}"))) (format "%s%s%s" left char right))))) + +;;; -------------------- booktab staff -------------------- +(defun YaTeX::toprule (argp) + (if (equal argp 1) (YaTeX:read-length "Top Rule Width: "))) +(defun YaTeX::midrule (argp) + (if (equal argp 1) (YaTeX:read-length "Middle Rule Width: "))) +(defun YaTeX::cmidrule (argp) + (if (equal argp 1) (YaTeX:read-length "Inter-Columns Rule Width: "))) +(defun YaTeX::bottomrule (argp) + (if (equal argp 1) (YaTeX:read-length "Bottom Rule Width: "))) +(defun YaTeX::addlinespace (argp) + (if (equal argp 1) (YaTeX:read-length "Additional Line space: "))) +(defun YaTeX::specialrule (argp) + (if (equal argp 1) (YaTeX:read-length "Special rule: "))) + ;;; -------------------- beamer stuff -------------------- (defvar YaTeX:frame-option-alist-default '(("plain") ("containsverbatim") ("shrink") ("squeeze")