yatex

annotate yatexprc.el @ 64:36a48185b95a

find changesets by author, revision, files, or words in the commit message
Changes are listed in yatex.new. Major one is supporing GNU Emacs20 and XEmacs.
author yuuji
date Tue, 16 Dec 1997 13:28:38 +0000
parents b9f753846b6b
children 0eb6997bee16
rev   line source
yuuji@51 1 ;;; -*- Emacs-Lisp -*-
yuuji@51 2 ;;; YaTeX process handler.
yuuji@51 3 ;;; yatexprc.el
yuuji@60 4 ;;; (c )1993-1997 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
yuuji@64 5 ;;; Last modified Thu Dec 11 16:16:21 1997 on crx
yuuji@51 6 ;;; $Id$
yuuji@51 7
yuuji@64 8 ;(require 'yatex)
yuuji@64 9 (require 'yatexlib)
yuuji@51 10
yuuji@51 11 (defvar YaTeX-typeset-process nil
yuuji@51 12 "Process identifier for jlatex"
yuuji@51 13 )
yuuji@51 14 (defvar YaTeX-typeset-buffer "*YaTeX-typesetting*"
yuuji@51 15 "Process buffer for jlatex")
yuuji@51 16
yuuji@51 17 (defvar YaTeX-typeset-buffer-syntax nil
yuuji@51 18 "*Syntax table for typesetting buffer")
yuuji@51 19
yuuji@51 20 (defvar YaTeX-current-TeX-buffer nil
yuuji@51 21 "Keeps the buffer on which recently typeset run.")
yuuji@51 22
yuuji@51 23 (defvar YaTeX-shell-command-option
yuuji@51 24 (or (and (boundp 'shell-command-option) shell-command-option)
yuuji@51 25 (if YaTeX-dos "/c" "-c"))
yuuji@51 26 "Shell option for command execution.")
yuuji@51 27
yuuji@64 28 (defvar YaTeX-latex-message-code
yuuji@64 29 (cond
yuuji@64 30 (YaTeX-dos (cdr (assq 1 YaTeX-kanji-code-alist)))
yuuji@64 31 ((and YaTeX-emacs-20 (member 'undecided (coding-system-list))
yuuji@64 32 'undecided))
yuuji@64 33 ((featurep 'mule)
yuuji@64 34 (or (and (boundp '*autoconv*) *autoconv*)
yuuji@64 35 (and (fboundp 'coding-system-list) 'automatic-conversion)))
yuuji@64 36 ((boundp 'NEMACS)
yuuji@64 37 (cdr (assq (if YaTeX-dos 1 2) YaTeX-kanji-code-alist))))
yuuji@64 38 "Process coding system for LaTeX.")
yuuji@64 39
yuuji@51 40 (if YaTeX-typeset-buffer-syntax nil
yuuji@51 41 (setq YaTeX-typeset-buffer-syntax
yuuji@51 42 (make-syntax-table (standard-syntax-table)))
yuuji@51 43 (modify-syntax-entry ?\{ "w" YaTeX-typeset-buffer-syntax)
yuuji@51 44 (modify-syntax-entry ?\} "w" YaTeX-typeset-buffer-syntax)
yuuji@51 45 (modify-syntax-entry ?\[ "w" YaTeX-typeset-buffer-syntax)
yuuji@51 46 (modify-syntax-entry ?\] "w" YaTeX-typeset-buffer-syntax)
yuuji@51 47 )
yuuji@51 48
yuuji@60 49 (defun YaTeX-typeset (command buffer &optional prcname modename)
yuuji@51 50 "Execute jlatex (or other) to LaTeX typeset."
yuuji@51 51 (interactive)
yuuji@51 52 (save-excursion
yuuji@60 53 (let ((p (point)) (window (selected-window)) execdir (cb (current-buffer))
yuuji@64 54 (map YaTeX-typesetting-mode-map)
yuuji@64 55 (outcode
yuuji@64 56 (cond ((eq major-mode 'yatex-mode) YaTeX-coding-system)
yuuji@64 57 ((eq major-mode 'yahtml-mode) yahtml-coding-system))))
yuuji@51 58 (if (and YaTeX-typeset-process
yuuji@51 59 (eq (process-status YaTeX-typeset-process) 'run))
yuuji@51 60 ;; if tex command is halting.
yuuji@51 61 (YaTeX-kill-typeset-process YaTeX-typeset-process))
yuuji@60 62 (YaTeX-put-nonstopmode)
yuuji@60 63 (setq prcname (or prcname "LaTeX")
yuuji@60 64 modename (or modename "typeset"))
yuuji@60 65 (if (eq major-mode 'yatex-mode) (YaTeX-visit-main t)) ;;execution dir
yuuji@51 66 (setq execdir default-directory)
yuuji@51 67 ;;Select lower-most window if there are more than 2 windows and
yuuji@51 68 ;;typeset buffer not seen.
yuuji@51 69 (YaTeX-showup-buffer
yuuji@51 70 buffer (function (lambda (x) (nth 3 (window-edges x)))))
yuuji@51 71 (set-buffer (get-buffer-create buffer))
yuuji@51 72 (setq default-directory execdir)
yuuji@51 73 (cd execdir)
yuuji@51 74 (erase-buffer)
yuuji@51 75 (cond
yuuji@64 76 ((not (fboundp 'start-process)) ;YaTeX-dos;if MS-DOS
yuuji@51 77 (call-process
yuuji@64 78 shell-file-name nil buffer nil YaTeX-shell-command-option command))
yuuji@51 79 (t ;if UNIX
yuuji@51 80 (set-process-buffer
yuuji@51 81 (setq YaTeX-typeset-process
yuuji@60 82 (start-process prcname buffer shell-file-name
yuuji@51 83 YaTeX-shell-command-option command))
yuuji@51 84 (get-buffer buffer))
yuuji@51 85 (set-process-sentinel YaTeX-typeset-process 'YaTeX-typeset-sentinel)))
yuuji@51 86 (message (format "Calling `%s'..." command))
yuuji@51 87 (setq YaTeX-current-TeX-buffer (buffer-name))
yuuji@60 88 (use-local-map map) ;map may be localized
yuuji@51 89 (set-syntax-table YaTeX-typeset-buffer-syntax)
yuuji@60 90 (setq mode-name modename)
yuuji@60 91 (if YaTeX-typeset-process ;if process is running (maybe on UNIX)
yuuji@64 92 (cond ((fboundp 'set-current-process-coding-system)
yuuji@51 93 (set-current-process-coding-system
yuuji@64 94 YaTeX-latex-message-code outcode))
yuuji@64 95 ((fboundp 'set-process-coding-system)
yuuji@64 96 (set-process-coding-system
yuuji@64 97 YaTeX-typeset-process YaTeX-latex-message-code outcode))
yuuji@64 98 (YaTeX-emacs-20
yuuji@64 99 (set-buffer-process-coding-system
yuuji@64 100 YaTeX-latex-message-code outcode))
yuuji@51 101 ((boundp 'NEMACS)
yuuji@51 102 (set-kanji-process-code YaTeX-latex-message-code))))
yuuji@51 103 (if YaTeX-dos (message "Done.")
yuuji@51 104 (insert " ")
yuuji@51 105 (set-marker (process-mark YaTeX-typeset-process) (1- (point))))
yuuji@51 106 (if (bolp) (forward-line -1)) ;what for?
yuuji@51 107 (if (and YaTeX-emacs-19 window-system)
yuuji@51 108 (let ((win (get-buffer-window buffer t)) owin)
yuuji@51 109 (select-frame (window-frame win))
yuuji@51 110 (setq owin (selected-window))
yuuji@51 111 (select-window win)
yuuji@51 112 (goto-char (point-max))
yuuji@51 113 (recenter -1)
yuuji@51 114 (select-window owin))
yuuji@51 115 (select-window (get-buffer-window buffer))
yuuji@51 116 (goto-char (point-max))
yuuji@51 117 (recenter -1))
yuuji@51 118 (select-window window)
yuuji@60 119 (switch-to-buffer cb)
yuuji@60 120 (YaTeX-remove-nonstopmode)))
yuuji@51 121 )
yuuji@51 122
yuuji@51 123 (defun YaTeX-typeset-sentinel (proc mes)
yuuji@51 124 (cond ((null (buffer-name (process-buffer proc)))
yuuji@51 125 ;; buffer killed
yuuji@51 126 (set-process-buffer proc nil))
yuuji@51 127 ((memq (process-status proc) '(signal exit))
yuuji@51 128 (let* ((obuf (current-buffer)) (pbuf (process-buffer proc))
yuuji@51 129 (pwin (get-buffer-window pbuf))
yuuji@51 130 (owin (selected-window)) win)
yuuji@51 131 ;; save-excursion isn't the right thing if
yuuji@51 132 ;; process-buffer is current-buffer
yuuji@51 133 (unwind-protect
yuuji@51 134 (progn
yuuji@51 135 ;; Write something in *typesetting* and hack its mode line
yuuji@51 136 (if pwin
yuuji@51 137 (select-window pwin)
yuuji@51 138 (set-buffer pbuf))
yuuji@51 139 ;;(YaTeX-showup-buffer pbuf nil t)
yuuji@51 140 (goto-char (point-max))
yuuji@51 141 (if pwin (recenter -3))
yuuji@60 142 (insert ?\n mode-name " " mes)
yuuji@51 143 (forward-char -1)
yuuji@51 144 (insert " at " (substring (current-time-string) 0 -5) "\n")
yuuji@51 145 (forward-char 1)
yuuji@51 146 (setq mode-line-process
yuuji@51 147 (concat ": "
yuuji@51 148 (symbol-name (process-status proc))))
yuuji@60 149 (message mode-name " %s."
yuuji@51 150 (if (eq (process-status proc) 'exit)
yuuji@51 151 "done" "ceased"))
yuuji@51 152 ;; If buffer and mode line shows that the process
yuuji@51 153 ;; is dead, we can delete it now. Otherwise it
yuuji@51 154 ;; will stay around until M-x list-processes.
yuuji@51 155 (delete-process proc)
yuuji@51 156 )
yuuji@51 157 (setq YaTeX-typeset-process nil)
yuuji@51 158 ;; Force mode line redisplay soon
yuuji@51 159 (set-buffer-modified-p (buffer-modified-p))
yuuji@51 160 )
yuuji@51 161 (select-window owin)
yuuji@51 162 (set-buffer obuf))))
yuuji@51 163 )
yuuji@51 164
yuuji@51 165 (defvar YaTeX-texput-file "texput.tex"
yuuji@51 166 "*File name for temporary file of typeset-region."
yuuji@51 167 )
yuuji@51 168
yuuji@51 169 (defun YaTeX-typeset-region ()
yuuji@52 170 "Paste the region to the file `texput.tex' and execute typesetter.
yuuji@52 171 The region is specified by the rule:
yuuji@51 172 (1)If keyword `%#BEGIN' is found in the upper direction from (point).
yuuji@51 173 (1-1)if the keyword `%#END' is found after `%#BEGIN',
yuuji@51 174 ->Assume the text between `%#BEGIN' and `%#END' as region.
yuuji@51 175 (1-2)if the keyword `%#END' is not found anywhere after `%#BEGIN',
yuuji@51 176 ->Assume the text after `%#BEGIN' as region.
yuuji@51 177 (2)If no `%#BEGIN' usage is found before the (point),
yuuji@51 178 ->Assume the text between current (point) and (mark) as region.
yuuji@51 179 DON'T forget to eliminate the `%#BEGIN/%#END' notation after editing
yuuji@51 180 operation to the region."
yuuji@51 181 (interactive)
yuuji@51 182 (save-excursion
yuuji@51 183 (let*
yuuji@51 184 ((end "") typeout ;Type out message that tells the method of cutting.
yuuji@51 185 (texput YaTeX-texput-file)
yuuji@51 186 (cmd (concat (YaTeX-get-latex-command nil) " " texput))
yuuji@51 187 (buffer (current-buffer)) opoint preamble (subpreamble "") main
yuuji@51 188 (hilit-auto-highlight nil) ;for Emacs19 with hilit19
yuuji@52 189 reg-begin reg-end lineinfo)
yuuji@51 190
yuuji@51 191 (save-excursion
yuuji@51 192 (if (search-backward "%#BEGIN" nil t)
yuuji@51 193 (progn
yuuji@51 194 (setq typeout "--- Region from BEGIN to "
yuuji@51 195 end "the end of the buffer ---"
yuuji@51 196 reg-begin (match-end 0))
yuuji@51 197 (if (search-forward "%#END" nil t)
yuuji@51 198 (setq reg-end (match-beginning 0)
yuuji@51 199 end "END ---")
yuuji@51 200 (setq reg-end (point-max))))
yuuji@52 201 (setq typeout "=== Region from (point) to (mark) ==="
yuuji@52 202 reg-begin (point) reg-end (mark)))
yuuji@52 203 (goto-char (min reg-begin reg-end))
yuuji@52 204 (setq lineinfo (count-lines (point-min) (point-end-of-line)))
yuuji@51 205 (goto-char (point-min))
yuuji@51 206 (while (search-forward "%#REQUIRE" nil t)
yuuji@51 207 (setq subpreamble
yuuji@51 208 (concat subpreamble
yuuji@51 209 (cond
yuuji@51 210 ((eolp)
yuuji@51 211 (buffer-substring
yuuji@51 212 (match-beginning 0)
yuuji@51 213 (point-beginning-of-line)))
yuuji@51 214 (t (buffer-substring
yuuji@51 215 (match-end 0)
yuuji@51 216 (point-end-of-line))))
yuuji@51 217 "\n"))
yuuji@51 218 (goto-char (match-end 0))))
yuuji@51 219 (YaTeX-visit-main t)
yuuji@51 220 (setq main (current-buffer))
yuuji@51 221 (setq opoint (point))
yuuji@51 222 (goto-char (point-min))
yuuji@51 223 (setq
yuuji@51 224 preamble
yuuji@51 225 (if (re-search-forward "^[ ]*\\\\begin.*{document}" nil t)
yuuji@51 226 (buffer-substring (point-min) (match-end 0))
yuuji@51 227 (concat "\\documentstyle{" YaTeX-default-document-style "}\n"
yuuji@51 228 "\\begin{document}")))
yuuji@51 229 (goto-char opoint)
yuuji@51 230 ;;(set-buffer buffer) ;for clarity
yuuji@52 231 (let ((hilit-auto-highlight nil))
yuuji@52 232 (set-buffer (find-file-noselect texput)))
yuuji@51 233 ;;(find-file YaTeX-texput-file)
yuuji@51 234 (erase-buffer)
yuuji@64 235 (if (and (eq major-mode 'yatex-mode) YaTeX-need-nonstop)
yuuji@51 236 (insert "\\nonstopmode{}\n"))
yuuji@51 237 (insert preamble "\n" subpreamble "\n")
yuuji@52 238 (setq lineinfo (list (count-lines 1 (point-end-of-line)) lineinfo))
yuuji@51 239 (insert-buffer-substring buffer reg-begin reg-end)
yuuji@51 240 (insert "\\typeout{" typeout end "}\n") ;Notice the selected method.
yuuji@51 241 (insert "\n\\end{document}\n")
yuuji@51 242 (basic-save-buffer)
yuuji@51 243 (kill-buffer (current-buffer))
yuuji@51 244 (set-buffer main) ;return to parent file or itself.
yuuji@51 245 (YaTeX-typeset cmd YaTeX-typeset-buffer)
yuuji@51 246 (switch-to-buffer buffer) ;for Emacs-19
yuuji@52 247 (put 'dvi2-command 'region t)
yuuji@52 248 (put 'dvi2-command 'file buffer)
yuuji@52 249 (put 'dvi2-command 'offset lineinfo)
yuuji@52 250 ))
yuuji@51 251 )
yuuji@51 252
yuuji@51 253 (defun YaTeX-typeset-buffer ()
yuuji@60 254 "Typeset whole buffer.
yuuji@60 255 If %#! usage says other buffer is main text,
yuuji@51 256 visit main buffer to confirm if its includeonly list contains current
yuuji@51 257 buffer's file. And if it doesn't contain editing text, ask user which
yuuji@51 258 action wants to be done, A:Add list, R:Replace list, %:comment-out list."
yuuji@51 259 (interactive)
yuuji@51 260 (YaTeX-save-buffers)
yuuji@51 261 (let*((me (substring (buffer-name) 0 (rindex (buffer-name) ?.)))
yuuji@51 262 (mydir (file-name-directory (buffer-file-name)))
yuuji@51 263 (cmd (YaTeX-get-latex-command t)) (cb (current-buffer)))
yuuji@51 264 (if (YaTeX-main-file-p) nil
yuuji@51 265 (save-excursion
yuuji@51 266 (YaTeX-visit-main t) ;search into main buffer
yuuji@51 267 (save-excursion
yuuji@51 268 (push-mark (point) t)
yuuji@51 269 (goto-char (point-min))
yuuji@51 270 (if (and (re-search-forward "^[ ]*\\\\begin{document}" nil t)
yuuji@51 271 (re-search-backward "^[ ]*\\\\includeonly{" nil t))
yuuji@51 272 (let*
yuuji@51 273 ((b (progn (skip-chars-forward "^{") (point)))
yuuji@51 274 (e (progn (skip-chars-forward "^}") (1+ (point))))
yuuji@51 275 (s (buffer-substring b e)) c
yuuji@51 276 (pardir (file-name-directory (buffer-file-name))))
yuuji@51 277 (if (string-match (concat "[{,/]" me "[,}]") s)
yuuji@51 278 nil ; Nothing to do when it's already in includeonly.
yuuji@51 279 (ding)
yuuji@51 280 (switch-to-buffer (current-buffer));Display this buffer.
yuuji@51 281 (setq
yuuji@51 282 me ;;Rewrite my name(me) to contain sub directory name.
yuuji@51 283 (concat
yuuji@51 284 (if (string-match pardir mydir) ;if mydir is child of main
yuuji@51 285 (substring mydir (length pardir)) ;cut absolute path
yuuji@51 286 mydir) ;else concat absolute path name.
yuuji@51 287 me))
yuuji@51 288 (message
yuuji@51 289 "`%s' is not in \\includeonly. A)dd R)eplace %%)comment? "
yuuji@51 290 me)
yuuji@51 291 (setq c (read-char))
yuuji@51 292 (cond
yuuji@51 293 ((= c ?a)
yuuji@51 294 (goto-char (1+ b))
yuuji@51 295 (insert me (if (string= s "{}") "" ",")))
yuuji@51 296 ((= c ?r)
yuuji@51 297 (delete-region (1+ b) (1- e)) (insert me))
yuuji@51 298 ((= c ?%)
yuuji@51 299 (beginning-of-line) (insert "%"))
yuuji@51 300 (t nil))
yuuji@51 301 (basic-save-buffer))))
yuuji@51 302 (exchange-point-and-mark)))
yuuji@51 303 (switch-to-buffer cb)) ;for 19
yuuji@51 304 (YaTeX-typeset cmd YaTeX-typeset-buffer)
yuuji@51 305 (put 'dvi2-command 'region nil))
yuuji@51 306 )
yuuji@51 307
yuuji@51 308 (defvar YaTeX-call-command-history nil
yuuji@51 309 "Holds history list of YaTeX-call-command-on-file.")
yuuji@51 310 (put 'YaTeX-call-command-history 'no-default t)
yuuji@51 311 (defun YaTeX-call-command-on-file (base-cmd buffer)
yuuji@51 312 (YaTeX-save-buffers)
yuuji@51 313 (YaTeX-typeset
yuuji@51 314 (read-string-with-history
yuuji@51 315 "Call command: "
yuuji@51 316 (concat base-cmd " " (YaTeX-get-preview-file-name))
yuuji@51 317 'YaTeX-call-command-history)
yuuji@51 318 buffer)
yuuji@51 319 )
yuuji@51 320
yuuji@51 321 (defun YaTeX-bibtex-buffer (cmd)
yuuji@51 322 "Pass the bibliography data of editing file to bibtex."
yuuji@51 323 (interactive)
yuuji@51 324 (YaTeX-save-buffers)
yuuji@51 325 (YaTeX-call-command-on-file cmd "*YaTeX-bibtex*" )
yuuji@51 326 )
yuuji@51 327
yuuji@51 328 (defun YaTeX-kill-typeset-process (proc)
yuuji@51 329 "Kill process PROC after sending signal to PROC.
yuuji@51 330 PROC should be process identifier."
yuuji@51 331 (cond
yuuji@51 332 (YaTeX-dos
yuuji@51 333 (error "MS-DOS can't have concurrent process."))
yuuji@51 334 ((or (null proc) (not (eq (process-status proc) 'run)))
yuuji@51 335 (message "Typesetting process is not running."))
yuuji@51 336 (t
yuuji@51 337 (save-excursion
yuuji@51 338 (set-buffer (process-buffer proc))
yuuji@51 339 (save-excursion
yuuji@51 340 (goto-char (point-max))
yuuji@51 341 (beginning-of-line)
yuuji@51 342 (if (looking-at "\\? +$")
yuuji@51 343 (let ((mp (point-max)))
yuuji@51 344 (process-send-string proc "x\n")
yuuji@51 345 (while (= mp (point-max)) (sit-for 1))))))
yuuji@51 346 (if (eq (process-status proc) 'run)
yuuji@51 347 (progn
yuuji@51 348 (interrupt-process proc)
yuuji@51 349 (delete-process proc)))))
yuuji@51 350 )
yuuji@51 351
yuuji@51 352 (defun YaTeX-system (command buffer)
yuuji@51 353 "Execute some command on buffer. Not a official function."
yuuji@51 354 (save-excursion
yuuji@51 355 (YaTeX-showup-buffer
yuuji@51 356 buffer (function (lambda (x) (nth 3 (window-edges x)))))
yuuji@59 357 (let ((df default-directory)) ;preserve current buf's pwd
yuuji@59 358 (set-buffer (get-buffer-create buffer)) ;1.61.3
yuuji@59 359 (setq default-directory df)
yuuji@59 360 (cd df))
yuuji@51 361 (erase-buffer)
yuuji@64 362 (if (not (fboundp 'start-process))
yuuji@51 363 (call-process
yuuji@51 364 shell-file-name nil buffer nil YaTeX-shell-command-option command)
yuuji@59 365 (if (and (get-buffer-process buffer)
yuuji@59 366 (eq (process-status (get-buffer-process buffer)) 'run)
yuuji@59 367 (not
yuuji@59 368 (y-or-n-p (format "Process %s is running. Continue?" buffer))))
yuuji@59 369 nil
yuuji@59 370 (set-process-buffer
yuuji@59 371 (start-process
yuuji@59 372 "system" buffer shell-file-name YaTeX-shell-command-option command)
yuuji@59 373 (get-buffer buffer)))))
yuuji@51 374 )
yuuji@51 375
yuuji@51 376 (defvar YaTeX-preview-command-history nil
yuuji@51 377 "Holds minibuffer history of preview command.")
yuuji@51 378 (put 'YaTeX-preview-command-history 'no-default t)
yuuji@51 379 (defvar YaTeX-preview-file-history nil
yuuji@51 380 "Holds minibuffer history of file to preview.")
yuuji@51 381 (put 'YaTeX-preview-file-history 'no-default t)
yuuji@51 382 (defun YaTeX-preview (preview-command preview-file)
yuuji@51 383 "Execute xdvi (or other) to tex-preview."
yuuji@51 384 (interactive
yuuji@51 385 (list
yuuji@51 386 (read-string-with-history
yuuji@58 387 "Preview command: "
yuuji@58 388 (or (YaTeX-get-builtin "PREVIEW") dvi2-command)
yuuji@58 389 'YaTeX-preview-command-history)
yuuji@51 390 (read-string-with-history
yuuji@51 391 "Preview file[.dvi]: "
yuuji@51 392 (if (get 'dvi2-command 'region)
yuuji@51 393 (substring YaTeX-texput-file
yuuji@51 394 0 (rindex YaTeX-texput-file ?.))
yuuji@51 395 (YaTeX-get-preview-file-name))
yuuji@51 396 'YaTeX-preview-file-history)))
yuuji@51 397 (setq dvi2-command preview-command) ;`dvi2command' is buffer local
yuuji@51 398 (save-excursion
yuuji@51 399 (YaTeX-visit-main t)
yuuji@51 400 (let ((pbuffer "*dvi-preview*") (dir default-directory))
yuuji@51 401 (YaTeX-showup-buffer
yuuji@51 402 pbuffer (function (lambda (x) (nth 3 (window-edges x)))))
yuuji@51 403 (set-buffer (get-buffer-create pbuffer))
yuuji@51 404 (erase-buffer)
yuuji@51 405 (setq default-directory dir) ;for 18
yuuji@51 406 (cd dir) ;for 19
yuuji@51 407 (cond
yuuji@64 408 ((not (fboundp 'start-process)) ;if MS-DOS
yuuji@51 409 (send-string-to-terminal "\e[2J\e[>5h") ;CLS & hide cursor
yuuji@51 410 (call-process shell-file-name "con" "*dvi-preview*" nil
yuuji@60 411 YaTeX-shell-command-option
yuuji@61 412 (concat preview-command " " preview-file))
yuuji@51 413 (send-string-to-terminal "\e[>5l") ;show cursor
yuuji@51 414 (redraw-display))
yuuji@51 415 (t ;if UNIX
yuuji@51 416 (set-process-buffer
yuuji@51 417 (start-process "preview" "*dvi-preview*" shell-file-name
yuuji@51 418 YaTeX-shell-command-option
yuuji@51 419 (concat preview-command " " preview-file))
yuuji@51 420 (get-buffer pbuffer))
yuuji@51 421 (message
yuuji@51 422 (concat "Starting " preview-command
yuuji@51 423 " to preview " preview-file))))))
yuuji@51 424 )
yuuji@51 425
yuuji@58 426 (defvar YaTeX-xdvi-remote-program "xdvi")
yuuji@58 427 (defun YaTeX-xdvi-remote-search (&optional region-mode)
yuuji@58 428 "Search string at the point on xdvi -remote window.
yuuji@58 429 Non-nil for optional argument REGION-MODE specifies the search string
yuuji@58 430 by region."
yuuji@58 431 (interactive "P")
yuuji@58 432 (let ((pb " *xdvi*") str proc)
yuuji@58 433 (save-excursion
yuuji@58 434 (if region-mode
yuuji@58 435 (setq str (buffer-substring (region-beginning) (region-end)))
yuuji@58 436 (setq str (buffer-substring
yuuji@58 437 (point)
yuuji@58 438 (progn (skip-chars-forward "^\n\\\\}") (point)))))
yuuji@58 439 (message "Searching `%s'..." str)
yuuji@58 440 (if (boundp 'MULE)
yuuji@58 441 (define-program-coding-system
yuuji@58 442 (regexp-quote pb) (regexp-quote YaTeX-xdvi-remote-program)
yuuji@58 443 *euc-japan*))
yuuji@58 444 (setq proc
yuuji@58 445 (start-process
yuuji@58 446 "xdvi" pb YaTeX-xdvi-remote-program
yuuji@58 447 "-remote" (format "SloppySearch(%s) " str)
yuuji@58 448 (concat (YaTeX-get-preview-file-name) ".dvi")))
yuuji@58 449 (message "Searching `%s'...Done" str)))
yuuji@58 450 )
yuuji@58 451
yuuji@52 452 (defun YaTeX-set-virtual-error-position (file-sym line-sym)
yuuji@52 453 "Replace the value of FILE-SYM, LINE-SYM by virtual error position."
yuuji@52 454 (cond
yuuji@52 455 ((and (get 'dvi2-command 'region)
yuuji@52 456 (> (symbol-value line-sym) (car (get 'dvi2-command 'offset))))
yuuji@52 457 (set file-sym (get 'dvi2-command 'file))
yuuji@52 458 (set line-sym
yuuji@52 459 (+ (- (apply '- (get 'dvi2-command 'offset)))
yuuji@52 460 (symbol-value line-sym)
yuuji@52 461 -1)))))
yuuji@52 462
yuuji@51 463 (defun YaTeX-prev-error ()
yuuji@51 464 "Visit previous typeset error.
yuuji@51 465 To avoid making confliction of line numbers by editing, jump to
yuuji@51 466 error or warning lines in reverse order."
yuuji@51 467 (interactive)
yuuji@51 468 (let ((cur-buf (buffer-name)) (cur-win (selected-window))
yuuji@51 469 error-line typeset-win error-buffer error-win)
yuuji@51 470 (if (null (get-buffer YaTeX-typeset-buffer))
yuuji@51 471 (error "There is no typesetting buffer."))
yuuji@51 472 (YaTeX-showup-buffer YaTeX-typeset-buffer nil t)
yuuji@51 473 (setq typeset-win (selected-window))
yuuji@51 474 (if (re-search-backward
yuuji@51 475 (concat "\\(" latex-error-regexp "\\)\\|\\("
yuuji@51 476 latex-warning-regexp "\\)")
yuuji@51 477 nil t)
yuuji@51 478 nil
yuuji@51 479 (select-window cur-win)
yuuji@51 480 (error "No more erros on %s" cur-buf))
yuuji@51 481 (goto-char (match-beginning 0))
yuuji@51 482 (skip-chars-forward "^0-9" (match-end 0))
yuuji@51 483 (setq error-line
yuuji@51 484 (string-to-int
yuuji@51 485 (buffer-substring
yuuji@51 486 (point)
yuuji@51 487 (progn (skip-chars-forward "0-9" (match-end 0)) (point))))
yuuji@52 488 error-buffer (YaTeX-get-error-file cur-buf))
yuuji@51 489 (if (or (null error-line) (equal 0 error-line))
yuuji@51 490 (error "Can't detect error position."))
yuuji@52 491 (YaTeX-set-virtual-error-position 'error-buffer 'error-line)
yuuji@52 492 (setq error-win (get-buffer-window error-buffer))
yuuji@51 493 (select-window cur-win)
yuuji@51 494 (cond
yuuji@51 495 (error-win (select-window error-win))
yuuji@51 496 ((eq (get-lru-window) typeset-win)
yuuji@51 497 (YaTeX-switch-to-buffer error-buffer))
yuuji@51 498 (t (select-window (get-lru-window))
yuuji@51 499 (YaTeX-switch-to-buffer error-buffer)))
yuuji@51 500 (setq error-win (selected-window))
yuuji@51 501 (goto-line error-line)
yuuji@51 502 (message "LaTeX %s in `%s' on line: %d."
yuuji@51 503 (if (match-beginning 1) "error" "warning")
yuuji@51 504 error-buffer error-line)
yuuji@51 505 (select-window typeset-win)
yuuji@51 506 (skip-chars-backward "0-9")
yuuji@51 507 (recenter (/ (window-height) 2))
yuuji@60 508 (sit-for 1)
yuuji@51 509 (goto-char (match-beginning 0))
yuuji@51 510 (select-window error-win))
yuuji@51 511 )
yuuji@51 512
yuuji@51 513 (defun YaTeX-jump-error-line ()
yuuji@51 514 "Jump to corresponding line on latex command's error message."
yuuji@51 515 (interactive)
yuuji@51 516 (let (error-line error-file error-buf)
yuuji@51 517 (save-excursion
yuuji@51 518 (beginning-of-line)
yuuji@51 519 (setq error-line (re-search-forward "l[ ines]*\\.?\\([1-9][0-9]*\\)"
yuuji@51 520 (point-end-of-line) t)))
yuuji@51 521 (if (null error-line)
yuuji@51 522 (if (eobp) (insert (this-command-keys))
yuuji@51 523 (error "No line number expression."))
yuuji@51 524 (goto-char (match-beginning 0))
yuuji@51 525 (setq error-line (string-to-int
yuuji@51 526 (buffer-substring (match-beginning 1) (match-end 1)))
yuuji@52 527 error-file (YaTeX-get-error-file YaTeX-current-TeX-buffer))
yuuji@52 528 (YaTeX-set-virtual-error-position 'error-file 'error-line)
yuuji@52 529 (setq error-buf (YaTeX-switch-to-buffer error-file t)))
yuuji@51 530 (if (null error-buf)
yuuji@51 531 (error "`%s' is not found in this directory." error-file))
yuuji@51 532 (YaTeX-showup-buffer error-buf nil t)
yuuji@52 533 (goto-line error-line))
yuuji@51 534 )
yuuji@51 535
yuuji@51 536 (defun YaTeX-send-string ()
yuuji@51 537 "Send string to current typeset process."
yuuji@51 538 (interactive)
yuuji@51 539 (if (and (eq (process-status YaTeX-typeset-process) 'run)
yuuji@51 540 (>= (point) (process-mark YaTeX-typeset-process)))
yuuji@51 541 (let ((b (process-mark YaTeX-typeset-process))
yuuji@51 542 (e (point-end-of-line)))
yuuji@51 543 (goto-char b)
yuuji@51 544 (skip-chars-forward " \t" e)
yuuji@51 545 (setq b (point))
yuuji@51 546 (process-send-string
yuuji@51 547 YaTeX-typeset-process (concat (buffer-substring b e) "\n"))
yuuji@51 548 (goto-char e)
yuuji@51 549 (insert "\n")
yuuji@51 550 (set-marker (process-mark YaTeX-typeset-process) (point))
yuuji@51 551 (insert " "))
yuuji@51 552 (ding))
yuuji@51 553 )
yuuji@51 554
yuuji@51 555 (defun YaTeX-view-error ()
yuuji@51 556 (interactive)
yuuji@51 557 (if (null (get-buffer YaTeX-typeset-buffer))
yuuji@51 558 (message "No typeset buffer found.")
yuuji@51 559 (let ((win (selected-window)))
yuuji@51 560 (YaTeX-showup-buffer YaTeX-typeset-buffer nil t)
yuuji@51 561 ;; Next 3 lines are obsolete because YaTeX-typesetting-buffer is
yuuji@51 562 ;; automatically scrolled up at typesetting.
yuuji@51 563 ;;(goto-char (point-max))
yuuji@51 564 ;;(forward-line -1)
yuuji@51 565 ;;(recenter -1)
yuuji@51 566 (select-window win)))
yuuji@51 567 )
yuuji@51 568
yuuji@51 569 (defun YaTeX-get-error-file (default)
yuuji@51 570 "Get current processing file from typesetting log."
yuuji@51 571 (save-excursion
yuuji@51 572 (let(s)
yuuji@51 573 (condition-case () (up-list -1)
yuuji@51 574 (error
yuuji@51 575 (let ((list 0) found)
yuuji@51 576 (while
yuuji@51 577 (and (<= list 0) (not found)
yuuji@51 578 (re-search-backward "\\((\\)\\|\\()\\)" nil t))
yuuji@51 579 (if (equal (match-beginning 0) (match-beginning 2)) ;close paren.
yuuji@51 580 (setq list (1- list)) ;open paren
yuuji@51 581 (setq list (1+ list))
yuuji@51 582 (if (= list 1)
yuuji@51 583 (if (looking-at "\\([^,{}%]+\.\\)tex\\|sty")
yuuji@51 584 (setq found t)
yuuji@51 585 (setq list (1- list)))))))))
yuuji@51 586 (setq s
yuuji@51 587 (buffer-substring
yuuji@51 588 (progn (forward-char 1) (point))
yuuji@51 589 (progn (skip-chars-forward "^ \n" (point-end-of-line))
yuuji@51 590 (point))))
yuuji@51 591 (if (string= "" s) default s)))
yuuji@51 592 )
yuuji@51 593
yuuji@51 594 (defun YaTeX-put-nonstopmode ()
yuuji@64 595 (if (and (eq major-mode 'yatex-mode) YaTeX-need-nonstop)
yuuji@51 596 (if (re-search-backward "\\\\nonstopmode{}" (point-min) t)
yuuji@51 597 nil ;if already written in text then do nothing
yuuji@51 598 (save-excursion
yuuji@51 599 (YaTeX-visit-main t)
yuuji@51 600 (goto-char (point-min))
yuuji@60 601 (insert "\\nonstopmode{}%_YaTeX_%\n")
yuuji@60 602 (if (buffer-file-name) (basic-save-buffer))))
yuuji@51 603 )
yuuji@51 604 )
yuuji@51 605
yuuji@51 606 (defun YaTeX-remove-nonstopmode ()
yuuji@64 607 (if (and (eq major-mode 'yatex-mode) YaTeX-need-nonstop) ;for speed
yuuji@51 608 (save-excursion
yuuji@51 609 (YaTeX-visit-main t)
yuuji@51 610 (goto-char (point-min))
yuuji@51 611 (forward-line 1)
yuuji@51 612 (narrow-to-region (point-min) (point))
yuuji@51 613 (goto-char (point-min))
yuuji@51 614 (delete-matching-lines "^\\\\nonstopmode\\{\\}%_YaTeX_%$")
yuuji@51 615 (widen)))
yuuji@51 616 )
yuuji@51 617
yuuji@51 618 (defun YaTeX-get-preview-file-name ()
yuuji@51 619 "Get file name to preview by inquiring YaTeX-get-latex-command"
yuuji@51 620 (let* ((latex-cmd (YaTeX-get-latex-command t))
yuuji@51 621 (rin (rindex latex-cmd ? ))
yuuji@51 622 (fname (if (> rin -1) (substring latex-cmd (1+ rin)) ""))
yuuji@51 623 (period))
yuuji@51 624 (if (string= fname "")
yuuji@51 625 (setq fname (substring (file-name-nondirectory
yuuji@51 626 (buffer-file-name))
yuuji@51 627 0 -4))
yuuji@51 628 (setq period (rindex fname ?.))
yuuji@51 629 (setq fname (substring fname 0 (if (eq -1 period) nil period)))
yuuji@51 630 ))
yuuji@51 631 )
yuuji@51 632
yuuji@51 633 (defun YaTeX-get-latex-command (&optional switch)
yuuji@51 634 "Specify the latex-command name and its argument.
yuuji@51 635 If there is a line which begins with string: \"%#!\", the following
yuuji@51 636 strings are assumed to be the latex-command and arguments. The
yuuji@51 637 default value of latex-command is:
yuuji@51 638 tex-command FileName
yuuji@51 639 and if you write \"%#!jlatex\" in the beginning of certain line.
yuuji@51 640 \"jlatex \" FileName
yuuji@51 641 will be the latex-command,
yuuji@51 642 and you write \"%#!jlatex main.tex\" on some line and argument SWITCH
yuuji@51 643 is non-nil, then
yuuji@51 644 \"jlatex main.tex\"
yuuji@51 645
yuuji@51 646 will be given to the shell."
yuuji@51 647 (let (magic command target)
yuuji@51 648 (setq parent
yuuji@51 649 (cond
yuuji@51 650 (YaTeX-parent-file YaTeX-parent-file)
yuuji@51 651 (t (save-excursion
yuuji@51 652 (YaTeX-visit-main t)
yuuji@51 653 (file-name-nondirectory (buffer-file-name)))))
yuuji@51 654 magic (YaTeX-get-builtin "!"))
yuuji@51 655 (cond
yuuji@51 656 (magic
yuuji@51 657 (cond
yuuji@51 658 (switch (if (string-match "\\s " magic) magic
yuuji@51 659 (concat magic " " parent)))
yuuji@51 660 (t (concat (substring magic 0 (string-match "\\s " magic)) " "))))
yuuji@51 661 (t (concat tex-command " " (if switch parent)))))
yuuji@51 662 )
yuuji@51 663
yuuji@51 664 (defvar YaTeX-lpr-command-history nil
yuuji@51 665 "Holds command line history of YaTeX-lpr.")
yuuji@51 666 (put 'YaTeX-lpr-command-history 'no-default t)
yuuji@51 667 (defun YaTeX-lpr (arg)
yuuji@51 668 "Print out. If prefix arg ARG is non nil, call print driver without
yuuji@51 669 page range description."
yuuji@51 670 (interactive "P")
yuuji@51 671 (let*((cmd (or (YaTeX-get-builtin "LPR") dviprint-command-format))
yuuji@52 672 from to (lbuffer "*dvi-printing*") dir)
yuuji@51 673 (setq
yuuji@51 674 cmd
yuuji@51 675 (YaTeX-replace-format
yuuji@51 676 cmd "f"
yuuji@51 677 (if (or arg (not (string-match "%f" cmd)))
yuuji@51 678 ""
yuuji@51 679 (YaTeX-replace-format
yuuji@51 680 dviprint-from-format
yuuji@51 681 "b"
yuuji@51 682 (if (string=
yuuji@51 683 (setq from (read-string "From page(default 1): ")) "")
yuuji@51 684 "1" from))))
yuuji@51 685 )
yuuji@51 686 (setq
yuuji@51 687 cmd
yuuji@51 688 (YaTeX-replace-format
yuuji@51 689 cmd "t"
yuuji@51 690 (if (or arg (not (string-match "%t" cmd))
yuuji@51 691 (string=
yuuji@51 692 (setq to (read-string "To page(default none): ")) ""))
yuuji@51 693 ""
yuuji@51 694 (YaTeX-replace-format dviprint-to-format "e" to)))
yuuji@51 695 )
yuuji@51 696 (setq cmd
yuuji@51 697 (read-string-with-history
yuuji@51 698 "Edit command line: "
yuuji@53 699 (format cmd
yuuji@53 700 (if (get 'dvi2-command 'region)
yuuji@53 701 (substring YaTeX-texput-file
yuuji@53 702 0 (rindex YaTeX-texput-file ?.))
yuuji@53 703 (YaTeX-get-preview-file-name)))
yuuji@51 704 'YaTeX-lpr-command-history))
yuuji@51 705 (save-excursion
yuuji@51 706 (YaTeX-visit-main t) ;;change execution directory
yuuji@52 707 (setq dir default-directory)
yuuji@51 708 (YaTeX-showup-buffer
yuuji@51 709 lbuffer (function (lambda (x) (nth 3 (window-edges x)))))
yuuji@51 710 (set-buffer (get-buffer-create lbuffer))
yuuji@51 711 (erase-buffer)
yuuji@52 712 (cd dir) ;for 19
yuuji@51 713 (cond
yuuji@64 714 ((not (fboundp 'start-process))
yuuji@51 715 (call-process shell-file-name "con" "*dvi-printing*" nil
yuuji@51 716 YaTeX-shell-command-option cmd))
yuuji@51 717 (t
yuuji@51 718 (set-process-buffer
yuuji@51 719 (start-process "print" "*dvi-printing*" shell-file-name
yuuji@51 720 YaTeX-shell-command-option cmd)
yuuji@51 721 (get-buffer lbuffer))
yuuji@51 722 (message "Starting printing command: %s..." cmd)))
yuuji@51 723 ))
yuuji@51 724 )
yuuji@51 725
yuuji@51 726 (defun YaTeX-main-file-p ()
yuuji@51 727 "Return if current buffer is main LaTeX source."
yuuji@51 728 (cond
yuuji@52 729 (YaTeX-parent-file
yuuji@52 730 (eq (get-file-buffer YaTeX-parent-file) (current-buffer)))
yuuji@51 731 ((YaTeX-get-builtin "!")
yuuji@51 732 (string-match (YaTeX-guess-parent (YaTeX-get-builtin "!")) (buffer-name)))
yuuji@51 733 (t
yuuji@51 734 (save-excursion
yuuji@57 735 (let ((latex-main-id
yuuji@57 736 (concat "^\\s *" YaTeX-ec-regexp "document\\(style\\|class\\)")))
yuuji@51 737 (or (re-search-backward latex-main-id nil t)
yuuji@51 738 (re-search-forward latex-main-id nil t))))))
yuuji@51 739 )
yuuji@51 740
yuuji@51 741 (defun YaTeX-visit-main (&optional setbuf)
yuuji@51 742 "Switch buffer to main LaTeX source.
yuuji@51 743 Use set-buffer instead of switch-to-buffer if the optional second argument
yuuji@51 744 SETBUF is t(Use it only from Emacs-Lisp program)."
yuuji@51 745 (interactive "P")
yuuji@51 746 (if (and (interactive-p) setbuf) (setq YaTeX-parent-file nil))
yuuji@51 747 (let (b-in main-file)
yuuji@51 748 (if (setq b-in (YaTeX-get-builtin "!"))
yuuji@51 749 (setq main-file (YaTeX-guess-parent b-in)))
yuuji@51 750 (if YaTeX-parent-file
yuuji@51 751 (setq main-file ;;(get-file-buffer YaTeX-parent-file)
yuuji@51 752 YaTeX-parent-file))
yuuji@51 753 (if (YaTeX-main-file-p)
yuuji@51 754 (if (interactive-p) (message "I think this is main LaTeX source.") nil)
yuuji@51 755 (cond
yuuji@51 756 ((and (interactive-p) main-file (get-file-buffer main-file))
yuuji@51 757 (goto-buffer-window main-file))
yuuji@51 758 ((and main-file (YaTeX-switch-to-buffer main-file setbuf)))
yuuji@51 759 ((and main-file
yuuji@51 760 (file-exists-p (setq main-file (concat "../" main-file)))
yuuji@51 761 (y-or-n-p (concat (expand-file-name main-file)
yuuji@51 762 " is main file?:")))
yuuji@51 763 (setq YaTeX-parent-file main-file)
yuuji@51 764 (YaTeX-switch-to-buffer main-file setbuf))
yuuji@51 765 (t (setq main-file (read-file-name "Enter your main text: " nil nil 1))
yuuji@51 766 (setq YaTeX-parent-file main-file)
yuuji@51 767 (YaTeX-switch-to-buffer main-file setbuf))
yuuji@51 768 )))
yuuji@51 769 nil
yuuji@51 770 )
yuuji@51 771
yuuji@51 772
yuuji@51 773 (defun YaTeX-guess-parent (command-line)
yuuji@51 774 (setq command-line
yuuji@51 775 (if (string-match ".*\\s " command-line)
yuuji@51 776 (substring command-line (match-end 0))
yuuji@51 777 (file-name-nondirectory (buffer-file-name)))
yuuji@51 778 command-line
yuuji@51 779 (concat (if (string-match "\\(.*\\)\\." command-line)
yuuji@51 780 (substring command-line (match-beginning 1) (match-end 1))
yuuji@51 781 command-line)
yuuji@51 782 ".tex"))
yuuji@51 783 )
yuuji@51 784
yuuji@51 785 (defun YaTeX-visit-main-other-window ()
yuuji@51 786 "Switch to buffer main LaTeX source in other window."
yuuji@51 787 (interactive)
yuuji@51 788 (if (YaTeX-main-file-p) (message "I think this is main LaTeX source.")
yuuji@51 789 (YaTeX-switch-to-buffer-other-window
yuuji@51 790 (concat (YaTeX-get-preview-file-name) ".tex")))
yuuji@51 791 )
yuuji@51 792
yuuji@51 793 (defun YaTeX-get-builtin (key)
yuuji@51 794 "Read source built-in command of %# usage."
yuuji@51 795 (save-excursion
yuuji@51 796 (goto-char (point-min))
yuuji@51 797 (if (and (re-search-forward
yuuji@51 798 (concat "^" (regexp-quote (concat "%#" key))) nil t)
yuuji@51 799 (not (eolp)))
yuuji@51 800 (buffer-substring
yuuji@51 801 (progn (skip-chars-forward " " (point-end-of-line))(point))
yuuji@51 802 (point-end-of-line))
yuuji@51 803 nil))
yuuji@51 804 )
yuuji@51 805
yuuji@51 806 (defun YaTeX-save-buffers ()
yuuji@60 807 "Save buffers whose major-mode is equal to current major-mode."
yuuji@51 808 (basic-save-buffer)
yuuji@60 809 (let ((cmm major-mode))
yuuji@60 810 (save-excursion
yuuji@60 811 (mapcar '(lambda (buf)
yuuji@60 812 (set-buffer buf)
yuuji@60 813 (if (and (buffer-file-name buf)
yuuji@60 814 (eq major-mode cmm)
yuuji@60 815 (buffer-modified-p buf)
yuuji@60 816 (y-or-n-p (format "Save %s" (buffer-name buf))))
yuuji@60 817 (save-buffer buf)))
yuuji@60 818 (buffer-list))))
yuuji@51 819 )
yuuji@51 820
yuuji@51 821 (provide 'yatexprc)