(add-to-list 'load-path "~/.emacs.d/site-lisp")
(add-to-list 'load-path "~/.emacs.d/site-lisp/yasnippet")
(add-to-list 'load-path "~/.emacs.d/site-lisp/remember")

;;;; UI
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
(require 'color-theme)
(load "color-theme-colorful-obsolescence")
(color-theme-colorful-obsolescence)
(cond ((fboundp 'global-font-lock-mode)
	   ;; Turn on font-lock in all modes that support it
       (global-font-lock-mode t)))
(require 'hl-line+)
;;;; Highlight only when idle
(toggle-hl-line-when-idle 1)
(global-hl-line-mode -1)
(hl-line-when-idle-interval 2)
(require 'ido)
(ido-mode t)

;;;; General
(show-paren-mode t)
(setq-default inhibit-startup-message t
			  filladapt-mode t
			  fill-column 72
			  default-tab-width 4
			  ;; Paste at cursor NOT at mouse pointer position
			  mouse-yank-at-point t
			  save-place t
			  c-default-style "linux"
			  column-number-mode t
			  show-paren-style 'mixed
			  auto-fill-mode t)
;; (require 'saveplace)
;; (savehist-mode 1)
(server-start)

;;;; Diary
(setq-default diary-file "~/documents/diary")
(setq view-diary-entries-initially t
	  mark-diary-entries-in-calendar t
	  number-of-diary-entries 7)
(add-hook 'diary-display-hook 'fancy-diary-display)
(add-hook 'today-visible-calendar-hook 'calendar-mark-today)

;;;; Org Mode
(require 'org)
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(setq-default org-agenda-files (file-expand-wildcards "~/documents/org/*.org"))
(setq org-todo-keywords '("TODO" "STARTED" "WAITING" "DONE"))
(setq org-agenda-include-diary t)
(setq org-agenda-include-all-todo t) 
(setq org-log-done t)

;;;; Remember mode
(require 'remember-autoloads)
(setq org-remember-templates
      '(("Tasks" ?t "* TODO %?\n  %i\n  %a" "~/documents/org/organizer.org")))
(setq remember-annotation-functions '(org-remember-annotation))
(setq remember-handler-functions '(org-remember-handler))
(eval-after-load 'remember
  '(add-hook 'remember-mode-hook 'org-remember-apply-template))
(global-set-key (kbd "C-c r") 'remember)  

;;;; Viper
(setq-default viper-mode t)
(setq-default viper-ex-style-editing nil)
(require 'viper)
(require 'vimpulse)

;;;; Doxymacs
(require 'doxymacs)
(add-hook 'c-mode-common-hook 'doxymacs-mode)
;; Keyword higlighting
;;(defun my-doxymacs-font-lock-gook ()
;;  (if (member major-mode '(c-mode
;;			   c++-mode
;;			   objc-mode))
;;      (doxymacs-font-lock)))
;;(add-hook 'font-lock-mode-hook 'my-doxymacs-font-lock-hook)

;;;; PKGBUILD mode
;;(autoload 'pkgbuild-mode "pkgbuild-mode.el" "PKGBUILD mode." t)
;;(setq auto-mode-alist (append '(("/PKGBUILD$" . pkgbuild-mode)) auto-mode-alist))

;;;; bbdb
;;(require 'bbdb)
;;(bbdb-initialize)

;;;; YaSnippet
(require 'yasnippet)
(yas/initialize)
(yas/load-directory (expand-file-name "~/.emacs.d/site-lisp/yasnippet/snippets/"))

;; Indentation
(define-key global-map (kbd "RET") 'newline-and-indent)
;; Format pasted code
(defadvice yank (after indent-region activate)
  (if (member major-mode '(emacs-lisp-mode
						   scheme-mode
						   lisp-mode
						   c-mode
						   c++-mode
						   objc-mode
						   latex-mode
						   plain-tex-mode))
	  (indent-region (region-beginning) (region-end) nil)))

;; Remove indentation when joining lines
(defun kill-and-join-forward (&optional arg)
  (interactive "P")
  (if (and (eolp) (not (bolp)))
      (progn (forward-char 1)
			 (just-one-space 0)
			 (backward-char 1)
			 (kill-line arg))
    (kill-line arg)))

;;;; rcirc
(require 'rcirc)
;; (add-hook 'rcirc-mode-hook (lambda ()
;; 							 (flyspell-mode 1)))
(setq rcirc-default-nick "Xilon")
(setq rcirc-default-user-name "Xilon")
(setq rcirc-default-user-full-name "Xilon")
(setq rcirc-startup-channels-alist
	  '(("\\.freenode\\.net$" "#archlinux")))
(require 'rcirc-late-fix)
;;(rcirc)