(setq load-path (cons "~/.emacs.d/emacs" load-path))

;; color themes
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes")
;(load-theme 'zenburn t)

(require 'package)
(add-to-list 'package-archives 
    '("marmalade" .
      "http://marmalade-repo.org/packages/"))
(package-initialize)

(load "my-c-mode.el")
(load "my-generic-stuff.el")
(load "my-search.el")
(load "my-erc.el")
;; (load "my-org-mode.el")
;; (load "my-slime.el")
;; (load "my-twitter.el")
;; (load "my-python.el")
;; (load "my-haskell.el")
;; (load "my-swank-js.el")

(defun match-paren (arg)
  "Go to the matching paren if on a paren; otherwise insert %."
  (interactive "p")
  (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
	((looking-at "\\s\)") (forward-char 1) (backward-list 1))
	(t (self-insert-command (or arg 1)))))

;; highlight parentheses mode
(require 'highlight-parentheses)


;; paredit
(autoload 'paredit-mode "paredit"
  "Minor mode for pseudo-structurally editing Lisp code." t)

(dolist (hook '(emacs-lisp-mode-hook
                lisp-mode-hook
                lisp-interaction-mode-hook
                clojure-mode-hook
                scheme-mode-hook))
  (add-hook hook #'(lambda ()
                     (highlight-parentheses-mode t)
                     (paredit-mode +1))))

;; flyspell
(autoload 'flyspell-mode "flyspell" "On-the-fly spelling checker." t)

;; handle trailing whitespaces
;(add-hook 'before-save-hook 'delete-trailing-whitespace)

;; update copyright years before saving.
;(add-hook 'before-save-hook 'copyright-update)

;; sending email
(setq message-send-mail-function 'message-send-mail-with-sendmail
      mail-specify-envelope-from t      ; Settings to work with msmtp
      message-sendmail-f-is-evil nil  
      mail-envelope-from 'header
      message-sendmail-envelope-from 'header
      sendmail-program "/usr/bin/msmtp"
      user-full-name "Ramakrishnan Muthukrishnan")

(setq message-kill-buffer-on-exit t) ; kill buffer after sending mail)

;; notmuch
(setq gnus-inhibit-images nil)
(add-to-list 'load-path "~/.emacs.d/emacs/notmuch")
(setq notmuch-command "~/bin/remote-notmuch.sh")
(require 'notmuch)
(when (memq window-system '(mac ns))
  (exec-path-from-shell-initialize)
  (setq starttls-use-gnutls t)
  (setq starttls-gnutls-program "gnutls-cli")
  (setq starttls-extra-arguments nil)
  )
(setq smtpmail-starttls-credentials '(("rkrishnan.org" 587 nil nil))
      smtpmail-auth-credentials (expand-file-name "~/.authinfo")
      smtpmail-default-smtp-server "rkrishnan.org"
      smtpmail-smtp-server "rkrishnan.org"
      smtpmail-smtp-service 587)

(setq notmuch-fcc-dirs nil)
(add-hook 'message-header-setup-hook
    (lambda () (insert (format "Bcc: %s <%s>\n"
                (notmuch-user-name)
                (notmuch-user-primary-email)))))

;; addressbook
(require 'notmuch-address)
(setq notmuch-address-command "~/bin/addrlookup")
(notmuch-address-message-insinuate)

(require 'smtpmail)
(setq message-send-mail-function 'smtpmail-send-it)
(require 'starttls)

;; sign all emails
(add-hook 'message-setup-hook 'mml-secure-message-sign-pgp)

(set-default-font "Inconsolata-11")

;; spell check
(setq ispell-program-name "aspell"
  ispell-extra-args '("--sug-mode=ultra"))

(setq ispell-list-command "--list")

(dolist (hook '(text-mode-hook))
  (add-hook hook (lambda () (flyspell-mode 1))))
(dolist (hook '(change-log-mode-hook log-edit-mode-hook))
  (add-hook hook (lambda () (flyspell-mode -1))))

;; new wonderful theme monokai
(load-theme 'monokai t)