; -*- mode: Emacs-Lisp; -*-

;; ibuffer
(require 'ibuffer)

(setq ibuffer-saved-filter-groups
      (quote (("default"
               ("emacs"
                (or (name . "^\\*scratch\\*$")
                    (name . "^\\*Messages\\*$")
                    (name . "^\\*Completions\\*$")
                    (name . "^\\*Colors\\*$")
                    (mode . help-mode)))
               ("gnus"
                (or (mode . message-mode)
                    (mode . bbdb-mode)
                    (mode . mail-mode)
                    (mode . gnus-group-mode)
                    (mode . gnus-summary-mode)
                    (mode . gnus-article-mode)
                    (name . "^\\\\.bbdb$")
                    (name . "^\\\\.newsrc-dribble")
                    (name . "^\\*imap-log\\*$")
                    (mode . newsticker-mode)))
               ("org"
                (mode . org-mode))))))
(add-hook 'ibuffer-mode-hook
          (lambda ()
            (ibuffer-switch-to-saved-filter-groups "default")))

(global-set-key (kbd "C-x C-b") 'ibuffer)

;; org
(setq org-todo-keyword-faces
      '(("TODO" . (:foreground "coral4"))
        ("DONE" . (:foreground "PaleGreen4"))))

(setq org-ellipsis "…")

;; gnus
(setq user-full-name "Nicolas Martyanoff")

(setq gnus-select-methods
      '(nnimap "galdor.org"
               (nnimap-address "galdor.org")
               (nnimap-server-port 993)
               (nnimap-stream ssl)))

(setq gnus-secondary-select-methods
      '((nnimap "galdor.org"
                (nnimap-address "galdor.org")
                (nnimap-server-port 993)
                (nnimap-stream ssl))
        (nnimap "intersec"
                (nnimap-address "mail.mail.intersec.com")
                (nnimap-server-port 993)
                (nnimap-stream ssl))))

(setq gnus-posting-styles
      '((".*"
         (signature-file "~/.signature"))
        ((header "from" "[email protected]")
         (signature-file "~/.signature")
         (organization "Intersec"))))

(setq imap-log t)

(setq gnus-treat-display-smileys nil)

;; haskell mode
(load "~/.emacs.d/haskell-mode-2.7.0/haskell-site-file")

(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
(add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)

;; slime
(add-to-list 'load-path "~/.emacs.d/slime-2010-06-13")
(add-to-list 'load-path "~/.emacs.d/slime-2010-06-13/contrib")

(setq inferior-lisp-program "sbcl")

(require 'slime)
(slime-setup '(slime-fancy))

;; paredit
(add-to-list 'load-path "~/.emacs.d")

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

(add-hook 'emacs-lisp-mode-hook (lambda () (paredit-mode +1)))
(add-hook 'lisp-mode-hook (lambda () (paredit-mode +1)))
(add-hook 'lisp-interaction-mode-hook (lambda () (paredit-mode +1)))

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

;; Color theme
(set-background-color "gray15")
(set-foreground-color "gray50")
(set-cursor-color "gray50")

(set-face-foreground 'font-lock-comment-face "SteelBlue4")
(set-face-foreground 'font-lock-comment-delimiter-face "LightSkyBlue4")
(set-face-foreground 'font-lock-doc-face "slate gray")
(set-face-foreground 'font-lock-string-face "RosyBrown4")
(set-face-foreground 'font-lock-keyword-face "seashell4")
(set-face-foreground 'font-lock-builtin-face "gray50")
(set-face-foreground 'font-lock-function-name-face "gray50")
(set-face-foreground 'font-lock-variable-name-face "gray50")
(set-face-foreground 'font-lock-type-face "dark olive green")
(set-face-foreground 'font-lock-constant-face "PeachPuff4")
(set-face-foreground 'font-lock-preprocessor-face "MediumPurple4")
(set-face-foreground 'font-lock-negation-char-face "gray60")
(set-face-foreground 'font-lock-warning-face "firebrick")

;; Indent
(setq indent-tabs-mode nil)

;; C mode
(setq c-mode-hook
      (function (lambda ()
                  (setq c-default-style "bsd")
                  (setq c-basic-offset 4))))

(setq c++-mode-hook
      (function (lambda ()
                  (setq c-default-style "bsd")
                  (setq c-indent-level 4))))

;; Misc
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)

(setq backup-inhibited t)
(setq auto-save-default nil)

(setq-default indent-tabs-mode nil)

(fset 'yes-or-no-p 'y-or-n-p)

(line-number-mode t)
(column-number-mode t)

(set-default 'fill-column 78)

(setq visible-bell t)

(setq inhibit-startup-message t)

(global-font-lock-mode t)

(setq show-trailing-whitespace t)