yatex: 603acc1caec7 yatexprc.el

yatex

view yatexprc.el @ 516:603acc1caec7

Enclosing error

author	HIROSE Yuuji <yuuji@gentei.org>
date	Fri, 05 Jan 2018 00:23:36 +0900
parents	ebed0ead1eab
children	668632d9392e

line source

1 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*-

2 ;;;

4 ;;; Last modified Thu Jan 4 00:09:28 2018 on firestorm

5 ;;; $Id$

7 ;;; Code:

8 ;(require 'yatex)

9 (require 'yatexlib)

11 (defvar YaTeX-typeset-process nil

12 "Process identifier for latex")

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

15 "Process buffer for latex")

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 latex command (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 (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

301 (if (equal 0 (process-exit-status proc))

302 ;; Successful typesetting done

303 (if (save-excursion

304 (re-search-backward

305 (concat

306 "^Output written on .*\\.pdf (.*page,"

307 "\\|\\.dvi -> .*\\.pdf$")

308 nil t))

309 ;; If PDF output log found in buffer,

310 ;; set next default previewer to 'pdf viewer

311 (put 'dvi2-command 'format 'pdf))

312 ;;Confirm process buffer to be shown when error

313 (YaTeX-showup-buffer

314 pbuf 'YaTeX-showup-buffer-bottom-most)

315 (message "Command FAILED!"))

316 ;;pull back original mode-name

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

318 (forward-char 1))

319 (setq YaTeX-typeset-process nil)

320 ;; Force mode line redisplay soon

321 (set-buffer-modified-p (buffer-modified-p))

322 )

323 (select-window owin)

324 (set-buffer obuf)))))

325

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

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

328

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

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

331 The region is specified by the rule:

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

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

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

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

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

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

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

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

340 operation to the region.

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

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

343 (interactive)

344 (save-excursion

345 (let*

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

347 (texput YaTeX-texput-file)

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

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

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

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

352 ppcmd

353 reg-begin reg-end lineinfo)

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

355 (save-excursion

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

357 (progn

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

359 end "the end of the buffer ---"

360 reg-begin (match-end 0))

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

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

363 end "END ---")

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

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

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

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

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

369 (goto-char (point-min))

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

371 (setq subpreamble

372 (concat subpreamble

373 (cond

374 ((eolp)

375 (buffer-substring

376 (match-beginning 0)

377 (point-beginning-of-line)))

378 (t (buffer-substring

379 (match-end 0)

380 (point-end-of-line))))

381 "\n"))

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

383 (YaTeX-visit-main t)

384 (setq main (current-buffer))

385 (setq opoint (point))

386 (goto-char (point-min))

387 (setq

388 preamble

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

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

391 (concat

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

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

394 "\\begin{document}")))

395 (goto-char opoint)

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

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

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

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

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

401 (erase-buffer)

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

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

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

405 (insert preamble "\n" subpreamble "\n"

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

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

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

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

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

411 (basic-save-buffer)

412 (kill-buffer (current-buffer))

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

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

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

416 (put 'dvi2-command 'region t)

417 (put 'dvi2-command 'file buffer)

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

419

420 (defvar YaTeX-use-image-preview "png"

421 "*Nil means not using image preview by [prefix] t e.

422 Acceptable value is one of \"jpg\" or \"png\", which specifies

423 format of preview image. NOTE that if your system has /usr/bin/sips

424 while not having convert(ImageMagick), jpeg format is automatically taken

425 for conversion.")

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

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

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

429 (interactive)

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

431 nil

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

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

434 (kill-buffer)

435 (select-window

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

437 (selected-window)))))

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

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

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

441

442 (defvar YaTeX-typeset-pdf2image-chain

443 (cond

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

445 (list

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

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

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

449 ;; If we use sips, specify jpeg as format

450 "sips -s format jpeg -s dpiWidth %d -s dpiHeight %d %b.pdf --out %b.jpg")

451 "rm -f tmp.pdf"))

452 ((YaTeX-executable-find "convert")

453 (list "convert -trim -density %d %b.pdf %b.%f"))

454 )

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

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

457

