yatex: 1c41dc8a28eb yatexprc.el

yatex

view yatexprc.el @ 183:1c41dc8a28eb

doc fix

author	yuuji@gentei.org
date	Thu, 13 Oct 2011 10:16:58 +0900
parents	670549efa5c2
children	cf7352dfa40c

line source

1 ;;; -*- Emacs-Lisp -*-

2 ;;; YaTeX process handler.

3 ;;; yatexprc.el

5 ;;; Last modified Fri Feb 18 10:35:39 2011 on firestorm

6 ;;; $Id$

8 ;(require 'yatex)

9 (require 'yatexlib)

11 (defvar YaTeX-typeset-process nil

12 "Process identifier for jlatex")

14 (defvar YaTeX-typeset-buffer "*YaTeX-typesetting*"

15 "Process buffer for jlatex")

17 (defvar YaTeX-typeset-buffer-syntax nil

18 "*Syntax table for typesetting buffer")

20 (defvar YaTeX-current-TeX-buffer nil

21 "Keeps the buffer on which recently typeset run.")

23 (defvar YaTeX-shell-command-option

24 (or (and (boundp 'shell-command-option) shell-command-option)

25 (and (boundp 'shell-command-switch) shell-command-switch)

26 (if YaTeX-dos "/c" "-c"))

27 "Shell option for command execution.")

29 (defvar YaTeX-latex-message-code

30 ;; (cond

31 ;; (YaTeX-dos (cdr (assq 1 YaTeX-kanji-code-alist)))

32 ;; ((and YaTeX-emacs-20 (member 'undecided (coding-system-list))

33 ;; 'undecided))

34 ;; ((featurep 'mule)

35 ;; (or (and (boundp '*autoconv*) *autoconv*)

36 ;; (and (fboundp 'coding-system-list) 'automatic-conversion)))

37 ;; ((boundp 'NEMACS)

38 ;; (cdr (assq (if YaTeX-dos 1 2) YaTeX-kanji-code-alist))))

39 (cond

40 (YaTeX-dos (cdr (assq 1 YaTeX-kanji-code-alist)))

41 (YaTeX-emacs-20

42 (cdr (assoc latex-message-kanji-code YaTeX-kanji-code-alist)))

43 ((boundp 'MULE)

44 (symbol-value

45 (cdr (assoc latex-message-kanji-code YaTeX-kanji-code-alist))))

46 ((boundp 'NEMACS)

47 latex-message-kanji-code))

48 "Process coding system for LaTeX.")

50 (if YaTeX-typeset-buffer-syntax nil

51 (setq YaTeX-typeset-buffer-syntax

52 (make-syntax-table (standard-syntax-table)))

53 (modify-syntax-entry ?\{ "w" YaTeX-typeset-buffer-syntax)

54 (modify-syntax-entry ?\} "w" YaTeX-typeset-buffer-syntax)

55 (modify-syntax-entry ?\[ "w" YaTeX-typeset-buffer-syntax)

56 (modify-syntax-entry ?\] "w" YaTeX-typeset-buffer-syntax))

58 (defun YaTeX-typeset (command buffer &optional prcname modename ppcmd)

59 "Execute jlatex (or other) to LaTeX typeset."

60 (interactive)

61 (save-excursion

62 (let ((p (point)) (window (selected-window)) execdir (cb (current-buffer))

63 (map YaTeX-typesetting-mode-map)

64 (outcode

65 (cond ((eq major-mode 'yatex-mode) YaTeX-coding-system)

66 ((eq major-mode 'yahtml-mode) yahtml-kanji-code))))

67 (if (and YaTeX-typeset-process

68 (eq (process-status YaTeX-typeset-process) 'run))

69 ;; if tex command is halting.

70 (YaTeX-kill-typeset-process YaTeX-typeset-process))

71 (YaTeX-put-nonstopmode)

72 (setq prcname (or prcname "LaTeX")

73 modename (or modename "typeset"))

74 (if (eq major-mode 'yatex-mode) (YaTeX-visit-main t)) ;;execution dir

75 (setq execdir default-directory)

76 ;;Select lower-most window if there are more than 2 windows and

77 ;;typeset buffer not seen.

78 (YaTeX-showup-buffer

79 buffer (function (lambda (x) (nth 3 (window-edges x)))))

80 (set-buffer (get-buffer-create buffer))

81 (setq default-directory execdir)

82 (cd execdir)

83 (erase-buffer)

84 (cond

85 ((not (fboundp 'start-process)) ;YaTeX-dos;if MS-DOS

86 (call-process

87 shell-file-name nil buffer nil YaTeX-shell-command-option command))

88 (t ;if UNIX

89 (set-process-buffer

90 (setq YaTeX-typeset-process

91 (start-process prcname buffer shell-file-name

92 YaTeX-shell-command-option command))

93 (get-buffer buffer))

94 (set-process-sentinel YaTeX-typeset-process 'YaTeX-typeset-sentinel)

95 (let ((ppprop (get 'YaTeX-typeset-process 'ppcmd)))

96 (setq ppprop (delq (assq YaTeX-typeset-process ppprop) ppprop))

97 (if ppcmd

98 (setq ppprop (cons (cons YaTeX-typeset-process ppcmd) ppprop)))

99 (put 'YaTeX-typeset-process 'ppcmd ppprop))))

100 (message (format "Calling `%s'..." command))

101 (setq YaTeX-current-TeX-buffer (buffer-name))

102 (use-local-map map) ;map may be localized

103 (set-syntax-table YaTeX-typeset-buffer-syntax)

104 (setq mode-name modename)

105 (if YaTeX-typeset-process ;if process is running (maybe on UNIX)

106 (cond ((fboundp 'set-current-process-coding-system)

107 (set-current-process-coding-system

108 YaTeX-latex-message-code outcode))

109 ((fboundp 'set-process-coding-system)

110 (set-process-coding-system

111 YaTeX-typeset-process YaTeX-latex-message-code outcode))

112 (YaTeX-emacs-20

113 (set-buffer-process-coding-system

114 YaTeX-latex-message-code outcode))

115 ((boundp 'NEMACS)

116 (set-kanji-process-code YaTeX-latex-message-code))))

117 (if YaTeX-dos (message "Done.")

118 (insert " ")

119 (set-marker (process-mark YaTeX-typeset-process) (1- (point))))

120 (if (bolp) (forward-line -1)) ;what for?

121 (if (and YaTeX-emacs-19 window-system)

122 (let ((win (get-buffer-window buffer t)) owin)

123 (select-frame (window-frame win))

124 (setq owin (selected-window))

125 (select-window win)

126 (goto-char (point-max))

127 (recenter -1)

128 (select-window owin))

129 (select-window (get-buffer-window buffer))

130 (goto-char (point-max))

131 (recenter -1))

132 (select-window window)

133 (switch-to-buffer cb)

134 (YaTeX-remove-nonstopmode))))

135

136 (defun YaTeX-typeset-sentinel (proc mes)

137 (cond ((null (buffer-name (process-buffer proc)))

138 ;; buffer killed

139 (set-process-buffer proc nil))

140 ((memq (process-status proc) '(signal exit))

141 (let* ((obuf (current-buffer)) (pbuf (process-buffer proc))

142 (pwin (get-buffer-window pbuf))

143 (owin (selected-window)) win)

144 ;; save-excursion isn't the right thing if

145 ;; process-buffer is current-buffer

146 (unwind-protect

147 (progn

148 ;; Write something in *typesetting* and hack its mode line

149 (if pwin

150 (select-window pwin)

151 (set-buffer pbuf))

152 ;;(YaTeX-showup-buffer pbuf nil t)

153 (goto-char (point-max))

154 (if pwin (recenter -3))

155 (insert ?\n mode-name " " mes)

156 (forward-char -1)

157 (insert " at " (substring (current-time-string) 0 -5) "\n")

158 (setq mode-line-process

159 (concat ": "

160 (symbol-name (process-status proc))))

161 (message mode-name " %s."

162 (if (eq (process-status proc) 'exit)

163 "done" "ceased"))

164 ;; If buffer and mode line shows that the process

165 ;; is dead, we can delete it now. Otherwise it

166 ;; will stay around until M-x list-processes.

167 (delete-process proc)

168 ;; If ppcmd is active, call it.

169 (let* ((ppprop (get 'YaTeX-typeset-process 'ppcmd))

170 (ppcmd (cdr (assq proc ppprop))))

171 (put 'YaTeX-typeset-process 'ppcmd ;erase ppcmd

172 (delq (assq proc ppprop) ppprop))

173 (cond

174 ((and ppcmd (string-match "finish" mes))

175 (insert (format "=======> Success! Calling %s\n" ppcmd))

176 (setq mode-name ; set process name

177 (substring ppcmd 0 (string-match " " ppcmd)))

178 ; to reach here, 'start-process exists on this emacsen

179 (set-process-sentinel

180 (start-process

181 mode-name

182 pbuf ; Use this buffer twice.

183 shell-file-name YaTeX-shell-command-option

184 ppcmd)

185 'YaTeX-typeset-sentinel))))

186

187 (forward-char 1))

188 (setq YaTeX-typeset-process nil)

189 ;; Force mode line redisplay soon

190 (set-buffer-modified-p (buffer-modified-p))

191 )

192 (select-window owin)

193 (set-buffer obuf)))))

194

195 (defvar YaTeX-texput-file "texput.tex"

196 "*File name for temporary file of typeset-region.")

197

198 (defun YaTeX-typeset-region ()

199 "Paste the region to the file `texput.tex' and execute typesetter.

200 The region is specified by the rule:

201 (1)If keyword `%#BEGIN' is found in the upper direction from (point).

202 (1-1)if the keyword `%#END' is found after `%#BEGIN',

203 ->Assume the text between `%#BEGIN' and `%#END' as region.

204 (1-2)if the keyword `%#END' is not found anywhere after `%#BEGIN',

205 ->Assume the text after `%#BEGIN' as region.

206 (2)If no `%#BEGIN' usage is found before the (point),

207 ->Assume the text between current (point) and (mark) as region.

208 DON'T forget to eliminate the `%#BEGIN/%#END' notation after editing

209 operation to the region."

210 (interactive)

211 (save-excursion

212 (let*

213 ((end "") typeout ;Type out message that tells the method of cutting.

214 (texput YaTeX-texput-file)

215 (cmd (concat (YaTeX-get-latex-command nil) " " texput))

216 (buffer (current-buffer)) opoint preamble (subpreamble "") main

217 (hilit-auto-highlight nil) ;for Emacs19 with hilit19

218 reg-begin reg-end lineinfo)

219

220 (save-excursion

221 (if (search-backward "%#BEGIN" nil t)

222 (progn

223 (setq typeout "--- Region from BEGIN to "

224 end "the end of the buffer ---"

225 reg-begin (match-end 0))

226 (if (search-forward "%#END" nil t)

227 (setq reg-end (match-beginning 0)

228 end "END ---")

229 (setq reg-end (point-max))))

230 (setq typeout "=== Region from (point) to (mark) ==="

231 reg-begin (point) reg-end (mark)))

232 (goto-char (min reg-begin reg-end))

233 (setq lineinfo (count-lines (point-min) (point-end-of-line)))

234 (goto-char (point-min))

235 (while (search-forward "%#REQUIRE" nil t)

236 (setq subpreamble

237 (concat subpreamble

238 (cond

239 ((eolp)

240 (buffer-substring

241 (match-beginning 0)

242 (point-beginning-of-line)))

243 (t (buffer-substring

244 (match-end 0)

245 (point-end-of-line))))

246 "\n"))

247 (goto-char (match-end 0))))

248 (YaTeX-visit-main t)

249 (setq main (current-buffer))

250 (setq opoint (point))

251 (goto-char (point-min))

252 (setq

253 preamble

254 (if (re-search-forward "^[ ]*\\\\begin.*{document}" nil t)

255 (buffer-substring (point-min) (match-end 0))

256 (concat

257 (if YaTeX-use-LaTeX2e "\\documentclass{" "\\documentstyle{")

258 YaTeX-default-document-style "}\n"

259 "\\begin{document}")))

260 (goto-char opoint)

261 ;;(set-buffer buffer) ;for clarity

262 (let ((hilit-auto-highlight nil) (auto-mode-alist nil)

263 (magic-mode-alist nil)) ;Do not activate yatex-mode here

264 (set-buffer (find-file-noselect texput)))

265 ;;(find-file YaTeX-texput-file)

266 (erase-buffer)

267 (if (and (eq major-mode 'yatex-mode) YaTeX-need-nonstop)

268 (insert "\\nonstopmode{}\n"))

269 (insert preamble "\n" subpreamble "\n")

270 (setq lineinfo (list (count-lines 1 (point-end-of-line)) lineinfo))

271 (insert-buffer-substring buffer reg-begin reg-end)

272 (insert "\\typeout{" typeout end "}\n") ;Notice the selected method.

273 (insert "\n\\end{document}\n")

274 (basic-save-buffer)

275 (kill-buffer (current-buffer))

276 (set-buffer main) ;return to parent file or itself.

277 (YaTeX-typeset cmd YaTeX-typeset-buffer)

278 (switch-to-buffer buffer) ;for Emacs-19

279 (put 'dvi2-command 'region t)

280 (put 'dvi2-command 'file buffer)

281 (put 'dvi2-command 'offset lineinfo))))

282

283 (defun YaTeX-typeset-environment ()

284 "Typeset current math environment"

285 (interactive)

286 (save-excursion

287 (YaTeX-mark-environment)

288 (YaTeX-typeset-region)))

289

290 (defun YaTeX-typeset-buffer (&optional pp)

291 "Typeset whole buffer.

292 If %#! usage says other buffer is main text,

293 visit main buffer to confirm if its includeonly list contains current

294 buffer's file. And if it doesn't contain editing text, ask user which

295 action wants to be done, A:Add list, R:Replace list, %:comment-out list.

296 If optional argument PP given as string, PP is considered as post-process

297 command and call it with the same command argument as typesetter without

298 last extension.

299 eg. if PP is \"dvipdfmx\", called commands as follows.

300 platex foo.tex

301 dvipdfmx foo

302 PP command will be called iff typeset command exit successfully"

303 (interactive)

304 (YaTeX-save-buffers)

305 (let*((me (substring (buffer-name) 0 (rindex (buffer-name) ?.)))

306 (mydir (file-name-directory (buffer-file-name)))

307 (cmd (YaTeX-get-latex-command t)) pparg ppcmd

308 (cb (current-buffer)))

309 (and pp

310 (stringp pp)

311 (setq pparg (substring cmd 0 (string-match "[;&]" cmd)) ;rm multistmt

312 pparg (substring pparg (rindex pparg ? )) ;get last arg

313 ppcmd (concat pp (substring pparg 0 (rindex pparg ?.)))));rm ext

314 (if (YaTeX-main-file-p) nil

315 (save-excursion

316 (YaTeX-visit-main t) ;search into main buffer

317 (save-excursion

318 (push-mark (point) t)

319 (goto-char (point-min))

320 (if (and (re-search-forward "^[ ]*\\\\begin{document}" nil t)

321 (re-search-backward "^[ ]*\\\\includeonly{" nil t))

322 (let*

323 ((b (progn (skip-chars-forward "^{") (point)))

324 (e (progn (skip-chars-forward "^}") (1+ (point))))

325 (s (buffer-substring b e)) c

326 (pardir (file-name-directory (buffer-file-name))))

327 (if (string-match (concat "[{,/]" me "[,}]") s)

328 nil ; Nothing to do when it's already in includeonly.

329 (ding)

330 (switch-to-buffer (current-buffer));Display this buffer.

331 (setq

332 me ;;Rewrite my name(me) to contain sub directory name.

333 (concat

334 (if (string-match pardir mydir) ;if mydir is child of main

335 (substring mydir (length pardir)) ;cut absolute path

336 mydir) ;else concat absolute path name.

337 me))

338 (message

339 "`%s' is not in \\includeonly. A)dd R)eplace %%)comment? "

340 me)

341 (setq c (read-char))

342 (cond

343 ((= c ?a)

344 (goto-char (1+ b))

345 (insert me (if (string= s "{}") "" ",")))

346 ((= c ?r)

347 (delete-region (1+ b) (1- e)) (insert me))

348 ((= c ?%)

349 (beginning-of-line) (insert "%"))

350 (t nil))

351 (basic-save-buffer))))

352 (exchange-point-and-mark)))

353 (switch-to-buffer cb)) ;for 19

354 (YaTeX-typeset cmd YaTeX-typeset-buffer nil nil ppcmd)

355 (put 'dvi2-command 'region nil)))

356

357 (defvar YaTeX-call-command-history nil

358 "Holds history list of YaTeX-call-command-on-file.")

359 (put 'YaTeX-call-command-history 'no-default t)

360 (defun YaTeX-call-command-on-file (base-cmd buffer &optional file)

361 "Call external command BASE-CMD in the BUFFER.

362 By default, pass the basename of current file. Optional 3rd argument

363 FILE changes the default file name."

364 (YaTeX-save-buffers)

365 (let ((default (concat base-cmd " "

366 (let ((me (file-name-nondirectory

367 (or file buffer-file-name))))

368 (if (string-match "\\.tex" me)

369 (substring me 0 (match-beginning 0))

370 me)))))

371 (or YaTeX-call-command-history

372 (setq YaTeX-call-command-history (list default)))

373 (YaTeX-typeset

374 (read-string-with-history

375 "Call command: "

376 (car YaTeX-call-command-history)

377 'YaTeX-call-command-history)

378 buffer)))

379

380 (defun YaTeX-bibtex-buffer (cmd)

381 "Pass the bibliography data of editing file to bibtex."

382 (interactive)

383 (YaTeX-save-buffers)

384 (let ((main (or YaTeX-parent-file

385 (progn (YaTeX-visit-main t) buffer-file-name))))

386 (YaTeX-call-command-on-file cmd "*YaTeX-bibtex*" main)))

387

388 (defun YaTeX-kill-typeset-process (proc)

389 "Kill process PROC after sending signal to PROC.

390 PROC should be process identifier."

391 (cond

392 ((not (fboundp 'start-process))

393 (error "This system can't have concurrent process."))

394 ((or (null proc) (not (eq (process-status proc) 'run)))

395 (message "Typesetting process is not running."))

396 (t

397 (save-excursion

398 (set-buffer (process-buffer proc))

399 (save-excursion

400 (goto-char (point-max))

401 (beginning-of-line)

402 (if (looking-at "\\? +$")

403 (let ((mp (point-max)))

404 (process-send-string proc "x\n")

405 (while (= mp (point-max)) (sit-for 1))))))

406 (if (eq (process-status proc) 'run)

407 (progn

408 (interrupt-process proc)

409 (delete-process proc))))))

410

411 (defun YaTeX-system (command buffer)

412 "Execute some command on buffer. Not a official function."

413 (save-excursion

414 (YaTeX-showup-buffer

415 buffer (function (lambda (x) (nth 3 (window-edges x)))))

416 (let ((df default-directory)) ;preserve current buf's pwd

417 (set-buffer (get-buffer-create buffer)) ;1.61.3

418 (setq default-directory df)

419 (cd df))

420 (erase-buffer)

421 (if (not (fboundp 'start-process))

422 (call-process

423 shell-file-name nil buffer nil YaTeX-shell-command-option command)

424 (if (and (get-buffer-process buffer)

425 (eq (process-status (get-buffer-process buffer)) 'run)

426 (not

427 (y-or-n-p (format "Process %s is running. Continue?" buffer))))

428 nil

429 (set-process-buffer

430 (start-process

431 "system" buffer shell-file-name YaTeX-shell-command-option command)

432 (get-buffer buffer))))))

433

434 (defvar YaTeX-default-paper-type "a4"

435 "*Default paper type.")

436 (defconst YaTeX-paper-type-alist

437 '(("a4paper" . "a4")

438 ("a5paper" . "a5")

439 ("b4paper" . "b4")

440 ("b5paper" . "b5"))

441 "Holds map of options and paper types.")

442 (defconst YaTeX-dvips-paper-option-alist

443 '(("a4" . "-t a4")

444 ("a5" . "-t a5")

445 ("b4" . "-t b4")

446 ("b5" . "-t b5")

447 ("a4r" . "-t landscape"); Can't specify options, `-t a4' and `-t landscape', at the same time.

448 ("a5r" . "-t landscape")

449 ("b4r" . "-t landscape")

450 ("b5r" . "-t landscape"))

451 "Holds map of dvips options and paper types.")

452 (defun YaTeX-get-paper-type ()

453 "Search options in header and return a paper type, such as \"a4\", \"a4r\", etc."

454 (save-excursion

455 (YaTeX-visit-main t)

456 (goto-char (point-min))

457 (let ((opts

458 (if (re-search-forward

459 "^[ \t]*\\\\document\$style\\|class\$[ \t]*\\[\$[^]]*\$\\]" nil t)

460 (YaTeX-split-string (YaTeX-match-string 2) "[ \t]*,[ \t]*"))))

461 (concat

462 (catch 'found-paper

463 (mapcar (lambda (pair)

464 (if (YaTeX-member (car pair) opts)

465 (throw 'found-paper (cdr pair))))

466 YaTeX-paper-type-alist)

467 YaTeX-default-paper-type)

468 (if (YaTeX-member "landscape" opts) (if YaTeX-dos "L" "r") "")))))

469

470 (defvar YaTeX-preview-command-history nil

471 "Holds minibuffer history of preview command.")

472 (put 'YaTeX-preview-command-history 'no-default t)

473 (defvar YaTeX-preview-file-history nil

474 "Holds minibuffer history of file to preview.")

475 (put 'YaTeX-preview-file-history 'no-default t)

476 (defun YaTeX-preview (preview-command preview-file)

477 "Execute xdvi (or other) to tex-preview."

478 (interactive

479 (let* ((command (read-string-with-history

480 "Preview command: "

481 (YaTeX-replace-format

482 (or (YaTeX-get-builtin "PREVIEW") dvi2-command)

483 "p" (format (cond

484 (YaTeX-dos "-y:%s")

485 (t "-paper %s"))

486 (YaTeX-get-paper-type)))

487 'YaTeX-preview-command-history))

488 (file (read-string-with-history

489 "Preview file: "

490 (if (get 'dvi2-command 'region)

491 (substring YaTeX-texput-file

492 0 (rindex YaTeX-texput-file ?.))

493 (YaTeX-get-preview-file-name command))

494 'YaTeX-preview-file-history)))

495 (list command file)))

496 (setq dvi2-command preview-command) ;`dvi2command' is buffer local

497 (save-excursion

498 (YaTeX-visit-main t)

499 (if YaTeX-dos (setq preview-file (expand-file-name preview-file)))

500 (let ((pbuffer "*dvi-preview*") (dir default-directory))

501 (YaTeX-showup-buffer

502 pbuffer (function (lambda (x) (nth 3 (window-edges x)))))

503 (set-buffer (get-buffer-create pbuffer))

504 (erase-buffer)

505 (setq default-directory dir) ;for 18

506 (cd dir) ;for 19

507 (cond

508 ((not (fboundp 'start-process)) ;if MS-DOS

509 (send-string-to-terminal "\e[2J\e[>5h") ;CLS & hide cursor

510 (call-process shell-file-name "con" "*dvi-preview*" nil

511 YaTeX-shell-command-option

512 (concat preview-command " " preview-file))

513 (send-string-to-terminal "\e[>5l") ;show cursor

514 (redraw-display))

515 ((and (string-match "dviout" preview-command) ;maybe on `kon'

516 (stringp (getenv "TERM"))

517 (string-match "^kon" (getenv "TERM")))

518 (call-process shell-file-name "con" "*dvi-preview*" nil

519 YaTeX-shell-command-option

520 (concat preview-command " " preview-file)))

521 (t ;if UNIX

522 (set-process-buffer

523 (let ((process-connection-type nil))

524 (start-process "preview" "*dvi-preview*" shell-file-name

525 YaTeX-shell-command-option

526 (concat preview-command " " preview-file)))

527 (get-buffer pbuffer))

528 (message

529 (concat "Starting " preview-command

530 " to preview " preview-file)))))))

531

532 (defvar YaTeX-xdvi-remote-program "xdvi")

533 (defun YaTeX-xdvi-remote-search (&optional region-mode)

534 "Search string at the point on xdvi -remote window.

535 Non-nil for optional argument REGION-MODE specifies the search string

536 by region."

537 (interactive "P")

538 (let ((pb " *xdvi*") str proc)

539 (save-excursion

540 (if region-mode

541 (setq str (buffer-substring (region-beginning) (region-end)))

542 (setq str (buffer-substring

543 (point)

544 (progn (skip-chars-forward "^\n\\\\}") (point)))))

545 (message "Searching `%s'..." str)

546 (if (boundp 'MULE)

547 (define-program-coding-system

548 (regexp-quote pb) (regexp-quote YaTeX-xdvi-remote-program)

549 *euc-japan*))

550 (setq proc

551 (start-process

552 "xdvi" pb YaTeX-xdvi-remote-program

553 "-remote" (format "SloppySearch(%s) " str)

554 (concat (YaTeX-get-preview-file-name) ".dvi")))

555 (message "Searching `%s'...Done" str))))

556

557 (defun YaTeX-set-virtual-error-position (file-sym line-sym)

558 "Replace the value of FILE-SYM, LINE-SYM by virtual error position."

559 (cond

560 ((and (get 'dvi2-command 'region)

561 (> (symbol-value line-sym) (car (get 'dvi2-command 'offset))))

562 (set file-sym (get 'dvi2-command 'file))

563 (set line-sym

564 (+ (- (apply '- (get 'dvi2-command 'offset)))

565 (symbol-value line-sym)

566 -1)))))

567

568 (defun YaTeX-prev-error ()

569 "Visit previous typeset error.

570 To avoid making confliction of line numbers by editing, jump to

571 error or warning lines in reverse order."

572 (interactive)

573 (let ((cur-buf (buffer-name)) (cur-win (selected-window))

574 b0 errorp error-line typeset-win error-buffer error-win)

575 (if (null (get-buffer YaTeX-typeset-buffer))

576 (error "There is no typesetting buffer."))

577 (YaTeX-showup-buffer YaTeX-typeset-buffer nil t)

578 (setq typeset-win (selected-window))

579 (if (re-search-backward

580 (concat "\$" latex-error-regexp "\$\\|\\("

581 latex-warning-regexp "\\)")

582 nil t)

583 (setq errorp (match-beginning 1))

584 (select-window cur-win)

585 (error "No more errors on %s" cur-buf))

586 (goto-char (setq b0 (match-beginning 0)))

587 (skip-chars-forward "^0-9" (match-end 0))

588 (setq error-line

589 (string-to-int

590 (buffer-substring

591 (point)

592 (progn (skip-chars-forward "0-9" (match-end 0)) (point))))

593 error-buffer (expand-file-name (YaTeX-get-error-file cur-buf)))

594 (if (or (null error-line) (equal 0 error-line))

595 (error "Can't detect error position."))

596 (YaTeX-set-virtual-error-position 'error-buffer 'error-line)

597 (setq error-win (get-buffer-window error-buffer))

598 (select-window cur-win)

599 (cond

600 (error-win (select-window error-win))

601 ((eq (get-lru-window) typeset-win)

602 (YaTeX-switch-to-buffer error-buffer))

603 (t (select-window (get-lru-window))

604 (YaTeX-switch-to-buffer error-buffer)))

605 (setq error-win (selected-window))

606 (goto-line error-line)

607 (message "LaTeX %s in `%s' on line: %d."

608 (if errorp "error" "warning")

609 error-buffer error-line)

610 (select-window typeset-win)

611 (skip-chars-backward "0-9")

612 (recenter (/ (window-height) 2))

613 (sit-for 1)

614 (goto-char b0)

615 (select-window error-win)))

616

617 (defun YaTeX-jump-error-line ()

618 "Jump to corresponding line on latex command's error message."

619 (interactive)

620 (let (error-line error-file error-buf)

621 (save-excursion

622 (beginning-of-line)

623 (setq error-line (re-search-forward "l[ ines]*\\.?\$[1-9][0-9]*\$"

624 (point-end-of-line) t)))

625 (if (null error-line)

626 (if (eobp) (insert (this-command-keys))

627 (error "No line number expression."))

628 (goto-char (match-beginning 0))

629 (setq error-line (string-to-int

630 (buffer-substring (match-beginning 1) (match-end 1)))

631 error-file (expand-file-name

632 (YaTeX-get-error-file YaTeX-current-TeX-buffer)))

633 (YaTeX-set-virtual-error-position 'error-file 'error-line)

634 (setq error-buf (YaTeX-switch-to-buffer error-file t)))

635 (if (null error-buf)

636 (error "`%s' is not found in this directory." error-file))

637 (YaTeX-showup-buffer error-buf nil t)

638 (goto-line error-line)))

639

640 (defun YaTeX-send-string ()

641 "Send string to current typeset process."

642 (interactive)

643 (if (and (eq (process-status YaTeX-typeset-process) 'run)

644 (>= (point) (process-mark YaTeX-typeset-process)))

645 (let ((b (process-mark YaTeX-typeset-process))

646 (e (point-end-of-line)))

647 (goto-char b)

648 (skip-chars-forward " \t" e)

649 (setq b (point))

650 (process-send-string

651 YaTeX-typeset-process (concat (buffer-substring b e) "\n"))

652 (goto-char e)

653 (insert "\n")

654 (set-marker (process-mark YaTeX-typeset-process) (point))

655 (insert " "))

656 (ding)))

657

658 (defun YaTeX-view-error ()

659 (interactive)

660 (if (null (get-buffer YaTeX-typeset-buffer))

661 (message "No typeset buffer found.")

662 (let ((win (selected-window)))

663 (YaTeX-showup-buffer YaTeX-typeset-buffer nil t)

664 ;; Next 3 lines are obsolete because YaTeX-typesetting-buffer is

665 ;; automatically scrolled up at typesetting.

666 ;;(goto-char (point-max))

667 ;;(forward-line -1)

668 ;;(recenter -1)

669 (select-window win))))

670

671 (defun YaTeX-get-error-file (default)

672 "Get current processing file from typesetting log."

673 (save-excursion

674 (let(s)

675 (condition-case () (up-list -1)

676 (error

677 (let ((list 0) found)

678 (while

679 (and (<= list 0) (not found)

680 (re-search-backward "\$(\$\\|\$)\$" nil t))

681 (if (equal (match-beginning 0) (match-beginning 2)) ;close paren.

682 (setq list (1- list)) ;open paren

683 (setq list (1+ list))

684 (if (= list 1)

685 (if (looking-at "\$[^,{}%]+\.\$tex\\|sty")

686 (setq found t)

687 (setq list (1- list)))))))))

688 (setq s

689 (buffer-substring

690 (progn (forward-char 1) (point))

691 (progn (skip-chars-forward "^ \n" (point-end-of-line))

692 (point))))

693 (if (string= "" s) default s))))

694

695 (defun YaTeX-put-nonstopmode ()

696 (if (and (eq major-mode 'yatex-mode) YaTeX-need-nonstop)

697 (if (re-search-backward "\\\\nonstopmode{}" (point-min) t)

698 nil ;if already written in text then do nothing

699 (save-excursion

700 (YaTeX-visit-main t)

701 (goto-char (point-min))

702 (insert "\\nonstopmode{}%_YaTeX_%\n")

703 (if (buffer-file-name) (basic-save-buffer))))))

704

705 (defun YaTeX-remove-nonstopmode ()

706 (if (and (eq major-mode 'yatex-mode) YaTeX-need-nonstop) ;for speed

707 (save-excursion

708 (YaTeX-visit-main t)

709 (goto-char (point-min))

710 (forward-line 1)

711 (narrow-to-region (point-min) (point))

712 (goto-char (point-min))

713 (delete-matching-lines "^\\\\nonstopmode\\{\\}%_YaTeX_%$")

714 (widen))))

715

716 (defvar YaTeX-dvi2-command-ext-alist

717 '(("[agx]dvi\\|dviout" . ".dvi")

718 ("ghostview\\|gv" . ".ps")

720

721 (defun YaTeX-get-preview-file-name (&optional preview-command)

722 "Get file name to preview by inquiring YaTeX-get-latex-command"

723 (if (null preview-command) (setq preview-command dvi2-command))

724 (let* ((latex-cmd (YaTeX-get-latex-command t))

725 (rin (rindex latex-cmd ? ))

726 (fname (if rin (substring latex-cmd (1+ rin)) ""))

727 (r (YaTeX-assoc-regexp preview-command YaTeX-dvi2-command-ext-alist))

728 (ext (if r (cdr r) "")))

729 (concat

730 (if (string= fname "")

731 (setq fname (substring (file-name-nondirectory

732 (buffer-file-name))

733 0 -4))

734 (setq fname (substring fname 0 (rindex fname ?.))))

735 ext)))

736

737 (defun YaTeX-get-latex-command (&optional switch)

738 "Specify the latex-command name and its argument.

739 If there is a line which begins with string: \"%#!\", the following

740 strings are assumed to be the latex-command and arguments. The

741 default value of latex-command is:

742 tex-command FileName

743 and if you write \"%#!jlatex\" in the beginning of certain line.

744 \"jlatex \" FileName

745 will be the latex-command,

746 and you write \"%#!jlatex main.tex\" on some line and argument SWITCH

747 is non-nil, then

748 \"jlatex main.tex\"

749

750 will be given to the shell."

751 (let (parent tparent magic)

752 (setq parent

753 (cond

754 (YaTeX-parent-file

755 (if YaTeX-dos (expand-file-name YaTeX-parent-file)

756 YaTeX-parent-file))

757 (t (save-excursion

758 (YaTeX-visit-main t)

759 (file-name-nondirectory (buffer-file-name)))))

760 magic (YaTeX-get-builtin "!")

761 tparent (file-name-nondirectory parent))

762 (YaTeX-replace-formats

763 (cond

764 (magic

765 (cond

766 (switch (if (string-match "\\s " magic) magic

767 (concat magic " " parent)))

768 (t (concat (substring magic 0 (string-match "\\s " magic)) " "))))

769 (t (concat tex-command " " (if switch parent))))

770 (list (cons "f" tparent)

771 (cons "r" (substring tparent 0 (rindex tparent ?.)))))))

772

773 (defvar YaTeX-lpr-command-history nil

774 "Holds command line history of YaTeX-lpr.")

775 (put 'YaTeX-lpr-command-history 'no-default t)

776 (defvar YaTeX-lpr-ask-page-range-default t)

777 (defun YaTeX-lpr (arg)

778 "Print out.

779 If prefix arg ARG is non nil, call print driver without

780 page range description."

781 (interactive "P")

782 (or YaTeX-lpr-ask-page-range-default (setq arg (not arg)))

783 (let*((cmd (or (YaTeX-get-builtin "LPR") dviprint-command-format))

784 from to (lbuffer "*dvi-printing*") dir)

785 (setq

786 cmd

787 (YaTeX-replace-format

788 cmd "f"

789 (if (or arg (not (string-match "%f" cmd)))

790 ""

791 (YaTeX-replace-format

792 dviprint-from-format

793 "b"

794 (if (string=

795 (setq from (read-string "From page(default 1): ")) "")

796 "1" from))))

797 )

798 (setq

799 cmd

800 (YaTeX-replace-format

801 cmd "t"

802 (if (or arg (not (string-match "%t" cmd))

803 (string=

804 (setq to (read-string "To page(default none): ")) ""))

805 ""

806 (YaTeX-replace-format dviprint-to-format "e" to)))

807 )

808 (setq

809 cmd

810 (YaTeX-replace-format

811 cmd "p"

812 (cdr (assoc (YaTeX-get-paper-type) YaTeX-dvips-paper-option-alist))))

813 (setq cmd

814 (read-string-with-history

815 "Edit command line: "

816 (format cmd

817 (if (get 'dvi2-command 'region)

818 (substring YaTeX-texput-file

819 0 (rindex YaTeX-texput-file ?.))

820 (YaTeX-get-preview-file-name)))

821 'YaTeX-lpr-command-history))

822 (save-excursion

823 (YaTeX-visit-main t) ;;change execution directory

824 (setq dir default-directory)

825 (YaTeX-showup-buffer

826 lbuffer (function (lambda (x) (nth 3 (window-edges x)))))

827 (set-buffer (get-buffer-create lbuffer))

828 (erase-buffer)

829 (cd dir) ;for 19

830 (cond

831 ((not (fboundp 'start-process))

832 (call-process shell-file-name "con" "*dvi-printing*" nil

833 YaTeX-shell-command-option cmd))

834 (t

835 (set-process-buffer

836 (let ((process-connection-type nil))

837 (start-process "print" "*dvi-printing*" shell-file-name

838 YaTeX-shell-command-option cmd))

839 (get-buffer lbuffer))

840 (message "Starting printing command: %s..." cmd))))))

841

842 (defun YaTeX-main-file-p ()

843 "Return if current buffer is main LaTeX source."

844 (cond

845 (YaTeX-parent-file

846 (eq (get-file-buffer YaTeX-parent-file) (current-buffer)))

847 ((YaTeX-get-builtin "!")

848 (string-match

849 (concat "^" (YaTeX-guess-parent (YaTeX-get-builtin "!")))

850 (buffer-name)))

851 (t

852 (save-excursion

853 (let ((latex-main-id

854 (concat "^\\s *" YaTeX-ec-regexp "document\$style\\|class\$")))

855 (or (re-search-backward latex-main-id nil t)

856 (re-search-forward latex-main-id nil t)))))))

857

858 (defun YaTeX-visit-main (&optional setbuf)

859 "Switch buffer to main LaTeX source.

860 Use set-buffer instead of switch-to-buffer if the optional argument

861 SETBUF is t(Use it only from Emacs-Lisp program)."

862 (interactive "P")

863 (if (and (interactive-p) setbuf) (setq YaTeX-parent-file nil))

864 (let ((ff (function (lambda (f)

865 (if setbuf (set-buffer (find-file-noselect f))

866 (find-file f)))))

867 b-in main-file YaTeX-create-file-prefix-g

868 (hilit-auto-highlight (not setbuf)))

869 (if (setq b-in (YaTeX-get-builtin "!"))

870 (setq main-file (YaTeX-guess-parent b-in)))

871 (if YaTeX-parent-file

872 (setq main-file ;;(get-file-buffer YaTeX-parent-file)

873 YaTeX-parent-file))

874 (if (YaTeX-main-file-p)

875 (if (interactive-p) (message "I think this is main LaTeX source.") nil)

876 (cond

877 ((and ;;(interactive-p)

878 main-file

879 (cond ((get-file-buffer main-file)

880 (cond

881 (setbuf (set-buffer (get-file-buffer main-file)))

882 ((get-buffer-window (get-file-buffer main-file))

883 (select-window

884 (get-buffer-window (get-file-buffer main-file))))

885 (t (switch-to-buffer (get-file-buffer main-file)))))

886 ((file-exists-p main-file)

887 (funcall ff main-file)))))

888 ;;((and main-file (YaTeX-switch-to-buffer main-file setbuf)))

889 ((and main-file

890 (file-exists-p (setq main-file (concat "../" main-file)))

891 (or b-in

892 (y-or-n-p (concat (expand-file-name main-file)

893 " is main file?:"))))

894 (setq YaTeX-parent-file main-file)

895 ;(YaTeX-switch-to-buffer main-file setbuf)

896 (funcall ff main-file)

897 )

898 (t (setq main-file (read-file-name "Enter your main text: " nil nil 1))

899 (setq YaTeX-parent-file main-file)

900 ; (YaTeX-switch-to-buffer main-file setbuf))

901 (funcall ff main-file))

902 )))

903 nil)

904

905 (defun YaTeX-guess-parent (command-line)

906 (setq command-line

907 (if (string-match ".*\\s " command-line)

908 (substring command-line (match-end 0))

909 (file-name-nondirectory (buffer-file-name)))

910 command-line

911 (concat (if (string-match "\$.*\$\\." command-line)

912 (substring command-line (match-beginning 1) (match-end 1))

913 command-line)

914 ".tex")))

915

916 (defun YaTeX-visit-main-other-window ()

917 "Switch to buffer main LaTeX source in other window."

918 (interactive)

919 (if (YaTeX-main-file-p) (message "I think this is main LaTeX source.")

920 (YaTeX-switch-to-buffer-other-window

921 (concat (YaTeX-get-preview-file-name) ".tex"))))

922

923 (defun YaTeX-save-buffers ()

924 "Save buffers whose major-mode is equal to current major-mode."

925 (basic-save-buffer)

926 (let ((cmm major-mode))

927 (save-excursion

928 (mapcar '(lambda (buf)

929 (set-buffer buf)

930 (if (and (buffer-file-name buf)

931 (eq major-mode cmm)

932 (buffer-modified-p buf)

933 (y-or-n-p (format "Save %s" (buffer-name buf))))

934 (save-buffer buf)))

935 (buffer-list)))))

936

937 (provide 'yatexprc)