yatex: yatexadd.el comparison

Add-in for wraptable added

author	HIROSE Yuuji <yuuji@gentei.org>
date	Wed, 21 Sep 2022 21:34:29 +0900
parents	907de32064c9
children	e3b7e199a87d

comparison

equal deleted inserted replaced

-:91a6b97d01fa
+:c6a26b422d30
 ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*-
 ;;; (c)1991-2019 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Sat Dec  4 07:11:07 2021 on firestorm
+;;; Last modified Wed Sep 21 21:22:37 2022 on firestorm
 ;;; $Id$
 ;;; Code:
 ;;;
 ;;Sample functions for LaTeX environment.
 (defun YaTeX:multicols ()
 (concat "{" (read-string-with-history "Number of columns: ") "}"))
 ;; wrapfig.sty
-(defun YaTeX:wrapfigure ()
+(defun YaTeX:wrapfigure (&optional kind)
-(YaTeX-help "wrapfigure")
+(setq kind (or kind "figure"))
-(concat
+(YaTeX-help (concat "wrap" kind))
-(let ((lines (YaTeX-read-string-or-skip "Wrap Lines(Optional): ")))
+(prog1
-(if (string< "" lines)
+(concat
-	 (concat "[" lines "]")))
+(let ((lines (YaTeX-read-string-or-skip "Wrap Lines(Optional): ")))
-"{" (YaTeX:read-oneof "rlioRLIO" t) "}"
+	 (if (string< "" lines)
-"{" (YaTeX:read-length "Image width: ") "}"))
+	     (concat "[" lines "]")))
+"{" (YaTeX:read-oneof "rlioRLIO" t) "}"
+"{" (YaTeX:read-length (concat (capitalize kind) " width: ")) "}")
+(setq YaTeX-section-name "includegraphics")))
+(defun YaTeX:wraptable ()
+(prog1
+(YaTeX:wrapfigure "table")
+(setq YaTeX-env-name "tabular")))
 ;;;
 ;;Sample functions for section-type command.
 ;;;
 (defun YaTeX:multiput ()

Mercurial > hgrepos > hgweb.cgi > yatex