init.el
changeset 33 3be3d7b4cae4
parent 32 68b57950fa11
child 34 8e91ec6fd0a2
equal deleted inserted replaced
32:68b57950fa11 33:3be3d7b4cae4
   121    (capitalized-words-mode t)
   121    (capitalized-words-mode t)
   122    (haskell-doc-mode t)
   122    (haskell-doc-mode t)
   123    (setq
   123    (setq
   124     haskell-font-lock-symbols 'unicode
   124     haskell-font-lock-symbols 'unicode
   125     haskell-indent-offset 4
   125     haskell-indent-offset 4
   126     whitespace-line-column 87))
   126     whitespace-line-column 78))
   127  t) ; append instead of prepend else haskell-mode overwrites these settings
   127  t) ; append instead of prepend else haskell-mode overwrites these settings
   128 
       
   129 
   128 
   130 ;;; org-mode
   129 ;;; org-mode
   131 (add-hook
   130 (add-hook
   132  'org-mode-hook
   131  'org-mode-hook
   133  (lambda ()
   132  (lambda ()
   137    (local-set-key (kbd "M-S-n") 'org-move-subtree-down)))
   136    (local-set-key (kbd "M-S-n") 'org-move-subtree-down)))
   138 
   137 
   139 ;;; ibuffer
   138 ;;; ibuffer
   140 (global-set-key (kbd "C-x C-b") 'ibuffer) ; better buffer browser
   139 (global-set-key (kbd "C-x C-b") 'ibuffer) ; better buffer browser
   141 (setq-default
   140 (setq-default
       
   141  ibuffer-show-empty-filter-groups nil
   142  ibuffer-saved-filter-groups
   142  ibuffer-saved-filter-groups
   143  '(("Hoersten"
   143  '(("default"
   144     ("Emacs Configs" (saved . "Emacs Configs"))))
   144     ("Emacs Lisp" (mode . emacs-lisp-mode))
   145 
   145     ("Haskell" (mode . haskell-mode))
   146  ibuffer-saved-filters
   146     ("Python" (mode . python-mode))
   147  '(("Emacs Configs"
   147     ("C++" (mode . c++-mode)))))
   148     ((filename . "\\.emacs\\.d/.*\\.el$")))
   148 (add-hook
   149    ("gnus" ((or (mode . message-mode) (mode . mail-mode) (mode . gnus-group-mode) (mode . gnus-summary-mode) (mode . gnus-article-mode))))
   149  'ibuffer-mode-hook
   150    ("programming" ((or (mode . emacs-lisp-mode) (mode . cperl-mode) (mode . c-mode) (mode . java-mode) (mode . idl-mode) (mode . lisp-mode))))
   150  '(lambda ()
   151    ))
   151     (ido-mode t)
       
   152     (ibuffer-switch-to-saved-filter-groups "default")))
   152 
   153 
   153 
   154 
   154 ;;;; Requires ;;;;
   155 ;;;; Requires ;;;;
   155 
   156 
   156 (require 'hoersten-align-with-spaces) ; use only spaces for alignment
   157 (require 'hoersten-align-with-spaces) ; use only spaces for alignment
   157 (require 'hoersten-pastebin-region)   ; send selected text to pastebin
   158 (require 'hoersten-pastebin-region)   ; send selected text to pastebin
   158 (require 'hoersten-c-style)           ; load c specific lisp
   159 (require 'hoersten-c-style)           ; load c specific lisp
   159 (require 'vala-mode)                  ; vala programming language
   160 (require 'vala-mode)                  ; vala programming language
   160 
       
   161 ;;; auto-complete-mode
       
   162 (add-to-list 'load-path "~/.emacs.d/auto-complete-mode/")
       
   163 (require 'auto-complete-config)
       
   164 (add-to-list 'ac-dictionary-directories "~/.emacs.d/auto-complete-mode/ac-dict")
       
   165 (ac-config-default)
       
   166 (setq ac-modes (append ac-modes '(haskell-mode)))
       
   167 
   161 
   168 ;;; pretty-mode - unicode character replacement
   162 ;;; pretty-mode - unicode character replacement
   169 (require 'pretty-mode)
   163 (require 'pretty-mode)
   170 (global-pretty-mode t)
   164 (global-pretty-mode t)
   171 
   165