yatex: yatexpkg.el annotate

annotate yatexpkg.el @ 313:fcdb9189cd9c dev

\cref Update (c)-line

author	HIROSE Yuuji <yuuji@gentei.org>
date	Wed, 08 Jan 2014 07:52:12 +0900
parents	0d42b3d7f958
children	fae84a98372c

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]
fcdb9189cd9c \cref HIROSE Yuuji <yuuji@gentei.org> parents: 312 diff changeset	4 ;;; Last modified Wed Jan 8 07:50:29 2014 on firestorm
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	5 ;;; $Id$
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"))
0d42b3d7f958 Add completion of \cref HIROSE Yuuji <yuuji@gentei.org> parents: 305 diff changeset	47 ("cref" (section "cleveref")))
79 0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	48 "Default package vs. macro list.
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	49 Alists contains '(PACKAGENAME . MACROLIST)
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	50 PACKAGENAME Basename of package(String).
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	51 MACROLIST List of '(TYPE . MACROS)
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	52 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	53 MACROS List of macros
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	54
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	55 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	56 package. Its cdr can be a symbol whose value is alist.
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	57
79 0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	58 An good example is the value of YaTeX-package-alist-default.")
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	59
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	60 (defvar YaTeX-package-graphics-driver-alist
303 13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	61 '(("dvips") ("dvipsnames") ("usenames")
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	62 ("xdvi") ("dvipdf") ("pdftex") ("dvipsone") ("dviwindo")
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	63 ("emtex") ("dviwin") ("oztex") ("textures") ("pctexps") ("pctexwin")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	64 ("pctexhp") ("pctex32") ("truetex") ("tcidvi") ("vtex"))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	65 "Drivers alist of graphics/color stylefile's supporting deveces.
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	66 This list is taken from
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	67 %% graphics.dtx Copyright (C) 1994 David Carlisle Sebastian Rahtz
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	68 %% Copyright (C) 1995 1996 1997 1998 David Carlisle
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	69 as of 2004/1/19. Thanks.")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	70
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	71 (defvar YaTeX-package-alist-private nil
5b19f901fa16 Initial revision yuuji parents: diff changeset	72 "*User defined package vs. macro list. See also YaTeX-package-alist-default")
5b19f901fa16 Initial revision yuuji parents: diff changeset	73
5b19f901fa16 Initial revision yuuji parents: diff changeset	74 (defun YaTeX-package-lookup (macro &optional type)
5b19f901fa16 Initial revision yuuji parents: diff changeset	75 "Look up a package which contains a definition of MACRO.
5b19f901fa16 Initial revision yuuji parents: diff changeset	76 Optional second argument TYPE limits the macro type.
5b19f901fa16 Initial revision yuuji parents: diff changeset	77 TYPE is a symbol, one of 'env, 'section, 'maketitle."
5b19f901fa16 Initial revision yuuji parents: diff changeset	78 (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	79 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	80 (setq origlist list)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	81 (while list
5b19f901fa16 Initial revision yuuji parents: diff changeset	82 (setq element (car list)
5b19f901fa16 Initial revision yuuji parents: diff changeset	83 pkg (car element)
5b19f901fa16 Initial revision yuuji parents: diff changeset	84 element (cdr element))
304 a57f4c74179a (yatexpkg)YaTeX-package-lookup sees 'same-as entry. HIROSE Yuuji <yuuji@gentei.org> parents: 303 diff changeset	85 (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	86 (setq element (cdr (assoc (cdr sameas) origlist))))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	87 (if (setq r (catch 'found
5b19f901fa16 Initial revision yuuji parents: diff changeset	88 (while element
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	89 (setq x (car element)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	90 val (cdr x))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	91 (if (symbolp val) (setq val (symbol-value val)))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	92 (and (or (null type)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	93 (eq type (car x)))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	94 (YaTeX-member macro val)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	95 (throw 'found (car x))) ;car x is type
5b19f901fa16 Initial revision yuuji parents: diff changeset	96 (setq element (cdr element)))))
5b19f901fa16 Initial revision yuuji parents: diff changeset	97 (setq pkglist (cons (cons pkg r) pkglist)))
5b19f901fa16 Initial revision yuuji parents: diff changeset	98 (setq list (cdr list)))
5b19f901fa16 Initial revision yuuji parents: diff changeset	99 pkglist))
5b19f901fa16 Initial revision yuuji parents: diff changeset	100
303 13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	101 (defun YaTeX-package-option-lookup (pkg &optional key)
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	102 "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	103 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	104 (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	105 (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	106 (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	107 (cond
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	108 (recur (YaTeX-package-option-lookup recur key))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	109 ((symbolp l) (symbol-value l))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	110 (t l))))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	111
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	112 (defvar YaTeX-package-resolved-list nil
5b19f901fa16 Initial revision yuuji parents: diff changeset	113 "List of macros whose package is confirmed to be loaded.")
5b19f901fa16 Initial revision yuuji parents: diff changeset	114
5b19f901fa16 Initial revision yuuji parents: diff changeset	115 (defun YaTeX-package-auto-usepackage (macro type)
5b19f901fa16 Initial revision yuuji parents: diff changeset	116 "(Semi)Automatically add the \\usepackage line to main-file.
5b19f901fa16 Initial revision yuuji parents: diff changeset	117 Search the usepackage for MACRO of the TYPE."
5b19f901fa16 Initial revision yuuji parents: diff changeset	118 (let ((cb (current-buffer))
5b19f901fa16 Initial revision yuuji parents: diff changeset	119 (wc (current-window-configuration))
5b19f901fa16 Initial revision yuuji parents: diff changeset	120 (usepackage (concat YaTeX-ec "usepackage"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	121 (pkglist (YaTeX-package-lookup macro type))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	122 (usepkgrx (concat
5b19f901fa16 Initial revision yuuji parents: diff changeset	123 YaTeX-ec-regexp
5b19f901fa16 Initial revision yuuji parents: diff changeset	124 "\$usepackage\\\|include\$\\b"))
5b19f901fa16 Initial revision yuuji parents: diff changeset	125 (register '(lambda () (set-buffer cb)
5b19f901fa16 Initial revision yuuji parents: diff changeset	126 (set (make-local-variable 'YaTeX-package-resolved-list)
5b19f901fa16 Initial revision yuuji parents: diff changeset	127 (cons macro YaTeX-package-resolved-list))))
5b19f901fa16 Initial revision yuuji parents: diff changeset	128 (begdoc (concat YaTeX-ec "begin{document}"))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	129 pb pkg optlist (option "") mb0 uspkgargs)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	130 (if (or (YaTeX-member macro YaTeX-package-resolved-list)
5b19f901fa16 Initial revision yuuji parents: diff changeset	131 (null pkglist))
5b19f901fa16 Initial revision yuuji parents: diff changeset	132 nil ;nothing to do
5b19f901fa16 Initial revision yuuji parents: diff changeset	133 ;; Search `usepackage' into main-file
5b19f901fa16 Initial revision yuuji parents: diff changeset	134 (YaTeX-visit-main t) ;set buffer to parent file
5b19f901fa16 Initial revision yuuji parents: diff changeset	135 (setq pb (current-buffer))
5b19f901fa16 Initial revision yuuji parents: diff changeset	136 (save-excursion
5b19f901fa16 Initial revision yuuji parents: diff changeset	137 (save-restriction
5b19f901fa16 Initial revision yuuji parents: diff changeset	138 (if (catch 'found
5b19f901fa16 Initial revision yuuji parents: diff changeset	139 (goto-char (point-min))
5b19f901fa16 Initial revision yuuji parents: diff changeset	140 (YaTeX-search-active-forward ;if search fails, goto eob
5b19f901fa16 Initial revision yuuji parents: diff changeset	141 begdoc YaTeX-comment-prefix nil 1)
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	142 (while ;(YaTeX-re-search-active-backward
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	143 ;usepkgrx YaTeX-comment-prefix nil t)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	144 ;;allow commented out \usepackages 2004/3/16
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	145 (re-search-backward usepkgrx nil t)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	146 (setq mb0 (match-beginning 0))
5b19f901fa16 Initial revision yuuji parents: diff changeset	147 (skip-chars-forward "^{")
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	148 (setq uspkgargs (YaTeX-buffer-substring
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	149 (point)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	150 (progn
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	151 ;;(forward-list 1) is more precise,
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	152 ;; but higher risk.
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	153 (skip-chars-forward "^}\n")(point))))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	154 (let ((pl pkglist))
5b19f901fa16 Initial revision yuuji parents: diff changeset	155 (while pl ;(car pl)'s car is package, cdr is type
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	156 (if (string-match
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	157 (concat "[{,]\\s *"
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	158 (regexp-quote (car (car pl)))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	159 "\\>")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	160 uspkgargs)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	161 (throw 'found t))
5b19f901fa16 Initial revision yuuji parents: diff changeset	162 (setq pl (cdr pl)))
5b19f901fa16 Initial revision yuuji parents: diff changeset	163 (goto-char mb0))))
5b19f901fa16 Initial revision yuuji parents: diff changeset	164 ;;corresponding \usepackage found
5b19f901fa16 Initial revision yuuji parents: diff changeset	165 (funcall register)
5b19f901fa16 Initial revision yuuji parents: diff changeset	166 ;; not found, insert it.
5b19f901fa16 Initial revision yuuji parents: diff changeset	167 (if (y-or-n-p
5b19f901fa16 Initial revision yuuji parents: diff changeset	168 (format "`%s' requires package. Put \\usepackage now?" macro))
5b19f901fa16 Initial revision yuuji parents: diff changeset	169 (progn
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	170 (require 'yatexadd)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	171 (setq pkg
5b19f901fa16 Initial revision yuuji parents: diff changeset	172 (completing-read
5b19f901fa16 Initial revision yuuji parents: diff changeset	173 "Load which package?(TAB for list): "
79 0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	174 pkglist nil nil
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	175 ;;initial input
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	176 (if (= (length pkglist) 1)
0734be649cb8 Do not care file-coding-system when YaTeX-kanji-code is nil. yuuji parents: 78 diff changeset	177 (let ((w (car (car pkglist))))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	178 (if YaTeX-emacs-19 (cons w 0) w))))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	179 optlist
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	180 (YaTeX-package-option-lookup pkg))
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	181 (if optlist
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	182 (let ((minibuffer-completion-table optlist)
303 13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	183 (delim ",") (w (car (car optlist)))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	184 (dflt (YaTeX-package-option-lookup
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	185 pkg 'default-option)))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	186 (setq option
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	187 (read-from-minibuffer
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	188 (format "Any option for {%s}?: " pkg)
303 13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	189 (let ((v (or dflt
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	190 (and (= (length optlist) 1) w))))
13a62b7c8354 (yatexpkg)Add default option for package completion. HIROSE Yuuji <yuuji@gentei.org> parents: 294 diff changeset	191 (and v (if YaTeX-emacs-19 (cons v 0) v)))
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	192 YaTeX-minibuffer-completion-map)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	193 option (if (string< "" option)
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	194 (concat "[" option "]")
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	195 ""))))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	196 (set-buffer pb)
5b19f901fa16 Initial revision yuuji parents: diff changeset	197 (goto-char (point-min))
5b19f901fa16 Initial revision yuuji parents: diff changeset	198 (if (YaTeX-re-search-active-forward
5b19f901fa16 Initial revision yuuji parents: diff changeset	199 (concat YaTeX-ec-regexp
5b19f901fa16 Initial revision yuuji parents: diff changeset	200 "document\$style\\\|class\${")
5b19f901fa16 Initial revision yuuji parents: diff changeset	201 YaTeX-comment-prefix nil t)
5b19f901fa16 Initial revision yuuji parents: diff changeset	202 (forward-line 1))
5b19f901fa16 Initial revision yuuji parents: diff changeset	203 (if (YaTeX-search-active-forward
5b19f901fa16 Initial revision yuuji parents: diff changeset	204 begdoc YaTeX-comment-prefix nil t)
5b19f901fa16 Initial revision yuuji parents: diff changeset	205 (goto-char (match-beginning 0)))
5b19f901fa16 Initial revision yuuji parents: diff changeset	206 (insert
5b19f901fa16 Initial revision yuuji parents: diff changeset	207 usepackage
80 9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	208 (format "%s{%s}\t%% required for `\\%s' (yatex added)\n"
9b4354af748c Too many changes from 1.72. yuuji parents: 79 diff changeset	209 option pkg macro))
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	210 (funcall register))
120 8772bd5d1f02 Do not ask again when user answer n to usepackage addition. yuuji@gentei.org parents: 80 diff changeset	211 (funcall register)
78 5b19f901fa16 Initial revision yuuji parents: diff changeset	212 (message "Don't forget to put \\usepackage{%s} yourself later"
5b19f901fa16 Initial revision yuuji parents: diff changeset	213 (car (car pkglist)))) ;doing car car is negligence...
5b19f901fa16 Initial revision yuuji parents: diff changeset	214 ))))))

Mercurial > hgrepos > hgweb.cgi > yatex

annotate yatexpkg.el @ 313:fcdb9189cd9c dev