;; (setq auto-save-interval 3000)


(add-hook 'text-mode-hook
       '(lambda () (auto-fill-mode 1)))

;(add-hook 'text-mode-hook 'turn-on-auto-fill)

;;; Emacs-w3 configuration options
(setq load-path (cons (expand-file-name "/usr/share/local/lib/emacs/19.32/site-lisp/") load-path))
(autoload 'w3-preview-this-buffer "w3" "WWW Previewer" t)
(autoload 'w3-follow-url-at-point "w3" "Find document at pt" t)
(autoload 'w3 "w3" "WWW Browser" t)
(autoload 'w3-open-local "w3" "Open local file for WWW browsing" t)
(autoload 'w3-fetch "w3" "Open remote file for WWW browsing" t)
(autoload 'w3-use-hotlist "w3" "Use shortcuts to view WWW docs" t)
(autoload 'w3-show-hotlist "w3" "Use shortcuts to view WWW docs" t)
(autoload 'w3-follow-link "w3" "Follow a hypertext link." t)
(autoload 'w3-batch-fetch "w3" "Batch retrieval of URLs" t)
(autoload 'url-get-url-at-point "url" "Find the url under the cursor" nil)
(autoload 'url-file-attributes  "url" "File attributes of a URL" nil)
(autoload 'url-popup-info "url" "Get info on a URL" t)
(autoload 'url-retrieve   "url" "Retrieve a URL" nil)
(autoload 'url-buffer-visiting "url" "Find buffer visiting a URL." nil)
(autoload 'gopher-dispatch-object "gopher" "Fetch gopher dir" t)
;;; End of Emacs-w3 configuration options


;;Macaulay 2
(setq auto-mode-alist
      (append auto-mode-alist '(("\\.m2$" . M2-mode))))

      
(autoload 'M2-mode "M2-mode.el" "Macaulay 2 editing mode" t)
(global-set-key "\^Cm" 'M2) (global-set-key [ f12 ] 'M2)
(global-set-key "\^Cm" 'M2) (global-set-key [ SunF37 ] 'M2)
(autoload 'M2 "M2.el" "Run Macaulay 2 in a buffer." t)
(setq load-path (cons "/usr/local/lib/Macaulay2/emacs" load-path))
(make-variable-buffer-local 'transient-mark-mode)
(add-hook 'M2-mode-hook '(lambda () (setq transient-mark-mode t)))
(add-hook 'comint-M2-hook '(lambda () (setq transient-mark-mode t)))
(defvar M2HOME "/home/dan/src/M2/Macaulay2")


(setq load-path (append load-path
                        '("/Net/solen/u2/Faculty/em/mmcdermo/emacs/")))
;; (autoload 'load-LaTeX-mode-hook "latex")
;; (setq latex-mode-hook 'load-LaTeX-mode-hook)


(global-set-key "\M-g" 'goto-line)



;; This should introduce color.  The whole xemacs-p stuff is to
;; prevent the code from breaking xemacs

(defvar xemacs-p (string-match "XEmacs" emacs-version))
(if (not xemacs-p)
    (progn
      (global-font-lock-mode t)
       ; If using global-font-lock-mode, make control-L update colors
      (global-set-key "\C-l"
                      (function (lambda (arg) (interactive "P")
                                  (font-lock-fontify-block 100)
                                  (recenter arg))))))



(defun LaTeX-insert-environment (environment)
  "Insert begin{ENVIRONMENT} and end{ENVIRONMENT} with point between"
  (interactive "sEnvironment: ")
  (insert-string "\\begin{" environment "}")
  (TeX-close-LaTeX-block))

(defun LaTeX-insert-braces ()
  "Insert match for {,[,(, or $ and place point between.
With prefix, place right match on kill ring.
Also pays attention to \\'s, \\left's, and \\begin's."
  (interactive)
  (let* ((l-char (char-to-string last-command-char))
	 (r-char (or (if (string= l-char "{") "}")
		     (if (string= l-char "[") "]")
		     (if (string= l-char "(") ")")
		     (if (string= l-char "$") "$")
		     ""))
	 (p-char (or (if (= (point) (point-min)) "")
		     (if (and (>= (point) (+ (point-min) 5))
			      (string= (buffer-substring (- (point) 5)
							 (point))
				       "\\left"))
			 "\\right")
		     (if (and (>= (point) (+ (point-min) 6))
			      (string= (buffer-substring (- (point) 6)
							 (point))
				       "\\left\\"))
			 "\\right\\")
		     (if (and (>= (point) (+ (point-min) 6))
			      (string= (buffer-substring (- (point) 6)
							 (point))
				       "\\begin"))
			 (progn
			   (setq env (read-from-minibuffer "Environment: "))
			   (setq l-char (concat "{" env "}"))
			   (concat "\n\\end{" env)))
		     (if (= (preceding-char) (string-to-char "\\")) "\\")
		     ""))
	 (env nil))
    (setq r-char (concat p-char r-char))
    (insert l-char r-char)
    (backward-char (length r-char))
    (if current-prefix-arg (delete-char (length r-char) t))))


(setq auto-mode-alist
      (append '(("\\.tex\\'" . latex-mode)) auto-mode-alist ))

(add-hook 'latex-mode-hook
	  (lambda ()
	    (local-set-key "\C-c\C-b" 'LaTeX-insert-environment)
	    (local-set-key "{" 'LaTeX-insert-braces)
	    (local-set-key "[" 'LaTeX-insert-braces)
	    (local-set-key "(" 'LaTeX-insert-braces)
	    (local-set-key "$" 'LaTeX-insert-braces)
	    ;; (local-set-key "\C-c\C-t" 'tex-file))

	    ))