yatex: 9b3093c0c181 yatexprc.el

yatex

view yatexprc.el @ 374:9b3093c0c181

conv2image format set to jpg for testing

author	HIROSE Yuuji <yuuji@gentei.org>
date	Tue, 30 Dec 2014 09:19:04 +0900
parents	1b2e55ef1026
children	afb8cb06b1d4

line source

1 ;;; yatexprc.el --- YaTeX process handler

2 ;;;

4 ;;; Last modified Tue Dec 30 09:17:29 2014 on sdr

5 ;;; $Id$

7 ;;; Code:

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 (defvar YaTeX-typeset-marker nil)

59 (defvar YaTeX-typeset-consumption nil)

60 (make-variable-buffer-local 'YaTeX-typeset-consumption)

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

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

63 (interactive)

64 (save-excursion

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

66 (map YaTeX-typesetting-mode-map)

67 (background (string-match "\\*bg:" buffer))

68 (outcode

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

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

71 (if (and YaTeX-typeset-process

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

73 ;; if tex command is halting.

74 (YaTeX-kill-typeset-process YaTeX-typeset-process))

75 (YaTeX-put-nonstopmode)

76 (setq prcname (or prcname "LaTeX")

77 modename (or modename "typeset"))

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

79 (setq execdir default-directory)

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

81 ;;typeset buffer not seen.

82 (if background

83 nil ;do not showup

84 (YaTeX-showup-buffer

85 buffer 'YaTeX-showup-buffer-bottom-most))

86 (set-buffer (get-buffer-create buffer))

87 (setq default-directory execdir)

88 (cd execdir)

89 (erase-buffer)

90 (cond

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

92 (call-process

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

94 (t ;if UNIX

95 (set-process-buffer

96 (setq YaTeX-typeset-process

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

98 YaTeX-shell-command-option command))

99 (get-buffer buffer))

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

101 (put 'YaTeX-typeset-process 'thiscmd command)

102 (put 'YaTeX-typeset-process 'name prcname)

103 (if (fboundp 'current-time)

104 (setq YaTeX-typeset-consumption

105 (cons (cons 'time (current-time))

106 (delq 'time YaTeX-typeset-consumption))))

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

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

109 (if ppcmd

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

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

112 (if (and (boundp 'bibcmd) bibcmd)

113 (let ((bcprop (get 'YaTeX-typeset-process 'bibcmd)))

114 (setq bcprop (cons

115 (cons YaTeX-typeset-process bibcmd)

116 (delq (assq YaTeX-typeset-process bcprop) bcprop)))

117 (put 'YaTeX-typeset-process 'bibcmd bcprop)))))

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

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

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

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

122 (setq mode-name modename)

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

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

125 (set-current-process-coding-system

126 YaTeX-latex-message-code outcode))

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

128 (set-process-coding-system

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

130 (YaTeX-emacs-20

131 (set-buffer-process-coding-system

132 YaTeX-latex-message-code outcode))

133 ((boundp 'NEMACS)

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

135 (set-marker (or YaTeX-typeset-marker

136 (setq YaTeX-typeset-marker (make-marker)))

137 (point))

138 (insert (format "Call `%s'\n" command))

139 (cond

140 ((fboundp 'start-process)

141 (insert " ")

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

143 (t (message "Done.")))

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

145 (cond

146 (background nil)

147 ((and YaTeX-emacs-19 window-system)

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

149 (select-frame (window-frame win))

150 (setq owin (selected-window))

151 (select-window win)

152 (goto-char (point-max))

153 (recenter -1)

154 (select-window owin)))

155 (t (select-window (get-buffer-window buffer))

156 (goto-char (point-max))

157 (recenter -1)))

158 (select-window window)

159 (switch-to-buffer cb)

160 (YaTeX-remove-nonstopmode))))

161

162 (defvar YaTeX-typeset-auto-rerun t

163 "*Non-nil automatically reruns typesetter when cross-refs update found.

164 This is a toy mechanism. DO NOT RELY ON THIS MECHANISM.

165 You SHOULD check the integrity of cross-references with your eyes!!

166 Supplying an integer to this variable inhibit compulsory call of bibtex,

167 thus, it call bibtex only if warning messages about citation are seen.")

168 (defvar YaTeX-typeset-rerun-msg "Rerun to get cross-references right.")

169 (defvar YaTeX-typeset-citation-msg

170 "Warning: Citation \`")

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

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

173 ;; buffer killed

174 (set-process-buffer proc nil))

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

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

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

178 (owin (selected-window)) win

179 tobecalled shortname

180 (thiscmd (get 'YaTeX-typeset-process 'thiscmd))

181 (ppprop (get 'YaTeX-typeset-process 'ppcmd))

182 z (ppcmd (cdr (assq proc ppprop)))

183 (bcprop (get 'YaTeX-typeset-process 'bibcmd))

184 (bibcmd (cdr (assq proc bcprop))))

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

186 (delq (assq proc ppprop) ppprop))

187 (put 'YaTeX-typeset-process 'bibcmd ;erase bibcmd

188 (delq (assq proc bcprop) bcprop))

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

190 ;; process-buffer is current-buffer

191 (unwind-protect

192 (progn

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

194 (if pwin

195 (select-window pwin)

196 (set-buffer pbuf))

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

198 (goto-char (point-max))

199 (if pwin (recenter -3))

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

201 (forward-char -1)

202 (insert

203 (format " at %s%s\n"

204 (substring (current-time-string) 0 -5)

205 (if (and (fboundp 'current-time) (fboundp 'float)

206 (assq 'time YaTeX-typeset-consumption))

207 (format

208 " (%.2f secs)"

209 (YaTeX-elapsed-time

210 (cdr (assq 'time YaTeX-typeset-consumption))

211 (current-time))))))

212 (setq mode-line-process

213 (concat ": "

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

215 (message "%s %s" mode-name

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

217 "done" "ceased"))

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

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

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

221 (delete-process proc)

222 (if (cond

223 ((or (not YaTeX-typeset-auto-rerun)

224 (string-match "latexmk" thiscmd))

225 nil)

226 ((and bibcmd ;Call bibtex if bibcmd defined &&

227 (or ; (1st call || warning found)

228 (and (not (numberp YaTeX-typeset-auto-rerun))

229 ; cancel call at 1st, if value is a number.

230 (not (string-match "bibtex" mode-name)))

231 (re-search-backward

232 YaTeX-typeset-citation-msg

233 YaTeX-typeset-marker t))

234 (save-excursion ; && using .bbl files.

235 (search-backward

236 ".bbl" YaTeX-typeset-marker t)))

237 ;; Always call bibtex after the first typesetting,

238 ;; because bibtex doesn't warn disappeared \cite.

239 ;; (Suggested by ryseto. 2012)

240 ;; It is more efficient to call bibtex directly than

241 ;; to call it after deep inspection on the balance

242 ;; of \cite vs. \bib*'s referring all *.aux files.

243 (insert "\n" YaTeX-typeset-rerun-msg "\n")

244 (setq tobecalled bibcmd shortname "+bibtex"))

245 ((or

246 (save-excursion

247 (search-backward

248 YaTeX-typeset-rerun-msg YaTeX-typeset-marker t))

249 (save-excursion

250 (re-search-backward

251 "natbib.*Rerun to get citations correct"

252 YaTeX-typeset-marker t)))

253 (if bibcmd

254 (put 'YaTeX-typeset-process 'bibcmd

255 (cons (cons (get-buffer-process pbuf) bibcmd)

256 bcprop)))

257 (setq tobecalled thiscmd shortname "+typeset"))

258 (t

259 nil)) ;no need to call any process

260 (progn ;;Something occurs to call next command

261 (insert

262 (format

263 "===!!! %s !!!===\n"

264 (message "Rerun `%s' to get cross-references right"

265 tobecalled)))

266 (if (equal tobecalled thiscmd)

267 (set-marker YaTeX-typeset-marker (point)))

268 (set-process-sentinel

269 (start-process

270 (setq mode-name (concat mode-name shortname))

271 pbuf

272 shell-file-name YaTeX-shell-command-option tobecalled)

273 'YaTeX-typeset-sentinel)

274 (if ppcmd

275 (put 'YaTeX-typeset-process 'ppcmd

276 (cons (cons (get-buffer-process pbuf) ppcmd)

277 ppprop)))

278 (if thiscmd

279 (put 'YaTeX-typeset-process 'thiscmd thiscmd)))

280 ;; If ppcmd is active, call it.

281 (cond

282 ((and ppcmd (symbolp ppcmd) (fboundp ppcmd))

283 ;; If ppcmd is set and it is a function symbol,

284 ;; call it whenever command succeeded or not

285 (funcall ppcmd))

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

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

288 (setq mode-name ; set process name

289 (concat

290 mode-name "+"

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

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

293 (set-process-sentinel

294 (start-process

295 mode-name

296 pbuf ; Use this buffer twice.

297 shell-file-name YaTeX-shell-command-option

298 ppcmd)

299 'YaTeX-typeset-sentinel))

300 (t ;pull back original mode-name

301 ;;Confirm process buffer to be shown when error occured

302 (YaTeX-showup-buffer pbuf 'YaTeX-showup-buffer-bottom-most)

303 (message "Command FAILED!")

304 (setq mode-name "typeset"))))

305 (forward-char 1))

306 (setq YaTeX-typeset-process nil)

307 ;; Force mode line redisplay soon

308 (set-buffer-modified-p (buffer-modified-p))

309 )

310 (select-window owin)

311 (set-buffer obuf)))))

312

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

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

315

316 (defun YaTeX-typeset-region (&optional pp)

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

318 The region is specified by the rule:

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

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

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

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

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

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

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

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

327 operation to the region.

328 Optional second argument PP specifies post-processor command which will be

329 called with one argument of current file name whitout extension."

330 (interactive)

331 (save-excursion

332 (let*

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

334 (texput YaTeX-texput-file)

335 (texputroot (substring texput 0 (string-match "\\.tex$" texput)))

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

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

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

339 ppcmd

340 reg-begin reg-end lineinfo)

341 (setq ppcmd (if (stringp pp) (concat pp " " texputroot) pp))

342 (save-excursion

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

344 (progn

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

346 end "the end of the buffer ---"

347 reg-begin (match-end 0))

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

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

350 end "END ---")

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

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

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

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

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

356 (goto-char (point-min))

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

358 (setq subpreamble

359 (concat subpreamble

360 (cond

361 ((eolp)

362 (buffer-substring

363 (match-beginning 0)

364 (point-beginning-of-line)))

365 (t (buffer-substring

366 (match-end 0)

367 (point-end-of-line))))

368 "\n"))

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

370 (YaTeX-visit-main t)

371 (setq main (current-buffer))

372 (setq opoint (point))

373 (goto-char (point-min))

374 (setq

375 preamble

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

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

378 (concat

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

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

381 "\\begin{document}")))

382 (goto-char opoint)

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

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

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

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

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

388 (erase-buffer)

389 (YaTeX-set-file-coding-system YaTeX-kanji-code YaTeX-coding-system)

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

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

392 (insert preamble "\n" subpreamble "\n"

393 "\\pagestyle{empty}\n\\thispagestyle{empty}\n")

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

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

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

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

398 (basic-save-buffer)

399 (kill-buffer (current-buffer))

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

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

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

403 (put 'dvi2-command 'region t)

404 (put 'dvi2-command 'file buffer)

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

406

407 (defvar YaTeX-use-image-preview t

408 "*Use or else view graphic preview image via [prefix] t e.")

409 (defvar YaTeX-preview-image-mode-map nil

410 "Keymap used in YaTeX-preview-image-mode")

411 (defun YaTeX-preview-image-mode ()

412 (interactive)

413 (if YaTeX-preview-image-mode-map

414 nil

415 (let ((map (setq YaTeX-preview-image-mode-map (make-sparse-keymap))))

416 (define-key map "q" (lambda()(interactive)

417 (kill-buffer)

418 (select-window

419 (or (get 'YaTeX-typeset-process 'win)

420 (selected-window)))))

421 (define-key map "j" (lambda()(interactive) (scroll-up 1)))

422 (define-key map "k" (lambda()(interactive) (scroll-up -1)))))

423 (use-local-map YaTeX-preview-image-mode-map))

424

425 (defvar YaTeX-typeset-pdf2image-chain

426 (cond

427 ((YaTeX-executable-find "pdfcrop") ;Mac OS X

428 (list

429 "pdfcrop --clip %b.pdf tmp.pdf"

430 (if (YaTeX-executable-find "convert")

431 "convert -density %d tmp.pdf %b.%f"

432 "sips -s format %f -s dpiWidth %d -s dpiHeight %d %b.pdf --out %b.%f")

433 "rm -f tmp.pdf")))

434 "*Pipe line of command as a list to create image file from PDF.

435 See also doc-string of YaTeX-typeset-dvi2image-chain.")

436

437 (defvar YaTeX-typeset-dvi2image-chain

438 (cond

439 ((YaTeX-executable-find "dvipng")

440 (list "dvipng %b.dvi"))

441 ((YaTeX-executable-find YaTeX-cmd-dvips)

442 (list

443 (format "%s -E -o %%b.eps %%b.dvi" YaTeX-cmd-dvips)

444 "convert -alpha off -density %d %b.eps %b.%f")))

445 "*Pipe line of command as a list to create png file from DVI or PDF.

446 %-notation rewritten list:

447 %b basename of target file(\"texput\")

448 %f Output format(\"png\")

449 %d DPI

450 ")

451

452 (defvar YaTeX-typeset-conv2image-chain-alist

453 (list (cons 'pdf YaTeX-typeset-pdf2image-chain)

454 (cons 'dvi YaTeX-typeset-dvi2image-chain))

455 "Default alist for creating image files from DVI/PDF.

456 The value is generated from YaTeX-typeset-pdf2image-chain and

457 YaTeX-typeset-dvi2image-chain.")

458

459 (defvar YaTeX-typeset-conv2image-process nil "Process of conv2image chain")

460 (defun YaTeX-typeset-conv2image-chain ()

461 (let*((proc (or YaTeX-typeset-process YaTeX-typeset-conv2image-process))

462 (prevname (process-name proc))

463 (texput "texput") (format "jpg")

464 (target (concat texput "." format))

465 (math (get 'YaTeX-typeset-conv2image-chain 'math))

466 (srctype (or (get 'YaTeX-typeset-conv2image-chain 'srctype)

467 (if (file-newer-than-file-p

468 (concat texput ".pdf")

469 (concat texput ".dvi"))

470 'pdf 'dvi)))

471 (chain (cdr (assq srctype YaTeX-typeset-conv2image-chain-alist)))

472 ;; This function is the first evaluation code.

473 ;; If you find these command line does not work

474 ;; on your system, please tell the author

475 ;; which commands should be taken to achieve

476 ;; one-shot png previewing on your system

477 ;; before publishing patch on the Web.

478 ;; Please please please please please.

479 (curproc (member prevname chain))

480 (w (get 'YaTeX-typeset-conv2image-chain 'win))

481 (pwd default-directory)

482 img)

483 (if (not (= (process-exit-status proc) 0))

484 (progn

485 (YaTeX-showup-buffer ;never comes here(?)

486 (current-buffer) 'YaTeX-showup-buffer-bottom-most)

487 (message "Region typesetting FAILED"))

488 (setq command

489 (if curproc (car (cdr-safe curproc)) (car chain)))

490 (if command

491 (let ((cmdline (YaTeX-replace-formats

492 command

493 (list (cons "b" "texput")

494 (cons "f" format)

495 (cons "d" (if math "300" "200"))))))

496 (insert (format "Calling `%s'...\n" cmdline))

497 (set-process-sentinel

498 (setq YaTeX-typeset-conv2image-process

499 (start-process

500 command

501 (current-buffer)

502 shell-file-name YaTeX-shell-command-option

503 cmdline))

504 'YaTeX-typeset-sentinel)

505 (put 'YaTeX-typeset-process 'ppcmd

506 (cons (cons (get-buffer-process (current-buffer))

507 'YaTeX-typeset-conv2image-chain)

508 (get 'YaTeX-typeset-process 'ppcmd))))

509 ;; After all chain executed, display image in current window

510 (cond

511 ((and (featurep 'image) window-system)

512 ;; If direct image displaying available in running Emacs,

513 ;; display target image into the next window in Emacs.

514 (select-window w)

515 ;(setq foo (selected-window))

516 (YaTeX-showup-buffer

517 (get-buffer-create " *YaTeX-region-image*")

518 'YaTeX-showup-buffer-bottom-most t)

519 (remove-images (point-min) (point-max))

520 (erase-buffer)

521 (cd pwd) ;when reuse from other source

522 ;(put-image (create-image (expand-file-name target)) (point))

523 (insert-image-file target)

524 (setq img (plist-get (text-properties-at (point)) 'intangible))

525 (YaTeX-preview-image-mode)

526 (if img

527 (let ((height (cdr (image-size img))))

528 (enlarge-window

529 (- (ceiling (min height (/ (frame-height) 2)))

530 (window-height))))))

531 (t

532 ;; Without direct image, display image with image viewer

533 (YaTeX-system

534 (format "%s %s" YaTeX-cmd-view-images target)

535 "YaTeX-region-image"

536 'noask)

537 )

538 )))))

539

540 (defun YaTeX-typeset-environment ()

541 "Typeset current environment or paragraph.

542 If region activated, use it."

543 (interactive)

544 (save-excursion

545 (let ((math (YaTeX-in-math-mode-p)))

546 (cond

547 ((and (fboundp 'region-active-p) (region-active-p))

548 nil) ;if region is active, use it

549 (math (YaTeX-mark-environment))

550 ((equal (or (YaTeX-inner-environment t) "document") "document")

551 (mark-paragraph))

552 (t (YaTeX-mark-environment)))

553 (if YaTeX-use-image-preview

554 (let ((YaTeX-typeset-buffer (concat "*bg:" YaTeX-typeset-buffer)))

555 (put 'YaTeX-typeset-conv2image-chain 'math math)

556 (put 'YaTeX-typeset-conv2image-chain 'srctype nil)

557 (put 'YaTeX-typeset-conv2image-chain 'win (selected-window))

558 (YaTeX-typeset-region 'YaTeX-typeset-conv2image-chain))

559 (YaTeX-typeset-region)))))

560

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

562 "Typeset whole buffer.

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

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

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

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

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

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

569 last extension.

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

571 platex foo.tex

572 dvipdfmx foo

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

574 (interactive)

575 (YaTeX-save-buffers)

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

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

578 (cmd (YaTeX-get-latex-command t)) pparg ppcmd bibcmd

579 (cb (current-buffer)))

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

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

582 pparg (substring pparg 0 (rindex pparg ?.)) ;rm ext

583 bibcmd (or (YaTeX-get-builtin "BIBTEX") bibtex-command))

584 (or (string-match "\\s " bibcmd) ;if bibcmd has no spaces,

585 (setq bibcmd (concat bibcmd pparg))) ;append argument(== %#!)

586 (and pp

587 (stringp pp)

588 (setq ppcmd (concat pp pparg)))

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

590 (save-excursion

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

592 (save-excursion

593 (push-mark (point) t)

594 (goto-char (point-min))

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

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

597 (let*

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

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

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

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

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

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

604 (ding)

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

606 (setq

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

608 (concat

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

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

611 mydir) ;else concat absolute path name.

612 me))

613 (message

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

615 me)

616 (setq c (read-char))

617 (cond

618 ((= c ?a)

619 (goto-char (1+ b))

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

621 ((= c ?r)

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

623 ((= c ?%)

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

625 (t nil))

626 (basic-save-buffer))))

627 (exchange-point-and-mark)))

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

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

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

631

632 (defvar YaTeX-call-command-history nil

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

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

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

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

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

638 FILE changes the default file name."

639 (YaTeX-save-buffers)

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

641 (let ((me (file-name-nondirectory

642 (or file buffer-file-name))))

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

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

645 me)))))

646 (or YaTeX-call-command-history

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

648 (YaTeX-typeset

649 (read-string-with-history

650 "Call command: "

651 (car YaTeX-call-command-history)

652 'YaTeX-call-command-history)

653 buffer)))

654

655 (defvar YaTeX-call-builtin-on-file)

656 (make-variable-buffer-local 'YaTeX-call-builtin-on-file)

657 (defun YaTeX-call-builtin-on-file (builtin-type &optional default update)

658 "Call command on file specified by BUILTIN-TYPE."

659 (YaTeX-save-buffers)

660 (let*((main (or YaTeX-parent-file

661 (save-excursion (YaTeX-visit-main t) buffer-file-name)))

662 (mainroot (file-name-nondirectory (substring main 0 (rindex main ?.))))

663 (alist YaTeX-call-builtin-on-file)

664 (b-in (or (YaTeX-get-builtin builtin-type)

665 (cdr (assoc builtin-type alist))))

666 (command b-in))

667 (if (or update (null b-in))

668 (progn

669 (setq command (read-string-with-history

670 (format "%s command: " builtin-type)

671 (or b-in

672 (format "%s %s" default mainroot))

673 'YaTeX-call-command-history))

674 (if (or update (null b-in))

675 (if (y-or-n-p "Memorize this command line in this file? ")

676 (YaTeX-getset-builtin builtin-type command) ;keep in a file

677 (setq YaTeX-call-builtin-on-file ;keep in memory

678 (cons (cons builtin-type command)

679 (delete (assoc builtin-type alist) alist)))

680 (message "`%s' kept in memory. Type `%s %s' to override."

681 command

682 (key-description

683 (car (where-is-internal 'universal-argument)))

684 (key-description (this-command-keys)))

685 (sit-for 2)))))

686 (YaTeX-typeset

687 command

688 (format " *YaTeX-%s*" (downcase builtin-type))

689 builtin-type builtin-type)))

690

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

692 "Kill process PROC after sending signal to PROC.

693 PROC should be process identifier."

694 (cond

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

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

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

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

699 (t

700 (save-excursion

701 (set-buffer (process-buffer proc))

702 (save-excursion

703 (goto-char (point-max))

704 (beginning-of-line)

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

706 (let ((mp (point-max)))

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

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

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

710 (progn

711 (interrupt-process proc)

712 (delete-process proc))))))

713

714 (defun YaTeX-system (command name &optional noask basedir)

715 "Execute some COMMAND with process name `NAME'. Not a official function.

716 Optional second argument NOASK skip query when privious process running.

717 Optional third argument BASEDIR changes default-directory there."

718 (save-excursion

719 (let ((df default-directory)

720 (buffer (get-buffer-create (format " *%s*" name)))

721 proc status)

722 (set-buffer buffer)

723 (setq default-directory (cd (or basedir df)))

724 (erase-buffer)

725 (insert (format "Calling `%s'...\n" command)

726 "==Kill this buffer to STOP process==")

727 (YaTeX-showup-buffer buffer 'YaTeX-showup-buffer-bottom-most)

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

729 (call-process

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

731 (if (and (setq proc (get-buffer-process buffer))

732 (setq status (process-status proc))

733 (eq status 'run)

734 (not noask)

735 (not

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

737 nil

738 (if (eq status 'run)

739 (progn (interrupt-process proc) (delete-process proc)))

740 (set-process-buffer

741 (start-process

742 name buffer shell-file-name YaTeX-shell-command-option command)

743 (get-buffer buffer)))))))

744

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

746 "*Default paper type.")

747 (defconst YaTeX-paper-type-alist

748 '(("a4paper" . "a4")

749 ("a5paper" . "a5")

750 ("b4paper" . "b4")

751 ("b5paper" . "b5"))

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

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

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

755 ("a5" . "-t a5")

756 ("b4" . "-t b4")

757 ("b5" . "-t b5")

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

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

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

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

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

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

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

765 (save-excursion

766 (YaTeX-visit-main t)

767 (goto-char (point-min))

768 (let ((opts

769 (if (re-search-forward

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

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

772 (concat

773 (catch 'found-paper

774 (mapcar (lambda (pair)

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

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

777 YaTeX-paper-type-alist)

778 YaTeX-default-paper-type)

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

780

781 (defvar YaTeX-preview-command-history nil

782 "Holds minibuffer history of preview command.")

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

784 (defvar YaTeX-preview-file-history nil

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

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

787 (defun YaTeX-preview-default-previewer ()

788 "Return default previewer for this document"

789 (YaTeX-replace-format

790 (or (YaTeX-get-builtin "PREVIEW")

791 (if (eq (get 'dvi2-command 'format) 'pdf)

792 tex-pdfview-command

793 dvi2-command))

794 "p" (format (cond

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

796 (t "-paper %s"))

797 (YaTeX-get-paper-type))))

798 (defun YaTeX-preview-default-main (command)

799 "Return default preview target file"

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

801 (substring YaTeX-texput-file

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

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

804 (defun YaTeX-preview (preview-command preview-file &optional as-default)

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

806 (interactive

807 (let* ((previewer (YaTeX-preview-default-previewer))

808 (as-default current-prefix-arg)

809 (command (if as-default

810 previewer

811 (read-string-with-history

812 "Preview command: "

813 previewer

814 'YaTeX-preview-command-history)))

815 (target (YaTeX-preview-default-main command))

816 (file (if as-default

817 target

818 (read-string-with-history

819 "Preview file: "

820 target

821 'YaTeX-preview-file-history))))

822 (list command file)))

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

824 (save-excursion

825 (YaTeX-visit-main t)

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

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

828 (YaTeX-showup-buffer

829 pbuffer 'YaTeX-showup-buffer-bottom-most)

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

831 (erase-buffer)

832 (setq default-directory dir) ;for 18

833 (cd dir) ;for 19

834 (cond

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

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

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

838 YaTeX-shell-command-option

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

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

841 (redraw-display))

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

843 (stringp (getenv "TERM"))

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

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

846 YaTeX-shell-command-option

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

848 (t ;if UNIX

849 (set-process-buffer

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

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

852 YaTeX-shell-command-option

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

854 (get-buffer pbuffer))

855 (message

856 (concat "Starting " preview-command

857 " to preview " preview-file)))))))

858

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

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

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

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

863 by region."

864 (interactive "P")

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

866 (save-excursion

867 (if region-mode

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

869 (setq str (buffer-substring

870 (point)

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

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

873 (if (boundp 'MULE)

874 (define-program-coding-system

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

876 *euc-japan*))

877 (setq proc

878 (start-process

879 "xdvi" pb YaTeX-xdvi-remote-program

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

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

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

883

884 (defun YaTeX-preview-jlfmt-xdvi ()

885 "Call xdvi -sourceposition to DVI corresponding to current main file"

886 (interactive))

887

888 (defun YaTeX-preview-jump-line ()

889 "Call jump-line function of various previewer on current main file"

890 (interactive)

891 (save-excursion

892 (save-restriction

893 (widen)

894 (let*((pf (or YaTeX-parent-file

895 (save-excursion (YaTeX-visit-main t) (buffer-file-name))))

896 (pdir (file-name-directory pf))

897 (bnr (substring pf 0 (string-match "\\....$" pf)))

898 (cf (file-relative-name (buffer-file-name) pdir))

899 (buffer (get-buffer-create " *preview-jump-line*"))

900 (line (count-lines (point-min) (point-end-of-line)))

901 (previewer (YaTeX-preview-default-previewer))

902 (cmd (cond

903 ((string-match "xdvi" previewer)

904 (format "%s -nofork -sourceposition '%d %s' %s.dvi"

905 YaTeX-xdvi-remote-program

906 line cf bnr))

907 ((string-match "Skim" previewer)

908 (format "%s %d '%s.pdf' '%s'"

909 YaTeX-cmd-displayline line bnr cf))

910 ((string-match "evince" previewer)

911 (format "%s '%s.pdf' %d '%s'"

912 "fwdevince" bnr line cf))

913 ;;

914 ;; These lines below for other PDF viewer is not confirmed

915 ;; yet. If you find correct command line, PLEASE TELL

916 ;; IT TO THE AUTHOR before publishing patch on the web.

917 ;; ..PLEASE PLEASE PLEASE PLEASE PLEASE PLEASE PLEASE..

918 ((string-match "sumatra" previewer) ;;??

919 (format "%s \"%s.pdf\" -forward-search \"%s\" %d"

920 ;;Send patch to the author, please

921 previewer bnr cf line))

922 ((string-match "qpdfview" previewer) ;;??

923 (format "%s '%s.pdf#src:%s:%d:0'"

924 ;;Send patch to the author, please

925 previewer bnr cf line))

926 ((string-match "okular" previewer) ;;??

927 (format "%s '%s.pdf#src:%d' '%s'"

928 ;;Send patch to the author, please

929 previewer bnr line cf))

930 )))

931 (YaTeX-system cmd "jump-line" 'noask pdir)))))

932

933 (defun YaTeX-goto-corresponding-viewer ()

934 (let ((cmd (or (YaTeX-get-builtin "!") tex-command)))

935 (if (string-match "-src\\|synctex=" cmd)

936 (progn

937 (YaTeX-preview-jump-line)

938 t) ;for YaTeX-goto-corresponding-*

939 nil)))

940

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

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

943 (cond

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

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

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

947 (set line-sym

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

949 (symbol-value line-sym)

950 -1)))))

951

952 (defun YaTeX-prev-error ()

953 "Visit position of previous typeset error or warning.

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

955 error or warning lines in reverse order."

956 (interactive)

957 (let ((cur-buf (save-excursion (YaTeX-visit-main t) (buffer-name)))

958 (cur-win (selected-window))

959 b0 bound errorp error-line typeset-win error-buffer error-win)

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

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

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

963 (if (and (markerp YaTeX-typeset-marker)

964 (eq (marker-buffer YaTeX-typeset-marker) (current-buffer)))

965 (setq bound YaTeX-typeset-marker))

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

967 (if (re-search-backward

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

969 latex-warning-regexp "\\)")

970 bound t)

971 (setq errorp (match-beginning 1))

972 (select-window cur-win)

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

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

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

976 (setq error-line

977 (string-to-int

978 (buffer-substring

979 (point)

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

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

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

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

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

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

986 (select-window cur-win)

987 (cond

988 (error-win (select-window error-win))

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

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

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

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

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

994 (goto-line error-line)

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

996 (if errorp "error" "warning")

997 error-buffer error-line)

998 (select-window typeset-win)

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

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

1001 (sit-for 1)

1002 (goto-char b0)

1003 (select-window error-win)))

1004

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

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

1007 (interactive)

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

1009 (save-excursion

1010 (beginning-of-line)

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

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

1013 (if (null error-line)

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

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

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

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

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

1019 error-file (expand-file-name

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

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

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

1023 (if (null error-buf)

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

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

1026 (goto-line error-line)))

1027

1028 (defun YaTeX-send-string ()

1029 "Send string to current typeset process."

1030 (interactive)

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

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

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

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

1035 (goto-char b)

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

1037 (setq b (point))

1038 (process-send-string

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

1040 (goto-char e)

1041 (insert "\n")

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

1043 (insert " "))

1044 (ding)))

1045

1046 (defun YaTeX-view-error ()

1047 (interactive)

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

1049 (message "No typeset buffer found.")

1050 (let ((win (selected-window)))

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

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

1053 ;; automatically scrolled up at typesetting.

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

1055 ;;(forward-line -1)

1056 ;;(recenter -1)

1057 (select-window win))))

1058

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

1060 "Get current processing file from typesetting log."

1061 (save-excursion

1062 (let(s)

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

1064 (error

1065 (let ((list 0) found)

1066 (while

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

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

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

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

1071 (setq list (1+ list))

1072 (if (= list 1)

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

1074 (setq found t)

1075 (setq list (1- list)))))))))

1076 (setq s

1077 (buffer-substring

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

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

1080 (point))))

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

1082

1083 (defun YaTeX-put-nonstopmode ()

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

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

1086 nil ;if already written in text then do nothing

1087 (save-excursion

1088 (YaTeX-visit-main t)

1089 (goto-char (point-min))

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

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

1092

1093 (defun YaTeX-remove-nonstopmode ()

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

1095 (save-excursion

1096 (YaTeX-visit-main t)

1097 (goto-char (point-min))

1098 (forward-line 1)

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

1100 (goto-char (point-min))

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

1102 (widen))))

1103

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

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

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

1108

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

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

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

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

1113 (rin (rindex latex-cmd ? ))

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

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

1116 (ext (if r (cdr r) "")))

1117 (and (null r)

1118 (eq (get 'dvi2-command 'format) 'pdf)

1119 (setq ext "pdf"))

1120 (concat

1121 (if (string= fname "")

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

1123 (buffer-file-name))

1124 0 -4))

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

1126 ext)))

1127

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

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

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

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

1132 default value of latex-command is:

1133 tex-command FileName

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

1135 \"jlatex \" FileName

1136 will be the latex-command,

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

1138 is non-nil, then

1139 \"jlatex main.tex\"

1140

1141 will be given to the shell."

1142 (let (parent tparent magic)

1143 (setq parent

1144 (cond

1145 (YaTeX-parent-file

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

1147 YaTeX-parent-file))

1148 (t (save-excursion

1149 (YaTeX-visit-main t)

1150 (file-name-nondirectory (buffer-file-name)))))

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

1152 tparent (file-name-nondirectory parent))

1153 (YaTeX-replace-formats

1154 (cond

1155 (magic

1156 (cond

1157 (switch (if (string-match "\\s [^-]\\S *$" magic) magic

1158 (concat magic " " parent)))

1159 (t (concat (substring magic 0 (string-match "\\s [^-]\\S *$" magic)) " "))))

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

1161 (list (cons "f" tparent)

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

1163

1164 (defvar YaTeX-lpr-command-history nil

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

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

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

1168 (defun YaTeX-lpr (arg)

1169 "Print out.

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

1171 page range description."

1172 (interactive "P")

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

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

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

1176 (setq

1177 cmd

1178 (YaTeX-replace-format

1179 cmd "f"

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

1181 ""

1182 (YaTeX-replace-format

1183 dviprint-from-format

1184 "b"

1185 (if (string=

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

1187 "1" from))))

1188 )

1189 (setq

1190 cmd

1191 (YaTeX-replace-format

1192 cmd "t"

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

1194 (string=

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

1196 ""

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

1198 )

1199 (setq

1200 cmd

1201 (YaTeX-replace-format

1202 cmd "p"

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

1204 (setq cmd

1205 (read-string-with-history

1206 "Edit command line: "

1207 (format cmd

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

1209 (substring YaTeX-texput-file

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

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

1212 'YaTeX-lpr-command-history))

1213 (save-excursion

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

1215 (setq dir default-directory)

1216 (YaTeX-showup-buffer

1217 lbuffer 'YaTeX-showup-buffer-bottom-most)

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

1219 (erase-buffer)

1220 (cd dir) ;for 19

1221 (cond

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

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

1224 YaTeX-shell-command-option cmd))

1225 (t

1226 (set-process-buffer

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

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

1229 YaTeX-shell-command-option cmd))

1230 (get-buffer lbuffer))

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

1232

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

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

1235 (cond

1236 (YaTeX-parent-file

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

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

1239 (string-match

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

1241 (buffer-name)))

1242 (t

1243 (save-excursion

1244 (let ((latex-main-id

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

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

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

1248

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

1250 "Switch buffer to main LaTeX source.

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

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

1253 (interactive "P")

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

1255 (let ((ff (function (lambda (f)

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

1257 (find-file f)))))

1258 b-in main-file mfa YaTeX-create-file-prefix-g

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

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

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

1262 (if YaTeX-parent-file

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

1264 YaTeX-parent-file))

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

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

1267 (cond

1268 ((and ;;(interactive-p)

1269 main-file

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

1271 (cond

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

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

1274 (select-window

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

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

1277 ((file-exists-p main-file)

1278 (funcall ff main-file)))))

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

1280 ((and main-file

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

1282 (or b-in

1283 (y-or-n-p (concat (setq mfa (expand-file-name main-file))

1284 " is main file?:"))))

1285 (setq YaTeX-parent-file mfa)

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

1287 (funcall ff main-file)

1288 )

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

1290 (setq YaTeX-parent-file (expand-file-name main-file))

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

1292 (funcall ff main-file))

1293 )))

1294 nil)

1295

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

1297 (setq command-line

1298 (if (string-match "\\s \$[^-]\\S *\$$" command-line)

1299 (substring command-line (match-beginning 1))

1300 (file-name-nondirectory (buffer-file-name)))

1301 command-line

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

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

1304 command-line)

1305 ".tex")))

1306

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

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

1309 (interactive)

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

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

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

1313

1314 (defun YaTeX-save-buffers ()

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

1316 (basic-save-buffer)

1317 (let ((cmm major-mode))

1318 (save-excursion

1319 (mapcar (function

1320 (lambda (buf)

1321 (set-buffer buf)

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

1323 (eq major-mode cmm)

1324 (buffer-modified-p buf)

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

1326 (save-buffer buf))))

1327 (buffer-list)))))

1328

1329 (provide 'yatexprc)