yatex

annotate yatex.el @ 0:9c72144baf95

find changesets by author, revision, files, or words in the commit message
First releas version (at ftp.ae).
author yuuji
date Mon, 20 Jul 1992 14:41:40 +0000
parents
children 912f6e258cba
rev   line source
yuuji@0 1 ;;; -*- Emacs-Lisp -*-
yuuji@0 2 ;;; Yet Another tex-mode for emacs.
yuuji@0 3 ;;; yatex.el rev.1.27
yuuji@0 4 ;;; (c)1991 by Hirose Yuuji.[yuuji@ae.keio.ac.jp]
yuuji@0 5 ;;; Last modified Thu Jun 4 20:03:06 1992 on figaro
yuuji@0 6
yuuji@0 7 (provide 'yatex-mode)
yuuji@0 8 (defconst YaTeX-revision-number "1.27"
yuuji@0 9 "Revision number of running yatex.el"
yuuji@0 10 )
yuuji@0 11
yuuji@0 12 ;---------- Local variables ----------
yuuji@0 13 ;;;
yuuji@0 14 ;; Initialize local variable for yatex-mode.
yuuji@0 15 ;; Preserving user preferred definitions.
yuuji@0 16 ;; ** Check all of these defvar-ed values **
yuuji@0 17 ;; ** and setq other values more suitable **
yuuji@0 18 ;; ** for your site, if nedded. **
yuuji@0 19 ;;;
yuuji@0 20 (defvar YaTeX-prefix "\^C"
yuuji@0 21 "Prefix key to trigger YaTeX functions.
yuuji@0 22 You can select favorite prefix key by setq in your ~/.emacs."
yuuji@0 23 )
yuuji@0 24 (defvar YaTeX-open-lines 1
yuuji@0 25 "Blank lines between text and \??{??}"
yuuji@0 26 )
yuuji@0 27 (defvar YaTeX-fill-prefix "\t"
yuuji@0 28 "fill-prefix used for auto-fill-mode.
yuuji@0 29 The defalut value is single TAB."
yuuji@0 30 )
yuuji@0 31 (defvar YaTeX-user-completion-table "~/.yatexrc"
yuuji@0 32 "Default filename in which user completion table is saved."
yuuji@0 33 )
yuuji@0 34 (defvar tex-command "jlatex"
yuuji@0 35 "Default command for compiling LaTeX text."
yuuji@0 36 )
yuuji@0 37 (defvar dvi2-command ;previewer command for your site
yuuji@0 38 (concat
yuuji@0 39 "xdvi -geo +0+0 -s 4 -display "
yuuji@0 40 (getenv "DISPLAY"))
yuuji@0 41 "Default previewer command including its option.
yuuji@0 42 This default value is for X window system. If you want to use this
yuuji@0 43 default, you have to make sure the environment variable DISPLAY is
yuuji@0 44 correctly set."
yuuji@0 45 )
yuuji@0 46 (defvar latex-warning-regexp "line.* [0-9]*"
yuuji@0 47 "Regular expression of line number of warning message by latex command."
yuuji@0 48 )
yuuji@0 49 (defvar latex-error-regexp "l\\.[1-9][0-9]*"
yuuji@0 50 "Regular expression of line number of latex error. Perhaps your latex
yuuji@0 51 command stops at this error message with line number of LaTeX source text."
yuuji@0 52 )
yuuji@0 53 (defvar latex-dos-emergency-message "Emergency stop"
yuuji@0 54 "Because Demacs (GNU Emacs on DOS) cannot have pararell process, the
yuuji@0 55 latex command which is stopping on a LaTeX error, is terminated by Demacs.
yuuji@0 56 Many latex command on DOS display some message when it is terminated by
yuuji@0 57 other process, user or OS. Define this variable a message string of your
yuuji@0 58 latex command on DOS shows at abnormal termination.
yuuji@0 59 Remember Demacs's call-process function is not oriented for interactive
yuuji@0 60 process."
yuuji@0 61 )
yuuji@0 62
yuuji@0 63 ;------------ Completion table ------------
yuuji@0 64 ; Set tex-section-like command possible completion
yuuji@0 65 (setq section-table
yuuji@0 66 '(("part") ("section") ("subsection") ("subsubsection")
yuuji@0 67 ("author") ("documentstyle") ("pagestyle")
yuuji@0 68 ("documentstyle[10pt]") ("documentstyle[11pt]")
yuuji@0 69 ("documentstyle[12pt]")
yuuji@0 70 ("item[]") ("title") ("chapter") ("part") ("paragraph")
yuuji@0 71 ("subparagraph") ("underline") ("label") ("footnote")
yuuji@0 72 ("hspace*") ("vspace*") ("bibliography") ("bibitem[]") ("cite[]")
yuuji@0 73 ("nocite") ("input") ("include") ("includeonly") ("mbox") ("hbox")
yuuji@0 74 ("caption") ("newcommand") ("setlength") ("addtolength")
yuuji@0 75 ("newenvironment") ("newtheorem")
yuuji@0 76 ))
yuuji@0 77 (defvar user-section-table nil)
yuuji@0 78
yuuji@0 79 ; Set style possible completion
yuuji@0 80 (setq article-table
yuuji@0 81 '(("article") ("jarticle") ("report") ("jreport") ("jbook")
yuuji@0 82 ("4em") ("2ex")
yuuji@0 83 ("empty") ("headings") ("\\textwidth")
yuuji@0 84 ("\\oddsidemargin") ("\\evensidemargin")
yuuji@0 85 ("\\textheight") ("\\topmargin")
yuuji@0 86 ("\\bottommargin") ("\\footskip") ("\\footheight")
yuuji@0 87 ))
yuuji@0 88 (defvar user-article-table nil)
yuuji@0 89
yuuji@0 90 ; Set tex-environment possible completion
yuuji@0 91 (setq env-table
yuuji@0 92 '(("quote") ("quotation") ("center") ("verse") ("document")
yuuji@0 93 ("verbatim") ("itemize") ("enumerate") ("description")
yuuji@0 94 ("list{}") ("tabular") ("table") ("titlepage")
yuuji@0 95 ("sloppypar") ("ref") ("quotation") ("quote") ("picture")
yuuji@0 96 ("eqnarray") ("figure") ("equation") ("abstract") ("array")
yuuji@0 97 ("thebibliography") ("theindex")
yuuji@0 98 ))
yuuji@0 99 (defvar user-env-table nil)
yuuji@0 100
yuuji@0 101 ; Set {\Large }-like comletion
yuuji@0 102 (setq fontsize-table
yuuji@0 103 '(("rm") ("em") ("bf") ("boldmath") ("it") ("sl") ("sf") ("sc") ("tt")
yuuji@0 104 ("dg") ("dm")
yuuji@0 105 ("tiny") ("scriptsize") ("footnotesize") ("small")("normalsize")
yuuji@0 106 ("large") ("Large") ("LARGE") ("huge") ("Huge")
yuuji@0 107 ))
yuuji@0 108 (defvar user-fontsize-table nil)
yuuji@0 109
yuuji@0 110 (setq singlecmd-table
yuuji@0 111 '(("maketitle") ("sloppy")
yuuji@0 112 ("alpha") ("beta") ("gamma") ("delta") ("epsilon") ("varepsilon")
yuuji@0 113 ("zeta") ("eta") ("theta")("vartheta") ("iota") ("kappa")
yuuji@0 114 ("lambda") ("mu") ("nu") ("xi") ("pi") ("varpi") ("rho") ("varrho")
yuuji@0 115 ("sigma") ("varsigma") ("tau") ("upsilon") ("phi") ("varphi")
yuuji@0 116 ("chi") ("psi") ("omega") ("Gamma") ("Delta") ("Theta") ("Lambda")
yuuji@0 117 ("Xi") ("Pi") ("Sigma") ("Upsilon") ("Phi") ("Psi") ("Omega")
yuuji@0 118 ("LaTeX") ("TeX")
yuuji@0 119 ))
yuuji@0 120 (defvar user-singlecmd-table nil)
yuuji@0 121
yuuji@0 122 ;---------- Key mode map ----------
yuuji@0 123 ;;;
yuuji@0 124 ;; Create new key map: YaTeX-mode-map
yuuji@0 125 ;; Do not change this section.
yuuji@0 126 ;;;
yuuji@0 127 (defvar YaTeX-mode-map nil
yuuji@0 128 "Keymap used in YaTeX mode."
yuuji@0 129 )
yuuji@0 130 (defvar YaTeX-compilation-mode-map nil
yuuji@0 131 "Keymap userd in YaTeX compilation buffer."
yuuji@0 132 )
yuuji@0 133
yuuji@0 134 ;---------- Define deafult key bindings on YaTeX mode map ----------
yuuji@0 135 ;;;
yuuji@0 136 ;; Define key table
yuuji@0 137 ;;;
yuuji@0 138 (if YaTeX-mode-map
yuuji@0 139 nil
yuuji@0 140 (global-unset-key (concat YaTeX-prefix "b"))
yuuji@0 141 (setq YaTeX-mode-map (make-sparse-keymap))
yuuji@0 142 (define-key YaTeX-mode-map (concat YaTeX-prefix "tj")
yuuji@0 143 'YaTeX-compile)
yuuji@0 144 (define-key YaTeX-mode-map (concat YaTeX-prefix "tx")
yuuji@0 145 'YaTeX-preview)
yuuji@0 146 (define-key YaTeX-mode-map (concat YaTeX-prefix "tv")
yuuji@0 147 'YaTeX-view-error)
yuuji@0 148 (define-key YaTeX-mode-map (concat YaTeX-prefix "tb")
yuuji@0 149 '(lambda () (interactive) (YaTeX-insert-string "\\")))
yuuji@0 150 (define-key YaTeX-mode-map (concat YaTeX-prefix "'")
yuuji@0 151 'YaTeX-prev-error)
yuuji@0 152 (define-key YaTeX-mode-map (concat YaTeX-prefix " ")
yuuji@0 153 'YaTeX-do-completion)
yuuji@0 154 (define-key YaTeX-mode-map (concat YaTeX-prefix "v")
yuuji@0 155 'YaTeX-version)
yuuji@0 156
yuuji@0 157 (define-key YaTeX-mode-map "\"" 'YaTeX-insert-quote)
yuuji@0 158 (define-key YaTeX-mode-map (concat YaTeX-prefix "{")
yuuji@0 159 'YaTeX-insert-braces)
yuuji@0 160 (define-key YaTeX-mode-map (concat YaTeX-prefix "}")
yuuji@0 161 'YaTeX-insert-braces-region)
yuuji@0 162 (define-key YaTeX-mode-map (concat YaTeX-prefix "d")
yuuji@0 163 'YaTeX-insert-dollar)
yuuji@0 164 (define-key YaTeX-mode-map (concat YaTeX-prefix "\\")
yuuji@0 165 '(lambda () (interactive) (YaTeX-insert-string "$\\backslash$")))
yuuji@0 166 (define-key YaTeX-mode-map (concat YaTeX-prefix "bd")
yuuji@0 167 '(lambda (arg) (interactive "P")
yuuji@0 168 (YaTeX-insert-begin-end "document" arg)))
yuuji@0 169 (define-key YaTeX-mode-map (concat YaTeX-prefix "Bd")
yuuji@0 170 '(lambda () (interactive)
yuuji@0 171 (YaTeX-insert-begin-end "document" t)))
yuuji@0 172 (define-key YaTeX-mode-map (concat YaTeX-prefix "bD")
yuuji@0 173 '(lambda (arg) (interactive "P")
yuuji@0 174 (YaTeX-insert-begin-end "description" arg)))
yuuji@0 175 (define-key YaTeX-mode-map (concat YaTeX-prefix "BD")
yuuji@0 176 '(lambda () (interactive)
yuuji@0 177 (YaTeX-insert-begin-end "description" t)))
yuuji@0 178 (define-key YaTeX-mode-map (concat YaTeX-prefix "be")
yuuji@0 179 '(lambda (arg) (interactive "P")
yuuji@0 180 (YaTeX-insert-begin-end "enumerate" arg)))
yuuji@0 181 (define-key YaTeX-mode-map (concat YaTeX-prefix "Be")
yuuji@0 182 '(lambda () (interactive)
yuuji@0 183 (YaTeX-insert-begin-end "enumerate" t)))
yuuji@0 184 (define-key YaTeX-mode-map (concat YaTeX-prefix "bi")
yuuji@0 185 '(lambda (arg) (interactive "P")
yuuji@0 186 (YaTeX-insert-begin-end "itemize" arg)))
yuuji@0 187 (define-key YaTeX-mode-map (concat YaTeX-prefix "Bi")
yuuji@0 188 '(lambda () (interactive)
yuuji@0 189 (YaTeX-insert-begin-end "itemize" t)))
yuuji@0 190 (define-key YaTeX-mode-map (concat YaTeX-prefix "bt")
yuuji@0 191 '(lambda (arg) (interactive "P")
yuuji@0 192 (YaTeX-insert-begin-end "tabbing" arg)))
yuuji@0 193 (define-key YaTeX-mode-map (concat YaTeX-prefix "Bt")
yuuji@0 194 '(lambda () (interactive)
yuuji@0 195 (YaTeX-insert-begin-end "tabbing" t)))
yuuji@0 196 (define-key YaTeX-mode-map (concat YaTeX-prefix "bT")
yuuji@0 197 '(lambda (arg) (interactive "P")
yuuji@0 198 (YaTeX-insert-begin-end "tabular" arg)))
yuuji@0 199 (define-key YaTeX-mode-map (concat YaTeX-prefix "BT")
yuuji@0 200 '(lambda () (interactive)
yuuji@0 201 (YaTeX-insert-begin-end "tabular" t)))
yuuji@0 202 (define-key YaTeX-mode-map (concat YaTeX-prefix "bq")
yuuji@0 203 '(lambda (arg) (interactive "P")
yuuji@0 204 (YaTeX-insert-begin-end "quote" arg)))
yuuji@0 205 (define-key YaTeX-mode-map (concat YaTeX-prefix "Bq")
yuuji@0 206 '(lambda () (interactive)
yuuji@0 207 (YaTeX-insert-begin-end "quote" t)))
yuuji@0 208 (define-key YaTeX-mode-map (concat YaTeX-prefix "bQ")
yuuji@0 209 '(lambda (arg) (interactive "P")
yuuji@0 210 (YaTeX-insert-begin-end "quotation" arg)))
yuuji@0 211 (define-key YaTeX-mode-map (concat YaTeX-prefix "BQ")
yuuji@0 212 '(lambda () (interactive)
yuuji@0 213 (YaTeX-insert-begin-end "quotation" t)))
yuuji@0 214 (define-key YaTeX-mode-map (concat YaTeX-prefix "b ")
yuuji@0 215 'YaTeX-make-begin-end)
yuuji@0 216 (define-key YaTeX-mode-map (concat YaTeX-prefix "B ")
yuuji@0 217 'YaTeX-make-begin-end-region)
yuuji@0 218 (define-key YaTeX-mode-map (concat YaTeX-prefix "s")
yuuji@0 219 'YaTeX-make-section)
yuuji@0 220 (define-key YaTeX-mode-map (concat YaTeX-prefix "l")
yuuji@0 221 'YaTeX-make-fontsize)
yuuji@0 222 (define-key YaTeX-mode-map (concat YaTeX-prefix "L")
yuuji@0 223 'YaTeX-make-fontsize-region)
yuuji@0 224 (define-key YaTeX-mode-map (concat YaTeX-prefix "m")
yuuji@0 225 'YaTeX-make-singlecmd)
yuuji@0 226 (define-key YaTeX-mode-map (concat YaTeX-prefix "\C-m")
yuuji@0 227 '(lambda () (interactive) (YaTeX-insert-string "\\\\")))
yuuji@0 228 (if (eq system-type 'ms-dos)
yuuji@0 229 (define-key YaTeX-mode-map (concat YaTeX-prefix "\^L")
yuuji@0 230 '(lambda () (interactive)
yuuji@0 231 (set-screen-height 24) (recenter))))
yuuji@0 232 )
yuuji@0 233
yuuji@0 234 (if YaTeX-compilation-mode-map nil
yuuji@0 235 (setq YaTeX-compilation-mode-map (make-keymap))
yuuji@0 236 (suppress-keymap YaTeX-compilation-mode-map t)
yuuji@0 237 (define-key YaTeX-compilation-mode-map " "
yuuji@0 238 'YaTeX-jump-error-line)
yuuji@0 239 )
yuuji@0 240
yuuji@0 241 ;---------- Customize as you like above ----------
yuuji@0 242
yuuji@0 243 ;---------- Kanji code selection ----------
yuuji@0 244 (if (eq system-type 'ms-dos)
yuuji@0 245 (setq YaTeX-kanji-code 1)
yuuji@0 246 (setq YaTeX-kanji-code 2))
yuuji@0 247
yuuji@0 248 (setq kanji-display-code YaTeX-kanji-code
yuuji@0 249 kanji-fileio-code YaTeX-kanji-code)
yuuji@0 250 ;---------- Define other variable ----------
yuuji@0 251 (defvar env-name "document") ;Initial tex-environment completion
yuuji@0 252 (defvar section-name "documentstyle[12pt]") ;Initial tex-section completion
yuuji@0 253 (defvar fontsize-name "large") ;Initial fontsize completion
yuuji@0 254 (defvar single-command "maketitle") ;Initial LaTeX single command
yuuji@0 255 (defvar YaTeX-user-table-has-read nil
yuuji@0 256 "Flag that means whether user completion table has read or not."
yuuji@0 257 )
yuuji@0 258 (defvar yatex-mode-hook nil
yuuji@0 259 "List of functions to be called after .tex file is read
yuuji@0 260 and yatex-mode starts.")
yuuji@0 261
yuuji@0 262 ;---------- Produce YaTeX-mode ----------
yuuji@0 263 ;;;
yuuji@0 264 ;; Major mode definition
yuuji@0 265 ;;;
yuuji@0 266 (defun yatex-mode ()
yuuji@0 267 (interactive)
yuuji@0 268 (kill-all-local-variables)
yuuji@0 269 (setq major-mode 'YaTeX-mode)
yuuji@0 270 (setq mode-name "$@$d$F$U$b!<$I(J")
yuuji@0 271 (turn-on-auto-fill)
yuuji@0 272 (make-local-variable 'fill-column)
yuuji@0 273 (make-local-variable 'fill-prefix)
yuuji@0 274 (setq fill-column 72
yuuji@0 275 fill-prefix YaTeX-fill-prefix)
yuuji@0 276 (use-local-map YaTeX-mode-map)
yuuji@0 277 (if (eq system-type 'ms-dos)
yuuji@0 278 (set-screen-height 24))
yuuji@0 279 (if YaTeX-user-table-has-read nil
yuuji@0 280 (YaTeX-read-user-completion-table)
yuuji@0 281 (setq YaTeX-user-table-has-read t))
yuuji@0 282 (run-hooks 'yatex-mode-hook)
yuuji@0 283 )
yuuji@0 284
yuuji@0 285 ;---------- Define YaTeX-mode functions ----------
yuuji@0 286 ;;;
yuuji@0 287 ;; YaTeX-mode functions
yuuji@0 288 ;;;
yuuji@0 289 (defun YaTeX-insert-begin-end (env arg)
yuuji@0 290 "Insert \begin{mode-name} and \end{mode-name}."
yuuji@0 291 (if arg
yuuji@0 292 (save-excursion
yuuji@0 293 (if (> (point) (mark)) (exchange-point-and-mark))
yuuji@0 294 (insert "\\begin{" env "}\n")
yuuji@0 295 (exchange-point-and-mark)
yuuji@0 296 (insert "\\end{" env "}\n"))
yuuji@0 297 (delete-blank-lines)
yuuji@0 298 (insert "\\begin{" env "}\n")
yuuji@0 299 (newline (1+ (* 2 YaTeX-open-lines)))
yuuji@0 300 (insert "\\end{" env "}\n")
yuuji@0 301 (previous-line (+ 2 YaTeX-open-lines)))
yuuji@0 302 )
yuuji@0 303
yuuji@0 304 (defun YaTeX-exist-completion-table (elm table)
yuuji@0 305 "Return nil, if single list element:elm was
yuuji@0 306 not found in possible completion table."
yuuji@0 307 (while (not (or (null table) (equal elm (car table))))
yuuji@0 308 (setq table (cdr table)))
yuuji@0 309 table
yuuji@0 310 )
yuuji@0 311
yuuji@0 312 (defun YaTeX-make-begin-end (arg)
yuuji@0 313 "Make LaTeX environment command of \\begin{env.} ... \\end{env.}
yuuji@0 314 by completing read.
yuuji@0 315 If you invoke this command with universal argument,
yuuji@0 316 \(C-u or ESC-1 is typical prefix to invoke commands with ARG.\)
yuuji@0 317 you can put REGION into that environment between \\begin and \\end."
yuuji@0 318 (interactive "P")
yuuji@0 319 (let*
yuuji@0 320 ((mode (if arg " region" ""))
yuuji@0 321 (env
yuuji@0 322 (completing-read
yuuji@0 323 (format "Begin environment%s(default %s): " mode env-name)
yuuji@0 324 (append user-env-table env-table) nil nil)))
yuuji@0 325 (if (string= env "")
yuuji@0 326 (setq env env-name))
yuuji@0 327 (setq env-name env)
yuuji@0 328 (if (not (YaTeX-exist-completion-table
yuuji@0 329 (list env-name) (append user-env-table env-table)))
yuuji@0 330 (setq user-env-table (cons (list env-name) user-env-table)))
yuuji@0 331 (YaTeX-insert-begin-end env-name arg))
yuuji@0 332 )
yuuji@0 333
yuuji@0 334 (defun YaTeX-make-begin-end-region ()
yuuji@0 335 "Call YaTeX-make-begin-end with ARG to specify region mode."
yuuji@0 336 (interactive)
yuuji@0 337 (YaTeX-make-begin-end t)
yuuji@0 338 )
yuuji@0 339
yuuji@0 340 (defun YaTeX-make-section (arg)
yuuji@0 341 "Make LaTeX \\section{} type command with completing read.
yuuji@0 342 With ARG of numeric, you can specify the number of argument of
yuuji@0 343 LaTeX command.
yuuji@0 344 For example, if you want to produce LaTeX command
yuuji@0 345
yuuji@0 346 \\addtolength{\\topmargin}{8mm}
yuuji@0 347
yuuji@0 348 which has two argument. You can produce that sequence by typing...
yuuji@0 349 ESC 2 C-c s add SPC RET \\topm SPC RET 8mm RET
yuuji@0 350 \(by default\)
yuuji@0 351 You can complete symbol at LaTeX command and 1st argument."
yuuji@0 352 (interactive "p")
yuuji@0 353 (let*
yuuji@0 354 ((section
yuuji@0 355 (completing-read
yuuji@0 356 (format "\\???{} (default %s): " section-name)
yuuji@0 357 (append user-section-table section-table)
yuuji@0 358 nil nil))
yuuji@0 359 (section (if (string= section "") section-name section))
yuuji@0 360 (title
yuuji@0 361 (completing-read (concat "\\" section "{???}: ")
yuuji@0 362 (append user-article-table article-table)
yuuji@0 363 nil nil)))
yuuji@0 364 (setq section-name section)
yuuji@0 365 (if (not (YaTeX-exist-completion-table
yuuji@0 366 (list section-name) (append user-section-table section-table)))
yuuji@0 367 (setq user-section-table
yuuji@0 368 (cons (list section-name) user-section-table)))
yuuji@0 369 (insert "\\" section-name "{" title "}")
yuuji@0 370 (let ((j 2))
yuuji@0 371 (while (<= j arg)
yuuji@0 372 (insert (concat "{" (read-string (format "Argument %d: " j))))
yuuji@0 373 (insert "}")
yuuji@0 374 (setq j (1+ j)))
yuuji@0 375 )
yuuji@0 376 (if (string= title "") (forward-char -1)
yuuji@0 377 nil))
yuuji@0 378 )
yuuji@0 379
yuuji@0 380 ;(defun YaTeX-make-section-region ()
yuuji@0 381 ; "Call YaTeX-make-section with ARG to specify region mode."
yuuji@0 382 ; (interactive)
yuuji@0 383 ; (YaTeX-make-section t)
yuuji@0 384 ;)
yuuji@0 385
yuuji@0 386 (defun YaTeX-make-fontsize (arg)
yuuji@0 387 "Make completion like {\\large ...} or {\\slant ...} in minibuffer.
yuuji@0 388 If you invoke this command with universal argument, you can put region
yuuji@0 389 into {\\xxx } braces.
yuuji@0 390 \(C-u or ESC-1 are default key bindings of universal-argument.\)"
yuuji@0 391 (interactive "P")
yuuji@0 392 (let* ((mode (if arg "region" ""))
yuuji@0 393 (fontsize
yuuji@0 394 (completing-read
yuuji@0 395 (format "{\\??? %s} (default %s): " mode fontsize-name)
yuuji@0 396 (append user-fontsize-table fontsize-table)
yuuji@0 397 nil nil )))
yuuji@0 398 (if (string= fontsize "")
yuuji@0 399 (setq fontsize fontsize-name))
yuuji@0 400 (setq fontsize-name fontsize)
yuuji@0 401 (if (not (YaTeX-exist-completion-table
yuuji@0 402 (list fontsize-name)
yuuji@0 403 (append user-fontsize-table fontsize-table)))
yuuji@0 404 (setq user-fontsize-table
yuuji@0 405 (cons (list fontsize-name) user-fontsize-table)))
yuuji@0 406 (if arg
yuuji@0 407 (save-excursion
yuuji@0 408 (if (> (point) (mark)) (exchange-point-and-mark))
yuuji@0 409 (insert "{\\" fontsize-name " ")
yuuji@0 410 (exchange-point-and-mark)
yuuji@0 411 (insert "}"))
yuuji@0 412 (insert "{\\" fontsize-name " }")
yuuji@0 413 (forward-char -1)))
yuuji@0 414 )
yuuji@0 415
yuuji@0 416 (defun YaTeX-make-fontsize-region ()
yuuji@0 417 "Call functino:YaTeX-make-fontsize with ARG to specify region mode."
yuuji@0 418 (interactive)
yuuji@0 419 (YaTeX-make-fontsize t)
yuuji@0 420 )
yuuji@0 421
yuuji@0 422 (defun YaTeX-make-singlecmd (single)
yuuji@0 423 (interactive
yuuji@0 424 (list (completing-read
yuuji@0 425 (format "\\??? (default %s): " single-command)
yuuji@0 426 (append user-singlecmd-table singlecmd-table)
yuuji@0 427 nil nil )))
yuuji@0 428 (if (string= single "")
yuuji@0 429 (setq single single-command))
yuuji@0 430 (setq single-command single)
yuuji@0 431 (if (not (YaTeX-exist-completion-table
yuuji@0 432 (list single-command)
yuuji@0 433 (append user-singlecmd-table singlecmd-table)))
yuuji@0 434 (setq user-singlecmd-table
yuuji@0 435 (cons (list single-command) user-singlecmd-table)))
yuuji@0 436 (insert "\\" single-command " ")
yuuji@0 437 )
yuuji@0 438
yuuji@0 439 (defvar YaTeX-completion-begin-regexp "[{\\]"
yuuji@0 440 "Regular expression of limit where LaTeX command's
yuuji@0 441 completion begins.")
yuuji@0 442
yuuji@0 443 (defun YaTeX-do-completion ()
yuuji@0 444 "Try completion on LaTeX command preceding point."
yuuji@0 445 (interactive)
yuuji@0 446 (if
yuuji@0 447 (or (eq (preceding-char) ? )
yuuji@0 448 (eq (preceding-char) ?\t)
yuuji@0 449 (eq (preceding-char) ?\n)
yuuji@0 450 (bobp))
yuuji@0 451 (message "Nothing to complete.") ;Do not complete
yuuji@0 452 (let* ((end (point))
yuuji@0 453 (limit (save-excursion (beginning-of-line) (point)))
yuuji@0 454 (completion-begin
yuuji@0 455 (progn (re-search-backward "[ \t\n]" limit 1)
yuuji@0 456 (point)))
yuuji@0 457 (begin (progn
yuuji@0 458 (goto-char end)
yuuji@0 459 (if (re-search-backward YaTeX-completion-begin-regexp
yuuji@0 460 completion-begin t)
yuuji@0 461 (1+ (point))
yuuji@0 462 nil))))
yuuji@0 463 (goto-char end)
yuuji@0 464 (cond
yuuji@0 465 ((null begin)
yuuji@0 466 (message "I think it is not LaTeX sequence."))
yuuji@0 467 (t
yuuji@0 468 (let* ((pattern (buffer-substring begin end))
yuuji@0 469 (all-table (append section-table user-section-table
yuuji@0 470 article-table user-article-table
yuuji@0 471 env-table user-env-table
yuuji@0 472 singlecmd-table user-singlecmd-table))
yuuji@0 473 ;; First,
yuuji@0 474 ;; search completion without backslash.
yuuji@0 475 (completion (try-completion pattern all-table nil)))
yuuji@0 476 (if
yuuji@0 477 (eq completion nil)
yuuji@0 478 ;; Next,
yuuji@0 479 ;; search completion with backslash
yuuji@0 480 (setq completion
yuuji@0 481 (try-completion (buffer-substring (1- begin) end)
yuuji@0 482 all-table nil)
yuuji@0 483 begin (1- begin)))
yuuji@0 484 (cond
yuuji@0 485 ((null completion)
yuuji@0 486 (message (concat "Can't find completion for '" pattern "'"))
yuuji@0 487 (ding))
yuuji@0 488 ((eq completion t) (message "Sole completion."))
yuuji@0 489 ((not (string= completion pattern))
yuuji@0 490 (kill-region begin end)
yuuji@0 491 (insert completion)
yuuji@0 492 )
yuuji@0 493 (t
yuuji@0 494 (message "Making completion list...")
yuuji@0 495 (with-output-to-temp-buffer "*Help*"
yuuji@0 496 (display-completion-list
yuuji@0 497 (all-completions pattern all-table))) )
yuuji@0 498 ))))))
yuuji@0 499 )
yuuji@0 500
yuuji@0 501 (defun YaTeX-insert-quote ()
yuuji@0 502 (interactive)
yuuji@0 503 (insert
yuuji@0 504 (cond
yuuji@0 505 ((= (preceding-char) ?\\ ) ?\")
yuuji@0 506 ((= (preceding-char) ?\( ) ?\")
yuuji@0 507 ((= (preceding-char) 32) "``")
yuuji@0 508 ((= (preceding-char) 9) "``")
yuuji@0 509 ((= (preceding-char) ?\n) "``")
yuuji@0 510 ((bobp) "``")
yuuji@0 511 (t "''")
yuuji@0 512 )))
yuuji@0 513
yuuji@0 514
yuuji@0 515 (defun YaTeX-insert-braces-region (beg end)
yuuji@0 516 (interactive "r")
yuuji@0 517 (save-excursion
yuuji@0 518 (goto-char end)
yuuji@0 519 (insert "}")
yuuji@0 520 (goto-char beg)
yuuji@0 521 (insert "{"))
yuuji@0 522 )
yuuji@0 523
yuuji@0 524 (defun YaTeX-insert-braces ()
yuuji@0 525 (interactive)
yuuji@0 526 (insert "{}")
yuuji@0 527 (forward-char -1)
yuuji@0 528 )
yuuji@0 529
yuuji@0 530 (defun YaTeX-insert-dollar ()
yuuji@0 531 (interactive)
yuuji@0 532 (insert "$$")
yuuji@0 533 (forward-char -1)
yuuji@0 534 )
yuuji@0 535
yuuji@0 536 (defun YaTeX-insert-string (s)
yuuji@0 537 (insert s)
yuuji@0 538 )
yuuji@0 539
yuuji@0 540 (defun YaTeX-version ()
yuuji@0 541 "Return string of the version of running YaTeX."
yuuji@0 542 (interactive)
yuuji@0 543 (message
yuuji@0 544 (concat "Yet Another TeX mode $@!VLnD;!W(J Revision "
yuuji@0 545 YaTeX-revision-number))
yuuji@0 546 )
yuuji@0 547
yuuji@0 548 (defun YaTeX-compile-sentinel (proc mes)
yuuji@0 549 (cond ((null (buffer-name (process-buffer proc)))
yuuji@0 550 ;; buffer killed
yuuji@0 551 (set-process-buffer proc nil))
yuuji@0 552 ((memq (process-status proc) '(signal exit))
yuuji@0 553 (let* ((obuf (current-buffer)))
yuuji@0 554 ;; save-excursion isn't the right thing if
yuuji@0 555 ;; process-buffer is current-buffer
yuuji@0 556 (unwind-protect
yuuji@0 557 (progn
yuuji@0 558 ;; Write something in *compilation* and hack its mode line
yuuji@0 559 (set-buffer (process-buffer proc))
yuuji@0 560 (goto-char (point-max))
yuuji@0 561 (insert ?\n "jlatex compilation " mes)
yuuji@0 562 (forward-char -1)
yuuji@0 563 (insert " at "
yuuji@0 564 (substring (current-time-string) 0 -5))
yuuji@0 565 (insert "\n * Hit any key to return * ")
yuuji@0 566 (forward-char 1)
yuuji@0 567 (setq mode-line-process
yuuji@0 568 (concat ": "
yuuji@0 569 (symbol-name (process-status proc))))
yuuji@0 570 ;; If buffer and mode line will show that the process
yuuji@0 571 ;; is dead, we can delete it now. Otherwise it
yuuji@0 572 ;; will stay around until M-x list-processes.
yuuji@0 573 (delete-process proc)
yuuji@0 574 )
yuuji@0 575 (setq YaTeX-compilation-process nil)
yuuji@0 576 ;; Force mode line redisplay soon
yuuji@0 577 (set-buffer-modified-p (buffer-modified-p))
yuuji@0 578 )
yuuji@0 579 (set-buffer obuf)
yuuji@0 580 )))
yuuji@0 581 )
yuuji@0 582
yuuji@0 583 (defvar YaTeX-compilation-process nil
yuuji@0 584 "Process identifier for jlatex"
yuuji@0 585 )
yuuji@0 586
yuuji@0 587 (defun YaTeX-compile ()
yuuji@0 588 "Execute jlatex (or other) to LaTeX compile."
yuuji@0 589 (interactive)
yuuji@0 590 (basic-save-buffer)
yuuji@0 591 (if YaTeX-compilation-process
yuuji@0 592 (if (eq (process-status YaTeX-compilation-process) 'run)
yuuji@0 593 (progn (interrupt-process YaTeX-compilation-process)
yuuji@0 594 (sit-for 1)
yuuji@0 595 (delete-process YaTeX-compilation-process))
yuuji@0 596 nil) nil)
yuuji@0 597 ; (compile1 (concat tex-command " " (buffer-name))
yuuji@0 598 ; "TeX error" "*TeX compilation*")
yuuji@0 599 (setq YaTeX-compilation-process nil)
yuuji@0 600 (if (eq system-type 'ms-dos) ;if MS-DOS
yuuji@0 601 (with-output-to-temp-buffer "*YaTeX-compilation*"
yuuji@0 602 (message (concat "Compiling " (buffer-name) "..."))
yuuji@0 603 (call-process shell-file-name nil "*YaTeX-compilation*" nil
yuuji@0 604 "/c " tex-command (buffer-name) ))
yuuji@0 605 (setq YaTeX-compilation-process ;if UNIX
yuuji@0 606 (with-output-to-temp-buffer "*YaTeX-compilation*"
yuuji@0 607 (start-process "LaTeX" "*YaTeX-compilation*" shell-file-name "-c"
yuuji@0 608 (concat tex-command " "(buffer-name) ""))
yuuji@0 609 ))
yuuji@0 610 (set-process-sentinel YaTeX-compilation-process 'YaTeX-compile-sentinel))
yuuji@0 611 (setq current-TeX-buffer (buffer-name))
yuuji@0 612 (other-window 1)
yuuji@0 613 (use-local-map YaTeX-compilation-mode-map)
yuuji@0 614 (set-kanji-process-code YaTeX-kanji-code)
yuuji@0 615 (message "Type SPC to continue.")
yuuji@0 616 (goto-char (point-max))
yuuji@0 617 (sit-for 30)
yuuji@0 618 (read-char) ;hit any key
yuuji@0 619 (other-window -1)
yuuji@0 620 )
yuuji@0 621
yuuji@0 622 (defun YaTeX-preview (preview-command preview-file)
yuuji@0 623 "Execute xdvi (or other) to tex-preview."
yuuji@0 624 (interactive
yuuji@0 625 (list (read-string "Preview command: " dvi2-command)
yuuji@0 626 (read-string "Prefiew file[.dvi]: "
yuuji@0 627 (substring (buffer-name) 0 -4)
yuuji@0 628 )))
yuuji@0 629 (setq dvi2-command preview-command)
yuuji@0 630 (with-output-to-temp-buffer "*dvi-preview*"
yuuji@0 631 (if (eq system-type 'ms-dos)
yuuji@0 632 (progn (send-string-to-terminal "\e[2J") ;if MS-DOS
yuuji@0 633 (call-process shell-file-name "con" "*dvi-preview*" nil
yuuji@0 634 "/c " dvi2-command preview-file)
yuuji@0 635 (redraw-display))
yuuji@0 636 (start-process "xdvi" "*dvi-preview*" shell-file-name "-c"
yuuji@0 637 (concat dvi2-command " " preview-file)) ;if UNIX
yuuji@0 638 (message (concat "Starting " dvi2-command " to preview " preview-file)))
yuuji@0 639 )
yuuji@0 640 )
yuuji@0 641
yuuji@0 642 (defun YaTeX-prev-error ()
yuuji@0 643 "Visit previous error. The reason why not NEXT-error is to
yuuji@0 644 avoid make confliction of line numbers by editing."
yuuji@0 645 (interactive)
yuuji@0 646 (setq cur-buf (buffer-name)
yuuji@0 647 YaTeX-error-line nil)
yuuji@0 648 (if (null (get-buffer "*YaTeX-compilation*"))
yuuji@0 649 (message "There is no output buffer of compilation.")
yuuji@0 650 (pop-to-buffer "*YaTeX-compilation*")
yuuji@0 651 (if (eq system-type 'ms-dos)
yuuji@0 652 (if (search-backward latex-dos-emergency-message nil t)
yuuji@0 653 (progn (goto-char (point-max))
yuuji@0 654 (setq error-regexp latex-error-regexp))
yuuji@0 655 (beginning-of-line)
yuuji@0 656 (forward-char -1)
yuuji@0 657 (setq error-regexp latex-warning-regexp))
yuuji@0 658 (if YaTeX-compilation-process ; if jlatex on UNIX
yuuji@0 659 (if (eq (process-status YaTeX-compilation-process) 'run)
yuuji@0 660 (progn
yuuji@0 661 (goto-char (point-max))
yuuji@0 662 (setq error-regexp latex-error-regexp)))
yuuji@0 663 (beginning-of-line)
yuuji@0 664 (setq error-regexp latex-warning-regexp)))
yuuji@0 665 (if (re-search-backward error-regexp nil t)
yuuji@0 666 (save-restriction
yuuji@0 667 (set-mark-command nil)
yuuji@0 668 (end-of-line)
yuuji@0 669 (narrow-to-region (point) (mark))
yuuji@0 670 (goto-char (point-min))
yuuji@0 671 (re-search-forward "[0-9]")
yuuji@0 672 (forward-char -1)
yuuji@0 673 (set-mark (point))
yuuji@0 674 (skip-chars-forward "[0-9]")
yuuji@0 675 (narrow-to-region (point) (mark))
yuuji@0 676 (goto-char (point-min))
yuuji@0 677 (setq YaTeX-error-line (read (current-buffer))))
yuuji@0 678 (message "No more error on %s" cur-buf)
yuuji@0 679 (ding)
yuuji@0 680 )
yuuji@0 681 (other-window -1)
yuuji@0 682 (switch-to-buffer cur-buf)
yuuji@0 683 (if (null YaTeX-error-line)
yuuji@0 684 nil
yuuji@0 685 (goto-line YaTeX-error-line)
yuuji@0 686 (message "latex error or warning at line: %d" YaTeX-error-line)
yuuji@0 687 (other-window 1)
yuuji@0 688 (skip-chars-backward "[0-9]")
yuuji@0 689 (recenter (/ (window-height) 2))
yuuji@0 690 (sit-for 3)
yuuji@0 691 (forward-line -1)
yuuji@0 692 (other-window -1)
yuuji@0 693 ))
yuuji@0 694 )
yuuji@0 695
yuuji@0 696 (defun YaTeX-jump-error-line ()
yuuji@0 697 "Jump corresponding line on latex command's error message."
yuuji@0 698 (interactive)
yuuji@0 699 (let ((end (progn (end-of-line) (point)))
yuuji@0 700 (begin (progn (beginning-of-line)(point))))
yuuji@0 701 (if (null (re-search-forward "l[ ines]*\\.*[1-9][0-9]*" end t))
yuuji@0 702 (message "No line number expression")
yuuji@0 703 (goto-char (match-beginning 0))
yuuji@0 704 (re-search-forward "[1-9][0-9]*" end t)
yuuji@0 705 (save-restriction
yuuji@0 706 (narrow-to-region (match-beginning 0) (match-end 0))
yuuji@0 707 (goto-char (point-min))
yuuji@0 708 (let ((error-line (read (current-buffer))))
yuuji@0 709 (other-window -1)
yuuji@0 710 (switch-to-buffer current-TeX-buffer)
yuuji@0 711 (goto-line error-line)))))
yuuji@0 712 )
yuuji@0 713
yuuji@0 714 (defun YaTeX-view-error ()
yuuji@0 715 (interactive)
yuuji@0 716 (other-window 1)
yuuji@0 717 (goto-char (point-max))
yuuji@0 718 (other-window -1)
yuuji@0 719 )
yuuji@0 720
yuuji@0 721 (defun YaTeX-read-user-completion-table ()
yuuji@0 722 "Append user completion table of LaTeX word"
yuuji@0 723 (message "Loading personal completion table")
yuuji@0 724 (let ((user-table (expand-file-name YaTeX-user-completion-table)))
yuuji@0 725 (if (file-exists-p user-table)
yuuji@0 726 (load-file user-table)
yuuji@0 727 (message "Personal completion table not found."))
yuuji@0 728 ))
yuuji@0 729
yuuji@0 730 (defun YaTeX-save-table ()
yuuji@0 731 "Save personal completion table as dictionary."
yuuji@0 732 (interactive)
yuuji@0 733 (message "Saving user table in %s" YaTeX-user-completion-table)
yuuji@0 734 (find-file (expand-file-name YaTeX-user-completion-table))
yuuji@0 735 (erase-buffer)
yuuji@0 736 ; (prin1-to-string user-section-table)
yuuji@0 737 (insert "(setq user-section-table '(\n")
yuuji@0 738 (mapcar '(lambda (s)
yuuji@0 739 (insert (prin1-to-string s))
yuuji@0 740 (insert "\n"))
yuuji@0 741 user-section-table)
yuuji@0 742 (insert "))\n\n")
yuuji@0 743
yuuji@0 744 (insert "(setq user-article-table '(\n")
yuuji@0 745 (mapcar '(lambda (s)
yuuji@0 746 (insert (prin1-to-string s))
yuuji@0 747 (insert "\n"))
yuuji@0 748 user-article-table)
yuuji@0 749 (insert "))\n\n")
yuuji@0 750
yuuji@0 751 (insert "(setq user-env-table '(\n")
yuuji@0 752 (mapcar '(lambda (s)
yuuji@0 753 (insert (prin1-to-string s))
yuuji@0 754 (insert "\n"))
yuuji@0 755 user-env-table)
yuuji@0 756 (insert "))\n\n")
yuuji@0 757
yuuji@0 758 (insert "(setq user-fontsize-table '(\n")
yuuji@0 759 (mapcar '(lambda (s)
yuuji@0 760 (insert (prin1-to-string s))
yuuji@0 761 (insert "\n"))
yuuji@0 762 user-fontsize-table)
yuuji@0 763 (insert "))\n\n")
yuuji@0 764
yuuji@0 765 (insert "(setq user-singlecmd-table '(\n")
yuuji@0 766 (mapcar '(lambda (s)
yuuji@0 767 (insert (prin1-to-string s))
yuuji@0 768 (insert "\n"))
yuuji@0 769 user-singlecmd-table)
yuuji@0 770 (insert "))\n")
yuuji@0 771
yuuji@0 772 (basic-save-buffer)
yuuji@0 773 (kill-buffer (current-buffer))
yuuji@0 774 (message "")
yuuji@0 775 )
yuuji@0 776
yuuji@0 777 (defun append-to-hook (hook hook-list)
yuuji@0 778 "Add hook-list to certain emacs's hook correctly.
yuuji@0 779 Argument hook-list is the list of function int the form to be called
yuuji@0 780 Call this function with argument as next example,
yuuji@0 781 (append-to-hook '((ding))) ;If one function to add.
yuuji@0 782 (append-to-hook '((func1)(func2 arg)))."
yuuji@0 783 (if (null (eval hook)) ;Not defined
yuuji@0 784 (set hook
yuuji@0 785 (append '(lambda ()) hook-list))
yuuji@0 786 (if (listp (eval hook))
yuuji@0 787 (if (eq (car (eval hook)) 'lambda) ;'(lambda () ....)
yuuji@0 788 (set hook
yuuji@0 789 (append (eval hook) hook-list))
yuuji@0 790 (if (eq hook 'kill-emacs-hook) ;'(hook1 hook2 ...)
yuuji@0 791 (progn ; this format is not
yuuji@0 792 (ding) ; for kill-emacs-hook
yuuji@0 793 (message
yuuji@0 794 "Caution!! you have wrong format of kill-emacs-hook"))
yuuji@0 795 (while (not (null hook-list))
yuuji@0 796 (set hook
yuuji@0 797 (append (eval hook) (car hook-list)))
yuuji@0 798 (setq hook-list (cdr hook-list))))
yuuji@0 799 )
yuuji@0 800 (set hook ;'hook
yuuji@0 801 (append '(lambda ())
yuuji@0 802 (cons (list (eval hook)) hook-list)))))
yuuji@0 803 )
yuuji@0 804 (append-to-hook 'kill-emacs-hook '((YaTeX-save-table)))
yuuji@0 805
yuuji@0 806 ;--------------------------------- History ---------------------------------
yuuji@0 807 ; Rev. | Date | Contents
yuuji@0 808 ;------+----------+---------------------------------------------------------
yuuji@0 809 ; 1.00 | 91/ 6/13 | Initial version.
yuuji@0 810 ; | | Auto compilation & preview.
yuuji@0 811 ; | | \section{}-type and \begin{}\end{}-type completion.
yuuji@0 812 ; 1.01 | 91/ 6/14 | Add {\large ..} type completion (prefix+l).
yuuji@0 813 ; 1.10 | 6/21 | Add learning feature of completion.
yuuji@0 814 ; 1.11 | 6/27 | Simplify function begin-document etc. using lambda.
yuuji@0 815 ; 1.12 | 7/ 6 | Modify YaTeX-make-section, show section-name.
yuuji@0 816 ; 1.13 | 12/ 4 | Delete blank lines in make begin/end environment.
yuuji@0 817 ; 1.20 | 12/ 5 | Saving learned completion into user file.
yuuji@0 818 ; 1.21 | 12/ 6 | Add \maketitle type completion (prefix+m).
yuuji@0 819 ; 1.22 | 12/30 | Port yatex.el to DOS(Demacs).
yuuji@0 820 ; 1.23 | 92/ 1/ 8 | Enable latex and preview command on DOS.
yuuji@0 821 ; 1.24 | 1/ 9 | Add YaTeX-save-table to kill-emacs-hook automatically.
yuuji@0 822 ; 1.25 | 1/16 | YaTeX-do-completion (prefix+SPC) and argument
yuuji@0 823 ; | | acceptable YaTeX-make-section work. Put region into
yuuji@0 824 ; | | \begin...\end by calling YaTeX-make-begin-end with ARG.
yuuji@0 825 ; | | append-kill-emacs-hook was revised to append-to-hook.
yuuji@0 826 ; 1.26 | 1/18 | Region mode is added to {\large }. Default fontsize.
yuuji@0 827 ; 1.27 | 1/21 | Default name on completing-read,
yuuji@0 828 ;------+----------+---------------------------------------------------------
yuuji@0 829 ;
yuuji@0 830 ;----------------------------- End of yatex.el -----------------------------