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