cgit.sxemacs.org Git - syinit/blob - 06-tex-site-sy.el

   1 ;; 06-tex-site-sy.el --- Because AUCTeX is stupid   -*- Emacs-Lisp -*-
   2
   3 ;; Copyright (C) 2007 - 2013 Steve Youngs
   4
   5 ;;     Author: Steve Youngs <steve@sxemacs.org>
   6 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
   7 ;;    Created: <2007-12-02>
   8 ;; Time-stamp: <Friday Aug 16, 2013 09:45:38 steve>
   9 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
  10 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/06-tex-site-sy.html>
  11 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
  12 ;;   Keywords: init, compile
  13
  14 ;; This file is part of SYinit
  15
  16 ;; Redistribution and use in source and binary forms, with or without
  17 ;; modification, are permitted provided that the following conditions
  18 ;; are met:
  19 ;;
  20 ;; 1. Redistributions of source code must retain the above copyright
  21 ;;    notice, this list of conditions and the following disclaimer.
  22 ;;
  23 ;; 2. Redistributions in binary form must reproduce the above copyright
  24 ;;    notice, this list of conditions and the following disclaimer in the
  25 ;;    documentation and/or other materials provided with the distribution.
  26 ;;
  27 ;; 3. Neither the name of the author nor the names of any contributors
  28 ;;    may be used to endorse or promote products derived from this
  29 ;;    software without specific prior written permission.
  30 ;;
  31 ;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
  32 ;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  33 ;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  34 ;; DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  35 ;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  36 ;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  37 ;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  38 ;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  39 ;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
  40 ;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
  41 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  42
  43 ;;; Commentary:
  44 ;;
  45 ;;   This is just because the tex-site.el you get in the XEmacs AUCTeX
  46 ;;   package is nuts.
  47
  48 ;;; Credits:
  49 ;;
  50 ;;   The HTML version of this file was created with Hrvoje Niksic's
  51 ;;   htmlize.el which is part of the XEmacs "text-modes" package.
  52 ;;
  53
  54 ;;; Todo:
  55 ;;
  56 ;;
  57
  58 ;;; Code:
  59 (if (< emacs-major-version 21)
  60   (error "AUCTeX requires Emacs 21 or later"))
  61
  62 (defvar no-doc
  63   "This function is part of AUCTeX, but has not yet been loaded.
  64 Full documentation will be available after autoloading the function."
  65   "Documentation for autoload functions.")
  66
  67 (defcustom TeX-image-directory
  68   (if (featurep 'xemacs)
  69       (file-name-as-directory
  70        (expand-file-name "images" (locate-data-directory "auctex")))
  71     (file-name-as-directory (concat TeX-lisp-directory "images")))
  72   "*Directory containing hand generated TeX information.
  73 Must end with a directory separator.
  74
  75 These correspond to TeX macros shared by all users of a site."
  76   :group 'TeX-file
  77   :type 'directory)
  78
  79 (defcustom TeX-auto-global
  80   (file-name-as-directory
  81    (expand-file-name "auto"
  82                      (locate-data-directory "auctex")))
  83   "*Directory containing automatically generated information.
  84 Must end with a directory separator.
  85
  86 For storing automatic extracted information about the TeX macros
  87 shared by all users of a site."
  88   :group 'TeX-file
  89   :type 'directory)
  90
  91 (add-to-list 'auto-mode-alist '("\\.dtx\\'" . doctex-mode))
  92 (add-to-list 'auto-mode-alist '("\\.drv\\'" . latex-mode))
  93
  94 ;; This hook will store bibitems when you save a BibTeX buffer.
  95 (add-hook 'bibtex-mode-hook 'BibTeX-auto-store)
  96 (autoload 'BibTeX-auto-store "latex" no-doc t)
  97
  98 (autoload 'tex-mode "tex" no-doc t)
  99 (autoload 'plain-tex-mode "tex" no-doc t)
 100 (autoload 'ams-tex-mode "tex" no-doc t)
 101 (autoload 'context-mode "context" no-doc t)
 102 (autoload 'doctex-mode "latex" no-doc t)
 103 (autoload 'TeX-auto-generate "tex" no-doc t)
 104 (autoload 'TeX-auto-generate-global "tex" no-doc t)
 105 (autoload 'TeX-insert-quote "tex" no-doc t)
 106 (autoload 'TeX-submit-bug-report "tex" no-doc t)
 107 (autoload 'japanese-plain-tex-mode "tex-jp" no-doc t)
 108 (autoload 'japanese-latex-mode "tex-jp" no-doc t)
 109 (autoload 'latex-mode "latex" no-doc t)
 110
 111 ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 112 (message "Sane tex-site loaded successfully")
 113