(global-font-lock-mode t)
(setq one-buffer-one-frame t)

;;Set eLisp load and backup paths -- MacOS X
(cond
 ((eq system-type 'darwin)
  (defvar emacsElispDir  "~/.emacs_elisp")
  (defvar emacsBackupDir "~/.emacs.backups")
))

;;Set eLisp load and backup paths -- Linux
(cond
 ((or (eq system-type 'linux)
      (eq system-type 'gnu/linux))
  (defvar emacsElispDir  "~/.emacs_elisp")
  (defvar emacsBackupDir "~/.emacs.backups")
))

;;Set eLisp load and backup paths -- Windows NT/2000/XP
;; ~ == c:\documents and settings\%USERNAME%
(cond
 ((eq system-type 'windows-nt)
  (defvar emacsElispDir  "~/emacs/emacs_elisp")
  (defvar emacsBackupDir "~/emacs/emacs.backups")
))

(add-to-list 'load-path emacsElispDir)
(add-to-list 'load-path (concat emacsElispDir "/nxml-mode"))

;; tabbar goodness
(require 'tabbar)
(tabbar-mode t)

;; nXML Mode
(load "rng-auto.el")
(add-to-list 'auto-mode-alist
	     (cons (concat "\\." (regexp-opt '("xml" "xsd" "sch" "rng" "xslt" "svg" "rss") t) "\\'")
		   'nxml-mode))

;;(cond
;; ((not (eq system-type 'windows-nt))
  (setq magic-mode-alist
	(cons '("<\\?xml " . nxml-mode)
	      magic-mode-alist))
;;))
 
;; C# Mode
(autoload 'csharp-mode "csharp-mode" "Mode for editing C# files" t)
(setq auto-mode-alist
      (append '(("\\.cs$" . csharp-mode))
	      auto-mode-alist))

;; Ruby Mode
(autoload 'ruby-mode "ruby-mode" "Load ruby-mode")
(add-to-list 'auto-mode-alist '("\\.rb\\'" . ruby-mode))

;;Procmail Mode
(autoload 'procmail-mode "procmail-mode" "Load Procmail Mode")
(add-to-list 'auto-mode-alist '("\\.procmailrc$" . procmail-mode))

;;Spamassassin Mode
(autoload 'spamassassin-mode "spamassassin-mode" "Load Spamassassin Mode")
(add-to-list 'auto-mode-alist '("user_prefs" . spamassassin-mode))

;; PHP Mode (Using Mulitple Major Modes)
(require 'mmm-mode)
(setq mmm-global-mode 'maybe)

;; Different Background Coloring for javascript and php in mmm-mode
(setq mmm-submode-decoration-level '2)

(mmm-add-mode-ext-class nil "\\.php?\\'" 'html-php)
(mmm-add-classes
 '(
   (html-php
    :submode php-mode
    :face mmm-code-submode-face 
    :front "<[?]php"
    :back "[?]>"
    )
   (html-js
    :submode javascript-generic-mode
    :face mmm-declaration-submode-face
    :front "<script language=\"javascript\""
    :back "</script>"
    )
   (html-css
    :submode css-mode
    :face mmm-cleanup-submode-face
    :front "<style "
    :back "</style>"
    )
   (html-css-inline
    :submode css-mode
    :face mmm-cleanup-submode-face
    :front "style=\""
    :back "\""
    )
   )
)
(autoload 'php-mode "php-mode" "PHP editing mode" t)
(add-to-list 'auto-mode-alist '("\\.php?\\'" . sgml-html-mode))

;; Javascript Mode
(cond
 ((not (eq system-type 'windows-nt))
  (require 'generic-x)
  (add-to-list 'generic-extras-enable-list 'javascript-generic-mode)
))
;; Javascript in HTML Mode
(add-to-list 'mmm-mode-ext-classes-alist '(html-mode nil html-js))
;; Javascript in PHP Mode
(add-to-list 'mmm-mode-ext-classes-alist '(php-mode nil html-js))

;; CSS Mode
(autoload 'css-mode "css-mode" "Mode for editing CSS files" t)
(setq auto-mode-alist
      (append '(("\\.css$" . css-mode))
	      auto-mode-alist))

;; CSS in HTML and PHP modes
(add-to-list 'mmm-mode-ext-classes-alist '(html-mode nil html-css))
(add-to-list 'mmm-mode-ext-classes-alist '(html-mode nil html-css-inline))
(add-to-list 'mmm-mode-ext-classes-alist '(php-mode nil html-css))
(add-to-list 'mmm-mode-ext-classes-alist '(php-mode nil html-css-inline))

;;Apache Mode
(add-to-list 'auto-mode-alist '("\\.htaccess$"   . apache-conf-generic-mode))
(add-to-list 'auto-mode-alist '("httpd\\.conf$"  . apache-conf-generic-mode))
(add-to-list 'auto-mode-alist '("srm\\.conf$"    . apache-conf-generic-mode))
(add-to-list 'auto-mode-alist '("access\\.conf$" . apache-conf-generic-mode))
(add-to-list 'auto-mode-alist '("website\\..+\\.conf$" . apache-conf-generic-mode))

;; Turn on outline mode for documents with an extension of ".notes"
(setq auto-mode-alist
      (append '(("\\.notes$" . outline-mode))
	      auto-mode-alist))

;; make script executable on save
(add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p)

;; Set up the keyboard so the delete key on both the regular keyboard
;; and the keypad delete the character under the cursor and to the right
;; under X, instead of the default, backspace behavior.
(global-set-key [delete] 'delete-char)
(global-set-key [kp-delete] 'delete-char)

;; Always end a file with a newline
(setq require-final-newline t)

;; Stop at the end of the file, not just add lines
(setq next-line-add-newlines nil)

;; Set time format anad display in mode line
(setq display-time-string-forms 
      '(24-hours ":" minutes))
(display-time) 

;; Turn Column Numbers On %%% (Line,Col)
(column-number-mode)

;; Backup directory
(defun make-backup-file-name (file)
  (concat emacsBackupDir "/" (file-name-nondirectory file) "~"))

;; Autosave File
(defun make-auto-save-file-name ()
  "Return file name to use for auto-saves \
of current buffer@enddots{}"
  (if buffer-file-name
      (concat
       emacsBackupDir "/#"
       (file-name-nondirectory buffer-file-name)
       "#")
    (expand-file-name
     (concat "#%" (buffer-name) "#"))))

(custom-set-variables
 '(auto-save-default nil)
 '(auto-save-list-file-prefix (concat emacsBackupDir "./saves-")))
(custom-set-faces)

(defun myKillBuffer ()
  (interactive)
  (kill-buffer nil))

;;remove the toolbar from the top of each frame
(tool-bar-mode -1)

;;change home and end to something sane
(global-set-key [home] 'beginning-of-buffer)
(global-set-key [end] 'end-of-buffer)

;; Enable wheelmouse support by default
(require 'mwheel)

;;Define the mouse scroll wheel
(defun up-slightly () (interactive) (scroll-up 5))
(defun down-slightly () (interactive) (scroll-down 5))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)

;;Support for scrolling Griffin powermate
(global-set-key [wheel-down] 'up-slightly)
(global-set-key [wheel-up] 'down-slightly)
(global-set-key [double-wheel-down] 'up-slightly)
(global-set-key [double-wheel-up] 'down-slightly)
(global-set-key [triple-wheel-down] 'up-slightly)
(global-set-key [triple-wheel-up] 'down-slightly)

;;Turn the damn beep off, but make it visable
(setq visible-bell t)

;;tramp
;; -- I haven't been able to get tramp working on windows :-(
(setq tramp-default-method "sshx")

;; Keybindings -- Global
;;Set Ctrl+f to search and replace (Ctrl+S == search)
(global-set-key [(ctrl f)] 'query-replace)

;; Keybindings -- MacOS X
(cond
 ((eq system-type 'darwin)
  ;;Set option to be the Meta key
  ;;Set apple+c/x/v to copy/cut/paste 
  ;;Set apple+q to close emacs (save buffers first)
  ;;Set apple+w to delete frame
  ;;Set apple+e to kill current buffer
  ;;Set apple+z to undo
  ;;Set apple+s to save buffer
  ;;Set apple+n to make frame
  (setq mac-command-key-is-meta nil)
  (global-set-key [(alt v)] 'yank)
  (global-set-key [(alt c)] 'kill-ring-save)
  (global-set-key [(alt x)] 'kill-region)
  (global-set-key [(alt q)] 'save-buffers-kill-emacs)
  (global-set-key [(alt w)] 'delete-frame)
  (global-set-key [(alt e)] 'myKillBuffer)
  (global-set-key [(alt z)] 'undo)
  (global-set-key [(alt s)] 'save-buffer)
  (global-set-key [(alt n)] 'make-frame)
))

;;Selected text is deleted when you push delete. *gasp* ;-)
(pc-selection-mode)                 
(delete-selection-mode t)

;; Keybindings -- Windows and Linux
;; ctrl+c/x/v copy/cut/paste
;; Set ctrl+n to make frame
;; Set ctrl+q to close emacs (save buffers first)
;; Set ctrl+w to delete frame
;; Set ctrl+e to kill current buffer
(cond
 ((or (eq system-type 'linux)
      (eq system-type 'windows-nt))
  (cua-mode t)
  (global-set-key [(ctrl q)] 'save-buffers-kill-emacs)
  (global-set-key [(ctrl w)] 'delete-frame)
  (global-set-key [(ctrl e)] 'myKillBuffer)
  (global-set-key [(ctrl n)] 'make-frame)
))