code.delx.au - gnu-emacs-elpa/blob - packages/auctex/tex-fptex.el

   1 ;;; tex-fptex.el --- fpTeX support for AUCTeX.
   2
   3 ;; Copyright (C) 2000 Fabrice Popineau
   4 ;; Copyright (C) 2004 Free Software Foundation, Inc.
   5
   6 ;; Author: Fabrice Popineau <Fabrice.Popineau@supelec.fr>
   7 ;; Maintainer: auctex-devel@gnu.org
   8 ;; Keywords: tex
   9
  10 ;; This file is part of AUCTeX.
  11
  12 ;; AUCTeX is free software; you can redistribute it and/or modify it
  13 ;; under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation; either version 3, or (at your option)
  15 ;; any later version.
  16
  17 ;; AUCTeX is distributed in the hope that it will be useful, but
  18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  20 ;; General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with AUCTeX; see the file COPYING.  If not, write to the Free
  24 ;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
  25 ;; 02110-1301, USA.
  26
  27 ;;; Commentary:
  28 ;;
  29 ;; This file contains variables customized for fpTeX.
  30
  31 ;;; Code:
  32
  33 (defmacro parent-directory (f)
  34   "Return safe parent directory of the directory given as argument."
  35   `(directory-file-name
  36     (file-name-directory
  37      (directory-file-name ,f))))
  38
  39 (unless (get 'TeX-lisp-directory 'saved-value)
  40   (setq-default TeX-lisp-directory
  41                 (concat (parent-directory (invocation-directory))
  42                         "/site-lisp/auctex")))
  43
  44   ;; Remove the Queue entry from the default, and make a non-Unix
  45   ;; specific print entry, assuming that dvips will print by default.
  46 (unless (get 'TeX-queue-command 'saved-value)
  47   (setq TeX-queue-command nil))
  48
  49 (unless (get 'TeX-printer-list 'saved-value)
  50   (setq TeX-printer-list nil))
  51
  52 (unless (get 'TeX-print-command 'saved-value)
  53   (setq TeX-print-command
  54         "dvips %d"))
  55
  56 (unless (get 'TeX-view-style 'saved-value)
  57   (setq TeX-view-style '(("^a5\\(?:comb\\|paper\\)?$" "windvi %d -qpaper a5")
  58                          ("^landscape$" "windvi %d -qpaper a4r -s 4")
  59                          ("^epsf$" "start \"\" %f")
  60                          ("." "windvi %d"))))
  61
  62 (unless (get 'TeX-output-view-style 'saved-value)
  63   (setq TeX-output-view-style
  64         '(("^dvi$" "^pstricks$\\|^pst-\\|^psfrag$" "dvips %d -o && start \"\" %f")
  65           ("^dvi$" ("^a5\\(?:comb\\|paper\\)$" "^landscape$")
  66            "windvi %d %dS -qpaper a5r -s 0")
  67           ("^dvi$" "^a5\\(?:comb\\|paper\\)$" "windvi %d %dS -qpaper a5")
  68           ("^dvi$" "^b5paper$" "windvi %d %dS -qpaper b5")
  69           ("^dvi$" ("^landscape$" "^pstricks$\\|^psfrag$")
  70            "dvips -t landscape %d -o && start \"\" %f")
  71           ("^dvi$" "^letterpaper$" "windvi %d %dS -qpaper us")
  72           ("^dvi$" "^legalpaper$" "windvi %d %dS -qpaper legal")
  73           ("^dvi$" "^executivepaper$" "windvi %d %dS -qpaper 7.25x10.5in")
  74           ("^dvi$" "^landscape$" "windvi %d %dS -qpaper a4r")
  75           ("^dvi$" "." "windvi %d %dS")
  76           ("^pdf$" "." "start \"\" %o")
  77           ("^html?$" "." "start \"\" %o"))))
  78
  79 ;; WinDVI does not support source specials?
  80 (unless (get 'TeX-source-specials-view-position-flags 'saved-value)
  81   (setq TeX-source-specials-view-position-flags ""))
  82
  83 (unless (get 'TeX-source-specials-view-editor-flags 'saved-value)
  84   (setq TeX-source-specials-view-editor-flags ""))
  85
  86 (unless (get 'TeX-kpathsea-path-delimiter 'saved-value)
  87   (setq TeX-kpathsea-path-delimiter ";"))
  88
  89 (provide 'tex-fptex)
  90 (require 'tex-site)
  91
  92 ;;; tex-fptex.el ends here