(load-file "/usr/share/emacs/site-lisp/cedet/cedet-devel-load.el")
(require 'cedet)
(require 'semantic/ia)

(require 'semantic/bovine/gcc)
(require 'semantic/bovine/c)
(require 'semantic/bovine/clang)
(semantic-clang-activate)

(semantic-mode)
(semantic-load-enable-code-helpers)

(global-ede-mode t)

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

(add-to-list 'load-path "/usr/share/emacs/site-lisp/auto-complete")
(require 'auto-complete-config)
(add-to-list 'ac-dictionary-directories "/usr/share/emacs/site-lisp/auto-complete/ac-dict")
(ac-config-default)
(setq ac-auto-show-menu nil)
(define-key ac-mode-map (kbd "M-TAB") 'auto-complete)

(require 'ace-jump-mode)
(define-key global-map (kbd "C-c SPC") 'ace-jump-mode)

;(load "/usr/share/Agda-2.2.8/emacs-mode/agda2.el")

(setq whitespace-style '(face trailing indentation space-after-tab space-before-tab))
(global-whitespace-mode t)
;(defun whitespace-post-command-hook() nil)
;(setq whitespace-post-command-hook (lambda () nil))

(require 'rect-mark)
(global-set-key (kbd "C-x r C-SPC") 'rm-set-mark)
(global-set-key (kbd "C-x r C-x")   'rm-exchange-point-and-mark)
(global-set-key (kbd "C-x r C-w")   'rm-kill-region)
(global-set-key (kbd "C-x r M-w")   'rm-kill-ring-save)

(setq auto-mode-alist (cons '("\.lua$" . lua-mode) auto-mode-alist))
(autoload 'lua-mode "lua-mode" "Lua editing mode." t)

;(load "sml-mode/sml-mode-startup.el")

(load "auctex.el" nil t t)
(load "preview-latex.el" nil t t)

(add-to-list 'load-path "/usr/share/emacs/site-lisp/cc-mode")
(load "cc-mode.el" nil t t)

(defconst my-cc-style
  '("cc-mode"
    (c-offsets-alist . ((innamespace . [0])))))

(c-add-style "my-cc-mode" my-cc-style)
(setq c-default-style "my-cc-mode")

(autoload 'flex-mode "flex-mode.el" "Flex mode." t)
(autoload 'bison-mode "bison-mode.el" "Bison mode." t)

(load "/usr/share/emacs/site-lisp/haskell-mode/haskell-font-lock.el")
(load "/usr/share/emacs/site-lisp/haskell-mode/haskell-indentation.el")
(load "/usr/share/emacs/site-lisp/haskell-mode/haskell-doc.el")
(load "/usr/share/emacs/site-lisp/haskell-mode/haskell-mode")
(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
(add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
(add-to-list 'auto-mode-alist '("\\.hs" . haskell-mode))

;(setq erlang-root-dir "/usr/lib/erlang")
;(setq exec-path (cons "/usr/lib/erlang/bin" exec-path))
;(require 'erlang-start)

;(add-to-list 'load-path (expand-file-name "~/.emacs.d"))
;(autoload 'vala-mode "vala-mode" "Major mode for editing Vala code." t)
;(add-to-list 'auto-mode-alist '("\\.vala$" . vala-mode))
;(add-to-list 'auto-mode-alist '("\\.vapi$" . vala-mode))
;(add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8))
;(add-to-list 'file-coding-system-alist '("\\.vapi$" . utf-8))

(defun c-setup ()
  (setq indent-tabs-mode t)
  (setq c-basic-offset 8)
  (setq tab-width 8)
  (setq ac-sources '(ac-source-words-in-buffer ac-source-gtags ac-source-semantic)))

;(add-hook 'vala-mode-hook 'c-setup)
(add-hook 'c-mode-hook 'c-setup)
(add-hook 'c++-mode-hook 'c-setup)
(add-hook 'java-mode-hook 'c-setup)

(autoload 'php-mode "php-mode.el" "Php mode." t)
(setq auto-mode-alist (append '(("/*.\.php[345]?$" . php-mode)) auto-mode-alist))

(defun my-setup-sh-mode ()
  (setq sh-basic-offset 8
	sh-indentation 8))
(add-hook 'sh-mode-hook 'my-setup-sh-mode)

(require 'cmake-mode)
(setq auto-mode-alist
      (append '(("CMakeLists\\.txt\\'" . cmake-mode)
		("\\.cmake\\'" . cmake-mode))
	      auto-mode-alist))



(cond ((fboundp 'global-font-lock-mode)
       ;; Turn on font-lock in all modes that support it
       (global-font-lock-mode t)
       ;; Maximum colors
       (setq font-lock-maximum-decoration t)))

(setq auto-mode-alist (cons '("\.po\'\|\.po\." . po-mode) auto-mode-alist))
(autoload 'po-mode "po-mode" "Major mode for translators to edit PO files" t)

(require 'haml-mode)

(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)
(setq TeX-newline-function 'newline-and-indent)
(setq TeX-view-program-list '(("Zathura" "zathura %o")))
(setq TeX-view-program-selection '((output-pdf "Zathura")))
(eval-after-load "tex"
  '(add-to-list 'TeX-command-list '("Make" "make" TeX-run-command nil t)))

;(require 'tramp)
;(setq tramp-default-method "scp")

(require 'multi-term)

(column-number-mode t)
(show-paren-mode t)

;(global-set-key "\C-cl" 'org-store-link)
;(global-set-key "\C-ca" 'org-agenda)
(global-font-lock-mode 1)


(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(TeX-PDF-mode t)
 '(agda2-include-dirs (quote ("." "/home/neoraider/Devel/Agda/lib-0.7/src")))
 '(ecb-options-version "2.32")
 '(org-agenda-files (quote ("~/Privat/Termine.org")))
 '(safe-local-variable-values (quote ((LaTeX-indent-level . 8) (py-indent-offset . 4))))
 '(scroll-bar-mode nil)
 '(transient-mark-mode (quote (only . t))))

(server-start)

(desktop-save-mode t)
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )

(ede-cpp-root-project "gmrf"
		      :name "GMRF"
		      :file "~/Devel/C/gmrf/gmrf/CMakeLists.txt"
		      :include-path '("/include"))

(ede-cpp-root-project "gmrf-proto-babel"
		      :name "GMRF/proto/babel"
		      :file "~/Devel/C/gmrf/proto-babel/CMakeLists.txt"
		      :system-include-path '("~/Devel/C/gmrf/gmrf/include"))

(load-file (let ((coding-system-for-read 'utf-8))
                (shell-command-to-string "agda-mode locate")))