rendered paste body(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)