init.el

;;;; This file controlls the initial setup of Aquamacs.
;;;; Old School Emacs load ~/.emacs.el or ~/.emacs.d/init.el.
;;;; Aquamacs loads ~/.emacs.
;;;; This file is a symbolic link to ~/.emacs.d/init.el under
;;;; the name ~/.emacs .


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Load Path
;;
(setq custom-file "~/.emacs.d/custom.el")

(progn
  (setenv "PATH"
          (concat
           "/usr/texbin:"
           "/usr/local/bin:"
           "/opt/local/bin:"
           "/opt/local/sbin:"
           (getenv "PATH")
           )
          )
  (add-to-list 'exec-path "/opt/local/bin/") ; add ports binary dir
  (add-to-list 'exec-path "/usr/local/bin/") ; add aspell binary
  (add-to-list 'exec-path "/usr/textbin/")   ; add aspell binary

  ;; add all modes in ~/.emacs.d/modes to load-path
  (let* ((my-mode-dirs '("el-get/"
                         "full-ack/"
                         "color-theme/"
                         "yasnippet/"
                         "slime/"
                         "org-mode/lisp/"
                         "haskell-2.7.0/"
                         "anything-config/"
                         "anything-config/extensions"
                         "magit/"
                         "eproject/"
                         "deft"
                         "rhtml/"
                         "rvm/"
                         "rspec/"
                         "cucumber/"))
         (modes-path (expand-file-name "~/.emacs.d/modes/")))
    (add-to-list 'load-path modes-path)
    (add-to-list 'load-path "~/.emacs.d/color-themes/classic-mac")
    (add-to-list 'load-path "~/.emacs.d/color-themes/solarized")
    (add-to-list 'load-path "~/.emacs.d/color-themes/tangotango")
    (add-to-list 'load-path "~/.emacs.d/")
    (mapc '(lambda (dir)
             (add-to-list 'load-path (concat modes-path dir)))
          my-mode-dirs)))

;;  (require 'el-get)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Loading configuration from file
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(load-library "my-encoding.el")
(load-library "functions.el")
(load-library "my-anything.el")
(load-library "my-eproject.el")
(load-library "display.el")
(load-library "keyboard.el")
(load-library "latex.el")


(require 'package)
(setq package-archives (cons '("tromey" . "http://tromey.com/elpa/") package-archives))
(package-initialize)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ispell
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq ispell-program-name "/usr/local/bin/aspell")
(setq ispell-dictionary "german8")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Sending mail from within emacs to google
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq starttls-use-gnutls t
      send-mail-function             'smtpmail-send-it
      message-send-mail-function     'smtpmail-send-it
      smtpmail-starttls-credentials  '(("smtp.gmail.com" 587 nil nil))
      smtpmail-auth-credentials      (expand-file-name "~/.authinfo")
      smtpmail-default-smtp-server   "smtp.gmail.com"
      smtpmail-smtp-server           "smtp.gmail.com"
      smtpmail-smtp-service          587
      smtpmail-debug-info            nil)

(autoload 'compose-mail "smtpmail" "" t)

(add-hook 'message-setup-hook '(lambda ()
                 (set-input-method "my-german-postfix")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Autopair
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(autoload 'autopair-global-mode "autopair"  nil t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Ack
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(autoload 'ack-same "full-ack" nil t)
(autoload 'ack "full-ack" nil t)
(autoload 'ack-find-same-file "full-ack" nil t)
(autoload 'ack-find-file "full-ack" nil t)

;; nginx mode
(autoload 'nginx-mode "nginx-mode" nil t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; GIT using magit
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'magit)
(require 'magit-svn)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Haskell mode
(autoload 'haskell-mode "~/.emacs.d/modes/haskell-mode-2.7.0/haskell-site-file.el"
  "Loading Haskell mode only when needed." t)
(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
(add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
;; (turn-on-haskell-indentation)
(setq auto-mode-alist
      (cons '("\\.hs" . haskell-mode) auto-mode-alist))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Markdown mode
(autoload 'markdown-mode "markdown.el" "Major mode for editing Markdown files" t)
(setq auto-mode-alist
      (cons '("\\.markdown" . markdown-mode) auto-mode-alist))

;; do not show the markdown window when opening the
;; preview in the browser
;; uses a advice so that the actual funtion does not have to be
;; modified.
(defadvice markdown-preview (after delete-markdown-buffer ())
  (delete-other-windows))
(ad-activate 'markdown-preview)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Ruby mode
;;
(add-to-list 'auto-mode-alist '("\\.rb" . ruby-mode))
(add-to-list 'auto-mode-alist '("\\.rake" . ruby-mode))
(add-to-list 'auto-mode-alist '("\\.builder" . ruby-mode))


(setq-default tab-width 2) ; or any other preferred value

(setq cua-auto-tabify-rectangles nil)

;; (defadvice align (around smart-tabs activate)
;;   (let ((indent-tabs-mode nil)) ad-do-it))
;; (defadvice align-regexp (around smart-tabs activate)
;;   (let ((indent-tabs-mode nil)) ad-do-it))
;; (defadvice indent-relative (around smart-tabs activate)
;;   (let ((indent-tabs-mode nil)) ad-do-it))
;; (defadvice indent-according-to-mode (around smart-tabs activate)
;;   (let ((indent-tabs-mode indent-tabs-mode))
;;     (if (memq indent-line-function
;;               '(indent-relative
;;                 indent-relative-maybe))
;;         (setq indent-tabs-mode nil))
;;  ad-do-it))

;; (defmacro smart-tabs-advice (function offset)
;;   (defvaralias offset 'tab-width)
;;   `(defadvice ,function (around smart-tabs activate)
;;      (cond
;;       (indent-tabs-mode
;;        (save-excursion
;;          (beginning-of-line)
;;          (while (looking-at "\t*\\( +\\)\t+")
;;            (replace-match "" nil nil nil 1)))
;;        (setq tab-width tab-width)
;;        (let ((tab-width fill-column)
;;                  (,offset fill-column))
;;              ad-do-it))
;;       (t
;;        ad-do-it))))

(add-hook 'ruby-mode-hook (lambda ()
          (setq ruby-insert-encoding-magic-comment 't)))

;;(smart-tabs-advice ruby-indent-line ruby-indent-level)
;;(setq ruby-indent-tabs-mode t)

(require 'align)

;; Alignments for ruby code
(add-to-list 'align-rules-list
             '(ruby-comma-delimiter
               (regexp . ",\\(\\s-*\\)[^# \t\n]")
               (repeat . t)
               (modes  . '(ruby-mode))))
(add-to-list 'align-rules-list
             '(ruby-hash-literal
               (regexp . "\\(\\s-*\\)=>\\s-*[^# \t\n]")
               (repeat . t)
               (modes  . '(ruby-mode))))
(add-to-list 'align-rules-list
             '(ruby-assignment-literal
               (regexp . "\\(\\s-*\\)=\\s-*[^# \t\n]")
               (repeat . t)
               (modes  . '(ruby-mode))))
(add-to-list 'align-rules-list          ;TODO add to rcodetools.el
             '(ruby-xmpfilter-mark
               (regexp . "\\(\\s-*\\)# => [^#\t\n]")
               (repeat . nil)
               (modes  . '(ruby-mode))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; YAML mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'auto-mode-alist '("\\.yml" . yaml-mode))
(add-hook 'yaml-mode-hook '(lambda ()
                             (define-key yaml-mode-map "\C-m" 'newline-and-indent)))
(autoload  'yaml-mode "yaml-mode.el" "YAML Mode" t)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; RVM / Rspec / Cucumber / Feature mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

(set-default 'feature-default-i18n-file "~/.emacs.d/modes/cucumber/i18n.yml")
(add-hook 'feature-mode-hook '(lambda ()
               (setq feature-default-i18n-file
                   "~/.emacs.d/modes/cucumber/i18n.yml")))

(autoload 'feature-mode "feature-mode.el" "Cucumber Feature Mode" t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; SLIME
(setq inferior-lisp-program "/Users/zickzackv/Source/ccl/dx86cl64")
;(slime-setup '(slime-repl))
(autoload 'slime "slime" "Interactive Lisp Development Environment" t)
(require 'slime-autoloads)
(slime-setup '(slime-repl))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Paredit
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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)))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; org-mode

;; ;; setting agenda directory and matching regexp
(setq org-directory "~/Dropbox/Todo/")
(setq org-agenda-files '("~/Dropbox/Todo/"))
(setq org-agend-file-regexp "\\`[^.].*\\.org\\'")
(setq org-enforce-todo-dependencies t)  ; headlines with TODO are not DONE
(setq org-hide-leading-stars t)
(setq org-odd-levels-only t)

;; ; use keys to switch state and do not trigger action when using S-<right>
(setq org-use-fast-todo-selection t)
(setq org-treat-S-cursor-todo-selection-as-state-change nil)
(setq org-todo-keywords '((sequence "NEXT(n)" "TODO(t)" "STARTED(s!)" "|" "DONE(d!/!)")
          (sequence "WAITING(w@/!)" "SOMEDAY(S!)" "|" "CANCELLED(c@/!)")))

(setq org-todo-keyword-faces '(("NEXT" :foreground "white" :background "red" :weight bold)
             ("TODO" :foreground "red" :weight bold)
           ("STARTED" :foreground "blue" :weight bold)
             ("DONE" :foreground "forest green" :weight bold)
             ("WAITING" :foreground "orange" :weight bold)
             ("SOMEDAY" :foreground "magenta" :weight bold)
             ("CANCELLED" :foreground "forest green" :weight bold)))

(setq org-tag-alist '(("@Work" . ?w) ("@Home" . ?h) ("@Uni" . ?u) ("Email" . ?e) ("Telefon" . ?t)))

;; ;; Exporting to ical
(setq org-combined-agenda-icalendar-file "~/Documents/Todo/org-mode.ics")

;; starting week with monday
;; (setq org-agenda-start-on-weekday 't)  ;
(setq calendar-week-start-day 0)  ; calendar weeks start on mondays

;; use german postfix  as default input for org mod
(add-hook 'org-mode-hook '(lambda ()
                            (setq org-special-ctrl-a/e 't)
                            (local-set-key "\M-n" 'outline-next-visible-heading)
                            (local-set-key "\M-p" 'outline-previous-visible-heading)
                            (setq indent-tabs-mode nil)
                            (set-input-method "my-german-postfix")))

(require 'org-latex)
(unless (boundp 'org-export-latex-classes)
  (setq org-export-latex-classes nil))

(add-to-list 'org-export-latex-classes
             '("article"
               "\\documentclass{article}"
               ("\\section{%s}" . "\\section*{%s}")
               ("\\subsection{%s}" . "\\subsection*{%s}")
               ("\\subsubsection{%s}" . "\\subsubsection*{%s}")))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; deft
(autoload 'deft "deft" "Notational Velocity Mode with org-mode" t)
(setq deft-directory "~/Dropbox/Todo")
(setq deft-extension "org")
(setq deft-text-mode 'org-mode)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; YaSnippet
(require 'yasnippet-bundle) ;; not yasnippet-bundle
(setq yas/root-directory "~/.emacs.d/snippets")
;; Load the snippets
(yas/load-directory yas/root-directory)
(yas/load-directory "~/.emacs.d/modes/yasnippet/snippets")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; rcIRC

;; Change user info
(setq rcirc-default-nick "zickzackv")
(setq rcirc-default-user-name "zickzackv")
(setq rcirc-default-full-name "Fabian Otto")

(setq rcirc-server-alist
      '(("kornbluth.freenode.net" :channels ("#lisp" "#emacs" "#netzke"))))

(add-hook 'rcirc-mode-hook
               (lambda ()
                 (require 'rcirc-notify)
                 (rcirc-track-minor-mode 1)))


(load custom-file)
;; password from external file
(load "private.el")