Re: tex-mode.el/`tex-view' (diff)

[Stefan Monnier <monnier@iro.umontreal.ca>]

> (defun set-tex-dvi-view-command ()
>   (setq tex-dvi-view-command
> 	(concat "dvips -o tex-output.ps * && "
> 		(if (with-temp-buffer (insert (shell-command-to-string "ps -a"))
> 				      (goto-char (point-min))
> 				      (search-forward-regexp "gv$" nil t))
> 		    (concat "ratpoison -c \"select "
> 			    (with-temp-buffer (insert (shell-command-to-string "ratpoison -c windows"))
> 					      (goto-char (point-min))
> 					      (search-forward-regexp "\\([0-9]+\\)[-+*]gv.*" nil t)
> 					      (let ((matched (match-string 1)))
> 						matched))
> 			    "\"")
> 		  "gv -watch tex-output.ps"))))

Why not create a script like

    #!/bin/sh
    winnum=$(ratpoison -c windows | sed -n -e 's/\([0-9]+\)[-+*]gv.*/\1/p')
    if [ "$winnum" = "" ]; then
        gv -watch "$1"
    else
        ratpoison -c "select $winnum"
    fi

and then use it in tex-dvi-view-command ?
It has the advantage of also working in tex-compile-commands without having
to additionally hack that code.


        Stefan