;;;; JCGS's tex-mode setup
;;; Time-stamp: <2006-07-18 12:05:59 jcgs>

(require 'generic-text)

;; todo: restore the stuff for filling in new files?

(setq tex-dvi-view-command "/usr/bin/xdvi"
      tex-dvi-print-command "dvips"
      TeX-auto-save t
      TeX-parse-self t
      TeX-newline-function 'reindent-then-newline-and-indent
      TeX-auto-untabify t
      ;; TeX-auto-local "auto/"
      )
(setq-default TeX-master nil)
(put 'TeX-master 'safe-local-variable (lambda () t))

(add-hook 'LaTeX-mode-hook '(lambda ()
			      (TeX-fold-mode 1)
			      (sidebrain-read-todo-from-comments)))

;; (add-hook 'TeX-mode-hook (lambda () ))

(message "Setting up TeX to use AUCTeX")

;; AUCTeX's installation puts a fixed file name in here, but I need to
;; base it on my COMMON environment variable:
(setq TeX-lisp-directory
      (substitute-in-file-name "$GATHERED/emacs/auctex/installed/auctex")
      ;; todo: set TeX-macro-global correctly on all machines
      ;; todo: set TeX-auto-global correctly on all machines
      )

;; todo: make sure it always goes into AUCTeX
;; (require 'tex-site)
;; (add-lispdir "$GATHERED/emacs/auctex/installed/") ; todo: is this the right one? it contains tex-site.el and a directory auctex
(load-file "$GATHERED/emacs/auctex/installed/tex-site.el")
(load-library "tex.el")
(load-library "latex.el")

(setq find-function-regexp
      ;; include TeX-defun
      "^\\s-*(\\(TeX-\\)?\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\
\[^cgv\W]\\w+\\*?\\)\\|define-minor-mode\
\\|easy-mmode-define-global-mode\\)\\(\\s-\\|\n\\)+'?\
%s\\(\\s-\\|$\\|\(\\|\)\\)")

(defun TeX-count-words-region (from to)
  "Count the words between FROM and TO."
  (interactive "r")
  (tex-count-words from to))

;;; end of tex-mode-setup.el