yatex

annotate yatexpkg.el @ 80:9b4354af748c

find changesets by author, revision, files, or words in the commit message
Too many changes from 1.72. See yatex.new. (Japanese)
author yuuji
date Sun, 24 Dec 2006 06:16:52 +0000
parents 0734be649cb8
children 8772bd5d1f02
rev   line source
yuuji@78 1 ;;; -*- Emacs-Lisp -*-
yuuji@78 2 ;;; YaTeX package manager
yuuji@78 3 ;;; yatexpkg.el
yuuji@80 4 ;;; (c)2003-2006 by HIROSE, Yuuji [yuuji@yatex.org]
yuuji@80 5 ;;; Last modified Sun Dec 24 15:13:29 2006 on firestorm
yuuji@78 6 ;;; $Id$
yuuji@78 7
yuuji@80 8 (defvar YaTeX-package-ams-envs
yuuji@80 9 (mapcar 'car YaTeX-ams-env-table))
yuuji@80 10
yuuji@78 11 (defvar YaTeX-package-alist-default
yuuji@79 12 '(("version" (env "comment") ;by tsuchiya@pine.kuee.kyoto-u.ac.jp
yuuji@79 13 (section "includeversion" "excludeversion"))
yuuji@78 14
yuuji@78 15 ("plext" (section "bou")) ;by yas.axis@ma.mni.ne.jp
yuuji@78 16
yuuji@78 17 ("url" (section "url")) ;by fujieda@jaist.ac.jp
yuuji@78 18
yuuji@78 19 ("fancybox" (section "shadowbox" "doublebox" "ovalbox" "Ovalbox"))
yuuji@80 20 ("slashbox" (section "slashbox" "backslashbox"))
yuuji@78 21 ("pifont" (section "ding"))
yuuji@78 22 ("longtable" (env "longtable"))
yuuji@78 23 ("ascmac" (env "screen" "boxnote" "shadebox" "itembox")
yuuji@78 24 (maketitle "return" "Return" "yen")
yuuji@79 25 (section "keytop") ("mask") ("maskbox"))
yuuji@78 26 ("bm" (section "bm")) ;by aoyama@le.chiba-u.ac.jp
yuuji@78 27
yuuji@78 28 ("alltt" (env "alltt"))
yuuji@78 29 ("misc" (section "verbfile" "listing"))
yuuji@80 30 ("eclbkbox" (env "breakbox"))
yuuji@80 31 ("supertabular" (env "supertabular"))
yuuji@80 32 ("amsmath" (env . YaTeX-package-ams-envs)
yuuji@80 33 (section "tag" "tag*"))
yuuji@80 34 ("graphicx" (section "includegraphics"
yuuji@80 35 "rotatebox" "scalebox" "resizebox" "reflectbox")
yuuji@80 36 (option . YaTeX-package-graphics-driver-alist))
yuuji@80 37 ("color" (section "textcolor" "colorbox" "pagecolor" "color")
yuuji@80 38 (option . YaTeX-package-graphics-driver-alist))
yuuji@80 39 ("ulem" (section "uline" "uuline" "uwave")
yuuji@80 40 (option ("normalem")))
yuuji@80 41 ("multicol" (env "multicols")))
yuuji@79 42 "Default package vs. macro list.
yuuji@79 43 Alists contains '(PACKAGENAME . MACROLIST)
yuuji@79 44 PACKAGENAME Basename of package(String).
yuuji@79 45 MACROLIST List of '(TYPE . MACROS)
yuuji@79 46 TYPE One of 'env, 'section or 'maketitle according to completion-type
yuuji@79 47 MACROS List of macros
yuuji@79 48
yuuji@80 49 If TYPE is 'option, its cdr is alist of completion candidates for that
yuuji@80 50 package. Its cdr can be a symbol whose value is alist.
yuuji@80 51
yuuji@79 52 An good example is the value of YaTeX-package-alist-default.")
yuuji@78 53
yuuji@80 54 (defvar YaTeX-package-graphics-driver-alist
yuuji@80 55 '(("dvips") ("xdvi") ("dvipdf") ("pdftex") ("dvipsone") ("dviwindo")
yuuji@80 56 ("emtex") ("dviwin") ("oztex") ("textures") ("pctexps") ("pctexwin")
yuuji@80 57 ("pctexhp") ("pctex32") ("truetex") ("tcidvi") ("vtex"))
yuuji@80 58 "Drivers alist of graphics/color stylefile's supporting deveces.
yuuji@80 59 This list is taken from
yuuji@80 60 %% graphics.dtx Copyright (C) 1994 David Carlisle Sebastian Rahtz
yuuji@80 61 %% Copyright (C) 1995 1996 1997 1998 David Carlisle
yuuji@80 62 as of 2004/1/19. Thanks.")
yuuji@80 63
yuuji@78 64 (defvar YaTeX-package-alist-private nil
yuuji@78 65 "*User defined package vs. macro list. See also YaTeX-package-alist-default")
yuuji@78 66
yuuji@78 67 (defun YaTeX-package-lookup (macro &optional type)
yuuji@78 68 "Look up a package which contains a definition of MACRO.
yuuji@78 69 Optional second argument TYPE limits the macro type.
yuuji@78 70 TYPE is a symbol, one of 'env, 'section, 'maketitle."
yuuji@78 71 (let ((list (append YaTeX-package-alist-private YaTeX-package-alist-default))
yuuji@80 72 element x val pkg pkglist r)
yuuji@78 73 (while list
yuuji@78 74 (setq element (car list)
yuuji@78 75 pkg (car element)
yuuji@78 76 element (cdr element))
yuuji@78 77 (if (setq r (catch 'found
yuuji@78 78 (while element
yuuji@80 79 (setq x (car element)
yuuji@80 80 val (cdr x))
yuuji@80 81 (if (symbolp val) (setq val (symbol-value val)))
yuuji@80 82 (and (or (null type)
yuuji@78 83 (eq type (car x)))
yuuji@80 84 (YaTeX-member macro val)
yuuji@78 85 (throw 'found (car x))) ;car x is type
yuuji@78 86 (setq element (cdr element)))))
yuuji@78 87 (setq pkglist (cons (cons pkg r) pkglist)))
yuuji@78 88 (setq list (cdr list)))
yuuji@78 89 pkglist))
yuuji@78 90
yuuji@80 91 (defun YaTeX-package-option-lookup (pkg)
yuuji@80 92 "Look up options for specified pkg and returne them in alist form.
yuuji@80 93 Just only accocing against the alist of YaTeX-package-alist-*"
yuuji@80 94 (let ((l (cdr (assq 'option
yuuji@80 95 (assoc pkg (append YaTeX-package-alist-private
yuuji@80 96 YaTeX-package-alist-default))))))
yuuji@80 97 (if (symbolp l) (symbol-value l) l)))
yuuji@80 98
yuuji@78 99 (defvar YaTeX-package-resolved-list nil
yuuji@78 100 "List of macros whose package is confirmed to be loaded.")
yuuji@78 101
yuuji@78 102 (defun YaTeX-package-auto-usepackage (macro type)
yuuji@78 103 "(Semi)Automatically add the \\usepackage line to main-file.
yuuji@78 104 Search the usepackage for MACRO of the TYPE."
yuuji@78 105 (let ((cb (current-buffer))
yuuji@78 106 (wc (current-window-configuration))
yuuji@78 107 (usepackage (concat YaTeX-ec "usepackage"))
yuuji@80 108 (pkglist (YaTeX-package-lookup macro type))
yuuji@78 109 (usepkgrx (concat
yuuji@78 110 YaTeX-ec-regexp
yuuji@78 111 "\\(usepackage\\|include\\)\\b"))
yuuji@78 112 (register '(lambda () (set-buffer cb)
yuuji@78 113 (set (make-local-variable 'YaTeX-package-resolved-list)
yuuji@78 114 (cons macro YaTeX-package-resolved-list))))
yuuji@78 115 (begdoc (concat YaTeX-ec "begin{document}"))
yuuji@80 116 pb pkg optlist (option "") mb0 uspkgargs)
yuuji@78 117 (if (or (YaTeX-member macro YaTeX-package-resolved-list)
yuuji@78 118 (null pkglist))
yuuji@78 119 nil ;nothing to do
yuuji@78 120 ;; Search `usepackage' into main-file
yuuji@78 121 (YaTeX-visit-main t) ;set buffer to parent file
yuuji@78 122 (setq pb (current-buffer))
yuuji@78 123 (save-excursion
yuuji@78 124 (save-restriction
yuuji@78 125 (if (catch 'found
yuuji@78 126 (goto-char (point-min))
yuuji@78 127 (YaTeX-search-active-forward ;if search fails, goto eob
yuuji@78 128 begdoc YaTeX-comment-prefix nil 1)
yuuji@80 129 (while ;(YaTeX-re-search-active-backward
yuuji@80 130 ;usepkgrx YaTeX-comment-prefix nil t)
yuuji@80 131 ;;allow commented out \usepackages 2004/3/16
yuuji@80 132 (re-search-backward usepkgrx nil t)
yuuji@78 133 (setq mb0 (match-beginning 0))
yuuji@78 134 (skip-chars-forward "^{")
yuuji@80 135 (setq uspkgargs (YaTeX-buffer-substring
yuuji@80 136 (point)
yuuji@80 137 (progn
yuuji@80 138 ;;(forward-list 1) is more precise,
yuuji@80 139 ;; but higher risk.
yuuji@80 140 (skip-chars-forward "^}\n")(point))))
yuuji@78 141 (let ((pl pkglist))
yuuji@78 142 (while pl ;(car pl)'s car is package, cdr is type
yuuji@80 143 (if (string-match
yuuji@80 144 (concat "[{,]\\s *"
yuuji@80 145 (regexp-quote (car (car pl)))
yuuji@80 146 "\\>")
yuuji@80 147 uspkgargs)
yuuji@78 148 (throw 'found t))
yuuji@78 149 (setq pl (cdr pl)))
yuuji@78 150 (goto-char mb0))))
yuuji@78 151 ;;corresponding \usepackage found
yuuji@78 152 (funcall register)
yuuji@78 153 ;; not found, insert it.
yuuji@78 154 (if (y-or-n-p
yuuji@78 155 (format "`%s' requires package. Put \\usepackage now?" macro))
yuuji@78 156 (progn
yuuji@80 157 (require 'yatexadd)
yuuji@78 158 (setq pkg
yuuji@78 159 (completing-read
yuuji@78 160 "Load which package?(TAB for list): "
yuuji@79 161 pkglist nil nil
yuuji@79 162 ;;initial input
yuuji@79 163 (if (= (length pkglist) 1)
yuuji@79 164 (let ((w (car (car pkglist))))
yuuji@80 165 (if YaTeX-emacs-19 (cons w 0) w))))
yuuji@80 166 optlist
yuuji@80 167 (YaTeX-package-option-lookup pkg))
yuuji@80 168 (if optlist
yuuji@80 169 (let ((minibuffer-completion-table optlist)
yuuji@80 170 (delim ",") (w (car (car optlist))))
yuuji@80 171 (setq option
yuuji@80 172 (read-from-minibuffer
yuuji@80 173 (format "Any option for {%s}?: " pkg)
yuuji@80 174 (if (= (length optlist) 1)
yuuji@80 175 (if YaTeX-emacs-19 (cons w 0) w))
yuuji@80 176 YaTeX-minibuffer-completion-map)
yuuji@80 177 option (if (string< "" option)
yuuji@80 178 (concat "[" option "]")
yuuji@80 179 ""))))
yuuji@78 180 (set-buffer pb)
yuuji@78 181 (goto-char (point-min))
yuuji@78 182 (if (YaTeX-re-search-active-forward
yuuji@78 183 (concat YaTeX-ec-regexp
yuuji@78 184 "document\\(style\\|class\\){")
yuuji@78 185 YaTeX-comment-prefix nil t)
yuuji@78 186 (forward-line 1))
yuuji@78 187 (if (YaTeX-search-active-forward
yuuji@78 188 begdoc YaTeX-comment-prefix nil t)
yuuji@78 189 (goto-char (match-beginning 0)))
yuuji@78 190 (insert
yuuji@78 191 usepackage
yuuji@80 192 (format "%s{%s}\t%% required for `\\%s' (yatex added)\n"
yuuji@80 193 option pkg macro))
yuuji@78 194 (funcall register))
yuuji@78 195 (message "Don't forget to put \\usepackage{%s} yourself later"
yuuji@78 196 (car (car pkglist)))) ;doing car car is negligence...
yuuji@78 197 ))))))