458 (defvar YaTeX-typeset-dvi2image-chain

459 (cond

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

461 (list

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

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

464 ((and (equal YaTeX-use-image-preview "png")

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

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

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

468 %-notation rewritten list:

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

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

471 %d DPI

472 ")

473

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

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

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

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

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

479 YaTeX-typeset-dvi2image-chain.")

480

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

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

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

484 (prevname (process-name proc))

485 (texput "texput")

486 (format YaTeX-use-image-preview)

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

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

489 (dpi (get 'YaTeX-typeset-conv2image-chain 'dpi))

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

491 (if (file-newer-than-file-p

492 (concat texput ".pdf")

493 (concat texput ".dvi"))

494 'pdf 'dvi)))

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

496 ;; This function is the first evaluation code.

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

498 ;; on your system, please tell the author

499 ;; which commands should be taken to achieve

500 ;; one-shot png previewing on your system

501 ;; before publishing patch on the Web.

502 ;; Please please please please please.

503 (curproc (member prevname chain))

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

505 (pwd default-directory)

506 img)

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

508 (progn

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

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

511 (message "Region typesetting FAILED"))

512 (setq command

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

514 (if command

515 (let ((cmdline (YaTeX-replace-formats

516 command

517 (list (cons "b" "texput")

518 (cons "f" format)

519 (cons "d" dpi)))))

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

521 (set-process-sentinel

522 (setq YaTeX-typeset-conv2image-process

523 (start-process

524 command

525 (current-buffer)

526 shell-file-name YaTeX-shell-command-option

527 cmdline))

528 'YaTeX-typeset-sentinel)

529 (put 'YaTeX-typeset-process 'ppcmd

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

531 'YaTeX-typeset-conv2image-chain)

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

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

534 (cond

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

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

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

538 (select-window w)

539 ;(setq foo (selected-window))

540 (YaTeX-showup-buffer

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

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

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

544 (erase-buffer)

545 (cd pwd) ;when reuse from other source

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

547 (insert-image-file target)

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

549 (YaTeX-preview-image-mode)

550 (if img

551 (let ((height (1+ (cdr (image-size img)))))

552 (enlarge-window

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

554 (window-height)))))

555 ;; Remember elapsed time, which will be threshold in onthefly-preview

556 (put 'YaTeX-typeset-conv2image-chain 'elapse

557 (YaTeX-elapsed-time

558 (get 'YaTeX-typeset-conv2image-chain 'start) (current-time))))

559 (t

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

561 (YaTeX-system

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

563 "YaTeX-region-image"

564 'noask)

565 )

566 )))))

567

568

569 (defvar YaTeX-typeset-environment-timer nil)

570 (defun YaTeX-typeset-environment-timer ()

571 "Update preview image in the

572 Plist: '(buf begPoint endPoint precedingChar 2precedingChar Substring time)"

573 (let*((plist (get 'YaTeX-typeset-environment-timer 'laststate))

574 (b (nth 0 plist))

575 (s (nth 1 plist))

576 (e (nth 2 plist))

577 (p (nth 3 plist))

578 (q (nth 4 plist))

579 (st (nth 5 plist))

580 (tm (nth 6 plist))

581 (overlay YaTeX-on-the-fly-overlay)

582 (thresh (* 2 (or (get 'YaTeX-typeset-conv2image-chain 'elapse) 1))))

583 (cond

584 ;; In minibuffer, do nothing

585 ((minibuffer-window-active-p (selected-window)) nil)

586 ;; If point went out from last environment, cancel timer

587 ;;;((and (message "s=%d, e=%d, p=%d" s e (point)) nil))

588 ((null (buffer-file-name)) nil) ;;At momentary-string-display, it's nil.

589 ((or (not (eq b (window-buffer (selected-window))))

590 (< (point) s)

591 (not (overlayp overlay))

592 (not (eq (overlay-buffer overlay) (current-buffer)))

593 (> (point) (overlay-end overlay)))

594 (YaTeX-typeset-environment-cancel-auto))

595 ;;;((and (message "e=%d, p=%d t=%s" e (point) (current-time)) nil))

596 ;; If recently called, hold

597 ;;; ((< (YaTeX-elapsed-time tm (current-time)) thresh) nil)

598 ;; If condition changed from last call, do it

599 ((not (string= st (YaTeX-buffer-substring s (overlay-end overlay))))

600 (YaTeX-typeset-environment)))))

601

602

603 (defun YaTeX-typeset-environment-by-lmp ()

604 (save-excursion

605 (let ((sw (selected-window)))

606 (goto-char opoint)

607 (latex-math-preview-expression)

608 (select-window sw))))

609

610 (defun YaTeX-typeset-environment-by-builtin ()

611 (save-excursion

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

613

614 (defvar YaTeX-on-the-fly-math-preview-engine

615 (if (fboundp 'latex-math-preview-expression)

616 'YaTeX-typeset-environment-by-lmp

617 'YaTeX-typeset-environment-by-builtin)

618 "Function symbol to use math-preview.

619 'YaTeX-typeset-environment-by-lmp for using latex-math-preview,

620 'YaTeX-typeset-environment-by-builtin for using yatex-builtin.")

621

622 (defun YaTeX-typeset-environment-1 ()

623 (require 'yatex23)

624 (let*((math (YaTeX-in-math-mode-p))

625 (dpi (or (YaTeX-get-builtin "IMAGEDPI") (if math "300" "200")))

626 (opoint (point))

627 usetimer)

628 (cond

629 ((and YaTeX-on-the-fly-overlay (overlayp YaTeX-on-the-fly-overlay)

630 (member YaTeX-on-the-fly-overlay (overlays-at (point))))

631 ;; If current position is in on-the-fly overlay,

632 ;; use that region again

633 (setq math (get 'YaTeX-typeset-conv2image-chain 'math))

634 (push-mark (overlay-start YaTeX-on-the-fly-overlay))

635 (goto-char (overlay-end YaTeX-on-the-fly-overlay)))

636 ((YaTeX-region-active-p)

637 nil) ;if region is active, use it

638 (math (setq usetimer t) (YaTeX-mark-environment))

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

640 (mark-paragraph))

641 (t (setq usetimer t) (YaTeX-mark-environment)))

642 (if YaTeX-use-image-preview

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

644 (b (region-beginning)) (e (region-end)))

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

646 (put 'YaTeX-typeset-conv2image-chain 'dpi dpi)

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

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

649 (put 'YaTeX-typeset-conv2image-chain 'start (current-time))

650 (put 'YaTeX-typeset-environment-timer 'laststate

651 (list (current-buffer) b e (preceding-char)

652 (char-after (- (point) 2))

653 (YaTeX-buffer-substring b e)

654 (current-time)))

655 (if math (funcall YaTeX-on-the-fly-math-preview-engine)

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

657 (if usetimer (YaTeX-typeset-environment-auto b e)))

658 (YaTeX-typeset-region))))

659

660 (defun YaTeX-typeset-environment ()

661 "Typeset current environment or paragraph.

662 If region activated, use it."

663 (interactive)

664 (let ((md (match-data)))

665 (unwind-protect

666 (save-excursion

667 (YaTeX-typeset-environment-1))

668 (store-match-data md))))

669

670

671 (defvar YaTeX-on-the-fly-preview-interval (string-to-number "0.9")

672 "*Control the on-the-fly update of preview environment by an image.

673 Nil disables on-the-fly update. Otherwise on-the-fly update is enabled

674 with update interval specified by this value.")

675

676 (defun YaTeX-typeset-environment-auto (beg end)

677 "Turn on on-the-fly preview-image"

678 (if YaTeX-typeset-environment-timer

679 (cancel-timer YaTeX-typeset-environment-timer))

680 (if YaTeX-on-the-fly-overlay

681 (move-overlay YaTeX-on-the-fly-overlay beg end)

682 (overlay-put

683 (setq YaTeX-on-the-fly-overlay (make-overlay beg end))

684 'face 'YaTeX-on-the-fly-activated-face))

685 (setq YaTeX-typeset-environment-timer

686 (run-with-idle-timer

687 (max (string-to-number "0.1")

688 (cond

689 ((numberp YaTeX-on-the-fly-preview-interval)

690 YaTeX-on-the-fly-preview-interval)

691 ((stringp YaTeX-on-the-fly-preview-interval)

692 (string-to-number YaTeX-on-the-fly-preview-interval))

693 (t 1)))

694 t 'YaTeX-typeset-environment-timer)))

695

696 (defun YaTeX-typeset-environment-activate-onthefly ()

697 (if (get-text-property (point) 'onthefly)

698 (save-excursion

699 (if YaTeX-typeset-environment-timer

700 (progn

701 (cancel-timer YaTeX-typeset-environment-timer)

702 (setq YaTeX-typeset-environment-timer nil)))

703 (if (YaTeX-on-begin-end-p)

704 (if (or (match-beginning 1) (match-beginning 3)) ;on beginning

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

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

707 (YaTeX-typeset-environment))))

708

709 (defun YaTeX-on-the-fly-cancel ()

710 "Reset on-the-fly stickiness"

711 (interactive)

712 (YaTeX-typeset-environment-cancel-auto 'stripoff)

713 t) ;t for kill-*

714

715 (defun YaTeX-typeset-environment-cancel-auto (&optional stripoff)

716 "Cancel typeset-environment timer."

717 (interactive)

718 (if YaTeX-typeset-environment-timer

719 (cancel-timer YaTeX-typeset-environment-timer))

720 (setq YaTeX-typeset-environment-timer

721 (run-with-idle-timer

722 (string-to-number "0.1")

723 t

724 'YaTeX-typeset-environment-activate-onthefly))

725 (let ((ov YaTeX-on-the-fly-overlay))

726 (if stripoff

727 (remove-text-properties (overlay-start ov)

728 (1- (overlay-end ov))

729 '(onthefly))

730 (put-text-property (overlay-start YaTeX-on-the-fly-overlay)

731 (1- (overlay-end YaTeX-on-the-fly-overlay))

732 'onthefly

733 t))

734 (delete-overlay ov)

735 (message "On-the-fly preview deactivated")))

736

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

738 "Typeset whole buffer.

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

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

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

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

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

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

745 last extension.

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

747 platex foo.tex

748 dvipdfmx foo

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

750 (interactive)

751 (YaTeX-save-buffers)

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

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

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

755 (cb (current-buffer)))

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

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

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

759 bibcmd (YaTeX-replace-format

760 (or (YaTeX-get-builtin "BIBTEX") bibtex-command)

761 "k" (YaTeX-kanji-ptex-mnemonic)))

762 (or (string-match "\\s [^-]" bibcmd) ;if bibcmd has no argument,

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

764 (and pp

765 (stringp pp)

766 (setq ppcmd (concat pp pparg)))

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

768 (save-excursion

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

770 (save-excursion

771 (push-mark (point) t)

772 (goto-char (point-min))

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

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

775 (let*

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

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

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

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

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

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

782 (ding)

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

784 (setq

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

786 (concat

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

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

789 mydir) ;else concat absolute path name.

790 me))

791 (message

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

793 me)

794 (setq c (read-char))

795 (cond

796 ((= c ?a)

797 (goto-char (1+ b))

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

799 ((= c ?r)

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

801 ((= c ?%)

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

803 (t nil))

804 (basic-save-buffer))))

805 (exchange-point-and-mark)))

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

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

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

809

810 (defvar YaTeX-call-command-history nil

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

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

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

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

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

816 FILE changes the default file name."

817 (YaTeX-save-buffers)

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

819 (let ((me (file-name-nondirectory

820 (or file buffer-file-name))))

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

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

823 me)))))

824 (or YaTeX-call-command-history

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

826 (YaTeX-typeset

827 (read-string-with-history

828 "Call command: "

829 (car YaTeX-call-command-history)

830 'YaTeX-call-command-history)

831 buffer)))

832

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

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

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

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

837 (YaTeX-save-buffers)

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

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

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

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

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

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

844 (command b-in))

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

846 (progn

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

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

849 (or b-in

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

851 'YaTeX-call-command-history))

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

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

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

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

856 (cons (cons builtin-type command)

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

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

859 command

860 (key-description

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

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

863 (sit-for 2)))))

864 (YaTeX-typeset

865 (YaTeX-replace-format command "k" (YaTeX-kanji-ptex-mnemonic))

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

867 builtin-type builtin-type)))

868

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

870 "Kill process PROC after sending signal to PROC.

871 PROC should be process identifier."

872 (cond

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

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

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

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

877 (t

878 (save-excursion

879 (set-buffer (process-buffer proc))

880 (save-excursion

881 (goto-char (point-max))

882 (beginning-of-line)

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

884 (let ((mp (point-max)))

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

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

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

888 (progn

889 (interrupt-process proc)

890 (delete-process proc))))))

891

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

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

894 Optional third argument NOASK skip query when privious process running.

895 Optional fourth argument BASEDIR changes default-directory there."

896 (save-excursion

897 (let ((df default-directory)

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

899 proc status)

900 (set-buffer buffer)

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

902 (erase-buffer)

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

904 "==Kill this buffer to STOP process==\n")

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

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

907 (call-process

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

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

910 (setq status (process-status proc))

911 (eq status 'run)

912 (not noask)

913 (not

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

915 nil

916 (if (eq status 'run)

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

918 (set-process-buffer

919 (start-process

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

921 (get-buffer buffer)))))))

922

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

924 "*Default paper type.")

925 (defconst YaTeX-paper-type-alist

926 '(("a4paper" . "a4")

927 ("a5paper" . "a5")

928 ("b4paper" . "b4")

929 ("b5paper" . "b5"))

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

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

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

933 ("a5" . "-t a5")

934 ("b4" . "-t b4")

935 ("b5" . "-t b5")

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

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

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

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

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

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

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

943 (save-excursion

944 (YaTeX-visit-main t)

945 (goto-char (point-min))

946 (let ((opts

947 (if (re-search-forward

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

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

950 (concat

951 (catch 'found-paper

952 (mapcar (lambda (pair)

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

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

955 YaTeX-paper-type-alist)

956 YaTeX-default-paper-type)

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

958

959 (defvar YaTeX-preview-command-history nil

960 "Holds minibuffer history of preview command.")

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

962 (defvar YaTeX-preview-file-history nil

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

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

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

966 "Return default previewer for this document"

967 (YaTeX-replace-format

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

969 (or (YaTeX-get-builtin "PDFVIEW")

970 tex-pdfview-command)

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

972 dvi2-command))

973 "p" (format (cond

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

975 (t "-paper %s"))

976 (YaTeX-get-paper-type))))

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

978 "Return default preview target file"

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

980 (substring YaTeX-texput-file

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

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

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

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

985 (interactive

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

987 (as-default current-prefix-arg)

988 (command (if as-default

989 previewer

990 (read-string-with-history

991 "Preview command: "

992 previewer

993 'YaTeX-preview-command-history)))

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

995 (file (if as-default

996 target

997 (read-string-with-history

998 "Preview file: "

999 target

1000 'YaTeX-preview-file-history))))

1001 (list command file)))

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

1003 (save-excursion

1004 (YaTeX-visit-main t)

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

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

1007 (YaTeX-showup-buffer

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

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

1010 (erase-buffer)

1011 (setq default-directory dir) ;for 18

1012 (cd dir) ;for 19

1013 (cond

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

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

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

1017 YaTeX-shell-command-option

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

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

1020 (redraw-display))

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

1022 (stringp (getenv "TERM"))

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

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

1025 YaTeX-shell-command-option

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

1027 (t ;if UNIX

1028 (set-process-buffer

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

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

1031 YaTeX-shell-command-option

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

1033 (get-buffer pbuffer))

1034 (message

1035 (concat "Starting " preview-command

1036 " to preview " preview-file)))))))

1037

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

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

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

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

1042 by region."

1043 (interactive "P")

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

1045 (save-excursion

1046 (if region-mode

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

1048 (setq str (buffer-substring

1049 (point)

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

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

1052 (if (boundp 'MULE)

1053 (define-program-coding-system

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

1055 *euc-japan*))

1056 (setq proc

1057 (start-process

1058 "xdvi" pb YaTeX-xdvi-remote-program

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

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

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

1062

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

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

1065 (interactive))

1066

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

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

1069 (interactive)

1070 (save-excursion

1071 (save-restriction

1072 (widen)

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

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

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

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

1077 ;(cf (file-relative-name (buffer-file-name) pdir))

1078 (cf (buffer-file-name)) ;2016-01-08

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

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

1081 (previewer (YaTeX-preview-default-previewer))

1082 (cmd (cond

1083 ((string-match "xdvi" previewer)

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

1085 YaTeX-xdvi-remote-program

1086 line cf bnr))

1087 ((string-match "Skim" previewer)

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

1089 YaTeX-cmd-displayline line bnr cf))

1090 ((string-match "evince" previewer)

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

1092 "fwdevince" bnr line cf))

1093 ;;

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

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

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

1097 ;; ..PLEASE PLEASE PLEASE PLEASE PLEASE PLEASE PLEASE..

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

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

1100 ;;Send patch to the author, please

1101 previewer bnr cf line))

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

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

1104 ;;Send patch to the author, please

1105 previewer bnr cf line))

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

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

1108 ;;Send patch to the author, please

1109 previewer bnr line cf))

1110 )))

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

1112

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

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

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

1116 (progn

1117 (YaTeX-preview-jump-line)

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

1119 nil)))

1120

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

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

1123 (cond

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

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

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

1127 (set line-sym

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

1129 (symbol-value line-sym)

1130 -1)))))

1131

1132 (defun YaTeX-prev-error ()

1133 "Visit position of previous typeset error or warning.

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

1135 error or warning lines in reverse order."

1136 (interactive)

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

1138 (cur-win (selected-window))

1139 tsb-frame-selwin

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

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

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

1143 (and (fboundp 'selected-frame)

1144 (setq typeset-win (get-buffer-window YaTeX-typeset-buffer t))

1145 (setq tsb-frame-selwin (frame-selected-window typeset-win)))

1146

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

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

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

1150 (setq bound YaTeX-typeset-marker))

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

1152 (if (re-search-backward

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

1154 latex-warning-regexp "\\)")

1155 bound t)

1156 (setq errorp (match-beginning 1))

1157 (select-window cur-win)

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

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

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

1161 (setq error-line

1162 (YaTeX-str2int

1163 (buffer-substring

1164 (point)

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

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

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

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

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

1170

1171 (select-window typeset-win)

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

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

1174 (sit-for 1)

1175 (goto-char b0)

1176 (and tsb-frame-selwin (select-window tsb-frame-selwin)) ;restore selwin

1177

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

1179 (select-window cur-win)

1180 (cond

1181 (t (goto-buffer-window error-buffer)

1182 (if (fboundp 'raise-frame)

1183 (let ((edit-frame (window-frame (selected-window))))

1184 (raise-frame edit-frame)

1185 (select-frame edit-frame)))

1186 )

1187 (error-win (select-window error-win))

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

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

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

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

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

1193 (goto-line error-line)

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

1195 (if errorp "error" "warning")

1196 error-buffer error-line)

1197 (select-window error-win)))

1198

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

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

1201 (interactive)

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

1203 (save-excursion

1204 (beginning-of-line)

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

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

1207 (if (null error-line)

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

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

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

1211 (setq error-line (YaTeX-str2int

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

1213 error-file (expand-file-name

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

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

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

1217 (if (null error-buf)

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

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

1220 (goto-line error-line)))

1221

1222 (defun YaTeX-send-string ()

1223 "Send string to current typeset process."

1224 (interactive)

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

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

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

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

1229 (goto-char b)

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

1231 (setq b (point))

1232 (process-send-string

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

1234 (goto-char e)

1235 (insert "\n")

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

1237 (insert " "))

1238 (ding)))

1239

1240 (defun YaTeX-view-error ()

1241 (interactive)

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

1243 (message "No typeset buffer found.")

1244 (let ((win (selected-window)))

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

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

1247 ;; automatically scrolled up at typesetting.

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

1249 ;;(forward-line -1)

1250 ;;(recenter -1)

1251 (select-window win))))

1252

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

1254 "Get current processing file from typesetting log."

1255 (save-excursion

1256 (let(s)

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

1258 (error

1259 (let ((list 0) found)

1260 (while

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

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

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

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

1265 (setq list (1+ list))

1266 (if (= list 1)

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

1268 (setq found t)

1269 (setq list (1- list)))))))))

1270 (setq s

1271 (buffer-substring

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

1273 (if (re-search-forward

1274 "\\.\$tex\\|sty\\|ltx\$\\>" nil (point-end-of-line))

1275 (match-end 0)

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

1277 (point))))

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

1279

1280 (defun YaTeX-put-nonstopmode ()

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

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

1283 nil ;if already written in text then do nothing

1284 (save-excursion

1285 (YaTeX-visit-main t)

1286 (goto-char (point-min))

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

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

1289

1290 (defun YaTeX-remove-nonstopmode ()

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

1292 (save-excursion

1293 (YaTeX-visit-main t)

1294 (goto-char (point-min))

1295 (forward-line 1)

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

1297 (goto-char (point-min))

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

1299 (widen))))

1300

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

1302 '(("[agxk]dvi\\|dviout" . ".dvi")

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

1305

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

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

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

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

1310 (rin (rindex latex-cmd ? ))

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

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

1313 (ext (if r (cdr r) "")))

1314 (and (null r)

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

1316 (setq ext ".pdf"))

1317 (concat

1318 (if (string= fname "")

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

1320 (buffer-file-name))

1321 0 -4))

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

1323 ext)))

1324

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

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

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

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

1329 default value of latex-command is:

1330 tex-command FileName

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

1332 \"platex \" FileName

1333 will be the latex-command,

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

1335 is non-nil, then

1336 \"platex main.tex\"

1337

1338 will be given to the shell."

1339 (let (parent tparent magic)

1340 (setq parent

1341 (cond

1342 (YaTeX-parent-file

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

1344 YaTeX-parent-file))

1345 (t (save-excursion

1346 (YaTeX-visit-main t)

1347 (file-name-nondirectory (buffer-file-name)))))

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

1349 tparent (file-name-nondirectory parent))

1350 (YaTeX-replace-formats

1351 (cond

1352 (magic

1353 (cond

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

1355 (concat magic " " parent)))

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

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

1358 (list (cons "f" tparent)

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

1360 (cons "k" (YaTeX-kanji-ptex-mnemonic))))))

1361

1362 (defvar YaTeX-lpr-command-history nil

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

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

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

1366 (defun YaTeX-lpr (arg)

1367 "Print out.

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

1369 page range description."

1370 (interactive "P")

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

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

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

1374 (setq

1375 cmd

1376 (YaTeX-replace-format

1377 cmd "f"

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

1379 ""

1380 (YaTeX-replace-format

1381 dviprint-from-format

1382 "b"

1383 (if (string=

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

1385 "1" from))))

1386 )

1387 (setq

1388 cmd

1389 (YaTeX-replace-format

1390 cmd "t"

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

1392 (string=

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

1394 ""

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

1396 )

1397 (setq

1398 cmd

1399 (YaTeX-replace-format

1400 cmd "p"

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

1402 (setq cmd

1403 (read-string-with-history

1404 "Edit command line: "

1405 (format cmd

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

1407 (substring YaTeX-texput-file

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

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

1410 'YaTeX-lpr-command-history))

1411 (save-excursion

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

1413 (setq dir default-directory)

1414 (YaTeX-showup-buffer

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

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

1417 (erase-buffer)

1418 (cd dir) ;for 19

1419 (cond

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

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

1422 YaTeX-shell-command-option cmd))

1423 (t

1424 (set-process-buffer

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

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

1427 YaTeX-shell-command-option cmd))

1428 (get-buffer lbuffer))

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

1430

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

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

1433 (cond

1434 (YaTeX-parent-file

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

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

1437 (string-match

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

1439 (buffer-name)))

1440 (t

1441 (save-excursion

1442 (let ((latex-main-id

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

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

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

1446

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

1448 "Switch buffer to main LaTeX source.

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

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

1451 (interactive "P")

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

1453 (let ((ff (function (lambda (f)

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

1455 (find-file f)))))

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

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

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

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

1460 (if YaTeX-parent-file

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

1462 YaTeX-parent-file))

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

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

1465 (cond

1466 ((and ;;(interactive-p)

1467 main-file

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

1469 (cond

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

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

1472 (select-window

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

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

1475 ((file-exists-p main-file)

1476 (funcall ff main-file)))))

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

1478 ((and main-file

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

1480 (or b-in

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

1482 " is main file?:"))))

1483 (setq YaTeX-parent-file mfa)

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

1485 (funcall ff main-file)

1486 )

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

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

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

1490 (funcall ff main-file))

1491 )))

1492 nil)

1493

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

1495 (setq command-line

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

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

1498 (file-name-nondirectory (buffer-file-name)))

1499 command-line

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

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

1502 command-line)

1503 ".tex")))

1504

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

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

1507 (interactive)

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

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

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

1511

1512 (defun YaTeX-save-buffers ()

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

1514 (basic-save-buffer)

1515 (let ((cmm major-mode))

1516 (save-excursion

1517 (mapcar (function

1518 (lambda (buf)

1519 (set-buffer buf)

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

1521 (eq major-mode cmm)

1522 (buffer-modified-p buf)

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

1524 (save-buffer buf))))

1525 (buffer-list)))))

1526

1527 (provide 'yatexprc)