yatex: yatexpkg.el annotate

annotate yatexpkg.el @ 364:d69fd7b1ac4d dev yatex-1.78

yatex-1.78

author	HIROSE Yuuji <yuuji@gentei.org>
date	Fri, 26 Dec 2014 01:02:52 +0900
parents	af0bd0f86b27
children	77a2fd4fd634

rev	line source
287 5921f28ef77c Change the first lines. HIROSE Yuuji <yuuji@gentei.org> parents: 195 diff changeset	1 ;;; yatexpkg.el --- YaTeX package manager
5921f28ef77c Change the first lines. HIROSE Yuuji <yuuji@gentei.org> parents: 195 diff changeset	2 ;;;
313 fcdb9189cd9c \cref HIROSE Yuuji <yuuji@gentei.org> parents: 312 diff changeset	3 ;;; (c)2003-2014 by HIROSE, Yuuji [yuuji@yatex.org]
356 af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	4 ;;; Last modified Mon Dec 22 11:12:19 2014 on firestorm
364 d69fd7b1ac4d yatex-1.78 HIROSE Yuuji <yuuji@gentei.org> parents: 356 diff changeset	5 ;;; $Id: yatexpkg.el,v 1.78 2014/12/25 15:11:02 yuuji Rel $
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"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	30 ("eclbkbox" (env "breakbox"))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	31 ("supertabular" (env "supertabular"))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	32 ("amsmath" (env . YaTeX-package-ams-envs)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	33 (section "tag" "tag*"))
134 94a1370956a4 `leqq' and `geqq' (in mathsymb) yuuji@gentei.org parents: 120 diff changeset	34 ("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	35 "fallingdotseq" "therefore" "because"
134 94a1370956a4 `leqq' and `geqq' (in mathsymb) yuuji@gentei.org parents: 120 diff changeset	36 "lll" "ggg")) ;very few. Please tell us!
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	37 ("graphicx" (section "includegraphics"
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	38 "rotatebox" "scalebox" "resizebox" "reflectbox")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	39 (option . YaTeX-package-graphics-driver-alist))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	40 ("color" (section "textcolor" "colorbox" "pagecolor" "color")
303 13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	41 (option . YaTeX-package-graphics-driver-alist)
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	42 (default-option . "usenames,dvipsnames"))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	43 ("xcolor" (same-as . "color"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	44 ("ulem" (section "uline" "uuline" "uwave")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	45 (option ("normalem")))
312 0d42b3d7f958 Add completion of \cref HIROSE Yuuji <yuuji@gentei.org> parents: 305 diff changeset	46 ("multicol" (env "multicols"))
314 fae84a98372c ("crefrange") ("cpageref") ("labelcref") ("labelcpageref") for cleveref HIROSE Yuuji <yuuji@gentei.org> parents: 313 diff changeset	47 ("cref" (section "cleveref"))
fae84a98372c ("crefrange") ("cpageref") ("labelcref") ("labelcpageref") for cleveref HIROSE Yuuji <yuuji@gentei.org> parents: 313 diff changeset	48 ("crefrange" (same-as . "cref"))
fae84a98372c ("crefrange") ("cpageref") ("labelcref") ("labelcpageref") for cleveref HIROSE Yuuji <yuuji@gentei.org> parents: 313 diff changeset	49 ("cpageref" (same-as . "cref"))
fae84a98372c ("crefrange") ("cpageref") ("labelcref") ("labelcpageref") for cleveref HIROSE Yuuji <yuuji@gentei.org> parents: 313 diff changeset	50 ("labelcref" (same-as . "cref"))
fae84a98372c ("crefrange") ("cpageref") ("labelcref") ("labelcpageref") for cleveref HIROSE Yuuji <yuuji@gentei.org> parents: 313 diff changeset	51 ("labelcpageref" (same-as . "cref"))
346 c7391d191cd0 Add wrap{figure,table} HIROSE Yuuji <yuuji@gentei.org> parents: 333 diff changeset	52 ("wrapfig" (env "wrapfigure" "wraptable"))
314 fae84a98372c ("crefrange") ("cpageref") ("labelcref") ("labelcpageref") for cleveref HIROSE Yuuji <yuuji@gentei.org> parents: 313 diff changeset	53 )
79 0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	54 "Default package vs. macro list.
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	55 Alists contains '(PACKAGENAME . MACROLIST)
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	56 PACKAGENAME Basename of package(String).
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	57 MACROLIST List of '(TYPE . MACROS)
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	58 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	59 MACROS List of macros
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	60
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	61 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	62 package. Its cdr can be a symbol whose value is alist.
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	63
79 0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	64 An good example is the value of YaTeX-package-alist-default.")
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	65
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	66 (defvar YaTeX-package-graphics-driver-alist
303 13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	67 '(("dvips") ("dvipsnames") ("usenames")
333 30a8f68abe0a Supply `dvipdfmx' completion instead of `dvipdf' HIROSE Yuuji <yuuji@gentei.org> parents: 314 diff changeset	68 ("xdvi") ("dvipdfmx") ("pdftex") ("dvipsone") ("dviwindo")
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	69 ("emtex") ("dviwin") ("oztex") ("textures") ("pctexps") ("pctexwin")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	70 ("pctexhp") ("pctex32") ("truetex") ("tcidvi") ("vtex"))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	71 "Drivers alist of graphics/color stylefile's supporting deveces.
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	72 This list is taken from
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	73 %% graphics.dtx Copyright (C) 1994 David Carlisle Sebastian Rahtz
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	74 %% Copyright (C) 1995 1996 1997 1998 David Carlisle
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	75 as of 2004/1/19. Thanks.")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	76
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	77 (defvar YaTeX-package-alist-private nil
5b19f901fa16 Initial revision yuuji parents: diff changeset	78 "*User defined package vs. macro list. See also YaTeX-package-alist-default")
5b19f901fa16 Initial revision yuuji parents: diff changeset	79
5b19f901fa16 Initial revision yuuji parents: diff changeset	80 (defun YaTeX-package-lookup (macro &optional type)
5b19f901fa16 Initial revision yuuji parents: diff changeset	81 "Look up a package which contains a definition of MACRO.
5b19f901fa16 Initial revision yuuji parents: diff changeset	82 Optional second argument TYPE limits the macro type.
5b19f901fa16 Initial revision yuuji parents: diff changeset	83 TYPE is a symbol, one of 'env, 'section, 'maketitle."
5b19f901fa16 Initial revision yuuji parents: diff changeset	84 (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	85 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	86 (setq origlist list)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	87 (while list
5b19f901fa16 Initial revision yuuji parents: diff changeset	88 (setq element (car list)
5b19f901fa16 Initial revision yuuji parents: diff changeset	89 pkg (car element)
5b19f901fa16 Initial revision yuuji parents: diff changeset	90 element (cdr element))
304 a57f4c74179a (yatexpkg)YaTeX-package-lookup sees 'same-as entry. HIROSE Yuuji <yuuji@gentei.org> parents: 303 diff changeset	91 (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	92 (setq element (cdr (assoc (cdr sameas) origlist))))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	93 (if (setq r (catch 'found
5b19f901fa16 Initial revision yuuji parents: diff changeset	94 (while element
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	95 (setq x (car element)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	96 val (cdr x))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	97 (if (symbolp val) (setq val (symbol-value val)))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	98 (and (or (null type)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	99 (eq type (car x)))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	100 (YaTeX-member macro val)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	101 (throw 'found (car x))) ;car x is type
5b19f901fa16 Initial revision yuuji parents: diff changeset	102 (setq element (cdr element)))))
5b19f901fa16 Initial revision yuuji parents: diff changeset	103 (setq pkglist (cons (cons pkg r) pkglist)))
5b19f901fa16 Initial revision yuuji parents: diff changeset	104 (setq list (cdr list)))
5b19f901fa16 Initial revision yuuji parents: diff changeset	105 pkglist))
5b19f901fa16 Initial revision yuuji parents: diff changeset	106
303 13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	107 (defun YaTeX-package-option-lookup (pkg &optional key)
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	108 "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	109 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	110 (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	111 (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	112 (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	113 (cond
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	114 (recur (YaTeX-package-option-lookup recur key))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	115 ((symbolp l) (symbol-value l))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	116 (t l))))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	117
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	118 (defvar YaTeX-package-resolved-list nil
5b19f901fa16 Initial revision yuuji parents: diff changeset	119 "List of macros whose package is confirmed to be loaded.")
5b19f901fa16 Initial revision yuuji parents: diff changeset	120
356 af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	121 (defun YaTeX-package-auto-usepackage (macro type &optional autopkg autoopt)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	122 "(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	123 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	124 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	125 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	126 a \\usepackage line."
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	127 (let ((cb (current-buffer))
5b19f901fa16 Initial revision yuuji parents: diff changeset	128 (wc (current-window-configuration))
5b19f901fa16 Initial revision yuuji parents: diff changeset	129 (usepackage (concat YaTeX-ec "usepackage"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	130 (pkglist (YaTeX-package-lookup macro type))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	131 (usepkgrx (concat
5b19f901fa16 Initial revision yuuji parents: diff changeset	132 YaTeX-ec-regexp
5b19f901fa16 Initial revision yuuji parents: diff changeset	133 "\$usepackage\\\|include\$\\b"))
353 2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24 HIROSE Yuuji <yuuji@gentei.org> parents: 346 diff changeset	134 (register (function
2a72779d9c50 Rewrite lambda notations to suppress annoying warnings from emacs24 HIROSE Yuuji <yuuji@gentei.org> parents: 346 diff changeset	135 (lambda () (set-buffer cb)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	136 (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	137 (cons macro YaTeX-package-resolved-list)))))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	138 (begdoc (concat YaTeX-ec "begin{document}"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	139 pb pkg optlist (option "") mb0 uspkgargs)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	140 (if (or (YaTeX-member macro YaTeX-package-resolved-list)
5b19f901fa16 Initial revision yuuji parents: diff changeset	141 (null pkglist))
5b19f901fa16 Initial revision yuuji parents: diff changeset	142 nil ;nothing to do
5b19f901fa16 Initial revision yuuji parents: diff changeset	143 ;; Search `usepackage' into main-file
5b19f901fa16 Initial revision yuuji parents: diff changeset	144 (YaTeX-visit-main t) ;set buffer to parent file
5b19f901fa16 Initial revision yuuji parents: diff changeset	145 (setq pb (current-buffer))
5b19f901fa16 Initial revision yuuji parents: diff changeset	146 (save-excursion
5b19f901fa16 Initial revision yuuji parents: diff changeset	147 (save-restriction
5b19f901fa16 Initial revision yuuji parents: diff changeset	148 (if (catch 'found
5b19f901fa16 Initial revision yuuji parents: diff changeset	149 (goto-char (point-min))
5b19f901fa16 Initial revision yuuji parents: diff changeset	150 (YaTeX-search-active-forward ;if search fails, goto eob
5b19f901fa16 Initial revision yuuji parents: diff changeset	151 begdoc YaTeX-comment-prefix nil 1)
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	152 (while ;(YaTeX-re-search-active-backward
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	153 ;usepkgrx YaTeX-comment-prefix nil t)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	154 ;;allow commented out \usepackages 2004/3/16
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	155 (re-search-backward usepkgrx nil t)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	156 (setq mb0 (match-beginning 0))
5b19f901fa16 Initial revision yuuji parents: diff changeset	157 (skip-chars-forward "^{")
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	158 (setq uspkgargs (YaTeX-buffer-substring
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	159 (point)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	160 (progn
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	161 ;;(forward-list 1) is more precise,
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	162 ;; but higher risk.
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	163 (skip-chars-forward "^}\n")(point))))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	164 (let ((pl pkglist))
5b19f901fa16 Initial revision yuuji parents: diff changeset	165 (while pl ;(car pl)'s car is package, cdr is type
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	166 (if (string-match
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	167 (concat "[{,]\\s *"
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	168 (regexp-quote (car (car pl)))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	169 "\\>")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	170 uspkgargs)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	171 (throw 'found t))
5b19f901fa16 Initial revision yuuji parents: diff changeset	172 (setq pl (cdr pl)))
5b19f901fa16 Initial revision yuuji parents: diff changeset	173 (goto-char mb0))))
5b19f901fa16 Initial revision yuuji parents: diff changeset	174 ;;corresponding \usepackage found
5b19f901fa16 Initial revision yuuji parents: diff changeset	175 (funcall register)
5b19f901fa16 Initial revision yuuji parents: diff changeset	176 ;; 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	177 (if (or
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	178 autopkg
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	179 (y-or-n-p
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	180 (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	181 macro)))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	182 (progn
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	183 (require 'yatexadd)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	184 (setq pkg
356 af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	185 (or autopkg
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	186 (completing-read
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	187 "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	188 pkglist nil nil
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	189 ;;initial input
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	190 (if (= (length pkglist) 1)
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	191 (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	192 (if YaTeX-emacs-19 (cons w 0) w)))))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	193 optlist
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	194 (YaTeX-package-option-lookup pkg))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	195 (if optlist
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	196 (let ((minibuffer-completion-table optlist)
303 13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	197 (delim ",") (w (car (car optlist)))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	198 (dflt (YaTeX-package-option-lookup
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	199 pkg 'default-option)))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	200 (setq option
356 af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	201 (or
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	202 autoopt
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	203 (read-from-minibuffer
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	204 (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	205 (let ((v (or dflt
af0bd0f86b27 Now YaTeX-package-auto-usepackage can insert aline full-automaticaly HIROSE Yuuji <yuuji@gentei.org> parents: 353 diff changeset	206 (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	207 (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	208 YaTeX-minibuffer-completion-map))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	209 option (if (string< "" option)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	210 (concat "[" option "]")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	211 ""))))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	212 (set-buffer pb)
5b19f901fa16 Initial revision yuuji parents: diff changeset	213 (goto-char (point-min))
5b19f901fa16 Initial revision yuuji parents: diff changeset	214 (if (YaTeX-re-search-active-forward
5b19f901fa16 Initial revision yuuji parents: diff changeset	215 (concat YaTeX-ec-regexp
5b19f901fa16 Initial revision yuuji parents: diff changeset	216 "document\$style\\\|class\${")
5b19f901fa16 Initial revision yuuji parents: diff changeset	217 YaTeX-comment-prefix nil t)
5b19f901fa16 Initial revision yuuji parents: diff changeset	218 (forward-line 1))
5b19f901fa16 Initial revision yuuji parents: diff changeset	219 (if (YaTeX-search-active-forward
5b19f901fa16 Initial revision yuuji parents: diff changeset	220 begdoc YaTeX-comment-prefix nil t)
5b19f901fa16 Initial revision yuuji parents: diff changeset	221 (goto-char (match-beginning 0)))
5b19f901fa16 Initial revision yuuji parents: diff changeset	222 (insert
5b19f901fa16 Initial revision yuuji parents: diff changeset	223 usepackage
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	224 (format "%s{%s}\t%% required for `\\%s' (yatex added)\n"
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	225 option pkg macro))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	226 (funcall register))
120 8772bd5d1f02 Do not ask again when user answer n to usepackage addition. yuuji@gentei.org parents: 80 diff changeset	227 (funcall register)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	228 (message "Don't forget to put \\usepackage{%s} yourself later"
5b19f901fa16 Initial revision yuuji parents: diff changeset	229 (car (car pkglist)))) ;doing car car is negligence...
5b19f901fa16 Initial revision yuuji parents: diff changeset	230 ))))))

Mercurial > hgrepos > hgweb.cgi > yatex

annotate yatexpkg.el @ 364:d69fd7b1ac4d dev yatex-1.78