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")

yatex.org