.emacs

(setq suggest-key-bindings nil)
(setq-default c-basic-offset 4)

 (setq exec-path (cons (expand-file-name "d:/bin") exec-path))
(setq load-path (cons (expand-file-name "d:/programs/emacs-19.34/local")
                      load-path))
(setq load-path (cons (expand-file-name "~/.el") load-path)) 
(setq load-path (cons (expand-file-name 
              "d:/programs/emacs-19.34/local/auctex-9.6m") load-path))

;;(set-frame-height (selected-frame) 58)
  ;;        (set-frame-width (selected-frame) 80)  

    ;; (set-frame-position (selected-frame) 3 20) 

;;(setq win32-enable-italics t)  ; This must be done before font settings! 
 ;;  (set-face-font 'italic "-*-Courier New-normal-i-*-*-11-82-c-*-*-ansi-") 
  ;;(set-face-font 'bold-italic "-*-Courier New-bold-i-*-*-11-82-c-*-*-ansi-")

(setq default-frame-alist '((width . 80) (height . 40) (menu-bar-lines . 0)))
(setq initial-frame-alist '((width . 80) (height . 60) (menu-bar-lines . 0))) 

(set-default-font "-*-Courier New-normal-r-*-*-13-97-*-*-c-*-*-ansi-")
;;

;;( set-default-font "-*-Courier New-normal-r-*-*-12-90-*-*-c-*-*-ansi-")

;;(set-default-font "-*-Courier-normal-r-*-*-16-96-*-*-c-90-*-ansi-") 
;;(set-default-font "-*-MS Sans Serif-normal-r-*-*-20-120-*-*-p-80-*-ansi-")
;;(set-default-font "-*-Courier-normal-r-*-*-13-97-*-*-c-*-*-ansi-")
;;(set-default-font "-*-Courier-normal-r-*-*-20-120-*-*-c-120-*-ansi-") 


(set-background-color "midnightblue") 
(set-foreground-color "khaki")
(set-face-foreground 'modeline "midnightblue")
(set-cursor-color "purple")     

 (set-background-color "darkgrey")

(set-foreground-color "midnightblue") 
(set-background-color "grey")
;;(set-face-foreground 'modeline "firebrick")
;;(set-cursor-color "purple")      

;;(setq load-path (cons 
;;                (expand-file-name 
;;                    "d:/programs/emacs-19.34/local/calc-2.02") load-path))

;;(setq ange-ftp-ftp-program-name "d:/bin/ftp.exe") 
(setq ange-ftp-default-user "tmk")
(setq ange-ftp-generate-anonymous-password "tmk@cse.ucsc.edu ")
(setq ange-ftp-tmp-name-template 
           (concat (expand-file-name (getenv "TEMP")) "/ange-ftp"))
     (setq ange-ftp-gateway-tmp-name-template 
           (concat (expand-file-name (getenv "TEMP")) "/ange-ftp")) 

;;(setq-default indent-tabs-mode nil)
;;(setq-default tab-width 4)
;;(setq-default tab-stop-list (list 4 8 12 16 20 24 28 32 36 40 44 48 52 56
;;                       60 64 68 72 76 80 84 88 92 96 100 104 108 ))  



  (autoload 'format-lisp-code-directory "lispdir" nil t)
  (autoload 'lisp-dir-apropos "lispdir" nil t)
  (autoload 'lisp-dir-retrieve "lispdir" nil t)
  (autoload 'lisp-dir-verify "lispdir" nil t) 
    (autoload 'spread-mode "spread" nil t)


    (autoload 'calc-dispatch          "calc" "Calculator Options" t)
     (autoload 'full-calc              "calc" "Full-screen Calculator" t) 
     (autoload 'full-calc-keypad       "calc" "Full-screen X Calculator" t)
     (autoload 'calc-eval              "calc" "Use Calculator from Lisp")
     (autoload 'defmath                "calc" nil t t) 
     (autoload 'calc                   "calc" "Calculator Mode" t)
     (autoload 'quick-calc             "calc" "Quick Calculator" t)
     (autoload 'calc-keypad            "calc" "X windows Calculator" t) 
     (autoload 'calc-embedded          "calc" "Use Calc from any buffer" t)
     (autoload 'calc-embedded-activate "calc" "Activate =>'s in buffer" t)
     (autoload 'calc-grab-region       "calc" "Grab region of Calc data" t) 
     (autoload 'calc-grab-rectangle    "calc" "Grab rectangle of data" t)

;;(put 'eval-expression 'disabled nil)

;;  outgoing mail settings
(setq user-full-name "Tom M. Kroeger") 
(setq user-mail-address "tmk@cse.ucsc.edu")

(setq smtpmail-default-smtp-server " vault.cse.ucsc.edu")
(setq smtpmail-local-domain nil)
(setq send-mail-function 'smtpmail-send-it)

(load-library "smtpmail")

;; queued mail settings uses feedmail.el package
(setq send-mail-function 'feedmail-send-it) 
(autoload 'feedmail-send-it "feedmail")
(autoload 'feedmail-run-the-queue "feedmail")
(setq feedmail-buffer-eating-function 'feedmail-buffer-to-smtpmail)
(setq feedmail-enable-queue t) ; optional 
(setq feedmail-queue-chatty nil) ; optional


;; project primary folder from crashes
(add-hook 'vm-mode-hook
          '(lambda ()
             (make-local-variable 'file-precious-flag)
              (setq file-precious-flag t)))

;; auto save changes to ~/.save
;;(load "auto-save")


;; some stuff to setup lisp code directory reading
;(require 'crypt++)

(autoload 'format-lisp-code-directory "lispdir" nil t) 
(autoload 'lisp-dir-apropos "lispdir" nil t)
(autoload 'lisp-dir-retrieve "lispdir" nil t)
(autoload 'lisp-dir-verify "lispdir" nil t)


;; Tom's trying to use vm for e-mail 

 (autoload 'vm "vm" "Start VM on your primary inbox." t)
   (autoload 'vm-other-frame "vm" "Like `vm' but starts in another frame." t)
   (autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t) 
   (autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
   (autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
   (autoload 'vm-mail "vm" "Send a mail message using VM." t) 
   (autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)



(setenv  "MAILHOST"  " pop.cse.ucsc.edu")

(setq lpr-command "pr")
(setq lpr-add-switches nil)
(setq lpr-switches '("-f -p55 -Plpt1 -s"))

;;;AUC-TeX variables
	(require 'tex-site)
	(setq tex-default-mode 'latex-mode) 
	(setq text-mode-hook 'turn-on-auto-fill)

     (setq TeX-parse-self t) ; Enable parse on load.
     (setq TeX-auto-save t) ; Enable parse on save.

   (setq font-lock-maximum-decoration t)
   (setq hilit-mode-enable-list  '(not latex-mode)) 
   (if window-system
        (require 'font-latex))
(setq TeX-shell-command-option "-c")

;;;;;;;;;;;;;;;;;;;;
;;;  troubles with shell environments

;(setenv "ESHELL" "d:\bin\tcsh.exe") 
;(setenv "SHELL" "d:\bin\tcsh.exe")
;;(setq shell-file-name "d:/bin/tcsh.exe")


;;;; Set up the shell for the shell mode
;(defun my-shell-mode-hook ()
;  (interactive)
 ;  (setq shell-completion-fignore '("~" "#" "%" ".class"))
;  (setq comint-completion-addsuffix '("/" . " "))
;  (setq completion-ignored-extensions '(".o" ".elc" "~" ".bin" ".bak" 
;".obj" ".map" ".dvi" ".toc" ".log" ".aux" ".a" ".ln" ".lof" ".blg"
;".bbl" ".glo" ".idx" ".lot" ".fmt" ".class")) 
;)
;(setq shell-mode-hook nil)
;(add-hook 'shell-mode-hook 'my-shell-mode-hook)


;;;works when at the beginning of the buffer
;(setq shell-file-name "d:/bin/bash.exe")
;(setenv "SHELL" "d:\bin\bash.exe") 
;    (setq win32-quote-process-args t)
;    (setq shell-command-switch "-c")

;(setq shell-file-name "d:/bin/tcsh.exe")
;(setenv "SHELL" "d:/bin/tcsh.exe")
;    (setq win32-quote-process-args t) 
;    (setq shell-command-switch "-cf")


;;; this works for bash
;      (using-unix-filesystems t)
;      (setq shell-file-name "sh")
;      (setq explicit-shell-file-name shell-file-name) 
;      (setq explicit-sh-args '("-login" "-i"))
;      (setq shell-command-switch "-c")
;      (setq archive-zip-use-pkzip nil)
;      (setenv "SHELL" shell-file-name) 
;      (setq win32-quote-process-args t)
;      (setq win32-enable-italics t)
;      (setq comint-process-echoes nil)


; this works for bash
      (using-unix-filesystems t)
      (setq shell-file-name "sh") 
      (setq explicit-shell-file-name shell-file-name)
      (setq explicit-sh-args '("-login" "-i"))
      (setq shell-command-switch "-c")
      (setq archive-zip-use-pkzip nil) 
      (setenv "SHELL" shell-file-name)
      (setq win32-quote-process-args t)
      (setq win32-enable-italics t)
      (setq comint-process-echoes nil)