yatex: yatexpkg.el annotate

annotate yatexpkg.el @ 591:e3b7e199a87d draft

Add-in for {column,row,cell}color

author	HIROSE Yuuji <yuuji@gentei.org>
date	Fri, 23 Sep 2022 18:42:59 +0900
parents	714f3527b4a1
children	e73e41509124

rev	line source
395 5aa8208fbef0 Change header lines. HIROSE Yuuji <yuuji@gentei.org> parents: 366 diff changeset	1 ;;; yatexpkg.el --- YaTeX package manager -- coding: sjis --
287 5921f28ef77c Change the first lines. HIROSE Yuuji <yuuji@gentei.org> parents: 195 diff changeset	2 ;;;
572 714f3527b4a1 Add add-in for tabularx environment HIROSE Yuuji <yuuji@gentei.org> parents: 565 diff changeset	3 ;;; (c)2003-2019 by HIROSE, Yuuji [yuuji@yatex.org]
591 e3b7e199a87d Add-in for {column,row,cell}color HIROSE Yuuji <yuuji@gentei.org> parents: 572 diff changeset	4 ;;; Last modified Thu Sep 22 20:20:37 2022 on firestorm
366 77a2fd4fd634 merged HIROSE Yuuji <yuuji@gentei.org> parents: 364 diff changeset	5 ;;; $Id$
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	6
287 5921f28ef77c Change the first lines. HIROSE Yuuji <yuuji@gentei.org> parents: 195 diff changeset	7 ;;; Code:
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	8 (defvar YaTeX-package-ams-envs
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	9 (mapcar 'car YaTeX-ams-env-table))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	10
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	11 (defvar YaTeX-package-alist-default
193 e216f9f347fa Camouflage email addresses. yuuji@gentei.org parents: 144 diff changeset	12 '(("version" (env "comment") ;by tsuchiya<at>pine.kuee.kyoto-u.ac.jp
79 0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	13 (section "includeversion" "excludeversion"))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	14
193 e216f9f347fa Camouflage email addresses. yuuji@gentei.org parents: 144 diff changeset	15 ("plext" (section "bou")) ;by yas.axis<at>ma.mni.ne.jp
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	16
193 e216f9f347fa Camouflage email addresses. yuuji@gentei.org parents: 144 diff changeset	17 ("url" (section "url")) ;by fujieda<at>jaist.ac.jp
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	18
5b19f901fa16 Initial revision yuuji parents: diff changeset	19 ("fancybox" (section "shadowbox" "doublebox" "ovalbox" "Ovalbox"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	20 ("slashbox" (section "slashbox" "backslashbox"))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	21 ("pifont" (section "ding"))
5b19f901fa16 Initial revision yuuji parents: diff changeset	22 ("longtable" (env "longtable"))
5b19f901fa16 Initial revision yuuji parents: diff changeset	23 ("ascmac" (env "screen" "boxnote" "shadebox" "itembox")
5b19f901fa16 Initial revision yuuji parents: diff changeset	24 (maketitle "return" "Return" "yen")
79 0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	25 (section "keytop") ("mask") ("maskbox"))
193 e216f9f347fa Camouflage email addresses. yuuji@gentei.org parents: 144 diff changeset	26 ("bm" (section "bm")) ;by aoyama<at>le.chiba-u.ac.jp
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	27
5b19f901fa16 Initial revision yuuji parents: diff changeset	28 ("alltt" (env "alltt"))
5b19f901fa16 Initial revision yuuji parents: diff changeset	29 ("misc" (section "verbfile" "listing"))
441 564510b9caca Add verbatim package for verbatiminput macro HIROSE Yuuji <yuuji@gentei.org> parents: 418 diff changeset	30 ("verbatim" (section "verbatiminput"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	31 ("eclbkbox" (env "breakbox"))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	32 ("supertabular" (env "supertabular"))
572 714f3527b4a1 Add add-in for tabularx environment HIROSE Yuuji <yuuji@gentei.org> parents: 565 diff changeset	33 ("tabularx" (env "tabularx"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	34 ("amsmath" (env . YaTeX-package-ams-envs)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	35 (section "tag" "tag*"))
564 71697ec66240 Auto-usepackage assumes amsart, amsbook and amsproc same as amsmath HIROSE Yuuji <yuuji@gentei.org> parents: 554 diff changeset	36 ("amsart" (same-as . "amsmath"))
71697ec66240 Auto-usepackage assumes amsart, amsbook and amsproc same as amsmath HIROSE Yuuji <yuuji@gentei.org> parents: 554 diff changeset	37 ("amsbook" (same-as . "amsmath"))
71697ec66240 Auto-usepackage assumes amsart, amsbook and amsproc same as amsmath HIROSE Yuuji <yuuji@gentei.org> parents: 554 diff changeset	38 ("amsproc" (same-as . "amsmath"))
134 94a1370956a4 `leqq' and `geqq' (in mathsymb) yuuji@gentei.org parents: 120 diff changeset	39 ("amssymb" (maketitle "leqq" "geqq" "mathbb" "mathfrak"
305 53709ee88448 Add \because and \therefore to math-image completion. HIROSE Yuuji <yuuji@gentei.org> parents: 304 diff changeset	40 "fallingdotseq" "therefore" "because"
460 1790e0d35156 Capitalized varGREEK with amssymb, added HIROSE Yuuji <yuuji@gentei.org> parents: 456 diff changeset	41 "varDelta" "varTheta" "varLambda" "varXi" "varPi"
1790e0d35156 Capitalized varGREEK with amssymb, added HIROSE Yuuji <yuuji@gentei.org> parents: 456 diff changeset	42 "varSigma" "varUpsilon" "varPhi" "varPsi" "varOmega"
134 94a1370956a4 `leqq' and `geqq' (in mathsymb) yuuji@gentei.org parents: 120 diff changeset	43 "lll" "ggg")) ;very few. Please tell us!
565 6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	44 ("latexsym" (maketitle "mho" "Join" "Box" "Diamond" "leadsto"
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	45 "sqsubset" "sqsupset" "lhd" "unlhd" "rhd" "unrhd"))
456 7bf780961390 Add "mathbb" and so on HIROSE Yuuji <yuuji@gentei.org> parents: 449 diff changeset	46 ("mathrsfs" (section "mathscr"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	47 ("graphicx" (section "includegraphics"
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	48 "rotatebox" "scalebox" "resizebox" "reflectbox")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	49 (option . YaTeX-package-graphics-driver-alist))
565 6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	50 ("xymtex" (section "Ycyclohexaneh")) ;;XXX we need more and more...
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	51 ("chemist" nil) ;;XXX we need completions...
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	52 ("a4j" nil)
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	53 ("array" nil)
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	54 ("times" nil)
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	55 ("newtx" nil)
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	56 ("makeidx" nil)
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	57 ("geometry" (section "geometry"))
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	58 ("lscape" (env "landscape"))
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	59 ("path" (section "path"))
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	60 ("epsf" (section "epsfbox"))
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	61 ("epsfig" (section "epsfig"))
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	62 ("floatflt" (env "floatingfigure"))
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	63 ("type1cm" (section "fontsize"))
516 603acc1caec7 Enclosing error HIROSE Yuuji <yuuji@gentei.org> parents: 510 diff changeset	64 ("svg" (section "includesvg"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	65 ("color" (section "textcolor" "colorbox" "pagecolor" "color")
303 13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	66 (option . YaTeX-package-graphics-driver-alist)
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	67 (default-option . "usenames,dvipsnames"))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	68 ("xcolor" (same-as . "color"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	69 ("ulem" (section "uline" "uuline" "uwave")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	70 (option ("normalem")))
312 0d42b3d7f958 Add completion of \cref HIROSE Yuuji <yuuji@gentei.org> parents: 305 diff changeset	71 ("multicol" (env "multicols"))
565 6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	72 ("cleveref" (section "cref" "crefrange" "cpageref" "labelcref"
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	73 "labelpageref"))
346 c7391d191cd0 Add wrap{figure,table} HIROSE Yuuji <yuuji@gentei.org> parents: 333 diff changeset	74 ("wrapfig" (env "wrapfigure" "wraptable"))
418 92bab72bf4de "setspace" added HIROSE Yuuji <yuuji@gentei.org> parents: 395 diff changeset	75 ("setspace" (env "spacing") (section "setstretch"))
449 c2c547e147c7 YaTeX-math-other-env-alist-* for additional math-environments HIROSE Yuuji <yuuji@gentei.org> parents: 443 diff changeset	76 ("cases" (env "numcases" "subnumcases"))
551 e7356faf50df Add completion stuff of \subfigure{}. HIROSE Yuuji <yuuji@gentei.org> parents: 516 diff changeset	77 ("subfigure" (section "subfigure"))
554 a6c72ad6445a Add \ruby{}{} completion with okumacro package HIROSE Yuuji <yuuji@gentei.org> parents: 553 diff changeset	78 ("okumacro" (section "ruby" "kenten"))
591 e3b7e199a87d Add-in for {column,row,cell}color HIROSE Yuuji <yuuji@gentei.org> parents: 572 diff changeset	79 ("colortbl" (section "columncolor" "rowcolor"))
314 fae84a98372c ("crefrange") ("cpageref") ("labelcref") ("labelcpageref") for cleveref HIROSE Yuuji <yuuji@gentei.org> parents: 313 diff changeset	80 )
79 0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	81 "Default package vs. macro list.
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	82 Alists contains '(PACKAGENAME . MACROLIST)
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	83 PACKAGENAME Basename of package(String).
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	84 MACROLIST List of '(TYPE . MACROS)
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	85 TYPE One of 'env, 'section or 'maketitle according to completion-type
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	86 MACROS List of macros
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	87
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	88 If TYPE is 'option, its cdr is alist of completion candidates for that
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	89 package. Its cdr can be a symbol whose value is alist.
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	90
79 0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	91 An good example is the value of YaTeX-package-alist-default.")
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	92
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	93 (defvar YaTeX-package-graphics-driver-alist
303 13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	94 '(("dvips") ("dvipsnames") ("usenames")
333 30a8f68abe0a Supply `dvipdfmx' completion instead of `dvipdf' HIROSE Yuuji <yuuji@gentei.org> parents: 314 diff changeset	95 ("xdvi") ("dvipdfmx") ("pdftex") ("dvipsone") ("dviwindo")
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	96 ("emtex") ("dviwin") ("oztex") ("textures") ("pctexps") ("pctexwin")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	97 ("pctexhp") ("pctex32") ("truetex") ("tcidvi") ("vtex"))
553 ae0b9fe6372a typo HIROSE Yuuji <yuuji@gentei.org> parents: 551 diff changeset	98 "Drivers alist of graphics/color stylefile's supporting devices.
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	99 This list is taken from
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	100 %% graphics.dtx Copyright (C) 1994 David Carlisle Sebastian Rahtz
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	101 %% Copyright (C) 1995 1996 1997 1998 David Carlisle
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	102 as of 2004/1/19. Thanks.")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	103
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	104 (defvar YaTeX-package-alist-private nil
5b19f901fa16 Initial revision yuuji parents: diff changeset	105 "*User defined package vs. macro list. See also YaTeX-package-alist-default")
5b19f901fa16 Initial revision yuuji parents: diff changeset	106
5b19f901fa16 Initial revision yuuji parents: diff changeset	107 (defun YaTeX-package-lookup (macro &optional type)
5b19f901fa16 Initial revision yuuji parents: diff changeset	108 "Look up a package which contains a definition of MACRO.
5b19f901fa16 Initial revision yuuji parents: diff changeset	109 Optional second argument TYPE limits the macro type.
5b19f901fa16 Initial revision yuuji parents: diff changeset	110 TYPE is a symbol, one of 'env, 'section, 'maketitle."
5b19f901fa16 Initial revision yuuji parents: diff changeset	111 (let ((list (append YaTeX-package-alist-private YaTeX-package-alist-default))
304 a57f4c74179a (yatexpkg)YaTeX-package-lookup sees 'same-as entry. HIROSE Yuuji <yuuji@gentei.org> parents: 303 diff changeset	112 origlist element x sameas val pkg pkglist r)
a57f4c74179a (yatexpkg)YaTeX-package-lookup sees 'same-as entry. HIROSE Yuuji <yuuji@gentei.org> parents: 303 diff changeset	113 (setq origlist list)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	114 (while list
5b19f901fa16 Initial revision yuuji parents: diff changeset	115 (setq element (car list)
5b19f901fa16 Initial revision yuuji parents: diff changeset	116 pkg (car element)
5b19f901fa16 Initial revision yuuji parents: diff changeset	117 element (cdr element))
304 a57f4c74179a (yatexpkg)YaTeX-package-lookup sees 'same-as entry. HIROSE Yuuji <yuuji@gentei.org> parents: 303 diff changeset	118 (if (setq sameas (assq 'same-as element)) ;non-recursive retrieval
a57f4c74179a (yatexpkg)YaTeX-package-lookup sees 'same-as entry. HIROSE Yuuji <yuuji@gentei.org> parents: 303 diff changeset	119 (setq element (cdr (assoc (cdr sameas) origlist))))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	120 (if (setq r (catch 'found
5b19f901fa16 Initial revision yuuji parents: diff changeset	121 (while element
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	122 (setq x (car element)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	123 val (cdr x))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	124 (if (symbolp val) (setq val (symbol-value val)))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	125 (and (or (null type)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	126 (eq type (car x)))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	127 (YaTeX-member macro val)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	128 (throw 'found (car x))) ;car x is type
5b19f901fa16 Initial revision yuuji parents: diff changeset	129 (setq element (cdr element)))))
5b19f901fa16 Initial revision yuuji parents: diff changeset	130 (setq pkglist (cons (cons pkg r) pkglist)))
5b19f901fa16 Initial revision yuuji parents: diff changeset	131 (setq list (cdr list)))
5b19f901fa16 Initial revision yuuji parents: diff changeset	132 pkglist))
5b19f901fa16 Initial revision yuuji parents: diff changeset	133
303 13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	134 (defun YaTeX-package-option-lookup (pkg &optional key)
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	135 "Look up options for specified pkg and returne them in alist form.
303 13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	136 Just only associng against the alist of YaTeX-package-alist-*"
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	137 (let*((list (append YaTeX-package-alist-private YaTeX-package-alist-default))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	138 (l (cdr (assq (or key 'option) (assoc pkg list))))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	139 (recur (cdr (assq 'same-as (assoc pkg list)))))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	140 (cond
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	141 (recur (YaTeX-package-option-lookup recur key))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	142 ((symbolp l) (symbol-value l))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	143 (t l))))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	144
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	145 (defvar YaTeX-package-resolved-list nil
5b19f901fa16 Initial revision yuuji parents: diff changeset	146 "List of macros whose package is confirmed to be loaded.")
5b19f901fa16 Initial revision yuuji parents: diff changeset	147
356 af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	148 (defun YaTeX-package-auto-usepackage (macro type &optional autopkg autoopt)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	149 "(Semi)Automatically add the \\usepackage line to main-file.
356 af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	150 Search the usepackage for MACRO of the TYPE.
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	151 Optional second and third argument AUTOPKG, AUTOOPT are selected
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	152 without query. Thus those two argument (Full)automatically add
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	153 a \\usepackage line."
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	154 (let ((cb (current-buffer))
5b19f901fa16 Initial revision yuuji parents: diff changeset	155 (wc (current-window-configuration))
5b19f901fa16 Initial revision yuuji parents: diff changeset	156 (usepackage (concat YaTeX-ec "usepackage"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	157 (pkglist (YaTeX-package-lookup macro type))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	158 (usepkgrx (concat
5b19f901fa16 Initial revision yuuji parents: diff changeset	159 YaTeX-ec-regexp
572 714f3527b4a1 Add add-in for tabularx environment HIROSE Yuuji <yuuji@gentei.org> parents: 565 diff changeset	160 "\$usepackage\\\|include\\\|documentclass\$\\b"))
353 2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24 HIROSE Yuuji <yuuji@gentei.org> parents: 346 diff changeset	161 (register (function
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24 HIROSE Yuuji <yuuji@gentei.org> parents: 346 diff changeset	162 (lambda () (set-buffer cb)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	163 (set (make-local-variable 'YaTeX-package-resolved-list)
353 2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24 HIROSE Yuuji <yuuji@gentei.org> parents: 346 diff changeset	164 (cons macro YaTeX-package-resolved-list)))))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	165 (begdoc (concat YaTeX-ec "begin{document}"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	166 pb pkg optlist (option "") mb0 uspkgargs)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	167 (if (or (YaTeX-member macro YaTeX-package-resolved-list)
5b19f901fa16 Initial revision yuuji parents: diff changeset	168 (null pkglist))
5b19f901fa16 Initial revision yuuji parents: diff changeset	169 nil ;nothing to do
5b19f901fa16 Initial revision yuuji parents: diff changeset	170 ;; Search `usepackage' into main-file
5b19f901fa16 Initial revision yuuji parents: diff changeset	171 (YaTeX-visit-main t) ;set buffer to parent file
5b19f901fa16 Initial revision yuuji parents: diff changeset	172 (setq pb (current-buffer))
5b19f901fa16 Initial revision yuuji parents: diff changeset	173 (save-excursion
5b19f901fa16 Initial revision yuuji parents: diff changeset	174 (save-restriction
5b19f901fa16 Initial revision yuuji parents: diff changeset	175 (if (catch 'found
5b19f901fa16 Initial revision yuuji parents: diff changeset	176 (goto-char (point-min))
5b19f901fa16 Initial revision yuuji parents: diff changeset	177 (YaTeX-search-active-forward ;if search fails, goto eob
5b19f901fa16 Initial revision yuuji parents: diff changeset	178 begdoc YaTeX-comment-prefix nil 1)
572 714f3527b4a1 Add add-in for tabularx environment HIROSE Yuuji <yuuji@gentei.org> parents: 565 diff changeset	179 (while (re-search-backward usepkgrx nil t)
714f3527b4a1 Add add-in for tabularx environment HIROSE Yuuji <yuuji@gentei.org> parents: 565 diff changeset	180 ;;allow commented out \usepackages
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	181 (setq mb0 (match-beginning 0))
5b19f901fa16 Initial revision yuuji parents: diff changeset	182 (skip-chars-forward "^{")
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	183 (setq uspkgargs (YaTeX-buffer-substring
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	184 (point)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	185 (progn
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	186 ;;(forward-list 1) is more precise,
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	187 ;; but higher risk.
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	188 (skip-chars-forward "^}\n")(point))))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	189 (let ((pl pkglist))
5b19f901fa16 Initial revision yuuji parents: diff changeset	190 (while pl ;(car pl)'s car is package, cdr is type
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	191 (if (string-match
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	192 (concat "[{,]\\s *"
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	193 (regexp-quote (car (car pl)))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	194 "\\>")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	195 uspkgargs)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	196 (throw 'found t))
5b19f901fa16 Initial revision yuuji parents: diff changeset	197 (setq pl (cdr pl)))
5b19f901fa16 Initial revision yuuji parents: diff changeset	198 (goto-char mb0))))
5b19f901fa16 Initial revision yuuji parents: diff changeset	199 ;;corresponding \usepackage found
5b19f901fa16 Initial revision yuuji parents: diff changeset	200 (funcall register)
5b19f901fa16 Initial revision yuuji parents: diff changeset	201 ;; not found, insert it.
356 af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	202 (if (or
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	203 autopkg
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	204 (y-or-n-p
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	205 (format "`%s' requires package. Put \\usepackage now?"
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	206 macro)))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	207 (progn
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	208 (require 'yatexadd)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	209 (setq pkg
356 af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	210 (or autopkg
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	211 (completing-read
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	212 "Load which package?(TAB for list): "
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	213 pkglist nil nil
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	214 ;;initial input
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	215 (if (= (length pkglist) 1)
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	216 (let ((w (car (car pkglist))))
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	217 (if YaTeX-emacs-19 (cons w 0) w)))))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	218 optlist
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	219 (YaTeX-package-option-lookup pkg))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	220 (if optlist
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	221 (let ((minibuffer-completion-table optlist)
303 13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	222 (delim ",") (w (car (car optlist)))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	223 (dflt (YaTeX-package-option-lookup
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	224 pkg 'default-option)))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	225 (setq option
356 af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	226 (or
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	227 autoopt
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	228 (read-from-minibuffer
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	229 (format "Any option for {%s}?: " pkg)
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	230 (let ((v (or dflt
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	231 (and (= (length optlist) 1) w))))
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	232 (and v (if YaTeX-emacs-19 (cons v 0) v)))
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	233 YaTeX-minibuffer-completion-map))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	234 option (if (string< "" option)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	235 (concat "[" option "]")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	236 ""))))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	237 (set-buffer pb)
5b19f901fa16 Initial revision yuuji parents: diff changeset	238 (goto-char (point-min))
5b19f901fa16 Initial revision yuuji parents: diff changeset	239 (if (YaTeX-re-search-active-forward
5b19f901fa16 Initial revision yuuji parents: diff changeset	240 (concat YaTeX-ec-regexp
5b19f901fa16 Initial revision yuuji parents: diff changeset	241 "document\$style\\\|class\${")
5b19f901fa16 Initial revision yuuji parents: diff changeset	242 YaTeX-comment-prefix nil t)
5b19f901fa16 Initial revision yuuji parents: diff changeset	243 (forward-line 1))
5b19f901fa16 Initial revision yuuji parents: diff changeset	244 (if (YaTeX-search-active-forward
5b19f901fa16 Initial revision yuuji parents: diff changeset	245 begdoc YaTeX-comment-prefix nil t)
5b19f901fa16 Initial revision yuuji parents: diff changeset	246 (goto-char (match-beginning 0)))
5b19f901fa16 Initial revision yuuji parents: diff changeset	247 (insert
5b19f901fa16 Initial revision yuuji parents: diff changeset	248 usepackage
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	249 (format "%s{%s}\t%% required for `\\%s' (yatex added)\n"
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	250 option pkg macro))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	251 (funcall register))
120 8772bd5d1f02 Do not ask again when user answer n to usepackage addition. yuuji@gentei.org parents: 80 diff changeset	252 (funcall register)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	253 (message "Don't forget to put \\usepackage{%s} yourself later"
5b19f901fa16 Initial revision yuuji parents: diff changeset	254 (car (car pkglist)))) ;doing car car is negligence...
565 6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	255 ))))))
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	256
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	257 (defvar YaTeX::usepackage-alist-private nil
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	258 "*Private completion list of the argument for usepackage")
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	259
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	260 (defvar YaTeX::usepackage-alist-local nil
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	261 "Directory local completion list of the argument for usepackage")
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	262
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	263 (defun YaTeX::usepackage (&optional argp)
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	264 (cond
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	265 ((equal argp 1)
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	266 (setq YaTeX-env-name "document")
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	267 (let ((minibuffer-local-completion-map YaTeX-minibuffer-completion-map)
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	268 (delim ","))
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	269 (YaTeX-cplread-with-learning
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	270 (if YaTeX-japan "Use package(�J��}�ŋ�؂��OK): "
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	271 "Use package(delimitable by comma): ")
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	272 ;; 'YaTeX::usepackage-alist-default ;; OBSOLETED at 1.82
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	273 'YaTeX-package-alist-default
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	274 'YaTeX::usepackage-alist-private
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	275 'YaTeX::usepackage-alist-local)))))
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	276
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	277
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	278 ;;;
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	279 ;; Add-ins for auxiliary package handled here
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	280 ;;;
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	281 (defun YaTeX:floatingfigure ()
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	282 (concat (YaTeX:read-position "rlpv")
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	283 (YaTeX:read-length "Width: ")))
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	284
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	285 (defvar YaTeX:geometry-default "margin=1.5cm,includeheadfoot,includemp"
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	286 "*Default options for \\geometry{}")
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	287 (defun YaTeX::geometry (argp)
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	288 "Add-in for \\geometry's option"
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	289 ;; cf. https://dayinthelife.at.webry.info/201401/article_2.html
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	290 (cond
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	291 ((= argp 1)
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	292 (YaTeX-help "geometry")
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	293 (message "Change default by setting YaTeX:geometry-default")
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	294 (if (string= YaTeX:geometry-default "") ""
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	295 YaTeX:geometry-default))))
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	296
6c09561c22f0 Use YaTeX-package-alist-default for YaTeX::usepackage-alist-default HIROSE Yuuji <yuuji@gentei.org> parents: 564 diff changeset	297 (provide 'yatexpkg)

Mercurial > hgrepos > hgweb.cgi > yatex

annotate yatexpkg.el @ 591:e3b7e199a87d draft