;;; uncomment this line to disable loading of "default.el" at startup

;; (setq inhibit-default-init t)

;; enable visual feedback on selections

;(setq transient-mark-mode t)

;; default to better frame titles

(setq frame-title-format

      (concat  "%b - emacs@" (system-name)))

;; default to unified diffs

;; always end a file with a newline

;(setq require-final-newline 'query)

;;; uncomment for CJK utf-8 support for non-Asian users

;; (require 'un-define)

(custom-set-variables

  ;; custom-set-variables was added by Custom.

  ;; If you edit it by hand, you could mess it up, so be careful.

  ;; Your init file should contain only one such instance.

  ;; If there is more than one, they won't work right.

 '(column-number-mode 1)

 '(inhibit-startup-screen t))

(custom-set-faces

  ;; custom-set-faces was added by Custom.

  ;; If you edit it by hand, you could mess it up, so be careful.

  ;; Your init file should contain only one such instance.

  ;; If there is more than one, they won't work right.

; '(default ((t (:inherit nil :stipple nil :background "#ffffff" :foreground "#1a1a1a" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 102 :width normal :foundry "unknown" :family "Inconsolata"))))

 '(fringe ((((class color) (background light)) nil))))

                    :family "Inconsolata" :height 102)

;(set-face-attribute 'default nil :height 152)

;;;; EXTERNAL LIBRARIES ;;;;

;; add path for my elisp libraries

(add-to-list 'load-path "~/lib/elisp/")

;; add path for dvc

;(add-to-list 'load-path "/usr/share/emacs/site-lisp/dvc")

;(require 'xhg)

;; add path for ruby-mode

(add-to-list 'load-path "~/lib/elisp/ruby-mode")

(autoload 'ruby-mode "ruby-mode" "Major mode for editing Ruby files.")

;(add-to-list 'load-path "~/lib/elisp/emacs-rails-reloaded")

;(require 'rails-autoload)

;; use icomplete+

(require 'icomplete+)

;; use emacs-git-mode

;; (require 'git)

;; (autoload 'git-blame-mode "git-blame" "Minor mode for incremental blame for Git." t)

;; use nxhtml

(load "~/lib/elisp/nxhtml/autostart.el")

(add-hook 'nxml-mode-hook

            (lambda () (rng-validate-mode 0))

            t)

;; use haskell-mode

(add-to-list 'load-path "/usr/share/emacs/site-lisp/haskell-mode")

(autoload 'haskell-mode "haskell-mode" "A Haskell editing mode")

;; use doxymacs

;(require 'doxymacs)

;(add-hook 'c-mode-common-hook 'doxymacs-mode)

;(defun my-doxymacs-font-lock-hook ()

;  (if (or (eq major-mode 'c-mode) (eq major-mode 'c++-mode))

;      (doxymacs-font-lock)))

;(add-hook 'font-lock-mode-hook 'my-doxymacs-font-lock-hook)

;; use filladapt

(require 'filladapt)

(add-hook 'c-mode-common-hook 'turn-on-filladapt-mode)

;; use color themes

(load-file "~/lib/elisp/color-theme-molokai/color-theme-molokai.el")

(color-theme-molokai)

;;;; MODES ;;;;

;; Configure org-mode

(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))

(global-set-key "\C-c l" 'org-store-link)

(setq-default calendar-week-start-day 1)

;; use lua mode for lua files

;; (setq auto-mode-alist (cons '("\.lua$" . lua-mode) auto-mode-alist))

;; (autoload 'lua-mode "lua-mode" "Lua editing mode." t)

;; use prolog mode for prolog files

(setq prolog-program-name "/usr/bin/pl")

(setq auto-mode-alist (append '(("/*.\.pl$" . prolog-mode)) auto-mode-alist))

;; use php mode for php files

(autoload 'php-mode "php-mode.el" "PHP mode." t)

(setq auto-mode-alist (append '(("/*.\.php[345]?$" . php-mode)) auto-mode-alist))

;; use shell-script-mode for PKGBUILDs

(setq auto-mode-alist (append '(("/PKGBUILD$" . shell-script-mode))

                              auto-mode-alist))

;;;; GLOBAL MINOR MODES ;;;;

;; use spaces instead of tabs

(setq-default indent-tabs-mode nil)

(setq-default tab-width 2)

(setq-default standard-indent 2)

;; show line numbers in left margin

;(global-linum-mode 1)

;(setq linum-format "%d ")

;(setq linum-eager nil)

;; highlight the current line

;; get rid of the scrollbar and menubar

(menu-bar-mode 0)

;; display battery info on the mode line

;(display-battery-mode 1)

;; display the column number in the mode line

(setq-default column-number-mode 1)

;; enable adaptive fill mode

;(setq-default adaptive-fill-mode 1)

;; enable icomplete-mode

(icomplete-mode 1)

;; use color in shells

(ansi-color-for-comint-mode-on)

;;;; CUSTOM FUNCTION DEFINITIONS ;;;;

(defun open-new-line (arg)

  "Open a new line below the current line and move to its start."

  (interactive "P")

  (end-of-line)

  (newline-and-indent))

;; auto-indent yanked text in code

(dolist (command '(yank yank-pop))

  (eval `(defadvice ,command (after indent-region activate)

           (and (not current-prefix-arg)

                (member major-mode '(emacs-lisp-mode

                                     scheme-mode

                                     haskell-mode

                                     ruby-mode

                                     python-mode

                                     c-mode

                                     c++-mode

                                     latex-mode

                                     plain-tex-mode

                                     lua-mode))

                (let ((mark-even-if-inactive transient-mark-mode))

                  (indent-region (region-beginning) (region-end) nil))))))

;;;; VARIABLE OVERRIDES ;;;;

;; tab width

(setq-default tab-width 4)

;; for mail

(setq-default user-mail-address "lloyda2@rpi.edu")

(setq-default mail-self-blind t)

(setq-default rmail-file-name "~/.rmail")

;; default web browser

(setq-default browse-url-browser-function 'browse-url-generic)

(setq-default browse-url-generic-program "chromium")

;;;; CUSTOM KEYBINDINGS ;;;;

;; give C-x <return> the same functionality as M-x

(global-set-key "\C-x\C-m" 'execute-extended-command)

;; bind backward-kill-word to C-w; rebind kill-region to C-x C-k

(global-set-key "\C-w" 'backward-kill-word)

(global-set-key "\C-x\C-k" 'kill-region)

;; rebind C-o to open-new-line

(global-set-key "\C-o" 'open-new-line)

;; rebind enter to newline-and-indent

(global-set-key "\C-m" 'newline-and-indent)

;; bind C-f12 to shell

(global-set-key [(control f12)] 'shell)

(put 'upcase-region 'disabled nil)