Hi AUCTeX developers,
Some time ago, support for various viewers were added to tex.el. Part
of those changes were already present in tex-jp.el, so support for some
viewers are devided between the two files now.
How about integrating support for viewers common to the two files into
tex.el? Take a look at the attached patch, please.
Best regards,
Ikumi Keita
diff --git a/tex-jp.el b/tex-jp.el
--- a/tex-jp.el
+++ b/tex-jp.el
@@ -194,41 +194,19 @@
;; http://oku.edu.mie-u.ac.jp/~okumura/texwiki/?AUCTeX
;; を参考にしてみた。
((eq system-type 'windows-nt)
- '(("Dviout" ("dviout -1 "
- ((paper-a4 paper-portrait) " -y=A4 ")
- ((paper-a4 paper-landscape) " -y=A4L ")
- ((paper-a5 paper-portrait) " -y=A5 ")
- ((paper-a5 paper-landscape) " -y=A5L ")
- ((paper-b5 paper-portrait) " -y=E5 ")
- ((paper-b5 paper-landscape) " -y=E5L ")
- ((paper-b4jis paper-portrait) " -y=B4 ")
- ((paper-b4jis paper-landscape) " -y=B4L ")
- ((paper-b5jis paper-portrait) " -y=B5 ")
- ((paper-b5jis paper-landscape) " -y=B5L ")
- (paper-legal " -y=Legal ")
- (paper-letter " -y=Letter ")
- (paper-executive " -y=Exective ")
- "%o" (mode-io-correlate " \"# %n '%b'\"")))
- ("TeXworks" "TeXworks %o")
- ("SumatraPDF" "SumatraPDF -reuse-instance %o"
- (mode-io-correlate " -forward-search \"%b\" %n"))
- ("MuPDF" "mupdf %o")))
+ '(("TeXworks" "TeXworks %o" "texworks")
+ ("MuPDF" "mupdf %o" "mupdf")))
;; これでいいのかどうかは不安。
((eq system-type 'darwin)
- '(("Preview" "open -a Preview.app %o")
- ("TeXShop" "open -a TeXShop.app %o")
- ("TeXworks" "open -a TeXworks.app %o")
- ("Skim" "open -a Skim.app %o")
- ("displayline" "displayline %n %o %b")
- ("PictPrinter" "open -a PictPrinter.app %d")
- ("Mxdvi" "open -a Mxdvi.app %d")
- ("open" "open %o")))
+ '(("TeXShop" "open -a TeXShop.app %o" "open")
+ ("TeXworks" "open -a TeXworks.app %o" "open")
+ ("PictPrinter" "open -a PictPrinter.app %d" "open")
+ ("Mxdvi" "open -a Mxdvi.app %d" "open")))
(t
(setcar (cadr (assoc "xdvi" TeX-view-program-list-builtin))
"%(xdvi) -unique")
- '(("TeXworks" "texworks %o")
- ("zathura" "zathura %o")
- ("MuPDF" "mupdf %o"))))))
+ '(("TeXworks" "texworks %o" "texworks")
+ ("MuPDF" "mupdf %o" "mupdf"))))))
;; これは tex.el に取り入れてもらうのは難しいか？
;; tex-jp.el が読み込まれるだけで、dvi viewer のデフォルトが dviout に
@@ -238,10 +216,10 @@
(append
(cond
((eq system-type 'windows-nt)
- '((output-dvi "Dviout")
+ '((output-dvi "dviout")
(output-pdf "TeXworks")))
((eq system-type 'darwin)
- '((output-pdf "Preview")))
+ '((output-pdf "Preview.app")))
(t
nil))
TeX-view-program-selection)))
diff --git a/tex.el b/tex.el
--- a/tex.el
+++ b/tex.el
@@ -1341,7 +1341,21 @@
(cond
((eq system-type 'windows-nt)
'(("Yap" ("yap -1" (mode-io-correlate " -s %n%b") " %o") "yap")
- ("dviout" ("dviout -1 %d" (mode-io-correlate "\"# %n %b\"")) "dviout")
+ ("dviout" ("dviout -1 "
+ ((paper-a4 paper-portrait) "-y=A4 ")
+ ((paper-a4 paper-landscape) "-y=A4L ")
+ ((paper-a5 paper-portrait) "-y=A5 ")
+ ((paper-a5 paper-landscape) "-y=A5L ")
+ ((paper-b5 paper-portrait) "-y=E5 ")
+ ((paper-b5 paper-landscape) "-y=E5L ")
+ ((paper-b4jis paper-portrait) "-y=B4 ")
+ ((paper-b4jis paper-landscape) "-y=B4L ")
+ ((paper-b5jis paper-portrait) "-y=B5 ")
+ ((paper-b5jis paper-landscape) "-y=B5L ")
+ (paper-legal "-y=Legal ")
+ (paper-letter "-y=Letter ")
+ (paper-executive "-y=Executive ")
+ "%d" (mode-io-correlate " \"# %n '%b'\"")) "dviout")
("SumatraPDF"
("SumatraPDF -reuse-instance"
(mode-io-correlate " -forward-search \"%b\" %n") " %o")
_______________________________________________
auctex-devel mailing list
auctex-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/auctex-devel
