auctex / tex-fptex.el

Diff from to

tex-fptex.el

-;;; tex-fptex.el --- fpTeX support for AUC TeX.
-;;
+;;; tex-fptex.el --- fpTeX support for AUCTeX.
+
 ;; Copyright (C) 2000 Fabrice Popineau
+;; Copyright (C) 2004 Free Software Foundation, Inc.
 
 ;; Author: Fabrice Popineau <Fabrice.Popineau@supelec.fr>
-;; Maintainer: Fabrice Popineau <Fabrice.Popineau@supelec.fr>
-;; Version: 9.10k
-;; Keywords: wp
+;; Maintainer: auc-tex@sunsite.dk
+;; Keywords: tex
 
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
+;; This file is part of AUCTeX.
+
+;; AUCTeX is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
 ;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
-;; 
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;; 
+
+;; AUCTeX is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
 ;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, write to the Free Software
-;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with AUCTeX; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
 
 ;;; Commentary:
 ;;
 ;; This file contains variables customized for fpTeX.
-;; Borrowed from tex-mik.el .
 
 ;;; Code:
 
     (file-name-directory
      (directory-file-name ,f))))
 
-(setq TeX-lisp-directory 
-      (concat (parent-directory (invocation-directory))
-	      "/site-lisp/auctex"))
+(unless (get 'TeX-lisp-directory 'saved-value)
+  (setq-default TeX-lisp-directory
+		(concat (parent-directory (invocation-directory))
+			"/site-lisp/auctex")))
 
-;; The fpTeX commands.
-(setq TeX-command-list
-  (list (list "TeX" "tex \\nonstopmode\\input %t" 'TeX-run-TeX nil t)
-	(list "LaTeX" "%l \\nonstopmode\\input{%t}" 'TeX-run-LaTeX nil t)
-	(list "LaTeX PDF" "pdflatex \\nonstopmode\\input{%t}" 'TeX-run-LaTeX nil t)
-	(list "View" "%v" 'TeX-run-command t nil)
-	(list "View PS" "gsview32 %f" 'TeX-run-command t nil)
-	(list "View PDF" "start %t.pdf" 'TeX-run-command t nil)
-	(list "Print" "dvips %d" 'TeX-run-command t nil)
-	(list "File" "dvips %d -o %f " 'TeX-run-command t nil)
-	(list "BibTeX" "bibtex %s" 'TeX-run-BibTeX nil nil)
-	(list "Index" "makeindex %s" 'TeX-run-command nil t)
-	(list "Check" "lacheck %s" 'TeX-run-compile nil t)
-	(list "Spell" "<ignored>" 'TeX-run-ispell-on-document nil nil)
-	(list "Makeinfo" "makeinfo %t" 'TeX-run-compile nil t)
-	(list "AmSTeX" "amstex \\nonstopmode\\input{%t}" 'TeX-run-TeX nil t)
-	(list "Other" "" 'TeX-run-command t t)))
+  ;; Remove the Queue entry from the default, and make a non-Unix
+  ;; specific print entry, assuming that dvips will print by default.
+(unless (get 'TeX-queue-command 'saved-value)
+  (setq TeX-queue-command nil))
 
-;; DVI to source correspondence (stolen from the German magazine c't).
-(setq LaTeX-command-style '(("." "latex --src-specials")))
-(setq TeX-view-style '(("^a5$" "windvi %d -paper a5")
-		       ("^landscape$" "windvi %d -paper a4r -s 4")
-		       ("^epsf$" "gsview32 %f")
-		       ("." "windvi -single %d")))
+(unless (get 'TeX-printer-list 'saved-value)
+  (setq TeX-printer-list nil))
+
+(unless (get 'TeX-print-command 'saved-value)
+  (setq TeX-print-command
+	"dvips %d"))
+
+(unless (get 'TeX-view-style 'saved-value)
+  (setq TeX-view-style '(("^a5\\(?:comb\\|paper\\)?$" "windvi %d -qpaper a5")
+			 ("^landscape$" "windvi %d -qpaper a4r -s 4")
+			 ("^epsf$" "start %f")
+			 ("." "windvi %d"))))
+
+(unless (get 'TeX-output-view-style 'saved-value)
+  (setq TeX-output-view-style
+	'(("^dvi$" "^pstricks$\\|^pst-\\|^psfrag$" "dvips %d -o && start %f")
+	  ("^dvi$" ("^a5\\(?:comb\\|paper\\)$" "^landscape$")
+	   "windvi %d %dS -qpaper a5r -s 0")
+	  ("^dvi$" "^a5\\(?:comb\\|paper\\)$" "windvi %d %dS -qpaper a5")
+	  ("^dvi$" "^b5paper$" "windvi %d %dS -qpaper b5")
+	  ("^dvi$" ("^landscape$" "^pstricks$\\|^psfrag$")
+	   "dvips -t landscape %d -o && start %f")
+	  ("^dvi$" "^letterpaper$" "windvi %d %dS -qpaper us")
+	  ("^dvi$" "^legalpaper$" "windvi %d %dS -qpaper legal")
+	  ("^dvi$" "^executivepaper$" "windvi %d %dS -qpaper 7.25x10.5in")
+	  ("^dvi$" "^landscape$" "windvi %d %dS -qpaper a4r")
+	  ("^dvi$" "." "windvi %d %dS")
+	  ("^pdf$" "." "start %o")
+	  ("^html?$" "." "start %o"))))
+
+;; WinDVI does not support source specials?
+(unless (get 'TeX-source-specials-view-position-flags 'saved-value)
+  (setq TeX-source-specials-view-position-flags ""))
+
+(unless (get 'TeX-source-specials-view-editor-flags 'saved-value)
+  (setq TeX-source-specials-view-editor-flags ""))
 
 (provide 'tex-fptex)
+(require 'tex-site)
 
-;;; tex-mik.el ends here
+;;; tex-fptex.el ends here
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.