Mercurial > hgrepos > hgweb.cgi > yatex
diff yatexprc.el @ 376:1bbd0c2b340f dev
When on-the-fly preview activated, overlay indicate its busy state.
For overlay visibility, modify some foureground/background faces.
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Sun, 04 Jan 2015 00:39:44 +0900 |
parents | afb8cb06b1d4 |
children | 81413ee9c32d |
line wrap: on
line diff
--- a/yatexprc.el Wed Dec 31 23:00:01 2014 +0900 +++ b/yatexprc.el Sun Jan 04 00:39:44 2015 +0900 @@ -1,7 +1,7 @@ ;;; yatexprc.el --- YaTeX process handler ;;; ;;; (c)1993-2014 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Wed Dec 31 22:42:56 2014 on sdr +;;; Last modified Sat Jan 3 23:37:49 2015 on firestorm ;;; $Id$ ;;; Code: @@ -404,8 +404,10 @@ (put 'dvi2-command 'file buffer) (put 'dvi2-command 'offset lineinfo)))) -(defvar YaTeX-use-image-preview t - "*Use or else view graphic preview image via [prefix] t e.") +(defvar YaTeX-use-image-preview "jpg" + "*Nil means not using image preview by [prefix] t e. +Acceptable value is one of \"jpg\" or \"png\", which specifies +format of preview image.") (defvar YaTeX-preview-image-mode-map nil "Keymap used in YaTeX-preview-image-mode") (defun YaTeX-preview-image-mode () @@ -436,7 +438,8 @@ (defvar YaTeX-typeset-dvi2image-chain (cond - ((YaTeX-executable-find "dvipng") + ((and (equal YaTeX-use-image-preview "png") + (YaTeX-executable-find "dvipng")) (list "dvipng %b.dvi")) ((YaTeX-executable-find YaTeX-cmd-dvips) (list @@ -460,7 +463,8 @@ (defun YaTeX-typeset-conv2image-chain () (let*((proc (or YaTeX-typeset-process YaTeX-typeset-conv2image-process)) (prevname (process-name proc)) - (texput "texput") (format "jpg") + (texput "texput") + (format YaTeX-use-image-preview) (target (concat texput "." format)) (math (get 'YaTeX-typeset-conv2image-chain 'math)) (srctype (or (get 'YaTeX-typeset-conv2image-chain 'srctype) @@ -571,7 +575,7 @@ ;; If condition changed from last call, do it ((and (/= p (preceding-char)) (/= q (char-after (- (point) 1))) - (not (string= st (YaTeX-buffer-substring s e)))) + (not (string= st (YaTeX-buffer-substring s (min e (point-max)))))) (YaTeX-typeset-environment))))) (defun YaTeX-typeset-environment () @@ -600,7 +604,15 @@ (YaTeX-buffer-substring b e) (current-time))) (YaTeX-typeset-region 'YaTeX-typeset-conv2image-chain) - (if usetimer (YaTeX-typeset-environment-auto))) + (if usetimer + (progn + (if YaTeX-on-the-fly-overlay + (move-overlay YaTeX-on-the-fly-overlay b e) + (overlay-put + (setq YaTeX-on-the-fly-overlay (make-overlay b e)) + 'face 'YaTeX-on-the-fly-activated-face)) + (YaTeX-typeset-environment-auto) + ))) (YaTeX-typeset-region))))) (defvar YaTeX-on-the-fly-preview-image (string-to-number "0.1") @@ -628,6 +640,7 @@ (interactive) (cancel-timer YaTeX-typeset-environment-timer) (setq YaTeX-typeset-environment-timer nil) + (delete-overlay YaTeX-on-the-fly-overlay) (message "Auto-preview canceled"))