yatex

annotate yatex.el @ 60:9e08ed569d80

find changesets by author, revision, files, or words in the commit message
yahtml: change keystroke of calling browser to [prefix] t p yahtml: don't count <a>tag contents as column in <pre> yahtml: support [prefix] c against src="", align="". and many many more
author yuuji
date Fri, 24 Jan 1997 09:04:06 +0000
parents 48ac97a6b6ce
children b9f753846b6b
rev   line source
yuuji@0 1 ;;; -*- Emacs-Lisp -*-
yuuji@0 2 ;;; Yet Another tex-mode for emacs.
yuuji@60 3 ;;; yatex.el rev. 1.63
yuuji@60 4 ;;; (c )1991-1997 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
yuuji@60 5 ;;; Last modified Fri Jan 24 17:57:14 1997 on supra
yuuji@11 6 ;;; $Id$
yuuji@0 7
yuuji@13 8 ;; This program is free software; you can redistribute it and/or modify
yuuji@13 9 ;; it under the terms of the GNU General Public License as published by
yuuji@13 10 ;; the Free Software Foundation; either version 2, or (at your option)
yuuji@13 11 ;; any later version.
yuuji@5 12
yuuji@13 13 ;; This program is distributed in the hope that it will be useful,
yuuji@13 14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
yuuji@13 15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
yuuji@13 16 ;; GNU General Public License for more details.
yuuji@13 17
yuuji@13 18 ;; You should have received a copy of the GNU General Public License
yuuji@13 19 ;; along with this program; see the file COPYING. If not, write to
yuuji@13 20 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
yuuji@5 21
yuuji@3 22 (require 'comment)
yuuji@60 23 (defconst YaTeX-revision-number "1.63"
yuuji@0 24 "Revision number of running yatex.el"
yuuji@0 25 )
yuuji@0 26
yuuji@0 27 ;---------- Local variables ----------
yuuji@0 28 ;;;
yuuji@0 29 ;; Initialize local variable for yatex-mode.
yuuji@0 30 ;; Preserving user preferred definitions.
yuuji@0 31 ;; ** Check all of these defvar-ed values **
yuuji@0 32 ;; ** and setq other values more suitable **
yuuji@5 33 ;; ** for your site, if needed. **
yuuji@0 34 ;;;
yuuji@22 35 (defvar YaTeX-prefix "\C-c"
yuuji@59 36 "*Prefix key to call YaTeX functions.
yuuji@0 37 You can select favorite prefix key by setq in your ~/.emacs."
yuuji@0 38 )
yuuji@11 39 (defvar YaTeX-environment-indent 1
yuuji@11 40 "*Indentation depth at column width in LaTeX environments."
yuuji@11 41 )
yuuji@1 42 (defvar YaTeX-fill-prefix ""
yuuji@5 43 "*fill-prefix used for auto-fill-mode.
yuuji@13 44 The default value is null string."
yuuji@5 45 )
yuuji@5 46 (defvar YaTeX-fill-column 72
yuuji@5 47 "*fill-column used for auto-fill-mode."
yuuji@0 48 )
yuuji@4 49 (defvar YaTeX-comment-prefix "%"
yuuji@4 50 "TeX comment prefix."
yuuji@4 51 )
yuuji@5 52 (defvar YaTeX-current-position-register ?3
yuuji@22 53 "*Position register to keep where the last completion was done.
yuuji@22 54 All of YaTeX completing input store the current position into
yuuji@5 55 the register YaTeX-current-position-register. So every time you
yuuji@52 56 make a trip to any other part of text other than you are writing, you can
yuuji@13 57 return to the editing paragraph by calling register-to-point with argument
yuuji@5 58 YaTeX-current-position-register."
yuuji@5 59 )
yuuji@13 60 (defvar YaTeX-dos (eq system-type 'ms-dos))
yuuji@45 61 (defvar YaTeX-emacs-19 (string= "19" (substring emacs-version 0 2)))
yuuji@4 62 (defvar YaTeX-user-completion-table
yuuji@13 63 (if YaTeX-dos "~/_yatexrc" "~/.yatexrc")
yuuji@5 64 "*Default filename in which user completion table is saved."
yuuji@0 65 )
yuuji@18 66 ;;(defvar YaTeX-tmp-dic-unit 'main-file
yuuji@18 67 ;; "*Default switching unit of temporary dictionary.
yuuji@18 68 ;;There are two switching unit:
yuuji@18 69 ;;'main-file : switch tmp-dic according to main-file directory.
yuuji@18 70 ;;'directory : switch tmp-dic dir by dir."
yuuji@18 71 ;;)
yuuji@7 72 (defvar YaTeX-japan (or (boundp 'NEMACS) (boundp 'MULE))
yuuji@7 73 "Whether yatex mode is running on Japanese environment or not."
yuuji@7 74 )
yuuji@7 75 (defvar tex-command (if YaTeX-japan "jlatex" "latex")
yuuji@7 76 "*Default command for typesetting LaTeX text."
yuuji@7 77 )
yuuji@7 78 (defvar bibtex-command (if YaTeX-japan "jbibtex" "bibtex")
yuuji@7 79 "*Default command of BibTeX."
yuuji@0 80 )
yuuji@0 81 (defvar dvi2-command ;previewer command for your site
yuuji@52 82 (if YaTeX-dos "dviout -wait=0"
yuuji@58 83 "xdvi -geo +0+0 -s 4")
yuuji@5 84 "*Default previewer command including its option.
yuuji@7 85 This default value is for X window system."
yuuji@0 86 )
yuuji@13 87 (defvar makeindex-command (if YaTeX-dos "makeind" "makeindex")
yuuji@11 88 "*Default makeindex command."
yuuji@11 89 )
yuuji@5 90 (defvar dviprint-command-format
yuuji@13 91 (if YaTeX-dos "dviprt %s %f%t"
yuuji@5 92 "dvi2ps %f %t %s | lpr")
yuuji@22 93 "*Command line string to print out current file.
yuuji@22 94 Format string %s will be replaced by the filename. Do not forget to
yuuji@22 95 specify the `from usage' and `to usage' with their option by format string
yuuji@22 96 %f and %t.
yuuji@22 97 See also documentation of dviprint-from-format and dviprint-to-format."
yuuji@5 98 )
yuuji@5 99 (defvar dviprint-from-format
yuuji@13 100 (if YaTeX-dos "%b-" "-f %b")
yuuji@7 101 "*`From' page format of dvi filter. %b will turn to beginning page number."
yuuji@5 102 )
yuuji@5 103 (defvar dviprint-to-format
yuuji@13 104 (if YaTeX-dos "%e" "-t %e")
yuuji@7 105 "*`To' page format of dvi filter. %e will turn to end page number."
yuuji@5 106 )
yuuji@5 107 (defvar YaTeX-default-document-style
yuuji@5 108 (concat (if YaTeX-japan "j") "article")
yuuji@5 109 "*Default LaTeX Documentstyle for YaTeX-typeset-region."
yuuji@5 110 )
yuuji@5 111 (defvar YaTeX-need-nonstop nil
yuuji@45 112 "*T for adding `\\nonstopmode{}' to text before invoking latex command."
yuuji@5 113 )
yuuji@0 114 (defvar latex-warning-regexp "line.* [0-9]*"
yuuji@5 115 "*Regular expression of line number of warning message by latex command."
yuuji@0 116 )
yuuji@0 117 (defvar latex-error-regexp "l\\.[1-9][0-9]*"
yuuji@22 118 "*Regular expression of line number of latex error.
yuuji@22 119 Perhaps your latex command stops at this error message with line number of
yuuji@22 120 LaTeX source text."
yuuji@0 121 )
yuuji@1 122 (defvar latex-dos-emergency-message
yuuji@3 123 "Emergency stop" ;<- for Micro tex, ASCII-pTeX 1.6
yuuji@22 124 "Message pattern of emergency stop of typesetting.
yuuji@22 125 Because Demacs (GNU Emacs on DOS) cannot have concurrent process, the
yuuji@0 126 latex command which is stopping on a LaTeX error, is terminated by Demacs.
yuuji@13 127 Many latex command on DOS display some messages when it is terminated by
yuuji@13 128 other process, user or OS. Define to this variable a message string of your
yuuji@13 129 latex command on DOS shown at abnormal termination.
yuuji@0 130 Remember Demacs's call-process function is not oriented for interactive
yuuji@0 131 process."
yuuji@0 132 )
yuuji@5 133 (defvar latex-message-kanji-code 2
yuuji@5 134 "*Kanji coding system latex command types out.
yuuji@5 135 1 = Shift JIS, 2 = JIS, 3 = EUC."
yuuji@5 136 )
yuuji@22 137 (defvar YaTeX-inhibit-prefix-letter nil
yuuji@22 138 "*T for changing key definitions from [prefix] Letter to [prefix] C-Letter."
yuuji@22 139 )
yuuji@5 140 (defvar NTT-jTeX nil
yuuji@5 141 "*Use NTT-jTeX for latex command."
yuuji@5 142 )
yuuji@11 143 (defvar YaTeX-item-regexp (concat (regexp-quote "\\") "\\(sub\\)*item")
yuuji@58 144 "*Regular expression of item command."
yuuji@6 145 )
yuuji@18 146 (defvar YaTeX-nervous t
yuuji@18 147 "*If you are nervous about maintenance of yatexrc, set this value to T.
yuuji@18 148 And you will have the local dictionary."
yuuji@6 149 )
yuuji@7 150 (defvar YaTeX-sectioning-regexp
yuuji@52 151 "\\(part\\|chapter\\*?\\|\\(sub\\)*\\(section\\|paragraph\\)\\*?\\)\\b"
yuuji@7 152 "*LaTeX sectioning commands regexp."
yuuji@7 153 )
yuuji@58 154 (defvar YaTeX-paragraph-start
yuuji@59 155 (concat "^[ \t]*%\\|^[ \t]*$\\|\\'\\|^\C-l\\|\\\\\\\\$\\|^[ \t]*\\\\\\("
yuuji@13 156 YaTeX-sectioning-regexp ;sectioning commands
yuuji@7 157 "\\|[A-z]*item\\|begin{\\|end{" ;special declaration
yuuji@59 158 "\\|newpage\\b\\|vspace\\b"
yuuji@7 159 "\\)")
yuuji@58 160 "*Paragraph starting regexp of common LaTeX source. Use this value
yuuji@58 161 for YaTeX-uncomment-paragraph."
yuuji@58 162 )
yuuji@58 163 (defvar YaTeX-paragraph-separate
yuuji@58 164 (concat "^[ \t]*%\\|^[ \t]*$\\|^\C-l\\|\\\\\\\\$\\|^[ \t]*\\\\\\("
yuuji@58 165 YaTeX-sectioning-regexp ;sectioning commands
yuuji@58 166 "\\|begin{\\|end{" ;special declaration
yuuji@59 167 "\\|newpage\\b\\|vspace\\b"
yuuji@58 168 "\\)")
yuuji@7 169 "*Paragraph delimiter regexp of common LaTeX source. Use this value
yuuji@7 170 for YaTeX-uncomment-paragraph."
yuuji@7 171 )
yuuji@49 172 (defvar YaTeX-verbatim-environments
yuuji@49 173 '("verbatim" "verbatim*")
yuuji@49 174 "*Assume these environments of this variable disable LaTeX commands.")
yuuji@51 175 (defvar YaTeX-verb-regexp "verb\\*?\\|path"
yuuji@51 176 "*Regexp of verb family. Do not contain preceding \\\\ nor \\(\\).")
yuuji@49 177 (defvar YaTeX-fill-inhibit-environments
yuuji@49 178 (append '("tabular" "tabular*" "array" "picture" "eqnarray" "eqnarray*"
yuuji@49 179 "equation" "math" "displaymath")
yuuji@49 180 YaTeX-verbatim-environments)
yuuji@13 181 "*In these environments, YaTeX inhibits fill-paragraph from formatting.
yuuji@11 182 Define those environments as a form of list."
yuuji@11 183 )
yuuji@52 184 (defvar YaTeX-itemizing-env-regexp
yuuji@52 185 "itemize\\|enumerate\\|description\\|list"
yuuji@53 186 "*Regexp of itemizing environments")
yuuji@53 187 (defvar YaTeX-equation-env-regexp
yuuji@54 188 "array\\*?\\|equation\\*?"
yuuji@53 189 "*Regexp of environments for equations")
yuuji@57 190 (defvar YaTeX-array-env-regexp
yuuji@58 191 (concat
yuuji@58 192 "array\\*?\\|eqnarray\\*?\\|tabbing\\|tabular\\*?\\|" ;LaTeX
yuuji@58 193 "align\\*?\\|split\\*?\\|aligned\\*?\\|alignat\\*?\\|" ;AMS-LaTeX
yuuji@58 194 "xalignat\\*?\\|xxalignat\\*?") ;AMS-LaTeX
yuuji@57 195 "*Regexp of environments where `&' becomes field delimiter.")
yuuji@11 196 (defvar YaTeX-uncomment-once t
yuuji@22 197 "*T for removing all continuous commenting character(%).
yuuji@22 198 Nil for removing only one commenting character at the beginning-of-line."
yuuji@11 199 )
yuuji@22 200 (defvar YaTeX-default-pop-window-height 10
yuuji@22 201 "Default typesetting buffer height.
yuuji@22 202 If integer, sets the window-height of typesetting buffer.
yuuji@22 203 If string, sets the percentage of it.
yuuji@22 204 If nil, use default pop-to-buffer."
yuuji@11 205 )
yuuji@22 206 (defvar YaTeX-close-paren-always t
yuuji@22 207 "Close parenthesis always when YaTeX-modify-mode is nil."
yuuji@11 208 )
yuuji@22 209 (defvar YaTeX-no-begend-shortcut nil
yuuji@22 210 "*T for disabling shortcut of begin-type completion, [prefix] b d, etc."
yuuji@22 211 )
yuuji@22 212 (defvar YaTeX-greek-by-maketitle-completion nil
yuuji@22 213 "*T for greek letters completion by maketitle-type completion."
yuuji@22 214 )
yuuji@22 215 (defvar YaTeX-auto-math-mode t
yuuji@22 216 "*T for changing YaTeX-math mode automatically.")
yuuji@58 217 (defvar YaTeX-use-AMS-LaTeX nil
yuuji@58 218 "*T for using AMS-LaTeX"
yuuji@58 219 )
yuuji@22 220 (defvar yatex-mode-hook nil
yuuji@22 221 "*List of functions to be called at the end of yatex-mode initializations."
yuuji@22 222 )
yuuji@22 223 ;;-- Math mode values --
yuuji@22 224
yuuji@22 225 (defvar YaTeX-math-key-list-default
yuuji@22 226 '((";" . YaTeX-math-sign-alist)
yuuji@52 227 (":" . YaTeX-greek-key-alist))
yuuji@22 228 "Default key sequence to invoke math-mode's image completion."
yuuji@22 229 )
yuuji@22 230 (defvar YaTeX-math-key-list-private nil
yuuji@51 231 "*User defined alist, math-mode-prefix vs completion alist."
yuuji@22 232 )
yuuji@22 233 (defvar YaTeX-math-key-list
yuuji@22 234 (append YaTeX-math-key-list-private YaTeX-math-key-list-default)
yuuji@22 235 "Key sequence to invoke math-mode's image completion."
yuuji@22 236 )
yuuji@52 237 (defvar YaTeX-create-file-prefix-g nil
yuuji@54 238 "*Non-nil creates new file when [prefix] g on \\include{foo}."
yuuji@54 239 )
yuuji@54 240 (defvar YaTeX-skip-default-reader nil
yuuji@54 241 "Non-nil skips default argument reader of section-type completion."
yuuji@54 242 )
yuuji@54 243 (defvar YaTeX-simple-messages nil
yuuji@54 244 "Non-nil makes minibuffer messages simpler."
yuuji@54 245 )
yuuji@57 246 (defvar YaTeX-addin-prefix "YaTeX:")
yuuji@0 247 ;------------ Completion table ------------
yuuji@0 248 ; Set tex-section-like command possible completion
yuuji@22 249 (defvar section-table
yuuji@49 250 '(("part") ("chapter") ("section") ("subsection")
yuuji@49 251 ("subsubsection") ("paragraph") ("subparagraph")
yuuji@22 252 ("author") ("thanks") ("documentstyle") ("pagestyle")
yuuji@49 253 ("title") ("underline") ("label") ("makebox")
yuuji@49 254 ("footnote") ("footnotetext")
yuuji@48 255 ("hspace*") ("vspace*") ("bibliography") ("bibitem") ("cite")
yuuji@49 256 ("input") ("include") ("includeonly") ("mbox") ("hbox") ("caption")
yuuji@22 257 ("newlength") ("setlength" 2) ("addtolength" 2) ("settowidth" 2)
yuuji@22 258 ("setcounter" 2) ("addtocounter" 2) ("stepcounter" 2)
yuuji@22 259 ("newcommand" 2) ("renewcommand" 2)
yuuji@22 260 ("setcounter" 2) ("newenvironment" 3) ("newtheorem" 2)
yuuji@60 261 ("cline") ("framebox") ("savebox" 2) ("date") ("put") ("ref")
yuuji@22 262 ("frac" 2) ("multicolumn" 3) ("shortstack")
yuuji@22 263 )
yuuji@22 264 "Default completion table for section-type completion."
yuuji@22 265 )
yuuji@0 266 (defvar user-section-table nil)
yuuji@6 267 (defvar tmp-section-table nil)
yuuji@0 268
yuuji@0 269 ; Set tex-environment possible completion
yuuji@22 270 (defvar env-table
yuuji@22 271 '(("quote") ("quotation") ("center") ("verse") ("document")
yuuji@22 272 ("verbatim") ("itemize") ("enumerate") ("description")
yuuji@53 273 ("list") ("tabular") ("tabular*") ("table") ("tabbing") ("titlepage")
yuuji@22 274 ("sloppypar") ("quotation") ("picture") ("displaymath")
yuuji@22 275 ("eqnarray") ("figure") ("equation") ("abstract") ("array")
yuuji@22 276 ("thebibliography") ("theindex") ("flushleft") ("flushright")
yuuji@22 277 ("minipage")
yuuji@22 278 )
yuuji@22 279 "Default completion table for begin-type completion."
yuuji@22 280 )
yuuji@0 281 (defvar user-env-table nil)
yuuji@6 282 (defvar tmp-env-table nil)
yuuji@0 283
yuuji@13 284 ; Set {\Large }-like completion
yuuji@22 285 (defvar fontsize-table
yuuji@22 286 '(("rm") ("em") ("bf") ("boldmath") ("it") ("sl") ("sf") ("sc") ("tt")
yuuji@22 287 ("dg") ("dm")
yuuji@22 288 ("tiny") ("scriptsize") ("footnotesize") ("small")("normalsize")
yuuji@22 289 ("large") ("Large") ("LARGE") ("huge") ("Huge")
yuuji@22 290 )
yuuji@22 291 "Default completion table for large-type completion."
yuuji@22 292 )
yuuji@0 293 (defvar user-fontsize-table nil)
yuuji@6 294 (defvar tmp-fontsize-table nil)
yuuji@0 295
yuuji@22 296 (defvar singlecmd-table
yuuji@51 297 (append
yuuji@51 298 '(("maketitle") ("sloppy") ("protect")
yuuji@51 299 ("LaTeX") ("TeX") ("item") ("item[]") ("appendix") ("hline")
yuuji@54 300 ;;("rightarrow") ("Rightarrow") ("leftarrow") ("Leftarrow")
yuuji@51 301 ("pagebreak") ("newpage") ("clearpage") ("cleardoublepage")
yuuji@51 302 ("footnotemark") ("verb") ("verb*")
yuuji@59 303 ("linebreak") ("pagebreak") ("noindent") ("indent")
yuuji@51 304 ("left") ("right")
yuuji@51 305 )
yuuji@51 306 (if YaTeX-greek-by-maketitle-completion
yuuji@51 307 '(("alpha") ("beta") ("gamma") ("delta") ("epsilon")
yuuji@51 308 ("varepsilon") ("zeta") ("eta") ("theta")("vartheta")
yuuji@51 309 ("iota") ("kappa") ("lambda") ("mu") ("nu") ("xi") ("pi")
yuuji@51 310 ("varpi") ("rho") ("varrho") ("sigma") ("varsigma") ("tau")
yuuji@51 311 ("upsilon") ("phi") ("varphi") ("chi") ("psi") ("omega")
yuuji@51 312 ("Gamma") ("Delta") ("Theta") ("Lambda")("Xi") ("Pi")
yuuji@51 313 ("Sigma") ("Upsilon") ("Phi") ("Psi") ("Omega"))))
yuuji@22 314 "Default completion table for maketitle-type completion."
yuuji@22 315 )
yuuji@0 316 (defvar user-singlecmd-table nil)
yuuji@6 317 (defvar tmp-singlecmd-table nil)
yuuji@0 318
yuuji@0 319 ;---------- Key mode map ----------
yuuji@0 320 ;;;
yuuji@0 321 ;; Create new key map: YaTeX-mode-map
yuuji@0 322 ;; Do not change this section.
yuuji@0 323 ;;;
yuuji@0 324 (defvar YaTeX-mode-map nil
yuuji@54 325 "Keymap used in YaTeX mode"
yuuji@0 326 )
yuuji@4 327 (defvar YaTeX-typesetting-mode-map nil
yuuji@54 328 "Keymap used in YaTeX typesetting buffer"
yuuji@4 329 )
yuuji@4 330 (defvar YaTeX-prefix-map nil
yuuji@54 331 "Keymap used when YaTeX-prefix key pushed"
yuuji@0 332 )
yuuji@54 333 (defvar YaTeX-user-extensional-map (make-sparse-keymap)
yuuji@54 334 "*Keymap used for the user's customization")
yuuji@7 335 (defvar YaTeX-current-completion-type nil
yuuji@16 336 "Has current completion type. This may be used in YaTeX addin functions."
yuuji@7 337 )
yuuji@22 338 (defvar YaTeX-modify-mode nil
yuuji@51 339 "*Current editing mode.
yuuji@51 340 When non-nil, each opening parentheses only opens,
yuuji@51 341 nil enters both open/close parentheses when opening parentheses key pressed."
yuuji@22 342 )
yuuji@22 343 (defvar YaTeX-math-mode nil
yuuji@22 344 "Holds whether current mode is math-mode."
yuuji@22 345 )
yuuji@13 346 ;---------- Define default key bindings on YaTeX mode map ----------
yuuji@57 347 (defun YaTeX-define-key (key binding &optional map)
yuuji@51 348 "Define key on YaTeX-prefix-map."
yuuji@4 349 (if YaTeX-inhibit-prefix-letter
yuuji@4 350 (let ((c (aref key 0)))
yuuji@4 351 (cond
yuuji@4 352 ((and (>= c ?a) (<= c ?z)) (aset key 0 (1+ (- c ?a))))
yuuji@14 353 ((and (>= c ?A) (<= c ?Z) (numberp YaTeX-inhibit-prefix-letter))
yuuji@14 354 (aset key 0 (1+ (- c ?A))))
yuuji@4 355 (t nil))))
yuuji@57 356 (define-key (or map YaTeX-prefix-map) key binding)
yuuji@4 357 )
yuuji@57 358 (defun YaTeX-define-begend-key-normal (key env &optional map)
yuuji@4 359 "Define short cut YaTeX-make-begin-end key."
yuuji@4 360 (YaTeX-define-key
yuuji@4 361 key
yuuji@4 362 (list 'lambda '(arg) '(interactive "P")
yuuji@57 363 (list 'YaTeX-insert-begin-end env 'arg))
yuuji@57 364 map)
yuuji@4 365 )
yuuji@57 366 (defun YaTeX-define-begend-region-key (key env &optional map)
yuuji@4 367 "Define short cut YaTeX-make-begin-end-region key."
yuuji@4 368 (YaTeX-define-key key (list 'lambda nil '(interactive)
yuuji@57 369 (list 'YaTeX-insert-begin-end env t)) map)
yuuji@4 370 )
yuuji@57 371 (defun YaTeX-define-begend-key (key env &optional map)
yuuji@7 372 "Define short cut key for begin type completion both for normal
yuuji@7 373 and region mode. To customize YaTeX, user should use this function."
yuuji@57 374 (YaTeX-define-begend-key-normal key env map)
yuuji@7 375 (if YaTeX-inhibit-prefix-letter nil
yuuji@7 376 (YaTeX-define-begend-region-key
yuuji@7 377 (concat (upcase (substring key 0 1)) (substring key 1)) env))
yuuji@7 378 )
yuuji@0 379 ;;;
yuuji@0 380 ;; Define key table
yuuji@0 381 ;;;
yuuji@0 382 (if YaTeX-mode-map
yuuji@0 383 nil
yuuji@0 384 (setq YaTeX-mode-map (make-sparse-keymap))
yuuji@4 385 (setq YaTeX-prefix-map (make-sparse-keymap))
yuuji@4 386 (define-key YaTeX-mode-map "\"" 'YaTeX-insert-quote)
yuuji@5 387 (define-key YaTeX-mode-map "{" 'YaTeX-insert-braces)
yuuji@22 388 (define-key YaTeX-mode-map "(" 'YaTeX-insert-parens)
yuuji@7 389 (define-key YaTeX-mode-map "$" 'YaTeX-insert-dollar)
yuuji@57 390 (define-key YaTeX-mode-map "&" 'YaTeX-insert-amper)
yuuji@22 391 (define-key YaTeX-mode-map "[" 'YaTeX-insert-brackets)
yuuji@4 392 (define-key YaTeX-mode-map YaTeX-prefix YaTeX-prefix-map)
yuuji@22 393 (define-key YaTeX-mode-map "\M-\C-@" 'YaTeX-mark-environment)
yuuji@22 394 (define-key YaTeX-mode-map "\M-\C-a" 'YaTeX-beginning-of-environment)
yuuji@22 395 (define-key YaTeX-mode-map "\M-\C-e" 'YaTeX-end-of-environment)
yuuji@22 396 (define-key YaTeX-mode-map "\M-\C-m" 'YaTeX-intelligent-newline)
yuuji@32 397 (define-key YaTeX-mode-map "\C-i" 'YaTeX-indent-line)
yuuji@13 398 (YaTeX-define-key "%" 'YaTeX-%-menu)
yuuji@4 399 (YaTeX-define-key "t" 'YaTeX-typeset-menu)
yuuji@11 400 (YaTeX-define-key "w" 'YaTeX-switch-mode-menu)
yuuji@5 401 (YaTeX-define-key "'" 'YaTeX-prev-error)
yuuji@5 402 (YaTeX-define-key "^" 'YaTeX-visit-main)
yuuji@5 403 (YaTeX-define-key "4^" 'YaTeX-visit-main-other-window)
yuuji@51 404 (YaTeX-define-key "4g" 'YaTeX-goto-corresponding-*-other-window)
yuuji@53 405 (YaTeX-define-key "44" 'YaTeX-switch-to-window)
yuuji@53 406 (and YaTeX-emacs-19 window-system
yuuji@53 407 (progn
yuuji@53 408 (YaTeX-define-key "5^" 'YaTeX-visit-main-other-frame)
yuuji@53 409 (YaTeX-define-key "5g" 'YaTeX-goto-corresponding-*-other-frame)
yuuji@53 410 (YaTeX-define-key "55" 'YaTeX-switch-to-window)))
yuuji@5 411 (YaTeX-define-key " " 'YaTeX-do-completion)
yuuji@4 412 (YaTeX-define-key "v" 'YaTeX-version)
yuuji@0 413
yuuji@5 414 (YaTeX-define-key "}" 'YaTeX-insert-braces-region)
yuuji@5 415 (YaTeX-define-key "]" 'YaTeX-insert-brackets-region)
yuuji@11 416 (YaTeX-define-key ")" 'YaTeX-insert-parens-region)
yuuji@11 417 (YaTeX-define-key "$" 'YaTeX-insert-dollars-region)
yuuji@5 418 (YaTeX-define-key "i" 'YaTeX-fill-item)
yuuji@4 419 (YaTeX-define-key
yuuji@7 420 "\\" '(lambda () (interactive) (insert "$\\backslash$")))
yuuji@22 421 (if YaTeX-no-begend-shortcut
yuuji@22 422 (progn
yuuji@22 423 (YaTeX-define-key "B" 'YaTeX-make-begin-end-region)
yuuji@22 424 (YaTeX-define-key "b" 'YaTeX-make-begin-end))
yuuji@22 425 (YaTeX-define-begend-key "bc" "center")
yuuji@22 426 (YaTeX-define-begend-key "bd" "document")
yuuji@22 427 (YaTeX-define-begend-key "bD" "description")
yuuji@22 428 (YaTeX-define-begend-key "be" "enumerate")
yuuji@22 429 (YaTeX-define-begend-key "bE" "equation")
yuuji@22 430 (YaTeX-define-begend-key "bi" "itemize")
yuuji@22 431 (YaTeX-define-begend-key "bl" "flushleft")
yuuji@22 432 (YaTeX-define-begend-key "bm" "minipage")
yuuji@22 433 (YaTeX-define-begend-key "bt" "tabbing")
yuuji@22 434 (YaTeX-define-begend-key "bT" "tabular")
yuuji@22 435 (YaTeX-define-begend-key "b\^t" "table")
yuuji@22 436 (YaTeX-define-begend-key "bp" "picture")
yuuji@22 437 (YaTeX-define-begend-key "bq" "quote")
yuuji@22 438 (YaTeX-define-begend-key "bQ" "quotation")
yuuji@22 439 (YaTeX-define-begend-key "br" "flushright")
yuuji@22 440 (YaTeX-define-begend-key "bv" "verbatim")
yuuji@22 441 (YaTeX-define-begend-key "bV" "verse")
yuuji@22 442 (YaTeX-define-key "B " 'YaTeX-make-begin-end-region)
yuuji@22 443 (YaTeX-define-key "b " 'YaTeX-make-begin-end))
yuuji@4 444 (YaTeX-define-key "e" 'YaTeX-end-environment)
yuuji@14 445 (YaTeX-define-key "S" 'YaTeX-make-section-region)
yuuji@4 446 (YaTeX-define-key "s" 'YaTeX-make-section)
yuuji@4 447 (YaTeX-define-key "L" 'YaTeX-make-fontsize-region)
yuuji@4 448 (YaTeX-define-key "l" 'YaTeX-make-fontsize)
yuuji@4 449 (YaTeX-define-key "m" 'YaTeX-make-singlecmd)
yuuji@22 450 (YaTeX-define-key "." 'YaTeX-comment-paragraph)
yuuji@22 451 (YaTeX-define-key "," 'YaTeX-uncomment-paragraph)
yuuji@22 452 (YaTeX-define-key ">" 'YaTeX-comment-region)
yuuji@22 453 (YaTeX-define-key "<" 'YaTeX-uncomment-region)
yuuji@5 454 (YaTeX-define-key "g" 'YaTeX-goto-corresponding-*)
yuuji@5 455 (YaTeX-define-key "k" 'YaTeX-kill-*)
yuuji@5 456 (YaTeX-define-key "c" 'YaTeX-change-*)
yuuji@5 457 (YaTeX-define-key "a" 'YaTeX-make-accent)
yuuji@16 458 (YaTeX-define-key "?" 'YaTeX-help)
yuuji@22 459 (YaTeX-define-key "/" 'YaTeX-apropos)
yuuji@22 460 (YaTeX-define-key "&" 'YaTeX-what-column)
yuuji@52 461 (YaTeX-define-key "d" 'YaTeX-display-hierarchy)
yuuji@54 462 (YaTeX-define-key "x" YaTeX-user-extensional-map)
yuuji@5 463 (YaTeX-define-key "n"
yuuji@7 464 '(lambda () (interactive) (insert "\\\\")))
yuuji@13 465 (if YaTeX-dos
yuuji@7 466 (define-key YaTeX-prefix-map "\C-r"
yuuji@0 467 '(lambda () (interactive)
yuuji@3 468 (set-screen-height YaTeX-saved-screen-height) (recenter))))
yuuji@22 469 (mapcar
yuuji@22 470 (function
yuuji@22 471 (lambda (key)
yuuji@22 472 (define-key YaTeX-mode-map (car key) 'YaTeX-math-insert-sequence)))
yuuji@22 473 YaTeX-math-key-list)
yuuji@0 474 )
yuuji@0 475
yuuji@4 476 (if YaTeX-typesetting-mode-map nil
yuuji@4 477 (setq YaTeX-typesetting-mode-map (make-keymap))
yuuji@7 478 ;(suppress-keymap YaTeX-typesetting-mode-map t)
yuuji@7 479 (define-key YaTeX-typesetting-mode-map " " 'YaTeX-jump-error-line)
yuuji@7 480 (define-key YaTeX-typesetting-mode-map "\C-m" 'YaTeX-send-string)
yuuji@0 481 )
yuuji@0 482
yuuji@49 483 (defvar YaTeX-section-completion-map nil
yuuji@22 484 "*Key map used at YaTeX completion in the minibuffer.")
yuuji@49 485 (if YaTeX-section-completion-map nil
yuuji@49 486 (setq YaTeX-section-completion-map
yuuji@22 487 (copy-keymap (or (and (boundp 'gmhist-completion-map)
yuuji@22 488 gmhist-completion-map)
yuuji@22 489 minibuffer-local-completion-map)))
yuuji@49 490 (define-key YaTeX-section-completion-map
yuuji@22 491 " " 'YaTeX-minibuffer-complete)
yuuji@49 492 (define-key YaTeX-section-completion-map
yuuji@22 493 "\C-i" 'YaTeX-minibuffer-complete)
yuuji@49 494 (define-key YaTeX-section-completion-map
yuuji@22 495 "\C-v" 'YaTeX-read-section-with-overview))
yuuji@22 496
yuuji@14 497 (defvar YaTeX-recursive-map nil
yuuji@22 498 "*Key map used at YaTeX reading arguments in the minibuffer.")
yuuji@14 499 (if YaTeX-recursive-map nil
yuuji@14 500 (setq YaTeX-recursive-map (copy-keymap global-map))
yuuji@14 501 (define-key YaTeX-recursive-map YaTeX-prefix YaTeX-prefix-map))
yuuji@14 502
yuuji@14 503 ;; (define-key YaTeX-recursive-map
yuuji@14 504 ;; (concat YaTeX-prefix (if YaTeX-inhibit-prefix-letter "\C-s" "s"))
yuuji@14 505 ;; 'YaTeX-make-section)
yuuji@14 506 ;; (define-key map
yuuji@14 507 ;; (concat YaTeX-prefix (if YaTeX-inhibit-prefix-letter "\C-m" "m"))
yuuji@14 508 ;; 'YaTeX-make-singlecmd)
yuuji@14 509 ;; (define-key map
yuuji@14 510 ;; (concat YaTeX-prefix (if YaTeX-inhibit-prefix-letter "\C-l" "l"))
yuuji@14 511 ;; 'YaTeX-make-fontsize)
yuuji@14 512
yuuji@14 513
yuuji@0 514 ;---------- Define other variable ----------
yuuji@22 515 (defvar env-name "document" "*Initial tex-environment completion")
yuuji@22 516 (defvar section-name "documentstyle" "*Initial tex-section completion")
yuuji@22 517 (defvar fontsize-name "large" "*Initial fontsize completion")
yuuji@22 518 (defvar single-command "maketitle" "*Initial LaTeX single command")
yuuji@51 519 (defvar YaTeX-user-table-is-read nil
yuuji@5 520 "Flag that means whether user completion table has been read or not."
yuuji@0 521 )
yuuji@22 522 (defvar YaTeX-kanji-code-alist nil
yuuji@22 523 "Kanji-code expression translation table."
yuuji@5 524 )
yuuji@13 525 (if (boundp 'MULE)
yuuji@22 526 (setq YaTeX-kanji-code-alist
yuuji@22 527 (list (cons
yuuji@22 528 1
yuuji@22 529 (if YaTeX-dos (if (boundp '*sjis-dos*) *sjis-dos* *sjis*dos)
yuuji@22 530 *sjis*))
yuuji@22 531 '(2 . *junet*) '(3 . *euc-japan*))
yuuji@13 532 ))
yuuji@13 533 (defvar YaTeX-kanji-code (if YaTeX-dos 1 2)
yuuji@5 534 "*File kanji code used by Japanese TeX."
yuuji@5 535 )
yuuji@22 536 (defvar YaTeX-coding-system nil "File coding system used by Japanese TeX.")
yuuji@22 537 (defvar YaTeX-latex-message-code "Process coding system for LaTeX.")
yuuji@5 538 (cond
yuuji@5 539 ((boundp 'MULE)
yuuji@22 540 (setq YaTeX-coding-system
yuuji@22 541 (symbol-value (cdr (assoc YaTeX-kanji-code YaTeX-kanji-code-alist))))
yuuji@13 542 (if (not YaTeX-dos)
yuuji@22 543 (setq YaTeX-latex-message-code *autoconv*)))
yuuji@5 544 ((boundp 'NEMACS)
yuuji@22 545 (setq YaTeX-latex-message-code latex-message-kanji-code))
yuuji@5 546 )
yuuji@14 547 (defvar YaTeX-parent-file nil
yuuji@14 548 "*Main LaTeX source file name used when %#! expression doesn't exist.")
yuuji@52 549 (make-variable-buffer-local 'YaTeX-parent-file)
yuuji@52 550
yuuji@14 551 ;---------- Provide YaTeX-mode ----------
yuuji@0 552 ;;;
yuuji@0 553 ;; Major mode definition
yuuji@0 554 ;;;
yuuji@0 555 (defun yatex-mode ()
yuuji@7 556 " Yet Another LaTeX mode: Major mode for editing input files of LaTeX.
yuuji@13 557 -You can invoke processes concerning LaTeX typesetting by
yuuji@7 558 \\[YaTeX-typeset-menu]
yuuji@22 559 -Complete LaTeX environment form of `\\begin{env} ... \\end{env}' by
yuuji@7 560 \\[YaTeX-make-begin-end]
yuuji@7 561 -Enclose region into some environment by
yuuji@7 562 \\[universal-argument] \\[YaTeX-make-begin-end]
yuuji@7 563 -Complete LaTeX command which takes argument like `\\section{}' by
yuuji@7 564 \\[YaTeX-make-section]
yuuji@7 565 -Put LaTeX command which takes no arguments like `\\maketitle' by
yuuji@7 566 \\[YaTeX-make-singlecmd]
yuuji@7 567 -Complete font or character size descriptor like `{\\large }' by
yuuji@7 568 \\[YaTeX-make-fontsize]
yuuji@22 569 -Enclose region into those descriptors above by
yuuji@7 570 \\[universal-argument] \\[YaTeX-make-fontsize]
yuuji@54 571 -Enter European accent notations by
yuuji@7 572 \\[YaTeX-make-accent]
yuuji@13 573 -Toggle various modes of YaTeX by
yuuji@13 574 \\[YaTeX-switch-mode-menu]
yuuji@22 575 -Change environt name (on the begin/end line) by
yuuji@22 576 \\[YaTeX-change-*]
yuuji@22 577 -Kill LaTeX command/environment sequences by
yuuji@22 578 \\[YaTeX-kill-*]
yuuji@22 579 -Kill LaTeX command/environment with its contents
yuuji@22 580 \\[universal-argument] \\[YaTeX-kill-*]
yuuji@22 581 -Go to corresponding object (begin/end, file, labels) by
yuuji@54 582 \\[YaTeX-goto-corresponding-*] or
yuuji@54 583 \\[YaTeX-goto-corresponding-*-other-window] (in other window)
yuuji@54 584 \\[YaTeX-goto-corresponding-*-other-frame] (in other frame)
yuuji@22 585 -Go to main LaTeX source text by
yuuji@54 586 \\[YaTeX-visit-main] or
yuuji@54 587 \\[YaTeX-visit-main-other-window] (in other window)
yuuji@54 588 \\[YaTeX-visit-main-other-frame] (in other frame)
yuuji@22 589 -Comment out or uncomment region by
yuuji@22 590 \\[YaTeX-comment-region] or \\[YaTeX-uncomment-region]
yuuji@22 591 -Comment out or uncomment paragraph by
yuuji@22 592 \\[YaTeX-comment-paragraph] or \\[YaTeX-uncomment-paragraph]
yuuji@22 593 -Make an \\item entry hang-indented by
yuuji@22 594 \\[YaTeX-fill-item]
yuuji@22 595 -Enclose the region with parentheses by
yuuji@22 596 \\[YaTeX-insert-parens-region]
yuuji@22 597 \\[YaTeX-insert-braces-region]
yuuji@22 598 \\[YaTeX-insert-brackets-region]
yuuji@22 599 \\[YaTeX-insert-dollars-region]
yuuji@22 600 -Look up the corresponding column header of tabular environment by
yuuji@22 601 \\[YaTeX-what-column]
yuuji@54 602 -Enter a newline and an entry suitable for environment by
yuuji@54 603 \\[YaTeX-intelligent-newline]
yuuji@54 604 -View the structure of file inclusion by
yuuji@54 605 \\[YaTeX-display-hierarchy]
yuuji@22 606 -Refer the online help of popular LaTeX commands by
yuuji@54 607 \\[YaTeX-help] (help)
yuuji@54 608 \\[YaTeX-apropos] (apropos)
yuuji@13 609 -Edit `%# notation' by
yuuji@13 610 \\[YaTeX-%-menu]
yuuji@7 611
yuuji@7 612 Those are enough for fastening your editing of LaTeX source. But further
yuuji@22 613 more features are available and they are documented in the manual.
yuuji@22 614 "
yuuji@0 615 (interactive)
yuuji@0 616 (kill-all-local-variables)
yuuji@7 617 (setq major-mode 'yatex-mode)
yuuji@55 618 (setq mode-name (if YaTeX-japan "‚â‚Ä‚Ó" "YaTeX"))
yuuji@18 619 (mapcar 'make-local-variable
yuuji@52 620 '(dvi2-command fill-column fill-prefix
yuuji@18 621 tmp-env-table tmp-section-table tmp-fontsize-table
yuuji@52 622 tmp-singlecmd-table paragraph-start paragraph-separate
yuuji@52 623 YaTeX-math-mode indent-line-function
yuuji@58 624 comment-start comment-start-skip
yuuji@22 625 ))
yuuji@14 626 (cond ((boundp 'MULE)
yuuji@5 627 (set-file-coding-system YaTeX-coding-system))
yuuji@5 628 ((boundp 'NEMACS)
yuuji@5 629 (make-local-variable 'kanji-fileio-code)
yuuji@5 630 (setq kanji-fileio-code YaTeX-kanji-code)))
yuuji@5 631 (setq fill-column YaTeX-fill-column
yuuji@7 632 fill-prefix YaTeX-fill-prefix
yuuji@58 633 paragraph-start YaTeX-paragraph-start
yuuji@58 634 paragraph-separate YaTeX-paragraph-separate
yuuji@52 635 indent-line-function 'YaTeX-indent-line
yuuji@58 636 comment-start YaTeX-comment-prefix
yuuji@60 637 comment-end ""
yuuji@58 638 ;;comment-start-skip "[^\\\\]%+[ \t]*"
yuuji@22 639 )
yuuji@0 640 (use-local-map YaTeX-mode-map)
yuuji@13 641 (if YaTeX-dos (setq YaTeX-saved-screen-height (screen-height)))
yuuji@6 642 (YaTeX-read-user-completion-table)
yuuji@54 643 (and (fboundp 'YaTeX-19-collect-macros) (YaTeX-19-collect-macros))
yuuji@60 644 (turn-on-auto-fill) ;1.63
yuuji@16 645 (run-hooks 'text-mode-hook 'yatex-mode-hook)
yuuji@5 646 )
yuuji@5 647
yuuji@0 648 ;---------- Define YaTeX-mode functions ----------
yuuji@13 649 (defvar YaTeX-ec "\\" "Escape character of current mark-up language.")
yuuji@22 650 (defvar YaTeX-ec-regexp (regexp-quote YaTeX-ec))
yuuji@13 651 (defvar YaTeX-struct-begin
yuuji@13 652 (concat YaTeX-ec "begin{%1}%2")
yuuji@13 653 "Keyword to begin environment.")
yuuji@13 654 (defvar YaTeX-struct-end (concat YaTeX-ec "end{%1}")
yuuji@13 655 "Keyword to end environment.")
yuuji@13 656 (defvar YaTeX-struct-name-regexp "[^}]+"
yuuji@13 657 "Environment name regexp.")
yuuji@22 658 (defvar YaTeX-TeX-token-regexp
yuuji@55 659 (cond (YaTeX-japan "[A-Za-z*‚ -‚ñˆŸ-êž]+")
yuuji@22 660 (t "[A-Za-z*]+"))
yuuji@22 661 "Regexp of characters which can be a member of TeX command's name.")
yuuji@32 662 (defvar YaTeX-command-token-regexp YaTeX-TeX-token-regexp
yuuji@51 663 "Regexp of characters which can be a member of current mark up language's command name.")
yuuji@49 664
yuuji@13 665 ;;(defvar YaTeX-struct-section
yuuji@13 666 ;; (concat YaTeX-ec "%1{%2}")
yuuji@13 667 ;; "Keyword to make section.")
yuuji@13 668
yuuji@0 669 ;;;
yuuji@22 670 ;; autoload section
yuuji@22 671 ;;;
yuuji@51 672 ;;autoload from yatexlib(general functions).
yuuji@22 673 (autoload 'YaTeX-showup-buffer "yatexlib" "YaTeX library" t)
yuuji@22 674 (autoload 'YaTeX-window-list "yatexlib" "YaTeX library" t)
yuuji@22 675 (autoload 'YaTeX-search-active-forward "yatexlib" "YaTeX library" t)
yuuji@22 676 (autoload 'YaTeX-search-active-backward "yatexlib" "YaTeX library" t)
yuuji@22 677 (autoload 'substitute-all-key-definition "yatexlib" "YaTeX library" t)
yuuji@22 678 (autoload 'YaTeX-switch-to-buffer "yatexlib" "YaTeX library" t)
yuuji@22 679 (autoload 'YaTeX-switch-to-buffer-other-window "yatexlib" "YaTeX library" t)
yuuji@22 680 (autoload 'YaTeX-replace-format "yatexlib" "YaTeX library" t)
yuuji@22 681 (autoload 'YaTeX-replace-format-args "yatexlib" "YaTeX library" t)
yuuji@22 682 (autoload 'rindex "yatexlib" "YaTeX library" t)
yuuji@22 683 (autoload 'YaTeX-match-string "yatexlib" "YaTeX library" t)
yuuji@22 684 (autoload 'YaTeX-minibuffer-complete "yatexlib" "YaTeX library" t)
yuuji@51 685 (autoload 'goto-buffer-window "yatexlib" "YaTeX library" t)
yuuji@51 686 (autoload 'split-window-calculate-height "yatexlib" "YaTeX library" t)
yuuji@51 687 (autoload 'read-string-with-history "yatexlib" "YaTeX library" t)
yuuji@51 688 (autoload 'read-from-minibuffer-with-history "yatexlib" "YaTeX library" t)
yuuji@51 689 (autoload 'completing-read-with-history "yatexlib" "YaTeX library" t)
yuuji@53 690 (autoload 'YaTeX-switch-to-window "yatexlib" "For windows.el" t)
yuuji@22 691
yuuji@22 692 ;;autoload from yatexprc.el
yuuji@22 693 (autoload 'YaTeX-visit-main "yatexprc" "Visit main LaTeX file." t)
yuuji@22 694 (autoload 'YaTeX-visit-main-other-window "yatexprc"
yuuji@52 695 "Visit main other window." t)
yuuji@53 696 (autoload 'YaTeX-main-file-p "yatexprc" "Check if the file is main." t)
yuuji@51 697 (autoload 'YaTeX-get-builtin "yatexprc" "Get %# built-in." t)
yuuji@59 698 (autoload 'YaTeX-system "yatexprc" "Call system command" t)
yuuji@60 699 (autoload 'YaTeX-save-buffers "yatexprc" "Save buffers of same major mode" t)
yuuji@22 700
yuuji@22 701 ;;autoload from yatexmth.el
yuuji@22 702 (autoload 'YaTeX-math-insert-sequence "yatexmth" "Image input." t)
yuuji@22 703 (autoload 'YaTeX-in-math-mode-p "yatexmth" "Check if in math-env." t)
yuuji@22 704 (autoload 'YaTeX-toggle-math-mode "yatexmth" "YaTeX math-mode interfaces." t)
yuuji@52 705 (autoload 'YaTeX-math-member-p "yatexmth" "Check if a word is math command." t)
yuuji@22 706
yuuji@22 707 ;;autoload from yatexhlp.el
yuuji@22 708 (autoload 'YaTeX-help "yatexhlp" "YaTeX helper with LaTeX commands." t)
yuuji@22 709 (autoload 'YaTeX-apropos "yatexhlp" "Apropos for (La)TeX commands." t)
yuuji@22 710
yuuji@22 711 ;;autoload from yatexgen.el
yuuji@22 712 (autoload 'YaTeX-generate "yatexgen" "YaTeX add-in function generator." t)
yuuji@22 713 (autoload 'YaTeX-generate-simple "yatexgen" "YaTeX add-in support." t)
yuuji@22 714
yuuji@22 715 ;;autoload from yatexsec.el
yuuji@22 716 (autoload 'YaTeX-read-section-in-minibuffer "yatexsec" "YaTeX sectioning" t)
yuuji@22 717 (autoload 'YaTeX-make-section-with-overview "yatexsec" "YaTeX sectioning" t)
yuuji@22 718
yuuji@22 719 ;;autoload from yatexenv.el
yuuji@22 720 (autoload 'YaTeX-what-column "yatexenv" "YaTeX env. specific funcs" t)
yuuji@22 721 (autoload 'YaTeX-intelligent-newline "yatexenv" "YaTeX env. specific funcs" t)
yuuji@53 722 (autoload 'YaTeX-indent-line-equation "yatexenv" "Indent equation lines." t)
yuuji@53 723 (autoload 'YaTeX-goto-corresponding-leftright "yatexenv" "\left\right jumps" t)
yuuji@22 724
yuuji@52 725 ;;autoload from yatexhie.el
yuuji@52 726 (autoload 'YaTeX-display-hierarchy "yatexhie"
yuuji@52 727 "YaTeX document hierarchy browser" t)
yuuji@52 728
yuuji@60 729 ;; autoload from yahtml.el
yuuji@60 730 (autoload 'yahtml-inner-environment-but "yahtml" "yahtml internal func." t)
yuuji@60 731
yuuji@22 732 ;;;
yuuji@0 733 ;; YaTeX-mode functions
yuuji@0 734 ;;;
yuuji@22 735 (defun YaTeX-insert-begin-end (env region-mode)
yuuji@45 736 "Insert \\begin{mode-name} and \\end{mode-name}.
yuuji@22 737 This works also for other defined begin/end tokens to define the structure."
yuuji@7 738 (setq YaTeX-current-completion-type 'begin)
yuuji@58 739 (let*((ccol (current-column)) beg beg2 exchange
yuuji@22 740 (arg region-mode) ;for old compatibility
yuuji@58 741 (indent-column (+ ccol YaTeX-environment-indent))(i 1) func)
yuuji@22 742 (if (and region-mode (> (point) (mark)))
yuuji@16 743 (progn (exchange-point-and-mark)
yuuji@16 744 (setq exchange t
yuuji@16 745 ccol (current-column)
yuuji@16 746 indent-column (+ ccol YaTeX-environment-indent))))
yuuji@16 747 ;;VER2 (insert "\\begin{" env "}" (YaTeX-addin env))
yuuji@16 748 (setq beg (point))
yuuji@16 749 (YaTeX-insert-struc 'begin env)
yuuji@58 750 (setq beg2 (point))
yuuji@16 751 (insert "\n")
yuuji@16 752 (indent-to indent-column)
yuuji@16 753 (save-excursion
yuuji@16 754 ;;indent optional argument of \begin{env}, if any
yuuji@16 755 (while (> (point-beginning-of-line) beg)
yuuji@16 756 (skip-chars-forward "\\s " (point-end-of-line))
yuuji@16 757 (indent-to indent-column)
yuuji@16 758 (forward-line -1)))
yuuji@58 759 (require 'yatexenv)
yuuji@22 760 (if region-mode
yuuji@16 761 ;;if region-mode, indent all text in the region
yuuji@7 762 (save-excursion
yuuji@53 763 (if (fboundp (intern-soft (concat "YaTeX-enclose-" env)))
yuuji@53 764 (funcall (intern-soft (concat "YaTeX-enclose-" env))
yuuji@53 765 (point) (mark))
yuuji@53 766 (while (< (progn (forward-line 1) (point)) (mark))
yuuji@53 767 (if (eolp) nil
yuuji@53 768 (skip-chars-forward " \t\n")
yuuji@58 769 (indent-to indent-column))))))
yuuji@22 770 (if region-mode (exchange-point-and-mark))
yuuji@16 771 (indent-to ccol)
yuuji@16 772 ;;VER2 (insert "\\end{" env "}\n")
yuuji@16 773 (YaTeX-insert-struc 'end env)
yuuji@58 774 (YaTeX-reindent ccol)
yuuji@22 775 (if region-mode
yuuji@16 776 (progn
yuuji@54 777 (insert "\n")
yuuji@16 778 (or exchange (exchange-point-and-mark)))
yuuji@58 779 (goto-char beg2)
yuuji@58 780 (YaTeX-intelligent-newline nil))
yuuji@5 781 (if YaTeX-current-position-register
yuuji@5 782 (point-to-register YaTeX-current-position-register)))
yuuji@0 783 )
yuuji@0 784
yuuji@0 785 (defun YaTeX-make-begin-end (arg)
yuuji@0 786 "Make LaTeX environment command of \\begin{env.} ... \\end{env.}
yuuji@0 787 by completing read.
yuuji@0 788 If you invoke this command with universal argument,
yuuji@5 789 \(key binding for universal-argument is \\[universal-argument]\)
yuuji@0 790 you can put REGION into that environment between \\begin and \\end."
yuuji@0 791 (interactive "P")
yuuji@0 792 (let*
yuuji@0 793 ((mode (if arg " region" ""))
yuuji@0 794 (env
yuuji@5 795 (YaTeX-read-environment
yuuji@5 796 (format "Begin environment%s(default %s): " mode env-name))))
yuuji@0 797 (if (string= env "")
yuuji@0 798 (setq env env-name))
yuuji@0 799 (setq env-name env)
yuuji@7 800 (YaTeX-update-table
yuuji@7 801 (list env-name) 'env-table 'user-env-table 'tmp-env-table)
yuuji@0 802 (YaTeX-insert-begin-end env-name arg))
yuuji@0 803 )
yuuji@0 804
yuuji@0 805 (defun YaTeX-make-begin-end-region ()
yuuji@0 806 "Call YaTeX-make-begin-end with ARG to specify region mode."
yuuji@0 807 (interactive)
yuuji@0 808 (YaTeX-make-begin-end t)
yuuji@0 809 )
yuuji@0 810
yuuji@22 811 (defun YaTeX-inner-environment (&optional quick)
yuuji@22 812 "Return current inner-most environment.
yuuji@22 813 Non-nil for optional argument QUICK restricts search bound to most
yuuji@53 814 recent sectioning command. Matching point is stored to property 'point
yuuji@53 815 of 'YaTeX-inner-environment, which can be referred by
yuuji@53 816 (get 'YaTeX-inner-environment 'point)."
yuuji@58 817 (let*((nest 0)
yuuji@58 818 (beg (YaTeX-replace-format-args
yuuji@58 819 (regexp-quote YaTeX-struct-begin)
yuuji@59 820 YaTeX-struct-name-regexp
yuuji@59 821 (if (eq major-mode 'yahtml-mode) "\\s *.*" "")
yuuji@59 822 ""))
yuuji@58 823 (end (YaTeX-replace-format-args
yuuji@58 824 (regexp-quote YaTeX-struct-end)
yuuji@58 825 YaTeX-struct-name-regexp "" ""))
yuuji@58 826 (begend (concat "\\(" beg "\\)\\|\\(" end "\\)"))
yuuji@58 827 bound m0
yuuji@54 828 (open
yuuji@54 829 (concat "^" (or (cdr (assq major-mode '((yahtml-mode . "<")))) "{")))
yuuji@54 830 (close
yuuji@60 831 (concat "^"
yuuji@60 832 (or (cdr(assq major-mode '((yahtml-mode . "\n\t >")))) "}"))))
yuuji@22 833 (save-excursion
yuuji@22 834 (if quick
yuuji@22 835 (setq bound
yuuji@22 836 (save-excursion
yuuji@22 837 (YaTeX-re-search-active-backward
yuuji@52 838 (concat YaTeX-ec-regexp
yuuji@52 839 "\\(" YaTeX-sectioning-regexp "\\)\\*?\\{")
yuuji@22 840 YaTeX-comment-prefix nil 1)
yuuji@52 841 (or (bobp) (end-of-line))
yuuji@52 842 (point))))
yuuji@22 843 (if (catch 'begin
yuuji@53 844 (if (and (numberp bound) (< (point) bound)) (throw 'begin nil))
yuuji@22 845 (while (YaTeX-re-search-active-backward
yuuji@22 846 begend YaTeX-comment-prefix bound t)
yuuji@58 847 (setq m0 (match-beginning 0))
yuuji@58 848 (if (looking-at end) ;;(match-beginning 2)
yuuji@22 849 (setq nest (1+ nest))
yuuji@22 850 (setq nest (1- nest)))
yuuji@53 851 (if (< nest 0)
yuuji@53 852 (progn
yuuji@58 853 (put 'YaTeX-inner-environment 'point m0)
yuuji@58 854 (goto-char m0)
yuuji@58 855 (put 'YaTeX-inner-environment 'indent (current-column))
yuuji@53 856 (throw 'begin t)))))
yuuji@22 857 (buffer-substring
yuuji@54 858 (progn (skip-chars-forward open) (1+ (point)))
yuuji@54 859 (progn (skip-chars-forward close) (point))))))
yuuji@5 860 )
yuuji@5 861
yuuji@5 862 (defun YaTeX-end-environment ()
yuuji@5 863 "Close opening environment"
yuuji@5 864 (interactive)
yuuji@60 865 (let ((env (YaTeX-inner-environment)))
yuuji@5 866 (if (not env) (error "No premature environment")
yuuji@3 867 (save-excursion
yuuji@22 868 (if (YaTeX-search-active-forward
yuuji@22 869 (YaTeX-replace-format-args YaTeX-struct-end env "" "")
yuuji@22 870 YaTeX-comment-prefix nil t)
yuuji@3 871 (if (y-or-n-p
yuuji@3 872 (concat "Environment `" env
yuuji@13 873 "' may be already closed. Force close?"))
yuuji@3 874 nil
yuuji@4 875 (error "end environment aborted."))))
yuuji@3 876 (message "") ;Erase (y or n) message.
yuuji@13 877 (YaTeX-insert-struc 'end env)
yuuji@60 878 (save-excursion
yuuji@60 879 (goto-char (or (get 'YaTeX-inner-environment 'point) (match-end 0)))
yuuji@60 880 (if (pos-visible-in-window-p)
yuuji@60 881 (sit-for (if YaTeX-dos 2 1))
yuuji@60 882 (message "Matches with %s at line %d"
yuuji@60 883 (YaTeX-replace-format-args YaTeX-struct-begin env "" "")
yuuji@60 884 (count-lines (point-min) (point)))))))
yuuji@3 885 )
yuuji@3 886
yuuji@13 887 ;;;VER2
yuuji@13 888 (defun YaTeX-insert-struc (what env)
yuuji@13 889 (cond
yuuji@13 890 ((eq what 'begin)
yuuji@13 891 (insert (YaTeX-replace-format-args
yuuji@13 892 YaTeX-struct-begin env (YaTeX-addin env))))
yuuji@13 893 ((eq what 'end)
yuuji@13 894 (insert (YaTeX-replace-format-args YaTeX-struct-end env)))
yuuji@13 895 (t nil))
yuuji@13 896 )
yuuji@13 897
yuuji@46 898 (defun YaTeX-make-section (arg &optional beg end cmd)
yuuji@0 899 "Make LaTeX \\section{} type command with completing read.
yuuji@13 900 With numeric ARG, you can specify the number of arguments of
yuuji@0 901 LaTeX command.
yuuji@0 902 For example, if you want to produce LaTeX command
yuuji@0 903
yuuji@0 904 \\addtolength{\\topmargin}{8mm}
yuuji@0 905
yuuji@5 906 which has two arguments. You can produce that sequence by typing...
yuuji@0 907 ESC 2 C-c s add SPC RET \\topm SPC RET 8mm RET
yuuji@0 908 \(by default\)
yuuji@13 909 Then yatex will automatically complete `addtolength' with two arguments
yuuji@6 910 next time.
yuuji@14 911 You can complete symbol at LaTeX command and the 1st argument.
yuuji@14 912
yuuji@14 913 If the optional 2nd and 3rd argument BEG END are specified, enclose
yuuji@46 914 the region from BEG to END into the first argument of the LaTeX sequence.
yuuji@46 915 Optional 4th arg CMD is LaTeX command name, for non-interactive use."
yuuji@6 916 (interactive "P")
yuuji@7 917 (setq YaTeX-current-completion-type 'section)
yuuji@14 918 (unwind-protect
yuuji@14 919 (let*
yuuji@22 920 ((source-window (selected-window))
yuuji@22 921 (section
yuuji@46 922 (or cmd
yuuji@46 923 (YaTeX-read-section
yuuji@54 924 (if YaTeX-simple-messages
yuuji@54 925 (format "Section-type (default %s): " section-name)
yuuji@54 926 (if (> (minibuffer-depth) 0)
yuuji@54 927 (format "%s???{} (default %s)%s: " YaTeX-ec section-name
yuuji@54 928 (format "[level:%d]" (minibuffer-depth)))
yuuji@54 929 (format "(C-v for view-section) %s???{} (default %s): "
yuuji@54 930 YaTeX-ec section-name)))
yuuji@46 931 nil)))
yuuji@14 932 (section (if (string= section "") section-name section))
yuuji@14 933 (numarg ;; The number of section-type command's argument
yuuji@14 934 (or arg
yuuji@51 935 (nth 1 (YaTeX-lookup-table section 'section))
yuuji@14 936 1))
yuuji@14 937 (arg-reader (intern-soft (concat "YaTeX::" section)))
yuuji@14 938 (addin-args (and arg-reader (fboundp arg-reader)))
yuuji@14 939 (title "")
yuuji@54 940 (j 1)
yuuji@14 941 (enable-recursive-minibuffers t));;let
yuuji@14 942 (setq section-name section)
yuuji@14 943 (if beg
yuuji@14 944 (let ((e (make-marker)))
yuuji@14 945 (goto-char end)
yuuji@14 946 (insert "}")
yuuji@14 947 (set-marker e (point))
yuuji@14 948 (goto-char beg)
yuuji@14 949 (insert YaTeX-ec section-name "{")
yuuji@14 950 (goto-char (marker-position e)))
yuuji@14 951 (use-global-map YaTeX-recursive-map)
yuuji@54 952 (if (= numarg 0) (YaTeX-make-singlecmd section-name)
yuuji@55 953 (insert YaTeX-ec section-name (YaTeX-addin section-name)))
yuuji@54 954 (while (<= j numarg)
yuuji@54 955 (insert
yuuji@54 956 "{"
yuuji@54 957 (setq title
yuuji@54 958 (cond
yuuji@54 959 (addin-args (funcall arg-reader j))
yuuji@54 960 (YaTeX-skip-default-reader "")
yuuji@54 961 (t
yuuji@54 962 (read-string (format "Argument %d of %s: " j section)))))
yuuji@54 963 "}")
yuuji@54 964 (setq j (1+ j))))
yuuji@14 965 (YaTeX-update-table
yuuji@14 966 (if (/= numarg 1) (list section numarg)
yuuji@14 967 (list section))
yuuji@14 968 'section-table 'user-section-table 'tmp-section-table)
yuuji@14 969 (if YaTeX-current-position-register
yuuji@14 970 (point-to-register YaTeX-current-position-register))
yuuji@14 971 (if (string= (buffer-substring (- (point) 2) (point)) "{}")
yuuji@54 972 (forward-char -1))
yuuji@54 973 (while (string= (buffer-substring (- (point) 3) (1- (point))) "{}")
yuuji@54 974 (forward-char -2)))
yuuji@14 975 (if (<= (minibuffer-depth) 0) (use-global-map global-map)))
yuuji@0 976 )
yuuji@0 977
yuuji@14 978 (defun YaTeX-make-section-region (args beg end)
yuuji@14 979 "Call YaTeX-make-section with arguments to specify region mode."
yuuji@14 980 (interactive "P\nr")
yuuji@14 981 (YaTeX-make-section args beg end)
yuuji@14 982 )
yuuji@0 983
yuuji@54 984 (defun YaTeX-make-fontsize (arg &optional fontsize)
yuuji@0 985 "Make completion like {\\large ...} or {\\slant ...} in minibuffer.
yuuji@0 986 If you invoke this command with universal argument, you can put region
yuuji@0 987 into {\\xxx } braces.
yuuji@5 988 \(key binding for universal-argument is \\[universal-argument]\)"
yuuji@0 989 (interactive "P")
yuuji@49 990 (YaTeX-sync-local-table 'tmp-fontsize-table)
yuuji@0 991 (let* ((mode (if arg "region" ""))
yuuji@0 992 (fontsize
yuuji@54 993 (or fontsize
yuuji@54 994 (YaTeX-read-fontsize
yuuji@54 995 (if YaTeX-simple-messages
yuuji@54 996 (format "Font or size (default %s): " fontsize-name)
yuuji@54 997 (format "{\\??? %s} (default %s)%s: " mode fontsize-name
yuuji@54 998 (if (> (minibuffer-depth) 0)
yuuji@54 999 (format "[level:%d]" (minibuffer-depth)) "")))
yuuji@54 1000 nil nil))))
yuuji@0 1001 (if (string= fontsize "")
yuuji@0 1002 (setq fontsize fontsize-name))
yuuji@0 1003 (setq fontsize-name fontsize)
yuuji@6 1004 (YaTeX-update-table
yuuji@6 1005 (list fontsize-name)
yuuji@6 1006 'fontsize-table 'user-fontsize-table 'tmp-fontsize-table)
yuuji@0 1007 (if arg
yuuji@0 1008 (save-excursion
yuuji@0 1009 (if (> (point) (mark)) (exchange-point-and-mark))
yuuji@0 1010 (insert "{\\" fontsize-name " ")
yuuji@0 1011 (exchange-point-and-mark)
yuuji@0 1012 (insert "}"))
yuuji@0 1013 (insert "{\\" fontsize-name " }")
yuuji@5 1014 (if YaTeX-current-position-register
yuuji@5 1015 (point-to-register YaTeX-current-position-register))
yuuji@0 1016 (forward-char -1)))
yuuji@0 1017 )
yuuji@0 1018
yuuji@0 1019 (defun YaTeX-make-fontsize-region ()
yuuji@5 1020 "Call function:YaTeX-make-fontsize with ARG to specify region mode."
yuuji@0 1021 (interactive)
yuuji@0 1022 (YaTeX-make-fontsize t)
yuuji@0 1023 )
yuuji@0 1024
yuuji@52 1025 (defvar YaTeX-singlecmd-suffix "" "*Suffix for maketitle-type commands.")
yuuji@51 1026 (defvar YaTeX-read-singlecmd-history nil "Holds maketitle-type history.")
yuuji@51 1027 (put 'YaTeX-read-singlecmd-history 'no-default t)
yuuji@0 1028 (defun YaTeX-make-singlecmd (single)
yuuji@0 1029 (interactive
yuuji@49 1030 (list (YaTeX-cplread-with-learning
yuuji@54 1031 (if YaTeX-simple-messages
yuuji@54 1032 (format "maketitle-type (default %s): " single-command)
yuuji@54 1033 (format "%s??? (default %s)%s: " YaTeX-ec single-command
yuuji@54 1034 (if (> (minibuffer-depth) 0)
yuuji@54 1035 (format "[level:%d]" (minibuffer-depth)) "")))
yuuji@49 1036 'singlecmd-table 'user-singlecmd-table 'tmp-singlecmd-table
yuuji@51 1037 nil nil nil 'YaTeX-read-singlecmd-history)))
yuuji@0 1038 (if (string= single "")
yuuji@0 1039 (setq single single-command))
yuuji@0 1040 (setq single-command single)
yuuji@7 1041 (setq YaTeX-current-completion-type 'maketitle)
yuuji@54 1042 (let ((dollar (and (not (YaTeX-in-math-mode-p))
yuuji@54 1043 (YaTeX-math-member-p single-command)))
yuuji@54 1044 p q)
yuuji@54 1045 (if dollar (insert "$"))
yuuji@52 1046 (insert YaTeX-ec single-command)
yuuji@52 1047 (setq p (point))
yuuji@52 1048 (insert (YaTeX-addin single) YaTeX-singlecmd-suffix)
yuuji@54 1049 (if dollar (insert "$"))
yuuji@52 1050 (setq q (point))
yuuji@52 1051 (goto-char p)
yuuji@52 1052 (forward-char -2)
yuuji@52 1053 (if (looking-at "\\[\\]") (forward-char 1) (goto-char q)))
yuuji@5 1054 (if YaTeX-current-position-register
yuuji@5 1055 (point-to-register YaTeX-current-position-register))
yuuji@0 1056 )
yuuji@0 1057
yuuji@0 1058 (defvar YaTeX-completion-begin-regexp "[{\\]"
yuuji@51 1059 "Regular expression of limit where LaTeX command's completion begins.")
yuuji@0 1060
yuuji@0 1061 (defun YaTeX-do-completion ()
yuuji@0 1062 "Try completion on LaTeX command preceding point."
yuuji@0 1063 (interactive)
yuuji@0 1064 (if
yuuji@0 1065 (or (eq (preceding-char) ? )
yuuji@0 1066 (eq (preceding-char) ?\t)
yuuji@0 1067 (eq (preceding-char) ?\n)
yuuji@0 1068 (bobp))
yuuji@0 1069 (message "Nothing to complete.") ;Do not complete
yuuji@0 1070 (let* ((end (point))
yuuji@6 1071 (limit (point-beginning-of-line))
yuuji@0 1072 (completion-begin
yuuji@6 1073 (progn (re-search-backward "[ \t\n]" limit 1) (point)))
yuuji@0 1074 (begin (progn
yuuji@0 1075 (goto-char end)
yuuji@0 1076 (if (re-search-backward YaTeX-completion-begin-regexp
yuuji@0 1077 completion-begin t)
yuuji@0 1078 (1+ (point))
yuuji@0 1079 nil))))
yuuji@0 1080 (goto-char end)
yuuji@0 1081 (cond
yuuji@0 1082 ((null begin)
yuuji@13 1083 (message "I think it is not a LaTeX sequence."))
yuuji@0 1084 (t
yuuji@49 1085 (mapcar 'YaTeX-sync-local-table
yuuji@18 1086 '(tmp-section-table tmp-env-table tmp-singlecmd-table))
yuuji@6 1087 (let*((pattern (buffer-substring begin end))
yuuji@6 1088 (all-table
yuuji@6 1089 (append
yuuji@6 1090 section-table user-section-table tmp-section-table
yuuji@6 1091 env-table user-env-table tmp-env-table
yuuji@6 1092 singlecmd-table user-singlecmd-table tmp-singlecmd-table))
yuuji@6 1093 ;; First,
yuuji@6 1094 ;; search completion without backslash.
yuuji@6 1095 (completion (try-completion pattern all-table)))
yuuji@0 1096 (if
yuuji@0 1097 (eq completion nil)
yuuji@0 1098 ;; Next,
yuuji@0 1099 ;; search completion with backslash
yuuji@0 1100 (setq completion
yuuji@0 1101 (try-completion (buffer-substring (1- begin) end)
yuuji@0 1102 all-table nil)
yuuji@0 1103 begin (1- begin)))
yuuji@0 1104 (cond
yuuji@0 1105 ((null completion)
yuuji@0 1106 (message (concat "Can't find completion for '" pattern "'"))
yuuji@0 1107 (ding))
yuuji@0 1108 ((eq completion t) (message "Sole completion."))
yuuji@0 1109 ((not (string= completion pattern))
yuuji@0 1110 (kill-region begin end)
yuuji@0 1111 (insert completion)
yuuji@0 1112 )
yuuji@0 1113 (t
yuuji@0 1114 (message "Making completion list...")
yuuji@0 1115 (with-output-to-temp-buffer "*Help*"
yuuji@0 1116 (display-completion-list
yuuji@6 1117 (all-completions pattern all-table))))))))))
yuuji@0 1118 )
yuuji@0 1119
yuuji@12 1120 (defun YaTeX-toggle-modify-mode (&optional arg)
yuuji@12 1121 (interactive "P")
yuuji@12 1122 (or (memq 'YaTeX-modify-mode mode-line-format)
yuuji@12 1123 (setq mode-line-format
yuuji@12 1124 (append (list "" 'YaTeX-modify-mode) mode-line-format)))
yuuji@11 1125 (if (or arg (null YaTeX-modify-mode))
yuuji@11 1126 (progn
yuuji@12 1127 (setq YaTeX-modify-mode "*m*")
yuuji@11 1128 (message "Modify mode"))
yuuji@11 1129 (setq YaTeX-modify-mode nil)
yuuji@11 1130 (message "Cancel modify mode."))
yuuji@11 1131 (set-buffer-modified-p (buffer-modified-p)) ;redraw mode-line
yuuji@11 1132 )
yuuji@11 1133
yuuji@46 1134 (defun YaTeX-switch-mode-menu (arg &optional char)
yuuji@11 1135 (interactive "P")
yuuji@22 1136 (message "Toggle: (M)odify-mode ma(T)h-mode")
yuuji@46 1137 (let ((c (or char (read-char))))
yuuji@11 1138 (cond
yuuji@11 1139 ((= c ?m) (YaTeX-toggle-modify-mode arg))
yuuji@22 1140 ((or (= c ?$) (= c ?t))
yuuji@22 1141 (if YaTeX-auto-math-mode
yuuji@22 1142 (message "Makes no sense in YaTeX-auto-math-mode.")
yuuji@22 1143 (YaTeX-toggle-math-mode arg)))))
yuuji@11 1144 )
yuuji@11 1145
yuuji@0 1146 (defun YaTeX-insert-quote ()
yuuji@0 1147 (interactive)
yuuji@0 1148 (insert
yuuji@0 1149 (cond
yuuji@49 1150 ((YaTeX-literal-p) ?\")
yuuji@0 1151 ((= (preceding-char) ?\\ ) ?\")
yuuji@57 1152 ;((= (preceding-char) ?\( ) ?\")
yuuji@22 1153 ((or (= (preceding-char) 32)
yuuji@22 1154 (= (preceding-char) 9)
yuuji@22 1155 (= (preceding-char) ?\n)
yuuji@22 1156 (bobp)
yuuji@22 1157 (string-match
yuuji@57 1158 (regexp-quote (char-to-string (preceding-char)))
yuuji@57 1159 "ABCDHIuvwxyz()"))
yuuji@22 1160 "``")
yuuji@22 1161 (t "''")))
yuuji@22 1162 )
yuuji@22 1163
yuuji@22 1164 (defun YaTeX-closable-p ()
yuuji@22 1165 (and (not YaTeX-modify-mode)
yuuji@54 1166 (not (eq YaTeX-close-paren-always 'never))
yuuji@22 1167 (or YaTeX-close-paren-always (eolp))
yuuji@22 1168 (not (input-pending-p))
yuuji@49 1169 (not (YaTeX-literal-p)))
yuuji@22 1170 ;;(or YaTeX-modify-mode
yuuji@22 1171 ;; (and (not YaTeX-close-paren-always) (not (eolp)))
yuuji@22 1172 ;; (input-pending-p)
yuuji@22 1173 ;; (YaTeX-quick-in-environment-p "verbatim"))
yuuji@22 1174 )
yuuji@0 1175
yuuji@5 1176 (defun YaTeX-insert-braces-region (beg end &optional open close)
yuuji@0 1177 (interactive "r")
yuuji@0 1178 (save-excursion
yuuji@0 1179 (goto-char end)
yuuji@5 1180 (insert (or close "}"))
yuuji@0 1181 (goto-char beg)
yuuji@5 1182 (insert (or open "{")))
yuuji@0 1183 )
yuuji@0 1184
yuuji@49 1185 (defun YaTeX-insert-braces (arg &optional open close)
yuuji@49 1186 (interactive "p")
yuuji@22 1187 (let (env)
yuuji@22 1188 (cond
yuuji@51 1189 ((YaTeX-jmode) (YaTeX-self-insert arg))
yuuji@49 1190 ((not (YaTeX-closable-p)) (YaTeX-self-insert arg))
yuuji@53 1191 ((save-excursion
yuuji@59 1192 (and (> (- (point) (point-min)) 6)
yuuji@59 1193 (condition-case () (forward-char -6) (error nil)))
yuuji@53 1194 (looking-at "\\\\left\\\\"))
yuuji@53 1195 (insert "{\\right\\}")
yuuji@53 1196 (forward-char -8))
yuuji@48 1197 ((and (> (point) (+ (point-min) 4))
yuuji@48 1198 (save-excursion (backward-char 4) (looking-at "\\\\end"))
yuuji@49 1199 (not (YaTeX-literal-p))
yuuji@22 1200 (setq env (YaTeX-inner-environment)))
yuuji@22 1201 (momentary-string-display
yuuji@22 1202 (concat
yuuji@48 1203 "{"
yuuji@22 1204 (cond
yuuji@22 1205 (YaTeX-japan
yuuji@55 1206 (format "¡“x‚©‚ç‚Í‚¿‚á‚ñ‚Æ %s b ‚ðŽg‚¢‚Ü‚µ‚傤" YaTeX-prefix))
yuuji@58 1207 (t (format "You don't understand Zen of `%s b':p" YaTeX-prefix)))
yuuji@22 1208 "}")
yuuji@22 1209 (point))
yuuji@47 1210 (insert (or open "{") env (or close "}")))
yuuji@22 1211 (t
yuuji@47 1212 (insert (or open "{") (or close "}"))
yuuji@60 1213 (forward-char -1)
yuuji@60 1214 (if (and (eq (char-after (point)) ?\})
yuuji@60 1215 (eq (char-after (- (point) 2)) ?\\ ))
yuuji@60 1216 (progn (insert "\\") (forward-char -1)))
yuuji@60 1217 )))
yuuji@22 1218 )
yuuji@22 1219
yuuji@22 1220 (defun YaTeX-jmode ()
yuuji@22 1221 (or (and (boundp 'canna:*japanese-mode*) canna:*japanese-mode*)
yuuji@53 1222 (and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*))
yuuji@22 1223 )
yuuji@52 1224
yuuji@59 1225 (defun YaTeX-jmode-off ()
yuuji@59 1226 (cond
yuuji@59 1227 ((and (boundp 'canna:*japanese-mode*) canna:*japanese-mode*)
yuuji@59 1228 (canna-toggle-japanese-mode))
yuuji@59 1229 ((and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*)
yuuji@59 1230 (egg:toggle-egg-mode-on-off))
yuuji@60 1231 ((and (fboundp 'skk-mode) (boundp 'skk-mode) skk-mode)
yuuji@60 1232 (if (fboundp 'skk-mode-off) (skk-mode-off) (j-mode-off)))
yuuji@59 1233 ((and (fboundp 'fep-force-off) (fep-force-off))))
yuuji@59 1234 )
yuuji@59 1235
yuuji@22 1236 (defun YaTeX-self-insert (arg)
yuuji@52 1237 (call-interactively (global-key-binding (char-to-string last-command-char))))
yuuji@52 1238
yuuji@22 1239 (defun YaTeX-insert-brackets (arg)
yuuji@22 1240 "Insert Kagi-kakko or \\ [ \\] pair or simply \[."
yuuji@22 1241 (interactive "p")
yuuji@22 1242 (let ((col (1- (current-column))))
yuuji@22 1243 (cond
yuuji@22 1244 ((YaTeX-jmode) (YaTeX-self-insert arg))
yuuji@22 1245 ((not (YaTeX-closable-p))
yuuji@22 1246 (YaTeX-self-insert arg))
yuuji@53 1247 ((save-excursion
yuuji@53 1248 (and (> (- (point) (point-min)) 5) (forward-char -5))
yuuji@53 1249 (looking-at "\\\\left"))
yuuji@53 1250 (insert "[\\right]")
yuuji@53 1251 (forward-char -7))
yuuji@36 1252 ((and (= (preceding-char) ?\\ )
yuuji@36 1253 (/= (char-after (- (point) 2)) ?\\ )
yuuji@36 1254 (not (YaTeX-in-math-mode-p)))
yuuji@22 1255 (insert last-command-char "\n")
yuuji@22 1256 (indent-to (max 0 col))
yuuji@22 1257 (insert "\\]")
yuuji@22 1258 (beginning-of-line)
yuuji@22 1259 (open-line 1)
yuuji@53 1260 (delete-region (point) (progn (beginning-of-line) (point)))
yuuji@22 1261 (indent-to (+ YaTeX-environment-indent (max 0 col)))
yuuji@53 1262 (or YaTeX-auto-math-mode YaTeX-math-mode (YaTeX-toggle-math-mode 1)))
yuuji@22 1263 ((YaTeX-closable-p)
yuuji@22 1264 (insert "[]")
yuuji@22 1265 (backward-char 1))
yuuji@22 1266 (t (YaTeX-self-insert arg)))
yuuji@22 1267 )
yuuji@0 1268 )
yuuji@0 1269
yuuji@5 1270 (defun YaTeX-insert-brackets-region (beg end)
yuuji@5 1271 (interactive "r")
yuuji@7 1272 (YaTeX-insert-braces-region beg end "[" "]")
yuuji@5 1273 )
yuuji@5 1274
yuuji@22 1275 (defun YaTeX-insert-parens (arg)
yuuji@22 1276 "Insert parenthesis pair."
yuuji@22 1277 (interactive "p")
yuuji@22 1278 (cond
yuuji@22 1279 ((YaTeX-jmode) (YaTeX-self-insert arg))
yuuji@22 1280 ((not (YaTeX-closable-p)) (YaTeX-self-insert arg))
yuuji@53 1281 ((save-excursion
yuuji@53 1282 (and (> (- (point) (point-min)) 5) (forward-char -5))
yuuji@53 1283 (looking-at "\\\\left"))
yuuji@53 1284 (insert "(\\right)")
yuuji@53 1285 (forward-char -7))
yuuji@22 1286 ((and (= (preceding-char) ?\\ ) (not (YaTeX-in-math-mode-p)))
yuuji@22 1287 (insert "(\\)")
yuuji@22 1288 (backward-char 2))
yuuji@22 1289 ((YaTeX-closable-p)
yuuji@22 1290 (insert "()")
yuuji@22 1291 (backward-char 1))
yuuji@22 1292 (t (YaTeX-self-insert arg)))
yuuji@22 1293 )
yuuji@22 1294
yuuji@11 1295 (defun YaTeX-insert-parens-region (beg end)
yuuji@11 1296 (interactive "r")
yuuji@11 1297 (YaTeX-insert-braces-region beg end "(" ")")
yuuji@11 1298 )
yuuji@11 1299
yuuji@0 1300 (defun YaTeX-insert-dollar ()
yuuji@0 1301 (interactive)
yuuji@22 1302 (if (or (not (YaTeX-closable-p))
yuuji@57 1303 (= (preceding-char) 92)
yuuji@58 1304 (and (YaTeX-in-math-mode-p)
yuuji@58 1305 (or (/= (preceding-char) ?$) (/= (following-char) ?$))))
yuuji@7 1306 (insert "$")
yuuji@7 1307 (insert "$$")
yuuji@22 1308 (forward-char -1)
yuuji@59 1309 (YaTeX-jmode-off)
yuuji@53 1310 (or YaTeX-auto-math-mode YaTeX-math-mode (YaTeX-toggle-math-mode 1)))
yuuji@0 1311 )
yuuji@0 1312
yuuji@11 1313 (defun YaTeX-insert-dollars-region (beg end)
yuuji@11 1314 (interactive "r")
yuuji@11 1315 (YaTeX-insert-braces-region beg end "$" "$")
yuuji@11 1316 )
yuuji@11 1317
yuuji@57 1318 (defun YaTeX-insert-amper ()
yuuji@57 1319 (interactive)
yuuji@57 1320 (if (or (string-match YaTeX-array-env-regexp
yuuji@57 1321 (or (YaTeX-inner-environment t) "document"))
yuuji@57 1322 (= (preceding-char) 92)
yuuji@57 1323 (YaTeX-literal-p))
yuuji@57 1324 (insert "&")
yuuji@57 1325 (insert "\\&"))
yuuji@57 1326 )
yuuji@57 1327
yuuji@0 1328 (defun YaTeX-version ()
yuuji@0 1329 "Return string of the version of running YaTeX."
yuuji@0 1330 (interactive)
yuuji@0 1331 (message
yuuji@5 1332 (concat "Yet Another tex-mode "
yuuji@55 1333 (if YaTeX-japan "u–ì’¹v" "`Wild Bird'")
yuuji@7 1334 " Revision "
yuuji@0 1335 YaTeX-revision-number))
yuuji@0 1336 )
yuuji@0 1337
yuuji@46 1338 (defun YaTeX-typeset-menu (arg &optional char)
yuuji@46 1339 "Typeset, preview, visit error and miscellaneous convenient menu.
yuuji@46 1340 Optional second argument CHAR is for non-interactive call from menu."
yuuji@5 1341 (interactive "P")
yuuji@7 1342 (message
yuuji@58 1343 (concat "J)latex R)egion B)ibtex mk(I)ndex "
yuuji@59 1344 (if (not YaTeX-dos) "K)ill-latex ")
yuuji@58 1345 "P)review "
yuuji@58 1346 (and (boundp 'window-system) window-system "S)earch ")
yuuji@58 1347 "V)iewerr L)pr"))
yuuji@46 1348 (let ((sw (selected-window)) (c (or char (read-char))))
yuuji@32 1349 (require 'yatexprc) ;for Nemacs's bug
yuuji@32 1350 (select-window sw)
yuuji@4 1351 (cond
yuuji@5 1352 ((= c ?j) (YaTeX-typeset-buffer))
yuuji@5 1353 ((= c ?r) (YaTeX-typeset-region))
yuuji@11 1354 ((= c ?b) (YaTeX-call-command-on-file
yuuji@11 1355 bibtex-command "*YaTeX-bibtex*"))
yuuji@13 1356 ((= c ?i) (YaTeX-call-command-on-file
yuuji@11 1357 makeindex-command "*YaTeX-makeindex*"))
yuuji@7 1358 ((= c ?k) (YaTeX-kill-typeset-process YaTeX-typeset-process))
yuuji@4 1359 ((= c ?p) (call-interactively 'YaTeX-preview))
yuuji@7 1360 ((= c ?q) (YaTeX-system "lpq" "*Printer queue*"))
yuuji@4 1361 ((= c ?v) (YaTeX-view-error))
yuuji@5 1362 ((= c ?l) (YaTeX-lpr arg))
yuuji@13 1363 ((= c ?m) (YaTeX-switch-mode-menu arg))
yuuji@58 1364 ((= c ?b) (YaTeX-insert-string "\\"))
yuuji@58 1365 ((= c ?s) (YaTeX-xdvi-remote-search arg))))
yuuji@4 1366 )
yuuji@4 1367
yuuji@46 1368 (defun YaTeX-%-menu (&optional beg end char)
yuuji@13 1369 "Operate %# notation."
yuuji@16 1370 ;;Do not use interactive"r" for the functions which require no mark
yuuji@16 1371 (interactive)
yuuji@13 1372 (message "!)Edit-%%#! B)EGIN-END-region L)Edit-%%#LPR")
yuuji@46 1373 (let ((c (or char (read-char))) (string "") key
yuuji@13 1374 (b (make-marker)) (e (make-marker)))
yuuji@13 1375 (save-excursion
yuuji@13 1376 (cond
yuuji@13 1377 ((or (= c ?!) (= c ?l)) ;Edit `%#!'
yuuji@13 1378 (goto-char (point-min))
yuuji@13 1379 (setq key (cond ((= c ?!) "%#!")
yuuji@13 1380 ((= c ?l) "%#LPR")))
yuuji@13 1381 (if (re-search-forward key nil t)
yuuji@13 1382 (progn
yuuji@13 1383 (setq string (buffer-substring (point) (point-end-of-line)))
yuuji@53 1384 (delete-region (point) (progn (end-of-line) (point))))
yuuji@13 1385 (open-line 1)
yuuji@53 1386 (delete-region (point) (progn (beginning-of-line)(point)));for 19 :-<
yuuji@13 1387 (insert key))
yuuji@13 1388 (unwind-protect
yuuji@13 1389 (setq string (read-string (concat key ": ") string))
yuuji@13 1390 (insert string)))
yuuji@13 1391
yuuji@13 1392 ((= c ?b) ;%#BEGIN %#END region
yuuji@16 1393 (or end (setq beg (min (point) (mark)) end (max (point) (mark))))
yuuji@13 1394 (set-marker b beg)
yuuji@13 1395 (set-marker e end)
yuuji@13 1396 (goto-char (point-min))
yuuji@13 1397 (while (re-search-forward "^%#\\(BEGIN\\)\\|\\(END\\)$" nil t)
yuuji@53 1398 (beginning-of-line)
yuuji@53 1399 (delete-region (point) (progn (forward-line 1) (point))))
yuuji@13 1400 (goto-char (marker-position b))
yuuji@13 1401 (open-line 1)
yuuji@53 1402 (delete-region (point) (progn (beginning-of-line)(point)));for 19 :-<
yuuji@13 1403 (insert "%#BEGIN")
yuuji@13 1404 (goto-char (marker-position e))
yuuji@13 1405 (insert "%#END\n"))
yuuji@13 1406 )))
yuuji@13 1407 )
yuuji@13 1408
yuuji@51 1409 (defun YaTeX-goto-corresponding-label (reverse &optional otherwin)
yuuji@48 1410 "Jump to corresponding \\label{} and \\ref{} or \\cite and \\bibitem.
yuuji@48 1411 The default search direction depends on the command at the cursor position.
yuuji@48 1412 When the cursor is on \\ref(\\cite), YaTeX will try to search the
yuuji@48 1413 corresponding \\label(\\bibitem) backward,
yuuji@48 1414 and if it fails search forward again. And when the cursor is
yuuji@48 1415 on \\label(\\bibitem), YaTeX will search the corresponding \\ref(\\cite)
yuuji@48 1416 forward at first and secondary backward.
yuuji@48 1417 Argument REVERSE non-nil makes the default
yuuji@48 1418 direction rule reverse. Since Search string is automatically set in
yuuji@13 1419 search-last-string, you can repeat search the same label/ref by typing
yuuji@51 1420 \\[isearch-forward] or \\[isearch-backward].
yuuji@51 1421 If optional second argument OTHERWIN is non-nil, move to other window."
yuuji@13 1422
yuuji@51 1423 (let ((scmd "") label direc string blist (p (point)) (cb (current-buffer))
yuuji@48 1424 (refcommands "label\\|ref\\|cite\\|bibitem")
yuuji@48 1425 (func (function (lambda (string sfunc)
yuuji@48 1426 (or
yuuji@48 1427 (funcall sfunc string nil t)
yuuji@48 1428 (funcall (if (eq sfunc 'search-forward)
yuuji@48 1429 'search-backward 'search-forward)
yuuji@48 1430 string nil t))))))
yuuji@7 1431 (cond
yuuji@48 1432 ((YaTeX-on-section-command-p refcommands)
yuuji@48 1433 (setq scmd (cdr (assoc (YaTeX-match-string 1)
yuuji@48 1434 '(("label" . "ref") ("ref" . "label")
yuuji@48 1435 ("cite" . "bibitem") ("bibitem" . "cite")))))
yuuji@7 1436 (goto-char (match-end 0))
yuuji@7 1437 (let ((label (buffer-substring
yuuji@7 1438 (1- (point)) (progn (backward-list 1) (1+ (point))))))
yuuji@48 1439 (setq string (concat "\\" scmd "{" label "}"))
yuuji@48 1440 (setq direc (if (string-match "ref\\|cite" scmd)
yuuji@48 1441 'search-forward 'search-backward))
yuuji@48 1442 (if YaTeX-current-position-register
yuuji@48 1443 (point-to-register YaTeX-current-position-register))
yuuji@7 1444 (if reverse (setq direc (if (eq direc 'search-forward)
yuuji@7 1445 'search-backward 'search-forward)))
yuuji@48 1446 (if (funcall func string direc) ;label/ref found!
yuuji@13 1447 (progn
yuuji@51 1448 (if otherwin
yuuji@51 1449 (progn
yuuji@51 1450 (goto-char p)
yuuji@51 1451 (if (one-window-p)
yuuji@51 1452 (split-window-calculate-height
yuuji@51 1453 YaTeX-default-pop-window-height))
yuuji@51 1454 (select-window (get-lru-window))
yuuji@51 1455 (switch-to-buffer cb)))
yuuji@13 1456 (goto-char (match-beginning 0))
yuuji@51 1457 (push-mark p))
yuuji@51 1458 ;;if label/ref not found, search through all yatex buffers.
yuuji@51 1459 (goto-char p) ;resume position of current buffer
yuuji@48 1460 (setq blist (YaTeX-yatex-buffer-list))
yuuji@48 1461 (catch 'found
yuuji@48 1462 (while blist
yuuji@48 1463 (set-buffer (car blist))
yuuji@48 1464 (if (YaTeX-on-section-command-p refcommands)
yuuji@48 1465 (goto-char (match-beginning 0)))
yuuji@48 1466 (if (funcall func string direc)
yuuji@48 1467 (progn
yuuji@51 1468 (cond
yuuji@51 1469 (otherwin
yuuji@51 1470 (set-buffer cb)
yuuji@51 1471 (goto-char p)
yuuji@51 1472 (if (one-window-p)
yuuji@51 1473 (split-window-calculate-height
yuuji@51 1474 YaTeX-default-pop-window-height))
yuuji@51 1475 (select-window (get-lru-window))
yuuji@51 1476 (switch-to-buffer (car blist)))
yuuji@51 1477 ((or (get-buffer-window (car blist))
yuuji@51 1478 (and YaTeX-emacs-19
yuuji@51 1479 (get-buffer-window (car blist) t)))
yuuji@51 1480 (goto-buffer-window (car blist)))
yuuji@51 1481 (t
yuuji@49 1482 (switch-to-buffer (car blist))
yuuji@49 1483 (message
yuuji@49 1484 (format "Type %s %c to return to original position."
yuuji@49 1485 (key-description
yuuji@49 1486 (car
yuuji@49 1487 (or (where-is-internal 'register-to-point)
yuuji@49 1488 (where-is-internal 'jump-to-register))))
yuuji@51 1489 YaTeX-current-position-register))))
yuuji@48 1490 (goto-char (match-beginning 0))
yuuji@48 1491 (throw 'found t)))
yuuji@48 1492 (setq blist (cdr blist)))))
yuuji@48 1493 )
yuuji@48 1494 (if YaTeX-emacs-19
yuuji@48 1495 (setq search-ring (cons string search-ring))
yuuji@48 1496 (setq search-last-string string)))
yuuji@7 1497 (t nil)))
yuuji@5 1498 )
yuuji@5 1499
yuuji@58 1500 (defun YaTeX-goto-corresponding-environment (&optional allow-mismatch noerr)
yuuji@53 1501 "Go to corresponding begin/end enclosure.
yuuji@58 1502 Optional argument ALLOW-MISMATCH allows mismatch open/clese. Use this
yuuji@58 1503 for \left(, \right).
yuuji@58 1504 Optional third argument NOERR causes no error for unballanced environment."
yuuji@3 1505 (interactive)
yuuji@5 1506 (if (not (YaTeX-on-begin-end-p)) nil
yuuji@53 1507 (let ((p (match-end 0)) b0 b1 env (nest 0) regexp re-s (op (point))
yuuji@7 1508 (m0 (match-beginning 0)) ;whole matching
yuuji@7 1509 (m1 (match-beginning 1)) ;environment in \begin{}
yuuji@7 1510 (m2 (match-beginning 2))) ;environment in \end{}
yuuji@7 1511 ;(setq env (regexp-quote (buffer-substring p (match-beginning 0))))
yuuji@5 1512 (if (cond
yuuji@7 1513 (m1 ;if begin{xxx}
yuuji@53 1514 (setq env
yuuji@53 1515 (if allow-mismatch YaTeX-struct-name-regexp
yuuji@53 1516 (regexp-quote (buffer-substring m1 (match-end 1)))))
yuuji@13 1517 ; (setq regexp (concat "\\(\\\\end{" env "}\\)\\|"
yuuji@13 1518 ; "\\(\\\\begin{" env "}\\)"))
yuuji@13 1519 (setq regexp
yuuji@13 1520 (concat
yuuji@13 1521 "\\("
yuuji@53 1522 (YaTeX-replace-format-args
yuuji@53 1523 (regexp-quote YaTeX-struct-end) env "" "")
yuuji@13 1524 "\\)\\|\\("
yuuji@53 1525 (YaTeX-replace-format-args
yuuji@53 1526 (regexp-quote YaTeX-struct-begin) env "" "")
yuuji@13 1527 "\\)"))
yuuji@46 1528 (setq re-s 're-search-forward))
yuuji@7 1529 (m2 ;if end{xxx}
yuuji@53 1530 (setq env
yuuji@53 1531 (if allow-mismatch YaTeX-struct-name-regexp
yuuji@53 1532 (regexp-quote (buffer-substring m2 (match-end 2)))))
yuuji@13 1533 ; (setq regexp (concat "\\(\\\\begin{" env "}\\)\\|"
yuuji@13 1534 ; "\\(\\\\end{" env "}\\)"))
yuuji@13 1535 (setq regexp
yuuji@13 1536 (concat
yuuji@13 1537 "\\("
yuuji@53 1538 (YaTeX-replace-format-args
yuuji@53 1539 (regexp-quote YaTeX-struct-begin) env "" "")
yuuji@13 1540 "\\)\\|\\("
yuuji@53 1541 (YaTeX-replace-format-args
yuuji@53 1542 (regexp-quote YaTeX-struct-end) env "" "")
yuuji@13 1543 "\\)"))
yuuji@46 1544 (setq re-s 're-search-backward))
yuuji@58 1545 (t (if noerr nil (error "Corresponding environment not found."))))
yuuji@7 1546 (progn
yuuji@7 1547 (while (and (>= nest 0) (funcall re-s regexp nil t))
yuuji@7 1548 (setq b0 (match-beginning 0) b1 (match-beginning 1))
yuuji@7 1549 (if (or (equal b0 m0)
yuuji@49 1550 (YaTeX-literal-p b0))
yuuji@7 1551 nil
yuuji@7 1552 (setq nest (if (equal b0 b1)
yuuji@7 1553 (1- nest) (1+ nest)))))
yuuji@58 1554 (if (< nest 0)
yuuji@58 1555 (goto-char (match-beginning 0)) ;found.
yuuji@7 1556 (goto-char op)
yuuji@58 1557 (funcall
yuuji@58 1558 (if noerr 'message 'error)
yuuji@58 1559 "Corresponding environment `%s' not found." env)
yuuji@58 1560 (sit-for 1)
yuuji@58 1561 nil)))))
yuuji@3 1562 )
yuuji@3 1563
yuuji@60 1564 (defun YaTeX-goto-corresponding-file (&optional other)
yuuji@60 1565 "Visit or switch buffer of corresponding file,
yuuji@60 1566 looking at \\input or \\include or \includeonly on current line."
yuuji@60 1567 (if (not (YaTeX-on-includes-p)) nil
yuuji@60 1568 (let ((parent buffer-file-name) input-file)
yuuji@60 1569 (save-excursion
yuuji@60 1570 (if (search-forward "{" (point-end-of-line) t)
yuuji@60 1571 nil
yuuji@60 1572 (skip-chars-backward "^,{"))
yuuji@60 1573 (setq input-file
yuuji@60 1574 (buffer-substring
yuuji@60 1575 (point) (progn (skip-chars-forward "^ ,}") (point))))
yuuji@60 1576 (if (not (string-match "\\.\\(tex\\|sty\\)$" input-file))
yuuji@60 1577 (setq input-file (concat input-file ".tex"))))
yuuji@60 1578 (cond
yuuji@60 1579 (other (YaTeX-switch-to-buffer-other-window input-file))
yuuji@60 1580 ((get-file-buffer input-file) (goto-buffer-window input-file))
yuuji@60 1581 (t (YaTeX-switch-to-buffer input-file)))
yuuji@60 1582 (or (YaTeX-get-builtin "!")
yuuji@60 1583 YaTeX-parent-file
yuuji@60 1584 (setq YaTeX-parent-file parent))))
yuuji@60 1585 )
yuuji@5 1586
yuuji@5 1587 (defun YaTeX-goto-corresponding-BEGIN-END ()
yuuji@5 1588 (if (not (YaTeX-on-BEGIN-END-p)) nil
yuuji@5 1589 (if (cond
yuuji@5 1590 ((equal (match-beginning 0) (match-beginning 1)) ;if on %#BEGIN
yuuji@5 1591 (not (search-forward "%#END" nil t)))
yuuji@5 1592 (t ; if on %#END
yuuji@5 1593 (not (search-backward "%#BEGIN" nil t))))
yuuji@7 1594 (error "Corresponding %%#BEGIN/END not found."))
yuuji@5 1595 (beginning-of-line)
yuuji@5 1596 t)
yuuji@5 1597 )
yuuji@5 1598
yuuji@59 1599 (defvar YaTeX-processed-file-regexp-alist nil
yuuji@59 1600 "Alist of regexp of processed file regexp vs. its file name part;
yuuji@59 1601 For example, if you include image file with `\\epsfile{file=FILE}' where
yuuji@59 1602 `FILE' is processed file. You might want to view FILE with other previewer
yuuji@59 1603 such as ghostview, or want to preview its source which was drawn with
yuuji@59 1604 other drawing tool, tgif for example. Then you should set entire regexp
yuuji@59 1605 of including expression and enclose its file name part with \\\\( and \\\\).
yuuji@59 1606
yuuji@59 1607 Ex. (\"\\\\\\\\epsfile{[^}]*file=\\\\([^,} ]+\\\\)\\\\(\\\\.e?ps\\\\)?[^}]*}\" 1)
yuuji@59 1608
yuuji@59 1609 Where the first group surrounded by \\\\( and \\\\) is the file name part
yuuji@59 1610 of expression. So you should set 1 to second element. And the first
yuuji@59 1611 matching group is sent to (image) processor defined by the variable
yuuji@59 1612 YaTeX-file-processor-alist. See also the documentation of
yuuji@59 1613 YaTeX-file-processor-alist.
yuuji@59 1614
yuuji@59 1615 ª‚¶‚á—Ç‚­‚í‚©‚ñ‚È‚¢‚·‚ËB—Ⴆ‚Î tgif hoge.obj ‚µ‚Ä hoge.eps ‚ð
yuuji@59 1616 \\epsfile{file=hoge.eps} ‚ŃCƒ“ƒNƒ‹[ƒh‚µ‚Ä‚¢‚é‚Æ‚µ‚悤B‚»‚Ìs‚Å
yuuji@59 1617 \[prefix\] g ‚ð‰Ÿ‚µ‚½Žž‚É tgif ‚ð‹N“®‚µ‚Ä—~‚µ‚©‚Á‚½‚çA‚Ü‚¸ã‚̂悤‚È
yuuji@59 1618 ³‹K•\Œ»‚ðÝ’è‚·‚éB\\\\(‚Æ\\\\)‚ň͂ñ‚¾‚Æ‚±‚낪ƒtƒ@ƒCƒ‹–¼‚É‚È‚é‚悤‚É
yuuji@59 1619 ’ˆÓ‚·‚éB‚Ńtƒ@ƒCƒ‹–¼•”•ª‚ª‰½”Ô–Ú‚Ì\\\\(\\\\)‚É‚È‚é‚©‚ðƒŠƒXƒg‚Ì2”Ô–Ú‚É‘‚­B
yuuji@59 1620 ‚·‚é‚ÆA‚»‚Ì•”•ª‚ª•Ï” YaTeX-file-processor-alist ‚Å’è‹`‚³‚ꂽ
yuuji@59 1621 ˆ—ƒvƒƒOƒ‰ƒ€‚É“n‚³‚ê‚éB‚Æ‚¢‚¤‚킯B
yuuji@59 1622 ‚ñ`‚â‚Á‚Ï‚è‚Þ‚¸‚©‚µ‚¢‚ËB•ª‚©‚ç‚È‚¢Žž‚Í—×‚Ì Lisper ‚É•·‚­‚©A
yuuji@59 1623 fj–ì’¹‚̉ï‚Å•·‚±‚¤!
yuuji@59 1624 ")
yuuji@59 1625
yuuji@59 1626 (defvar YaTeX-processed-file-regexp-alist-default
yuuji@60 1627 '(("\\\\epsfile{[^},]*file=\\(\\([^,} ]*/\\)?[^,}. ]+\\)\\(\\.e?ps\\)?[^}]*}" 1)
yuuji@60 1628 ("\\\\epsfig{[^},]*fi\\(le\\|gure\\)=\\(\\([^,} ]*/\\)?[^,}. ]+\\)\\(\\.e?ps\\)?[^}]*}" 2)
yuuji@60 1629 ("\\\\postscriptbox{[^}]*}{[^}]*}{\\(\\([^,} ]*/\\)?[^}. ]+\\)\\(\\.e?ps\\)?}" 1)
yuuji@60 1630 ("\\\\\\(epsfbox\\|includegraphics\\){\\(\\([^,} ]*/\\)?[^} ]+\\)\\(\\.e?ps\\)?}" 2)
yuuji@60 1631 ("\\\\\\(psbox\\)\\(\\[[^]]+\\]\\)?{\\(\\([^,} ]*/\\)?[^} ]+\\)\\(\\.e?ps\\)}" 3) ;\psbox[options...]{hoge.eps} (97/1/11)
yuuji@59 1632 )
yuuji@59 1633 "See the documentation of YaTeX-processed-file-regexp-alist."
yuuji@59 1634 )
yuuji@59 1635
yuuji@59 1636 (defvar YaTeX-file-processor-alist nil
yuuji@59 1637 "*Alist of files' processor vs. its extension;
yuuji@59 1638 See also the documentation of YaTeX-processed-file-regexp-alist."
yuuji@59 1639 )
yuuji@59 1640 (defvar YaTeX-file-processor-alist-default
yuuji@59 1641 '(("tgif" . ".obj")
yuuji@59 1642 ("ghostview" . ".ps")
yuuji@59 1643 ("ghostview" . ".eps")
yuuji@59 1644 (t . ".tex")
yuuji@59 1645 (t . ".sty")
yuuji@59 1646 (t . ""))
yuuji@59 1647 "See the documentation of YaTeX-file-processor-alist."
yuuji@59 1648 )
yuuji@59 1649
yuuji@59 1650 (defun YaTeX-goto-corresponding-file-processor (&optional other)
yuuji@59 1651 "Execute corresponding file processor."
yuuji@59 1652 (save-excursion
yuuji@59 1653 (or (looking-at YaTeX-ec-regexp)
yuuji@59 1654 (skip-chars-backward (concat "^" YaTeX-ec) (point-beginning-of-line)))
yuuji@59 1655 (let ((list (append YaTeX-processed-file-regexp-alist
yuuji@59 1656 YaTeX-processed-file-regexp-alist-default))
yuuji@59 1657 (p (point)) flist file
yuuji@59 1658 (peol (point-end-of-line)))
yuuji@59 1659 (setq flist (catch 'found
yuuji@59 1660 (while list
yuuji@59 1661 (goto-char p)
yuuji@59 1662 (if (re-search-forward (car (car list)) peol t)
yuuji@59 1663 (progn
yuuji@59 1664 (setq file (YaTeX-match-string
yuuji@59 1665 (car (cdr (car list)))))
yuuji@59 1666 (throw 'found (cdr (car list)))))
yuuji@59 1667 (setq list (cdr list)))))
yuuji@59 1668 (if flist ;if pattern and file name found
yuuji@59 1669 (let*((plist (append YaTeX-file-processor-alist
yuuji@59 1670 YaTeX-file-processor-alist-default))
yuuji@59 1671 (plist0 plist)
yuuji@59 1672 ext cmd src buf (alt (car (cdr flist))))
yuuji@59 1673 (if (and (re-search-forward
yuuji@59 1674 (concat YaTeX-comment-prefix "\\s *\\(.*\\)$") peol t)
yuuji@59 1675 (assoc (setq cmd (YaTeX-match-string 1))
yuuji@59 1676 YaTeX-file-processor-alist))
yuuji@59 1677 (setq src ;if processor is specified
yuuji@59 1678 (concat file
yuuji@59 1679 (cdr (assoc cmd YaTeX-file-processor-alist))))
yuuji@59 1680 (while plist ;if processor is not specified
yuuji@59 1681 (setq ext (cdr (car plist)))
yuuji@60 1682 (if (and (string< "" (concat file ext))
yuuji@60 1683 (file-exists-p (concat file ext)))
yuuji@59 1684 (setq cmd (car (car plist))
yuuji@59 1685 src (concat file ext) plist nil))
yuuji@59 1686 (setq plist (cdr plist)))
yuuji@59 1687 (if (and (null src) alt YaTeX-create-file-prefix-g)
yuuji@59 1688 (setq cmd alt
yuuji@59 1689 src (concat file (cdr (assoc alt plist0))))))
yuuji@59 1690 (if src ;if processor and src file found
yuuji@59 1691 (cond
yuuji@59 1692 ((stringp cmd)
yuuji@59 1693 (let ((buf (concat "* " cmd " " src " *")))
yuuji@59 1694 (YaTeX-system (concat cmd " " src) buf)
yuuji@59 1695 t))
yuuji@59 1696 ((eq t cmd)
yuuji@59 1697 (let ((parent buffer-file-name))
yuuji@59 1698 (funcall
yuuji@59 1699 (cond
yuuji@59 1700 (other 'YaTeX-switch-to-buffer-other-window)
yuuji@59 1701 ((get-file-buffer src) 'goto-buffer-window)
yuuji@59 1702 (t 'YaTeX-switch-to-buffer))
yuuji@59 1703 src)
yuuji@59 1704 (or (YaTeX-get-builtin "!")
yuuji@59 1705 YaTeX-parent-file
yuuji@59 1706 (setq YaTeX-parent-file parent))
yuuji@59 1707 t))
yuuji@59 1708 ((symbolp cmd)
yuuji@59 1709 (cond
yuuji@59 1710 ((symbol-function cmd)
yuuji@60 1711 (funcall cmd src other)))
yuuji@59 1712 t)))))))
yuuji@59 1713 )
yuuji@59 1714
yuuji@14 1715 (defun YaTeX-on-section-command-p (command)
yuuji@53 1716 "Check if point is on the LaTeX command: COMMAND(regexp).
yuuji@49 1717 Return nil if point is not on it. Otherwise return the
yuuji@49 1718 number of argument position.
yuuji@48 1719 Section command name is stored in match-data #1."
yuuji@53 1720 (let ((p (point)) md (parg 0) (argc 1) word (grouping 0) (i 0))
yuuji@53 1721 (while (setq i (string-match "\\\\(" command i))
yuuji@53 1722 (setq grouping (1+ grouping) i (+ i 2)))
yuuji@7 1723 (save-excursion
yuuji@49 1724 (if (looking-at YaTeX-ec-regexp) nil
yuuji@49 1725 (catch 'found ;caught value has no meaning
yuuji@49 1726 (while t
yuuji@49 1727 (if (bobp) (throw 'found nil))
yuuji@49 1728 (cond
yuuji@49 1729 ((looking-at YaTeX-ec-regexp) (throw 'found t))
yuuji@49 1730 ((looking-at "[[{]") nil)
yuuji@53 1731 ((looking-at "[]}]")(condition-case nil (up-list -1) (error nil)))
yuuji@49 1732 (t (skip-chars-backward " \t\r\n")))
yuuji@49 1733 (skip-chars-backward (concat "^ \t\r\n{}[]" YaTeX-ec-regexp))
yuuji@51 1734 (or (bobp) (forward-char -1)))))
yuuji@51 1735 (if (and
yuuji@51 1736 (looking-at (concat YaTeX-ec-regexp "\\(" command "\\)"
yuuji@51 1737 "\\(\\(\\[[^]]+\\]\\)*\\)" ;optional arg
yuuji@60 1738 ;"[ \t\n\r]*{[^}]+}")) ;arg braces
yuuji@60 1739 "[ \t\n\r]*{[^}]*}")) ;arg braces
yuuji@51 1740 (not (YaTeX-lookup-table
yuuji@51 1741 (setq word (YaTeX-match-string 1)) 'singlecmd)))
yuuji@46 1742 (progn
yuuji@49 1743 (setq md (match-data))
yuuji@49 1744 (skip-chars-forward "^{")
yuuji@49 1745 (if (<= (point) p) (setq parg (1+ parg)))
yuuji@49 1746 (setq argc
yuuji@51 1747 (or (car (cdr (YaTeX-lookup-table word 'section)))
yuuji@49 1748 argc))
yuuji@53 1749 (while (and (>= (setq argc (1- argc)) 0)
yuuji@53 1750 (progn (skip-chars-forward " \t\n\r")
yuuji@53 1751 (looking-at "{")))
yuuji@49 1752 (forward-list 1)
yuuji@53 1753 (if (<= (point) p) (setq parg (1+ parg))))
yuuji@49 1754 (store-match-data md)
yuuji@53 1755 (setq i (+ 2 grouping))
yuuji@53 1756 (if (and (match-beginning i)
yuuji@53 1757 (>= p (match-beginning i)) (< p (match-end i)))
yuuji@49 1758 -1 ;return -1 if point is on optional arg
yuuji@49 1759 (if (< p (point)) parg))
yuuji@49 1760 ))))
yuuji@5 1761 )
yuuji@5 1762
yuuji@52 1763 (defun YaTeX-on-maketitle-p ()
yuuji@52 1764 "Check if point is on maketitle type commands.
yuuji@52 1765 Call this function after YaTeX-on-section-command-p."
yuuji@52 1766 (let ((p (point)))
yuuji@52 1767 (save-excursion
yuuji@52 1768 (or (= (char-after (point)) ?\\ )
yuuji@52 1769 (progn
yuuji@52 1770 (skip-chars-backward
yuuji@52 1771 (concat "^" YaTeX-ec-regexp) (point-beginning-of-line))
yuuji@52 1772 (or (bobp) (bolp) (backward-char 1))))
yuuji@52 1773 (and (looking-at (concat YaTeX-ec-regexp YaTeX-TeX-token-regexp))
yuuji@52 1774 (<= (match-beginning 0) p)
yuuji@52 1775 (> (match-end 0) p)))))
yuuji@52 1776
yuuji@5 1777 (defun YaTeX-on-begin-end-p ()
yuuji@5 1778 (save-excursion
yuuji@5 1779 (beginning-of-line)
yuuji@5 1780 (re-search-forward
yuuji@13 1781 ;;"\\\\begin{\\([^}]+\\)}\\|\\\\end{\\([^}]+\\)}"
yuuji@13 1782 (concat
yuuji@13 1783 (YaTeX-replace-format-args
yuuji@13 1784 (regexp-quote YaTeX-struct-begin)
yuuji@13 1785 (concat "\\(" YaTeX-struct-name-regexp "\\)") "" "" "")
yuuji@13 1786 "\\|"
yuuji@13 1787 (YaTeX-replace-format-args
yuuji@13 1788 (regexp-quote YaTeX-struct-end)
yuuji@13 1789 (concat "\\(" YaTeX-struct-name-regexp "\\)") "" "" ""))
yuuji@13 1790 (point-end-of-line) t))
yuuji@5 1791 )
yuuji@6 1792
yuuji@5 1793 (defun YaTeX-on-includes-p ()
yuuji@5 1794 (save-excursion
yuuji@5 1795 (beginning-of-line)
yuuji@5 1796 (re-search-forward "\\(\\(include.*\\)\\|\\(input\\)\\){.*}"
yuuji@5 1797 (point-end-of-line) t))
yuuji@5 1798 )
yuuji@6 1799
yuuji@7 1800 (defun YaTeX-on-comment-p (&optional sw)
yuuji@22 1801 "Return t if current line is commented out.
yuuji@22 1802 Optional argument SW t to treat all `%' lines as comment,
yuuji@7 1803 even if on `%#' notation."
yuuji@7 1804 (save-excursion
yuuji@7 1805 (beginning-of-line)
yuuji@22 1806 (skip-chars-forward "\\s ")
yuuji@22 1807 (looking-at (if sw "%" "%[^#]")))
yuuji@7 1808 )
yuuji@7 1809
yuuji@5 1810 (defun YaTeX-on-BEGIN-END-p ()
yuuji@5 1811 (save-excursion
yuuji@7 1812 (let ((case-fold-search nil))
yuuji@5 1813 (beginning-of-line)
yuuji@5 1814 (re-search-forward "\\(%#BEGIN\\)\\|\\(%#END\\)" (point-end-of-line) t)))
yuuji@5 1815 )
yuuji@6 1816
yuuji@7 1817 (defun YaTeX-goto-corresponding-* (arg)
yuuji@5 1818 "Parse current line and call suitable function."
yuuji@7 1819 (interactive "P")
yuuji@5 1820 (cond
yuuji@7 1821 ((YaTeX-goto-corresponding-label arg))
yuuji@5 1822 ((YaTeX-goto-corresponding-environment))
yuuji@60 1823 ((YaTeX-goto-corresponding-file arg))
yuuji@59 1824 ((YaTeX-goto-corresponding-file-processor arg))
yuuji@5 1825 ((YaTeX-goto-corresponding-BEGIN-END))
yuuji@53 1826 ((and (string-match
yuuji@53 1827 YaTeX-equation-env-regexp ;to delay loading
yuuji@53 1828 (or (YaTeX-inner-environment t) "document"))
yuuji@53 1829 (YaTeX-goto-corresponding-leftright)))
yuuji@5 1830 (t (message "I don't know where to go.")))
yuuji@5 1831 )
yuuji@5 1832
yuuji@51 1833 (defun YaTeX-goto-corresponding-*-other-window (arg)
yuuji@51 1834 "Parse current line and call suitable function."
yuuji@51 1835 (interactive "P")
yuuji@51 1836 (cond
yuuji@51 1837 ((YaTeX-goto-corresponding-label arg t))
yuuji@51 1838 ;;((YaTeX-goto-corresponding-environment))
yuuji@51 1839 ((YaTeX-goto-corresponding-file t))
yuuji@51 1840 ;;((YaTeX-goto-corresponding-BEGIN-END))
yuuji@51 1841 (t (message "I don't know where to go.")))
yuuji@51 1842 )
yuuji@51 1843
yuuji@5 1844 (defun YaTeX-comment-region (alt-prefix)
yuuji@22 1845 "Comment out region by '%'.
yuuji@22 1846 If you call this function on the 'begin{}' or 'end{}' line,
yuuji@22 1847 it comments out whole environment"
yuuji@5 1848 (interactive "P")
yuuji@4 1849 (if (not (YaTeX-on-begin-end-p))
yuuji@49 1850 (comment-out-region
yuuji@5 1851 (if alt-prefix
yuuji@5 1852 (read-string "Insert prefix: ")
yuuji@5 1853 YaTeX-comment-prefix))
yuuji@49 1854 (YaTeX-comment-uncomment-env 'comment-out-region))
yuuji@4 1855 )
yuuji@4 1856
yuuji@5 1857 (defun YaTeX-uncomment-region (alt-prefix)
yuuji@4 1858 "Uncomment out region by '%'."
yuuji@5 1859 (interactive "P")
yuuji@4 1860 (if (not (YaTeX-on-begin-end-p))
yuuji@5 1861 (uncomment-region
yuuji@5 1862 (if alt-prefix (read-string "Remove prefix: ")
yuuji@11 1863 YaTeX-comment-prefix)
yuuji@49 1864 (region-beginning) (region-end) YaTeX-uncomment-once)
yuuji@4 1865 (YaTeX-comment-uncomment-env 'uncomment-region))
yuuji@4 1866 )
yuuji@4 1867
yuuji@4 1868 (defun YaTeX-comment-uncomment-env (func)
yuuji@4 1869 "Comment or uncomment out one LaTeX environment switching function by FUNC."
yuuji@49 1870 (let (beg (p (point)))
yuuji@49 1871 (save-excursion
yuuji@49 1872 (beginning-of-line)
yuuji@49 1873 (setq beg (point))
yuuji@49 1874 (YaTeX-goto-corresponding-environment)
yuuji@58 1875 (beginning-of-line)
yuuji@49 1876 (if (> p (point)) (setq beg (1+ beg)) (forward-char 1))
yuuji@49 1877 (funcall func YaTeX-comment-prefix beg (point) YaTeX-uncomment-once)))
yuuji@45 1878 (message "%sommented out current environment."
yuuji@45 1879 (if (eq func 'comment-region) "C" "Un-c"))
yuuji@4 1880 )
yuuji@4 1881
yuuji@53 1882 (defun YaTeX-beginning-of-environment (&optional limit-search-bound end)
yuuji@53 1883 "Goto the beginning of the current environment.
yuuji@53 1884 Optional argument LIMIT-SEARCH-BOUND non-nil limits the search bound to
yuuji@53 1885 most recent sectioning command. Non-nil for optional third argument END
yuuji@53 1886 goes to end of environment."
yuuji@53 1887 (interactive)
yuuji@53 1888 (let ((op (point)))
yuuji@53 1889 (if (YaTeX-inner-environment limit-search-bound)
yuuji@53 1890 (progn
yuuji@53 1891 (goto-char (get 'YaTeX-inner-environment 'point))
yuuji@53 1892 (and end (YaTeX-goto-corresponding-environment))
yuuji@53 1893 (if (interactive-p) (push-mark op))
yuuji@53 1894 t)))
yuuji@53 1895 )
yuuji@53 1896
yuuji@22 1897 (defun YaTeX-end-of-environment (&optional limit-search-bound)
yuuji@22 1898 "Goto the end of the current environment.
yuuji@22 1899 Optional argument LIMIT-SEARCH-BOUND non-nil limits the search bound
yuuji@22 1900 to most recent sectioning command."
yuuji@22 1901 (interactive)
yuuji@53 1902 (YaTeX-beginning-of-environment limit-search-bound t)
yuuji@22 1903 )
yuuji@22 1904
yuuji@4 1905 (defun YaTeX-mark-environment ()
yuuji@13 1906 "Mark current position and move point to end of environment."
yuuji@13 1907 (interactive)
yuuji@13 1908 (let ((curp (point)))
yuuji@22 1909 (if (and (YaTeX-on-begin-end-p) (match-beginning 1)) ;if on \\begin
yuuji@22 1910 (forward-line 1)
yuuji@22 1911 (beginning-of-line))
yuuji@22 1912 (if (not (YaTeX-end-of-environment)) ;arg1 turns to match-beginning 1
yuuji@13 1913 (progn
yuuji@13 1914 (goto-char curp)
yuuji@13 1915 (error "Cannot found the end of current environment."))
yuuji@13 1916 (YaTeX-goto-corresponding-environment)
yuuji@13 1917 (beginning-of-line) ;for confirmation
yuuji@13 1918 (if (< curp (point))
yuuji@22 1919 (progn
yuuji@22 1920 (message "Mark this environment?(y or n): ")
yuuji@22 1921 (if (= (read-char) ?y) nil
yuuji@22 1922 (goto-char curp)
yuuji@22 1923 (error "Abort. Please call again at more proper position."))))
yuuji@13 1924 (set-mark-command nil)
yuuji@13 1925 (YaTeX-goto-corresponding-environment)
yuuji@13 1926 (end-of-line)
yuuji@13 1927 (if (eobp) nil (forward-char 1))))
yuuji@4 1928 )
yuuji@4 1929
yuuji@3 1930 (defun YaTeX-comment-paragraph ()
yuuji@3 1931 "Comment out current paragraph."
yuuji@3 1932 (interactive)
yuuji@3 1933 (save-excursion
yuuji@7 1934 (cond
yuuji@7 1935 ((YaTeX-on-begin-end-p)
yuuji@7 1936 (beginning-of-line)
yuuji@7 1937 (insert YaTeX-comment-prefix)
yuuji@7 1938 (YaTeX-goto-corresponding-environment)
yuuji@7 1939 (beginning-of-line)
yuuji@7 1940 (insert YaTeX-comment-prefix))
yuuji@7 1941 ((YaTeX-on-comment-p)
yuuji@7 1942 (message "Already commented out."))
yuuji@7 1943 (t
yuuji@4 1944 (mark-paragraph)
yuuji@7 1945 (if (looking-at paragraph-separate) (forward-line 1))
yuuji@49 1946 (comment-out-region "%"))))
yuuji@3 1947 )
yuuji@3 1948
yuuji@3 1949 (defun YaTeX-uncomment-paragraph ()
yuuji@3 1950 "Uncomment current paragraph."
yuuji@3 1951 (interactive)
yuuji@3 1952 (save-excursion
yuuji@4 1953 (if (YaTeX-on-begin-end-p)
yuuji@22 1954 (let ((p (make-marker)))
yuuji@22 1955 (set-marker p (point))
yuuji@22 1956 (YaTeX-goto-corresponding-environment)
yuuji@11 1957 (YaTeX-remove-prefix YaTeX-comment-prefix YaTeX-uncomment-once)
yuuji@22 1958 (goto-char (marker-position p))
yuuji@11 1959 (YaTeX-remove-prefix YaTeX-comment-prefix YaTeX-uncomment-once))
yuuji@7 1960 (if (YaTeX-on-comment-p)
yuuji@7 1961 (let*((fill-prefix "")
yuuji@7 1962 ;;append `^%' to head of paragraph delimiter.
yuuji@7 1963 (paragraph-start
yuuji@7 1964 (concat
yuuji@7 1965 "^$\\|^%\\(" YaTeX-paragraph-delimiter "\\)"))
yuuji@49 1966 (paragraph-separate paragraph-start))
yuuji@7 1967 (mark-paragraph)
yuuji@7 1968 (if (not (bobp)) (forward-line 1))
yuuji@49 1969 (uncomment-region "%" nil nil YaTeX-uncomment-once))
yuuji@7 1970 (message "This line is not a comment line."))))
yuuji@4 1971 )
yuuji@4 1972
yuuji@4 1973 (defun YaTeX-remove-prefix (prefix &optional once)
yuuji@7 1974 "Remove prefix on current line as far as prefix detected. But
yuuji@4 1975 optional argument ONCE makes deletion once."
yuuji@4 1976 (interactive "sPrefix:")
yuuji@4 1977 (beginning-of-line)
yuuji@4 1978 (while (re-search-forward (concat "^" prefix) (point-end-of-line) t)
yuuji@4 1979 (replace-match "")
yuuji@4 1980 (if once (end-of-line)))
yuuji@3 1981 )
yuuji@3 1982
yuuji@7 1983 (defun YaTeX-kill-option-string ()
yuuji@7 1984 (if (and (eq predicate 'YaTeX-on-begin-end-p)
yuuji@7 1985 (looking-at "\\(\\[.*\\]\\)*\\({.*}\\)*"))
yuuji@7 1986 (delete-region (match-beginning 0) (match-end 0)))
yuuji@7 1987 )
yuuji@7 1988
yuuji@22 1989 (defun YaTeX-kill-some-pairs (predicate gofunc kill-contents)
yuuji@22 1990 "Kill some matching pair.
yuuji@22 1991 This function assumes that pairs occupy each line where they resid."
yuuji@22 1992 ;;(interactive)
yuuji@7 1993 (if (not (funcall predicate)) nil
yuuji@22 1994 (let ((beg (make-marker)) (end (make-marker)) (p (make-marker)))
yuuji@7 1995 (set-marker end (match-end 0))
yuuji@7 1996 (if (match-beginning 2)
yuuji@7 1997 (set-marker beg (match-beginning 2))
yuuji@7 1998 (set-marker beg (match-beginning 1))
yuuji@7 1999 (goto-char (match-end 0))
yuuji@7 2000 (YaTeX-kill-option-string))
yuuji@7 2001 (save-excursion
yuuji@7 2002 (funcall gofunc)
yuuji@7 2003 (delete-region (point-beginning-of-line) (match-end 0))
yuuji@7 2004 (YaTeX-kill-option-string)
yuuji@52 2005 (if (and (eolp) (not (eobp))) (delete-char 1))
yuuji@22 2006 (set-marker p (point))
yuuji@22 2007 (goto-char beg)
yuuji@22 2008 (delete-region (point-beginning-of-line) end)
yuuji@52 2009 (if (and (eolp) (not (eobp))) (delete-char 1))
yuuji@22 2010 (if kill-contents (delete-region p (point))))
yuuji@22 2011 t))
yuuji@5 2012 )
yuuji@5 2013
yuuji@22 2014 (defun YaTeX-kill-section-command (point kill-all)
yuuji@22 2015 "Kill section-type command at POINT leaving its argument.
yuuji@22 2016 Non-nil for the second argument kill its argument too."
yuuji@22 2017 (let (beg (end (make-marker)))
yuuji@14 2018 (save-excursion
yuuji@22 2019 (goto-char point)
yuuji@22 2020 (or (looking-at YaTeX-ec-regexp)
yuuji@22 2021 (progn
yuuji@22 2022 (skip-chars-backward (concat "^" YaTeX-ec-regexp))
yuuji@22 2023 (forward-char -1)))
yuuji@22 2024 (setq beg (point))
yuuji@22 2025 (skip-chars-forward "^{")
yuuji@22 2026 (forward-list 1)
yuuji@22 2027 (set-marker end (point))
yuuji@22 2028 (if kill-all (delete-region beg end)
yuuji@22 2029 (goto-char beg)
yuuji@22 2030 (delete-region
yuuji@22 2031 (point) (progn (skip-chars-forward "^{" end) (1+ (point))))
yuuji@22 2032 (goto-char end)
yuuji@22 2033 (backward-delete-char 1))))
yuuji@14 2034 )
yuuji@14 2035
yuuji@22 2036 (defun YaTeX-kill-paren (kill-contents)
yuuji@22 2037 "Kill parentheses leaving its contents.
yuuji@22 2038 But kill its contents if the argument KILL-CONTENTS is non-nil."
yuuji@14 2039 (save-excursion
yuuji@14 2040 (let (p)
yuuji@14 2041 (if (looking-at "\\s(\\|\\(\\s)\\)")
yuuji@14 2042 (progn
yuuji@14 2043 (if (match-beginning 1)
yuuji@14 2044 (up-list -1))
yuuji@14 2045 (setq p (point))
yuuji@14 2046 (forward-list 1)
yuuji@22 2047 (if kill-contents (delete-region p (point))
yuuji@22 2048 (backward-delete-char 1)
yuuji@22 2049 (goto-char p)
yuuji@22 2050 (if (looking-at
yuuji@22 2051 (concat "{" YaTeX-ec-regexp
yuuji@32 2052 YaTeX-command-token-regexp "+"
yuuji@22 2053 "\\s +"))
yuuji@22 2054 (delete-region
yuuji@22 2055 (point)
yuuji@22 2056 (progn (re-search-forward "\\s +" nil t) (point)))
yuuji@22 2057 (delete-char 1)))
yuuji@14 2058 t))))
yuuji@14 2059 )
yuuji@14 2060
yuuji@22 2061 (defvar YaTeX-read-environment-history nil "Holds history of environments.")
yuuji@22 2062 (put 'YaTeX-read-environment-history 'no-default t)
yuuji@22 2063 (defun YaTeX-read-environment (prompt &optional predicate must-match initial)
yuuji@22 2064 "Read a LaTeX environment name with completion."
yuuji@49 2065 (YaTeX-sync-local-table 'tmp-env-table)
yuuji@51 2066 (completing-read-with-history
yuuji@51 2067 prompt
yuuji@51 2068 (append tmp-env-table user-env-table env-table)
yuuji@51 2069 predicate must-match initial
yuuji@51 2070 'YaTeX-read-environment-history)
yuuji@22 2071 )
yuuji@22 2072
yuuji@22 2073 (defvar YaTeX-read-section-history nil "Holds history of section-types.")
yuuji@22 2074 (put 'YaTeX-read-section-history 'no-default t)
yuuji@22 2075 (defun YaTeX-read-section (prompt &optional predicate initial)
yuuji@22 2076 "Read a LaTeX section-type command with completion."
yuuji@49 2077 (YaTeX-sync-local-table 'tmp-section-table)
yuuji@51 2078 (let ((minibuffer-completion-table
yuuji@22 2079 (append tmp-section-table user-section-table section-table)))
yuuji@51 2080 (read-from-minibuffer-with-history
yuuji@51 2081 prompt initial YaTeX-section-completion-map nil
yuuji@51 2082 'YaTeX-read-section-history))
yuuji@22 2083 )
yuuji@22 2084
yuuji@22 2085 (defun YaTeX-read-section-with-overview ()
yuuji@22 2086 "Read sectioning command with overview.
yuuji@22 2087 This function refers a local variable `source-window' in YaTeX-make-section"
yuuji@22 2088 (interactive)
yuuji@52 2089 (require 'yatexsec) ;some case needs this
yuuji@22 2090 (if (> (minibuffer-depth) 1)
yuuji@22 2091 (error "Too many minibuffer levels for overview."))
yuuji@22 2092 (let ((sw (selected-window))(enable-recursive-minibuffers t) sect)
yuuji@22 2093 (unwind-protect
yuuji@22 2094 (progn
yuuji@22 2095 (select-window source-window)
yuuji@22 2096 (setq sect (YaTeX-read-section-in-minibuffer
yuuji@22 2097 "Sectioning(Up=C-p, Down=C-n, Help=?): "
yuuji@22 2098 YaTeX-sectioning-level (YaTeX-section-overview))))
yuuji@22 2099 (select-window sw))
yuuji@22 2100 (if (eq (selected-window) (minibuffer-window))
yuuji@22 2101 (erase-buffer))
yuuji@22 2102 (insert sect)
yuuji@22 2103 (exit-minibuffer)
yuuji@22 2104 )
yuuji@22 2105 )
yuuji@22 2106
yuuji@51 2107 (defvar YaTeX-read-fontsize-history nil "Holds history of font designator.")
yuuji@51 2108 (put 'YaTeX-read-fontsize-history 'no-default t)
yuuji@22 2109 (defun YaTeX-read-fontsize (prompt &optional predicate must-match initial)
yuuji@22 2110 "Read a LaTeX font changing command with completion."
yuuji@49 2111 (YaTeX-sync-local-table 'tmp-fontsize-table)
yuuji@51 2112 (completing-read-with-history
yuuji@22 2113 prompt (append tmp-fontsize-table user-fontsize-table fontsize-table)
yuuji@51 2114 predicate must-match initial 'YaTeX-read-fontsize-history)
yuuji@5 2115 )
yuuji@5 2116
yuuji@5 2117 (defun YaTeX-change-environment ()
yuuji@5 2118 "Change the name of environment."
yuuji@5 2119 (interactive)
yuuji@5 2120 (if (not (YaTeX-on-begin-end-p)) nil
yuuji@5 2121 (save-excursion
yuuji@7 2122 (let (p env (m1 (match-beginning 1)) (m2 (match-beginning 2)))
yuuji@7 2123 (setq env (if m1 (buffer-substring m1 (match-end 1))
yuuji@7 2124 (buffer-substring m2 (match-end 2))))
yuuji@11 2125 (goto-char (match-beginning 0))
yuuji@5 2126 (set-mark-command nil)
yuuji@5 2127 (YaTeX-goto-corresponding-environment)
yuuji@5 2128 (setq newenv (YaTeX-read-environment
yuuji@5 2129 (format "Change environment `%s' to: " env)))
yuuji@13 2130 (cond
yuuji@13 2131 ((string= newenv "") (message "Change environment cancelled."))
yuuji@13 2132 ((string= newenv env) (message "No need to change."))
yuuji@13 2133 (t
yuuji@5 2134 (search-forward (concat "{" env) (point-end-of-line) t)
yuuji@5 2135 (replace-match (concat "{" newenv))
yuuji@5 2136 (exchange-point-and-mark)
yuuji@5 2137 (search-forward (concat "{" env) (point-end-of-line) t)
yuuji@13 2138 (replace-match (concat "{" newenv))))
yuuji@5 2139 t)))
yuuji@5 2140 )
yuuji@5 2141
yuuji@22 2142 (defun YaTeX-change-section ()
yuuji@22 2143 "Change section-type command."
yuuji@5 2144 (interactive)
yuuji@49 2145 (let*((where (YaTeX-on-section-command-p YaTeX-command-token-regexp))
yuuji@49 2146 (p (point)) (cmd (YaTeX-match-string 1)) beg end old new)
yuuji@49 2147 (if (null where) nil
yuuji@49 2148 (cond
yuuji@49 2149
yuuji@49 2150 ((equal where 0);;if point is on section command
yuuji@49 2151 (setq beg (match-beginning 1)
yuuji@49 2152 end (match-end 1))
yuuji@49 2153 (goto-char beg) ;beginning of the command
yuuji@49 2154 (setq new (YaTeX-read-section (format "Change `%s' to: " cmd) nil)))
yuuji@49 2155
yuuji@49 2156 ((= where -1);;if point is on a optional parameter
yuuji@49 2157 (setq beg (match-beginning 2))
yuuji@49 2158 (skip-chars-forward "^{")
yuuji@49 2159 (setq end (point))
yuuji@49 2160 (goto-char p)
yuuji@49 2161 (setq new
yuuji@57 2162 (if (fboundp (intern-soft (concat YaTeX-addin-prefix cmd)))
yuuji@49 2163 (YaTeX-addin cmd)
yuuji@49 2164 (concat "["
yuuji@49 2165 (read-string (format "Change `%s' to: "
yuuji@49 2166 (buffer-substring
yuuji@49 2167 (1+ beg) (1- end))))
yuuji@49 2168 "]"))))
yuuji@49 2169
yuuji@49 2170 ((> where 0);;if point is in arguments' braces
yuuji@49 2171 (or (looking-at "{")
yuuji@49 2172 (progn (skip-chars-backward "^{") (forward-char -1)))
yuuji@49 2173 (setq beg (1+ (point)))
yuuji@49 2174 (forward-list 1)
yuuji@49 2175 (forward-char -1)
yuuji@49 2176 (setq end (point)
yuuji@49 2177 old (buffer-substring beg end))
yuuji@49 2178 (goto-char p)
yuuji@49 2179 (if (> (length old) 40)
yuuji@49 2180 (setq old (concat (substring old 0 12) "..." (substring old -12))))
yuuji@49 2181 (setq new
yuuji@49 2182 (if (intern-soft (concat "YaTeX::" cmd))
yuuji@49 2183 (funcall (intern-soft (concat "YaTeX::" cmd)) where)
yuuji@49 2184 (read-string (format "Change `%s' to: " old)))))
yuuji@49 2185 );cond
yuuji@49 2186 (delete-region beg end)
yuuji@49 2187 (goto-char beg)
yuuji@49 2188 (insert-before-markers new)
yuuji@49 2189 ;;(goto-char (marker-position p))
yuuji@49 2190 new))
yuuji@49 2191 )
yuuji@49 2192
yuuji@49 2193 (defun YaTeX-change-fontsize ()
yuuji@49 2194 "Change large-type command."
yuuji@49 2195 (let ((lt (append tmp-fontsize-table user-fontsize-table fontsize-table))
yuuji@49 2196 (p (point)) large old new beg end)
yuuji@49 2197 ;;(and (looking-at "}") (up-list -1))
yuuji@49 2198 ;;(and (looking-at "{") (forward-char 1))
yuuji@49 2199 ;;Is above convenient?
yuuji@49 2200 (save-excursion
yuuji@49 2201 (or (looking-at YaTeX-ec-regexp)
yuuji@49 2202 (progn
yuuji@49 2203 (skip-chars-backward (concat "^" YaTeX-ec-regexp))
yuuji@49 2204 (forward-char -1)))
yuuji@49 2205 (cond
yuuji@49 2206 ((and
yuuji@49 2207 (looking-at
yuuji@49 2208 (concat YaTeX-ec-regexp "\\(" YaTeX-TeX-token-regexp "\\)"))
yuuji@49 2209 (< p (match-end 0))
yuuji@49 2210 (assoc (setq old (YaTeX-match-string 1)) lt))
yuuji@49 2211 (goto-char p)
yuuji@49 2212 (setq beg (match-beginning 1) end (match-end 1) ;save match position
yuuji@49 2213 new (completing-read
yuuji@49 2214 (format "Change font/size `%s' to : " old) lt))
yuuji@22 2215 (delete-region beg end)
yuuji@49 2216 (goto-char beg)
yuuji@22 2217 (insert-before-markers new)
yuuji@49 2218 new)
yuuji@49 2219 (t nil)
yuuji@49 2220 )))
yuuji@22 2221 )
yuuji@22 2222
yuuji@52 2223 (defun YaTeX-change-math-image ()
yuuji@52 2224 "Change with image completion."
yuuji@52 2225 (let (maketitle memberp beg end)
yuuji@52 2226 (if (and (YaTeX-on-maketitle-p)
yuuji@52 2227 (progn
yuuji@52 2228 (setq maketitle (substring (YaTeX-match-string 0) 1))
yuuji@52 2229 (setq memberp (YaTeX-math-member-p maketitle))))
yuuji@52 2230 (let ((last-command-char (string-to-char (car memberp))))
yuuji@52 2231 (setq beg (match-beginning 0) end (match-end 0))
yuuji@52 2232 (delete-region beg end)
yuuji@52 2233 (YaTeX-math-insert-sequence t (cdr memberp))))))
yuuji@52 2234
yuuji@22 2235 (defun YaTeX-kill-* (&optional arg)
yuuji@22 2236 "Parse current line and call suitable function.
yuuji@22 2237 Non-nil for ARG kills its contents too."
yuuji@22 2238 (interactive "P")
yuuji@5 2239 (cond
yuuji@5 2240 ((YaTeX-kill-some-pairs 'YaTeX-on-begin-end-p
yuuji@22 2241 'YaTeX-goto-corresponding-environment arg))
yuuji@5 2242 ((YaTeX-kill-some-pairs 'YaTeX-on-BEGIN-END-p
yuuji@22 2243 'YaTeX-goto-corresponding-BEGIN-END arg))
yuuji@32 2244 ((YaTeX-on-section-command-p YaTeX-command-token-regexp);on any command
yuuji@22 2245 (YaTeX-kill-section-command (match-beginning 0) arg))
yuuji@22 2246 ((YaTeX-kill-paren arg))
yuuji@5 2247 (t (message "I don't know what to kill.")))
yuuji@5 2248 )
yuuji@5 2249
yuuji@5 2250 (defun YaTeX-change-* ()
yuuji@5 2251 "Parse current line and call suitable function."
yuuji@5 2252 (interactive)
yuuji@5 2253 (cond
yuuji@5 2254 ((YaTeX-change-environment))
yuuji@22 2255 ((YaTeX-change-section))
yuuji@49 2256 ((YaTeX-change-fontsize))
yuuji@52 2257 ((YaTeX-change-math-image))
yuuji@5 2258 (t (message "I don't know what to change.")))
yuuji@5 2259 )
yuuji@5 2260
yuuji@7 2261 ;;;
yuuji@48 2262 ;Check availability of add-in functions
yuuji@7 2263 ;;;
yuuji@7 2264 (cond
yuuji@48 2265 ((featurep 'yatexadd) nil) ;Already provided.
yuuji@48 2266 ((progn (load "yatexadd" t) (featurep 'yatexadd)) nil)
yuuji@7 2267 (t (message "YaTeX add-in functions not supplied.")))
yuuji@7 2268
yuuji@5 2269 (defun YaTeX-addin (name)
yuuji@5 2270 "Check availability of addin function and call it if exists."
yuuji@7 2271 (if (and (not (get 'YaTeX-generate 'disabled))
yuuji@57 2272 (intern-soft (concat YaTeX-addin-prefix name))
yuuji@57 2273 (fboundp (intern-soft (concat YaTeX-addin-prefix name))))
yuuji@57 2274 (let ((s (funcall (intern (concat YaTeX-addin-prefix name)))))
yuuji@7 2275 (if (stringp s) s ""))
yuuji@7 2276 "") ;Add in function is not bound.
yuuji@7 2277 )
yuuji@7 2278
yuuji@22 2279 (defun YaTeX-on-item-p (&optional point)
yuuji@22 2280 "Return t if POINT (default is (point)) is on \\item."
yuuji@22 2281 (let ((p (or point (point))))
yuuji@22 2282 (save-excursion
yuuji@22 2283 (goto-char p)
yuuji@22 2284 (end-of-line)
yuuji@22 2285 (setq p (point))
yuuji@22 2286 (re-search-backward YaTeX-paragraph-delimiter nil t)
yuuji@22 2287 (re-search-forward YaTeX-item-regexp p t)))
yuuji@22 2288 )
yuuji@22 2289
yuuji@49 2290 (defun YaTeX-in-verb-p (&optional point)
yuuji@49 2291 "Check if POINT is in verb or verb*. Default of POINT is (point)."
yuuji@49 2292 (setq point (or point (point)))
yuuji@7 2293 (save-excursion
yuuji@49 2294 (goto-char point)
yuuji@51 2295 (if (not (re-search-backward
yuuji@51 2296 (concat YaTeX-ec-regexp
yuuji@51 2297 "\\(" YaTeX-verb-regexp "\\)"
yuuji@51 2298 "\\([^-A-Za-z_*]\\)")
yuuji@51 2299 (point-beginning-of-line) t))
yuuji@7 2300 nil
yuuji@51 2301 (goto-char (match-end 2))
yuuji@7 2302 (skip-chars-forward
yuuji@51 2303 (concat "^" (buffer-substring (match-beginning 2) (match-end 2))))
yuuji@51 2304 (and (< (match-beginning 2) point) (< (1- point) (point)))))
yuuji@49 2305 )
yuuji@49 2306
yuuji@49 2307 (defun YaTeX-literal-p (&optional point)
yuuji@49 2308 "Check if POINT is in verb or verb* or verbatime environment family.
yuuji@49 2309 Default of POINT is (point)."
yuuji@49 2310 (cond
yuuji@49 2311 ((equal YaTeX-ec "\\") ;maybe LaTeX
yuuji@49 2312 (save-excursion
yuuji@49 2313 (and point (goto-char point))
yuuji@49 2314 (or (YaTeX-in-verb-p (point))
yuuji@59 2315 (and (not (looking-at "\\\\end{verb"))
yuuji@59 2316 (YaTeX-quick-in-environment-p YaTeX-verbatim-environments))))))
yuuji@5 2317 )
yuuji@5 2318
yuuji@5 2319 (defun YaTeX-in-environment-p (env)
yuuji@7 2320 "Return if current LaTeX environment is ENV.
yuuji@7 2321 ENV is given in the form of environment's name or its list."
yuuji@22 2322 (let ((md (match-data)) (nest 0) p envrx)
yuuji@5 2323 (cond
yuuji@22 2324 ((atom env)
yuuji@22 2325 (setq envrx
yuuji@22 2326 (concat "\\("
yuuji@22 2327 (regexp-quote
yuuji@22 2328 (YaTeX-replace-format-args
yuuji@22 2329 YaTeX-struct-begin env "" ""))
yuuji@22 2330 "\\)\\|\\("
yuuji@22 2331 (regexp-quote
yuuji@22 2332 (YaTeX-replace-format-args
yuuji@22 2333 YaTeX-struct-end env "" ""))
yuuji@22 2334 "\\)"))
yuuji@22 2335 (save-excursion
yuuji@22 2336 (setq p (catch 'open
yuuji@22 2337 (while (YaTeX-re-search-active-backward
yuuji@22 2338 envrx YaTeX-comment-prefix nil t)
yuuji@22 2339 (if (match-beginning 2)
yuuji@22 2340 (setq nest (1+ nest))
yuuji@22 2341 (setq nest (1- nest)))
yuuji@22 2342 (if (< nest 0) (throw 'open t)))))))
yuuji@5 2343 ((listp env)
yuuji@49 2344 (setq p
yuuji@49 2345 (or (YaTeX-in-environment-p (car env))
yuuji@49 2346 (and (cdr env) (YaTeX-in-environment-p (cdr env)))))))
yuuji@7 2347 (store-match-data md)
yuuji@49 2348 p;(or p (YaTeX-in-verb-p (match-beginning 0)))
yuuji@49 2349 )
yuuji@5 2350 )
yuuji@5 2351
yuuji@5 2352 (defun YaTeX-quick-in-environment-p (env)
yuuji@7 2353 "Check quickly but unsure if current environment is ENV.
yuuji@22 2354 ENV is given in the form of environment's name or its list.
yuuji@49 2355 This function returns correct result only if ENV is NOT nested."
yuuji@7 2356 (save-excursion
yuuji@49 2357 (let ((md (match-data)) (p (point)) rc clfound)
yuuji@7 2358 (cond
yuuji@7 2359 ((listp env)
yuuji@49 2360 (or (YaTeX-quick-in-environment-p (car env))
yuuji@49 2361 (and (cdr env) (YaTeX-quick-in-environment-p (cdr env)))))
yuuji@7 2362 (t
yuuji@22 2363 (if (YaTeX-search-active-backward
yuuji@22 2364 (YaTeX-replace-format-args YaTeX-struct-begin env "" "")
yuuji@22 2365 YaTeX-comment-prefix nil t)
yuuji@49 2366 (setq rc (not (YaTeX-search-active-forward
yuuji@49 2367 (YaTeX-replace-format-args
yuuji@49 2368 YaTeX-struct-end env)
yuuji@49 2369 YaTeX-comment-prefix p t nil))))
yuuji@7 2370 (store-match-data md)
yuuji@22 2371 rc))))
yuuji@5 2372 )
yuuji@5 2373
yuuji@22 2374 ;; Filling \item
yuuji@46 2375 (defun YaTeX-remove-trailing-comment (start end)
yuuji@46 2376 "Remove trailing comment from START to end."
yuuji@46 2377 (save-excursion
yuuji@60 2378 (let ((trcom (concat YaTeX-comment-prefix "$")))
yuuji@46 2379 (goto-char start)
yuuji@46 2380 (while (re-search-forward trcom end t)
yuuji@54 2381 (if (/= (char-after (1- (match-beginning 0))) ?\\ )
yuuji@60 2382 (replace-match "\\1")))))
yuuji@5 2383 )
yuuji@5 2384
yuuji@58 2385 (defun YaTeX-get-item-info (&optional recent thisenv)
yuuji@51 2386 "Return the list of the beginning of \\item and column of its item.
yuuji@53 2387 If it seems to be outside of itemizing environment, just return nil.
yuuji@58 2388 Non-nil for optional argument RECENT refers recent \\item.
yuuji@58 2389 Optional second argument THISENV omits calling YaTeX-inner-environment."
yuuji@22 2390 (save-excursion
yuuji@58 2391 (let* ((p (point)) env e0 c
yuuji@58 2392 (bndry (and (setq env (or thisenv (YaTeX-inner-environment t)))
yuuji@53 2393 (get 'YaTeX-inner-environment 'point)
yuuji@53 2394 )))
yuuji@22 2395 (end-of-line)
yuuji@53 2396 (if (if recent
yuuji@53 2397 (YaTeX-re-search-active-backward
yuuji@53 2398 YaTeX-item-regexp YaTeX-comment-prefix bndry t)
yuuji@53 2399 (goto-char bndry)
yuuji@53 2400 (YaTeX-re-search-active-forward
yuuji@53 2401 YaTeX-item-regexp YaTeX-comment-prefix p t))
yuuji@51 2402 (progn
yuuji@53 2403 (goto-char (match-end 0))
yuuji@53 2404 ;(setq c (current-column))
yuuji@58 2405 (if (string-match "desc" env)
yuuji@58 2406 (setq c 6)
yuuji@58 2407 (if (equal (following-char) ?\[) (forward-list 1))
yuuji@58 2408 (setq c 0))
yuuji@51 2409 (skip-chars-forward " \t" (point-end-of-line))
yuuji@58 2410 (list (point-beginning-of-line) (+ c (current-column)))))))
yuuji@22 2411 )
yuuji@22 2412
yuuji@5 2413 (defun YaTeX-fill-item ()
yuuji@5 2414 "Fill item in itemize environment."
yuuji@5 2415 (interactive)
yuuji@5 2416 (save-excursion
yuuji@51 2417 (let* ((p (point))
yuuji@51 2418 (item-term (concat
yuuji@58 2419 "\\(^[ \t]*$\\)\\|" YaTeX-item-regexp "\\|\\("
yuuji@53 2420 YaTeX-ec-regexp "\\(begin\\|end\\)\\)"))
yuuji@51 2421 ;;This value depends on LaTeX.
yuuji@51 2422 fill-prefix start col
yuuji@53 2423 (info (YaTeX-get-item-info t)))
yuuji@55 2424 (if (null info) nil ;not on \item, do nothing
yuuji@22 2425 (setq start (car info)
yuuji@22 2426 col (car (cdr info)))
yuuji@55 2427 (save-excursion
yuuji@55 2428 (if (re-search-backward "^\\s *$" start t)
yuuji@55 2429 ;;if separated from \item line, isolate this block
yuuji@55 2430 (progn
yuuji@55 2431 (setq start (1+ (match-end 0)))
yuuji@55 2432 (goto-char start)
yuuji@55 2433 (skip-chars-forward " \t")
yuuji@55 2434 (delete-region (point) start) ;is this your favor???
yuuji@55 2435 (indent-to col))))
yuuji@46 2436 (beginning-of-line)
yuuji@46 2437 (if (<= (save-excursion
yuuji@46 2438 (re-search-forward
yuuji@58 2439 (concat "\\\\end{\\|\\\\begin{\\|^[ \t]*$") nil t)
yuuji@46 2440 (match-beginning 0))
yuuji@46 2441 p)
yuuji@51 2442 (progn (message "Not on itemize.") nil)
yuuji@51 2443 (end-of-line)
yuuji@51 2444 (newline)
yuuji@51 2445 (indent-to col)
yuuji@51 2446 (setq fill-prefix
yuuji@51 2447 (buffer-substring (point-beginning-of-line)(point)))
yuuji@51 2448 (beginning-of-line)
yuuji@53 2449 (delete-region (point) (progn (forward-line 1) (point)))
yuuji@51 2450 (re-search-forward item-term nil 1)
yuuji@51 2451 (YaTeX-remove-trailing-comment start (point))
yuuji@51 2452 (beginning-of-line)
yuuji@51 2453 (push-mark (point) t)
yuuji@51 2454 (goto-char start)
yuuji@51 2455 (forward-line 1)
yuuji@51 2456 (while (< (point) (mark))
yuuji@51 2457 (delete-region (point) (progn (skip-chars-forward " \t") (point)))
yuuji@51 2458 (forward-line 1))
yuuji@51 2459 (fill-region-as-paragraph start (mark))
yuuji@51 2460 (if NTT-jTeX
yuuji@51 2461 (while (progn(forward-line -1)(end-of-line) (> (point) start))
yuuji@51 2462 (insert ?%)))
yuuji@51 2463 (pop-mark)))))
yuuji@5 2464 )
yuuji@5 2465
yuuji@51 2466 (defun YaTeX-fill-paragraph (arg)
yuuji@51 2467 "YaTeX adjustment function for fill-paragraph.
yuuji@51 2468 *Protect \\verb from unexpected broken up."
yuuji@51 2469 (interactive "P")
yuuji@51 2470 (cond
yuuji@51 2471 ((not (eq major-mode 'yatex-mode)) (fill-paragraph arg))
yuuji@51 2472 ((YaTeX-quick-in-environment-p YaTeX-fill-inhibit-environments) nil)
yuuji@51 2473 (t
yuuji@51 2474 (save-excursion
yuuji@51 2475 (let ((verbrex (concat YaTeX-ec-regexp
yuuji@51 2476 "\\(" YaTeX-verb-regexp "\\)" ;match#1
yuuji@51 2477 "\\(.\\).*\\(\\2\\)")) ;match #2 and #3
yuuji@58 2478 (p (point)) ii end poslist spacelist (fill-prefix fill-prefix))
yuuji@52 2479 (cond
yuuji@52 2480 ((save-excursion (beginning-of-line) ;if point is on the first
yuuji@52 2481 (setq end (point)) ;non-whitespace char
yuuji@52 2482 (skip-chars-forward " \t")
yuuji@52 2483 (equal (point) p))
yuuji@52 2484 (setq fill-prefix (buffer-substring p end)))
yuuji@53 2485 ((and ;;(not YaTeX-emacs-19)
yuuji@52 2486 (string-match YaTeX-itemizing-env-regexp
yuuji@53 2487 (or (YaTeX-inner-environment t) "document"))
yuuji@58 2488 (setq ii (YaTeX-get-item-info)))
yuuji@58 2489 (save-excursion
yuuji@58 2490 (beginning-of-line)
yuuji@58 2491 (indent-to-column (car (cdr ii)))
yuuji@58 2492 (setq fill-prefix
yuuji@58 2493 (buffer-substring (point) (point-beginning-of-line)))
yuuji@58 2494 (delete-region (point) (progn (beginning-of-line) (point))))))
yuuji@51 2495 (mark-paragraph)
yuuji@51 2496 (save-restriction
yuuji@51 2497 (narrow-to-region (region-beginning) (region-end))
yuuji@52 2498 (YaTeX-remove-trailing-comment (point-min) (point-max))
yuuji@58 2499 (goto-char (point-min))
yuuji@51 2500 (while (YaTeX-re-search-active-forward
yuuji@58 2501 verbrex YaTeX-comment-prefix (point-max) t)
yuuji@51 2502 (setq end (match-beginning 3))
yuuji@51 2503 (goto-char (match-beginning 2))
yuuji@51 2504 (while (re-search-forward "\\s " end t)
yuuji@51 2505 (setq poslist (cons (make-marker) poslist)
yuuji@51 2506 spacelist (cons (preceding-char) spacelist))
yuuji@51 2507 (replace-match "_")
yuuji@51 2508 (set-marker (car poslist) (match-beginning 0))))
yuuji@58 2509 ;;(fill-paragraph arg)
yuuji@58 2510 (fill-region-as-paragraph (point-min) (point-max) arg)
yuuji@51 2511 (while spacelist
yuuji@51 2512 (goto-char (marker-position (car poslist)))
yuuji@51 2513 (delete-char 1)
yuuji@51 2514 (insert (car spacelist))
yuuji@52 2515 (setq spacelist (cdr spacelist) poslist (cdr poslist)))
yuuji@52 2516 (goto-char (point-min))
yuuji@52 2517 (forward-word 1)
yuuji@52 2518 (beginning-of-line)
yuuji@59 2519 (while (re-search-forward "\\\\\\(\\(page\\)?ref\\|cite\\){" nil t)
yuuji@59 2520 (if (< (point-end-of-line)
yuuji@59 2521 (save-excursion (forward-char -1) (forward-list 1) (point)))
yuuji@59 2522 (progn (end-of-line) (insert YaTeX-comment-prefix))))
yuuji@59 2523 (goto-char (point-min))
yuuji@52 2524 (if (and NTT-jTeX (looking-at "[ \t]"))
yuuji@52 2525 (progn
yuuji@52 2526 (goto-char (point-min))
yuuji@52 2527 (while (not (eobp))
yuuji@52 2528 (end-of-line)
yuuji@52 2529 (or (bolp)
yuuji@52 2530 (save-excursion
yuuji@52 2531 (backward-word 1)
yuuji@52 2532 (looking-at "\\sw+")) ;is not japanese string
yuuji@59 2533 (progn (setq p (point)) (insert YaTeX-comment-prefix)))
yuuji@52 2534 (forward-line 1))
yuuji@52 2535 (goto-char p)
yuuji@52 2536 (delete-char 1) ;remove last inserted `%'
yuuji@52 2537 )))))))
yuuji@51 2538 )
yuuji@51 2539
yuuji@52 2540 (if (fboundp 'YaTeX-saved-indent-new-comment-line) nil
yuuji@52 2541 (fset 'YaTeX-saved-indent-new-comment-line
yuuji@52 2542 (symbol-function 'indent-new-comment-line))
yuuji@52 2543 (fset 'indent-new-comment-line 'YaTeX-indent-new-comment-line))
yuuji@52 2544
yuuji@58 2545 (defun YaTeX-indent-new-comment-line (&optional soft)
yuuji@58 2546 "Tuned `indent-new-comment-line' function for yatex.
yuuji@58 2547 See the documentation of `YaTeX-saved-indent-new-comment-line'."
yuuji@52 2548 (cond
yuuji@60 2549 ((or (not (memq major-mode '(yatex-mode yahtml-mode)))
yuuji@53 2550 (string-match
yuuji@53 2551 "document"
yuuji@53 2552 (or (and (boundp 'inenv) inenv)
yuuji@53 2553 (or (YaTeX-inner-environment t) "document"))))
yuuji@58 2554 (apply 'YaTeX-saved-indent-new-comment-line (if soft (list soft))))
yuuji@60 2555 ; ((and (eq major-mode 'yahtml-mode)
yuuji@60 2556 ; (string-match
yuuji@60 2557 ; "^[Pp][Rr][Ee]" (yahtml-inner-environment-but "^[Aa]\\b" t)))
yuuji@60 2558 ; (yahtml-indent-new-commnet-line))
yuuji@60 2559 ((YaTeX-in-math-mode-p) nil) ;1996/12/30
yuuji@58 2560 (t (let (fill-prefix)
yuuji@60 2561 (apply 'YaTeX-saved-indent-new-comment-line (if soft (list soft))))))
yuuji@60 2562 )
yuuji@51 2563
yuuji@5 2564 (defun YaTeX-fill-* ()
yuuji@5 2565 "Fill paragraph according to its condition."
yuuji@5 2566 (interactive)
yuuji@5 2567 (cond
yuuji@5 2568 ((YaTeX-fill-item))
yuuji@5 2569 )
yuuji@5 2570 )
yuuji@5 2571
yuuji@22 2572 ;; Accent completion
yuuji@5 2573 (defun YaTeX-read-accent-char (x)
yuuji@5 2574 "Read char in accent braces."
yuuji@5 2575 (let ((c (read-char)))
yuuji@5 2576 (concat
yuuji@5 2577 (if (and (or (= c ?i) (= c ?j))
yuuji@5 2578 (not (string-match (regexp-quote x) "cdb")))
yuuji@5 2579 "\\" "")
yuuji@5 2580 (char-to-string c)))
yuuji@5 2581 )
yuuji@5 2582
yuuji@5 2583 (defun YaTeX-make-accent ()
yuuji@5 2584 "Make accent usage."
yuuji@5 2585 (interactive)
yuuji@5 2586 (message "1:` 2:' 3:^ 4:\" 5:~ 6:= 7:. u v H t c d b")
yuuji@5 2587 (let ((c (read-char))(case-fold-search nil))
yuuji@5 2588 (setq c (cond ((and (> c ?0) (< c ?8))
yuuji@5 2589 (substring "`'^\"~=." (1- (- c ?0)) (- c ?0)))
yuuji@5 2590 ((= c ?h) "H")
yuuji@5 2591 (t (char-to-string c))))
yuuji@5 2592 (if (not (string-match c "`'^\"~=.uvHtcdb")) nil
yuuji@5 2593 (insert "\\" c "{}")
yuuji@5 2594 (backward-char 1)
yuuji@5 2595 (insert (YaTeX-read-accent-char c))
yuuji@5 2596 (if (string= c "t") (insert (YaTeX-read-accent-char c)))
yuuji@5 2597 (forward-char 1)))
yuuji@5 2598 )
yuuji@5 2599
yuuji@22 2600 ;; Indentation
yuuji@22 2601 (defun YaTeX-current-indentation ()
yuuji@22 2602 "Return the indentation of current environment."
yuuji@22 2603 (save-excursion
yuuji@53 2604 ;;(beginning-of-line)
yuuji@53 2605 (if (YaTeX-beginning-of-environment t)
yuuji@53 2606 (goto-char (get 'YaTeX-inner-environment 'point))
yuuji@53 2607 (forward-line -1)
yuuji@53 2608 (beginning-of-line)
yuuji@53 2609 (skip-chars-forward " \t"))
yuuji@22 2610 (current-column))
yuuji@22 2611 )
yuuji@22 2612
yuuji@53 2613 (defun YaTeX-previous-line-indentation ()
yuuji@53 2614 (save-excursion
yuuji@53 2615 (forward-line -1)
yuuji@53 2616 (skip-chars-forward " \t")
yuuji@53 2617 (current-column)))
yuuji@53 2618
yuuji@22 2619 (defun YaTeX-reindent (col)
yuuji@22 2620 "Remove current indentation and reindento to COL column."
yuuji@22 2621 (save-excursion
yuuji@22 2622 (beginning-of-line)
yuuji@22 2623 (skip-chars-forward " \t")
yuuji@53 2624 (if (/= col (current-column))
yuuji@53 2625 (progn
yuuji@53 2626 (delete-region (point) (progn (beginning-of-line) (point)))
yuuji@53 2627 (indent-to col))))
yuuji@22 2628 (skip-chars-forward " \t" (point-end-of-line)))
yuuji@22 2629
yuuji@22 2630 (defun YaTeX-indent-line ()
yuuji@22 2631 "Indent corrent line referrin current environment."
yuuji@22 2632 (interactive)
yuuji@48 2633 (let ((indent-relative
yuuji@48 2634 (function
yuuji@51 2635 (lambda (&optional additional)
yuuji@48 2636 (YaTeX-reindent
yuuji@51 2637 (+ (YaTeX-current-indentation)
yuuji@51 2638 (or additional 0)
yuuji@51 2639 YaTeX-environment-indent)))))
yuuji@53 2640 depth iteminfo (p (point)) pp (peol (point-end-of-line))
yuuji@52 2641 ;;inenv below is sometimes defined in YaTeX-indent-new-comment-line
yuuji@52 2642 (inenv (or (and (boundp 'inenv) inenv) (YaTeX-inner-environment t))))
yuuji@52 2643 ;;(if NTT-jTeX ;;Do you need this section?
yuuji@52 2644 ;; (save-excursion
yuuji@52 2645 ;; (end-of-line)
yuuji@52 2646 ;; (let ((p (point)))
yuuji@52 2647 ;; (forward-line -1)
yuuji@52 2648 ;; (end-of-line)
yuuji@52 2649 ;; (or (= p (point))
yuuji@52 2650 ;; (progn (backward-char (length YaTeX-comment-prefix))
yuuji@52 2651 ;; (not (looking-at (regexp-quote YaTeX-comment-prefix))))
yuuji@52 2652 ;; (progn
yuuji@52 2653 ;; (skip-chars-backward YaTeX-comment-prefix)
yuuji@52 2654 ;; (kill-line))))))
yuuji@52 2655 (or inenv (setq inenv "document")) ;is the default environment
yuuji@48 2656 (cond
yuuji@53 2657 ((and (YaTeX-on-begin-end-p) (match-beginning 2)) ;if \end
yuuji@53 2658 (save-excursion
yuuji@53 2659 (beginning-of-line)
yuuji@53 2660 (YaTeX-reindent (YaTeX-current-indentation))))
yuuji@53 2661 ((string-match YaTeX-equation-env-regexp inenv)
yuuji@53 2662 (YaTeX-indent-line-equation)) ;autoload-ed from yatex.env
yuuji@52 2663 (;(YaTeX-in-environment-p '("itemize" "enumerate" "description" "list"))
yuuji@52 2664 (string-match YaTeX-itemizing-env-regexp inenv)
yuuji@52 2665 ;;(YaTeX-on-item-p) ??
yuuji@53 2666 ;;(setq iteminfo (YaTeX-get-item-info t))
yuuji@53 2667 (if (save-excursion
yuuji@51 2668 (beginning-of-line)
yuuji@53 2669 (re-search-forward YaTeX-item-regexp peol t))
yuuji@53 2670 (save-excursion
yuuji@51 2671 (goto-char (1+ (match-beginning 0)))
yuuji@51 2672 (setq depth
yuuji@51 2673 (* YaTeX-environment-indent
yuuji@51 2674 (cond
yuuji@51 2675 ((looking-at "subsubsub") 3)
yuuji@51 2676 ((looking-at "subsub") 2)
yuuji@51 2677 ((looking-at "sub") 1)
yuuji@51 2678 (t 0))))
yuuji@51 2679 (funcall indent-relative depth))
yuuji@58 2680 (YaTeX-reindent (or (car (cdr (YaTeX-get-item-info nil inenv)))
yuuji@53 2681 (+ (save-excursion
yuuji@53 2682 (beginning-of-line)
yuuji@53 2683 (YaTeX-current-indentation))
yuuji@52 2684 YaTeX-environment-indent))))
yuuji@48 2685 )
yuuji@49 2686 ((YaTeX-literal-p) ;verbatims
yuuji@48 2687 (tab-to-tab-stop))
yuuji@52 2688 ((and inenv (not (equal "document" inenv)))
yuuji@48 2689 (funcall indent-relative))
yuuji@53 2690 ((YaTeX-on-section-command-p YaTeX-sectioning-regexp)
yuuji@53 2691 (require 'yatexsec) ;to know YaTeX-sectioning-level
yuuji@53 2692 (YaTeX-reindent
yuuji@53 2693 (* (max
yuuji@53 2694 (1- ;I want chapter to have indentation 0
yuuji@53 2695 (or (cdr (assoc (YaTeX-match-string 1) YaTeX-sectioning-level))
yuuji@53 2696 0))
yuuji@53 2697 0)
yuuji@53 2698 YaTeX-environment-indent)))
yuuji@53 2699 ;;Default movement
yuuji@48 2700 ((and (bolp) fill-prefix) (insert fill-prefix))
yuuji@48 2701 (t (save-excursion
yuuji@48 2702 (beginning-of-line)
yuuji@48 2703 (skip-chars-forward " \t")
yuuji@48 2704 (indent-relative-maybe))
yuuji@52 2705 (skip-chars-forward " \t")))
yuuji@53 2706 ;;if current line is \begin, re-indent \end too
yuuji@53 2707 (if (and (YaTeX-on-begin-end-p) (match-beginning 1))
yuuji@53 2708 (save-excursion
yuuji@53 2709 ;;(beginning-of-line)
yuuji@53 2710 ;;(search-forward "\\begin")
yuuji@53 2711 (goto-char (match-beginning 0))
yuuji@53 2712 (setq depth (current-column))
yuuji@53 2713 (YaTeX-goto-corresponding-environment)
yuuji@53 2714 (YaTeX-reindent depth)))
yuuji@59 2715 (if (or
yuuji@59 2716 (and NTT-jTeX
yuuji@59 2717 (save-excursion (beginning-of-line) (looking-at "[ \t]")))
yuuji@59 2718 (save-excursion
yuuji@59 2719 (beginning-of-line)
yuuji@59 2720 (backward-char 1)
yuuji@59 2721 (and
yuuji@59 2722 (re-search-backward
yuuji@59 2723 "\\\\\\(\\(page\\)?ref\\|cite\\){" (point-beginning-of-line) t)
yuuji@59 2724 (goto-char (1- (match-end 0)))
yuuji@59 2725 (> (save-excursion
yuuji@59 2726 (condition-case ()
yuuji@59 2727 (progn (forward-list 1) (point))
yuuji@59 2728 (error (point-max))))
yuuji@59 2729 (point-end-of-line)))))
yuuji@52 2730 (save-excursion
yuuji@52 2731 (end-of-line)
yuuji@52 2732 (let ((p (point)))
yuuji@52 2733 (forward-line -1)
yuuji@52 2734 (end-of-line)
yuuji@52 2735 (or (= p (point))
yuuji@52 2736 (looking-at (regexp-quote YaTeX-comment-prefix))
yuuji@52 2737 (bobp) (bolp)
yuuji@52 2738 (save-excursion
yuuji@52 2739 (backward-word 1)
yuuji@52 2740 (looking-at "\\sw+")) ;is not japanese string
yuuji@52 2741 (insert YaTeX-comment-prefix))))))
yuuji@22 2742 )
yuuji@22 2743
yuuji@49 2744 (defun YaTeX-local-table-symbol (symbol)
yuuji@36 2745 "Return the lisp symbol which keeps local completion table of SYMBOL."
yuuji@18 2746 (intern (concat "YaTeX$"
yuuji@18 2747 default-directory
yuuji@18 2748 (symbol-name symbol)))
yuuji@18 2749 )
yuuji@18 2750
yuuji@49 2751 (defun YaTeX-sync-local-table (symbol)
yuuji@22 2752 "Synchronize local variable SYMBOL.
yuuji@22 2753 Copy its corresponding directory dependent completion table to SYMBOL."
yuuji@49 2754 (if (boundp (YaTeX-local-table-symbol symbol))
yuuji@49 2755 (set symbol (symbol-value (YaTeX-local-table-symbol symbol))))
yuuji@18 2756 )
yuuji@18 2757
yuuji@58 2758 (defun YaTeX-read-user-completion-table (&optional forcetoread)
yuuji@18 2759 "Append user completion table of LaTeX macros"
yuuji@18 2760 (let*((user-table (expand-file-name YaTeX-user-completion-table))
yuuji@49 2761 (local-table (expand-file-name (file-name-nondirectory user-table)))
yuuji@49 2762 var localvar localbuf (curbuf (current-buffer)) sexp)
yuuji@51 2763 (if YaTeX-user-table-is-read nil
yuuji@49 2764 (message "Loading user completion table")
yuuji@6 2765 (if (file-exists-p user-table) (load-file user-table)
yuuji@60 2766 (message "Welcome to the field of YaTeX. I'm glad to see you!")))
yuuji@51 2767 (setq YaTeX-user-table-is-read t)
yuuji@22 2768 (cond
yuuji@49 2769 ((file-exists-p local-table)
yuuji@51 2770 (set-buffer (setq localbuf (find-file-noselect local-table)))
yuuji@49 2771 (widen)
yuuji@49 2772 (goto-char (point-min))
yuuji@49 2773 (while (re-search-forward "(setq \\([^ ]+\\)" nil t)
yuuji@49 2774 (setq var (intern (buffer-substring
yuuji@49 2775 (match-beginning 1) (match-end 1)))
yuuji@49 2776 localvar (YaTeX-local-table-symbol var))
yuuji@49 2777 (goto-char (match-beginning 0))
yuuji@49 2778 (setq sexp (buffer-substring (point)
yuuji@49 2779 (progn (forward-sexp) (point))))
yuuji@49 2780 (set-buffer curbuf)
yuuji@49 2781 (or (assq var (buffer-local-variables)) (make-local-variable var))
yuuji@49 2782 (eval (read sexp))
yuuji@49 2783 (or (and (boundp localvar)
yuuji@58 2784 (symbol-value localvar)
yuuji@58 2785 (not forcetoread))
yuuji@49 2786 (set localvar (symbol-value var)))
yuuji@49 2787 (set-buffer localbuf))
yuuji@51 2788 (kill-buffer localbuf)))
yuuji@51 2789 (set-buffer curbuf))
yuuji@6 2790 )
yuuji@6 2791
yuuji@58 2792 (defun YaTeX-reload-dictionary ()
yuuji@58 2793 "Reload local dictionary.
yuuji@58 2794 Use this function after editing ./.yatexrc."
yuuji@58 2795 (interactive)
yuuji@58 2796 (let ((YaTeX-user-table-is-read nil))
yuuji@58 2797 (YaTeX-read-user-completion-table t))
yuuji@58 2798 )
yuuji@58 2799
yuuji@51 2800 (defun YaTeX-lookup-table (word type)
yuuji@51 2801 "Lookup WORD in completion table whose type is TYPE.
yuuji@51 2802 This function refers the symbol tmp-TYPE-table, user-TYPE-table, TYPE-table.
yuuji@51 2803 Typically, TYPE is one of 'env, 'section, 'fontsize, 'singlecmd."
yuuji@51 2804 (if (symbolp type) (setq type (symbol-name type)))
yuuji@51 2805 (or (assoc word (symbol-value (intern (concat "tmp-" type "-table"))))
yuuji@51 2806 (assoc word (symbol-value (intern (concat "user-" type "-table"))))
yuuji@51 2807 (assoc word (symbol-value (intern (concat type "-table"))))))
yuuji@51 2808
yuuji@49 2809 (defun YaTeX-update-table (vallist default-table user-table local-table)
yuuji@6 2810 "Update completion table if the car of VALLIST is not in current tables.
yuuji@6 2811 Second argument DEFAULT-TABLE is the quoted symbol of default completion
yuuji@6 2812 table, third argument USER-TABLE is user table which will be saved in
yuuji@49 2813 YaTeX-user-completion-table, fourth argument LOCAL-TABLE should have the
yuuji@6 2814 completion which is valid during current Emacs's session. If you
yuuji@49 2815 want to make LOCAL-TABLE valid longer span (but restrict in this directory)
yuuji@6 2816 create the file in current directory which has the same name with
yuuji@6 2817 YaTeX-user-completion-table."
yuuji@6 2818 (let ((car-v (car vallist)) key answer
yuuji@6 2819 (file (file-name-nondirectory YaTeX-user-completion-table)))
yuuji@6 2820 (cond
yuuji@6 2821 ((assoc car-v (symbol-value default-table))
yuuji@6 2822 nil) ;Nothing to do
yuuji@6 2823 ((setq key (assoc car-v (symbol-value user-table)))
yuuji@6 2824 (if (equal (cdr vallist) (cdr key)) nil
yuuji@6 2825 ;; if association hits, but contents differ.
yuuji@6 2826 (message
yuuji@6 2827 "%s's attributes turned into %s" (car vallist) (cdr vallist))
yuuji@6 2828 (set user-table (delq key (symbol-value user-table)))
yuuji@6 2829 (set user-table (cons vallist (symbol-value user-table)))
yuuji@49 2830 (YaTeX-update-dictionary
yuuji@49 2831 YaTeX-user-completion-table user-table "user")))
yuuji@49 2832 ((setq key (assoc car-v (symbol-value local-table)))
yuuji@6 2833 (if (equal (cdr vallist) (cdr key)) nil
yuuji@6 2834 (message
yuuji@6 2835 "%s's attributes turned into %s" (car vallist) (cdr vallist))
yuuji@49 2836 (set local-table (delq key (symbol-value local-table)))
yuuji@49 2837 (set local-table (cons vallist (symbol-value local-table)))
yuuji@49 2838 (set (YaTeX-local-table-symbol local-table) (symbol-value local-table))
yuuji@49 2839 (YaTeX-update-dictionary file local-table)))
yuuji@13 2840 ;; All of above cases, there are some completion in tables.
yuuji@6 2841 ;; Then update tables.
yuuji@6 2842 (t
yuuji@6 2843 (if (not YaTeX-nervous)
yuuji@51 2844 (setq answer "u")
yuuji@6 2845 (message
yuuji@51 2846 "`%s' is not in table. Register into: U)serDic L)ocalDic N)one D)iscard"
yuuji@6 2847 (car vallist))
yuuji@49 2848 (setq answer (char-to-string (read-char))))
yuuji@6 2849 (cond
yuuji@49 2850 ((string-match answer "uy")
yuuji@6 2851 (set user-table (cons vallist (symbol-value user-table)))
yuuji@49 2852 (YaTeX-update-dictionary YaTeX-user-completion-table user-table "user")
yuuji@49 2853 )
yuuji@49 2854 ((string-match answer "tl")
yuuji@49 2855 (set local-table (cons vallist (symbol-value local-table)))
yuuji@49 2856 (set (YaTeX-local-table-symbol local-table) (symbol-value local-table))
yuuji@49 2857 (YaTeX-update-dictionary file local-table))
yuuji@51 2858 ((string-match answer "d") nil) ;discard it
yuuji@51 2859 (t (set default-table
yuuji@51 2860 (cons vallist (symbol-value default-table))))))))
yuuji@6 2861 )
yuuji@6 2862
yuuji@49 2863 (defun YaTeX-cplread-with-learning
yuuji@49 2864 (prom default-table user-table local-table
yuuji@51 2865 &optional pred reqmatch init hsym)
yuuji@49 2866 "Completing read with learning.
yuuji@49 2867 Do a completing read with prompt PROM. Completion table is what
yuuji@49 2868 DEFAULT-TABLE, USER-TABLE, LOCAL table are appended in reverse order.
yuuji@49 2869 Note that these tables are passed by the symbol.
yuuji@49 2870 Optional arguments PRED, REQMATH and INIT are passed to completing-read
yuuji@49 2871 as its arguments PREDICATE, REQUIRE-MATCH and INITIAL-INPUT respectively.
yuuji@51 2872 If optional 8th argument HSYM, history symbol, is passed, use it as
yuuji@51 2873 history list variable."
yuuji@49 2874 (YaTeX-sync-local-table local-table)
yuuji@49 2875 (let*((table (append (symbol-value local-table)
yuuji@49 2876 (symbol-value user-table)
yuuji@49 2877 (symbol-value default-table)))
yuuji@51 2878 (word (completing-read-with-history
yuuji@51 2879 prom table pred reqmatch init hsym)))
yuuji@49 2880 (if (and (string< "" word) (not (assoc word table)))
yuuji@49 2881 (YaTeX-update-table (list word) default-table user-table local-table))
yuuji@49 2882 word)
yuuji@6 2883 )
yuuji@0 2884
yuuji@49 2885 (defun YaTeX-update-dictionary (file symbol &optional type)
yuuji@49 2886 (let ((local-table-buf (find-file-noselect file))
yuuji@49 2887 (name (symbol-name symbol))
yuuji@49 2888 (value (symbol-value symbol)))
yuuji@49 2889 (save-excursion
yuuji@49 2890 (message "Updating %s dictionary..." (or type "local"))
yuuji@49 2891 (set-buffer local-table-buf)
yuuji@49 2892 (goto-char (point-max))
yuuji@49 2893 (search-backward (concat "(setq " name) nil t)
yuuji@49 2894 (delete-region (point) (progn (forward-sexp) (point)))
yuuji@49 2895 (delete-blank-lines)
yuuji@49 2896 (insert "(setq " name " '(\n")
yuuji@49 2897 (mapcar '(lambda (s)
yuuji@49 2898 (insert (format "%s\n" (prin1-to-string s))))
yuuji@49 2899 value)
yuuji@49 2900 (insert "))\n\n")
yuuji@49 2901 (delete-blank-lines)
yuuji@49 2902 (basic-save-buffer)
yuuji@49 2903 (kill-buffer local-table-buf)
yuuji@49 2904 (message "Updating %s dictionary...Done" (or type "local"))))
yuuji@0 2905 )
yuuji@0 2906
yuuji@3 2907 ;; --------------- General sub functions ---------------
yuuji@6 2908 (defun point-beginning-of-line ()
yuuji@6 2909 (save-excursion (beginning-of-line)(point))
yuuji@6 2910 )
yuuji@6 2911
yuuji@6 2912 (defun point-end-of-line ()
yuuji@6 2913 (save-excursion (end-of-line)(point))
yuuji@6 2914 )
yuuji@3 2915
yuuji@7 2916
yuuji@7 2917 (provide 'yatex)
yuuji@7 2918 (defvar yatex-mode-load-hook nil
yuuji@7 2919 "*List of functions to be called when yatex.el is loaded.")
yuuji@53 2920 (if (and YaTeX-emacs-19 window-system (not (featurep 'yatex19)))
yuuji@55 2921 (load "yatex19"))
yuuji@51 2922 (load "yatexhks" t)
yuuji@51 2923
yuuji@51 2924 ;;-------------------- Final hook jobs --------------------
yuuji@51 2925 (substitute-all-key-definition
yuuji@51 2926 'fill-paragraph 'YaTeX-fill-paragraph YaTeX-mode-map)
yuuji@7 2927 (run-hooks 'yatex-mode-load-hook)
yuuji@51 2928
yuuji@51 2929 ;; `History' was moved to ChangeLog
yuuji@0 2930 ;----------------------------- End of yatex.el -----------------------------