;; General config
(global-set-key "\C-c\C-g" 'goto-line)
(global-set-key "\C-c\C-r" 'query-replace-regexp)
(setq default-major-mode 'org-mode)

(when (equal system-type 'darwin)
  (setenv "PATH" (concat "/opt/local/bin:/usr/local/bin:/usr/local/texlive/2009/bin/universal-darwin/:" (getenv "PATH")))
  (setenv "DYLD_FALLBACK_LIBRARY_PATH" "/usr/lib:/opt/local/lib:/usr/X11R6/lib")
  (push "/opt/local/bin" exec-path)
  (push "/usr/local/bin" exec-path))

;; necessary for using alt to enter special symbols on MacOS
;(emulate-mac-german-keyboard-mode)
;(setq mac-option-key-is-meta nil)
;(setq mac-command-key-is-meta t)
;(setq mac-command-modifier 'meta)
;(setq mac-option-modifier nil)

;; Proof General
(load-file "/opt/local/share/ProofGeneral/generic/proof-site.el")

;; CEDET
(load-file "~/elisp/cedet-1.0pre6/common/cedet.el")
(global-ede-mode t)

(require 'semantic-gcc)

(defun my-c-mode-cedet-hook ()
  (local-set-key "." 'semantic-complete-self-insert)
  (local-set-key ">" 'semantic-complete-self-insert))
(add-hook 'c-mode-common-hook 'my-c-mode-cedet-hook)

;; Hippie Expand
(global-set-key "\M-." 'hippie-expand)
(setq hippie-expand-try-functions-list
          '(try-expand-line
            try-expand-dabbrev
            try-expand-line-all-buffers
            try-expand-list
            try-expand-list-all-buffers
            try-expand-dabbrev-visible
            try-expand-dabbrev-all-buffers
            try-expand-dabbrev-from-kill
            try-complete-file-name
            try-complete-file-name-partially
            try-complete-lisp-symbol
            try-complete-lisp-symbol-partially
            try-expand-whole-kill))
(autoload 'comint-dynamic-complete "comint" "Complete for file name" t)
(setq comint-completion-addsuffix '("/" . ""))

;; Haskell
(setq haskell-font-lock-symbols t)

;; cdlatex
;(add-to-list 'load-path "~/elisp/")
;(require 'cdlatex)
;(add-hook 'latex-mode-hook 'turn-on-cdlatex)   ; with Emacs latex mode

;; remember.el config
(add-to-list 'load-path "~/elisp/remember")
(require 'remember)
(setq org-directory "~/orgfiles/")
;(Setq org-default-notes-file "~/.notes")
(setq remember-annotation-functions '(org-remember-annotation))
(setq remember-handler-functions '(org-remember-handler))
(add-hook 'remember-mode-hook 'org-remember-apply-template)
(global-set-key "\C-cr" 'org-remember)

(setq org-remember-templates
      '(("Todo" ?t "* TODO %^{Brief Description} %^g\nAdded: %U" "~/orgfiles/gtd.org" "Tasks")))

;; org-mode
(setq org-agenda-files '(
			 "~/orgfiles/todo.org"
			 "~/orgfiles/erh-stipendium.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) 
(global-set-key "\C-cb" 'org-iswitchb) 

(global-font-lock-mode 1) ; for all buffers 
(add-hook 'org-mode-hook 'turn-on-font-lock) ; Org buffers only 

(setq org-hide-leading-stars t)

;; AUCTeX
(require 'tex-site)
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)
(add-hook 'LaTeX-mode-hook 'auto-fill-mode)
(add-hook 'LaTeX-mode-hook 'flyspell-mode)
(add-hook 'LaTeX-mode-hook 'LaTeX-math-mode)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
(setq reftex-plug-into-AUCTeX t)

; dirty hack to make M-Ret insert new \item
(add-hook 'LaTeX-mode-hook
	  '(lambda ()
	     (global-set-key "\M-\r" 'LaTeX-insert-item)
	     (global-set-key "\C-ce" 'LaTeX-close-environment)))

;; SLIME
(require 'slime-autoloads)
(add-hook 'lisp-mode-hook (lambda () (slime-mode t)))
(add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t)))
(setq slime-lisp-implementations 
      '((clisp ("/opt/local/bin/clisp") :coding-system utf-8-unix)
	(sbcl ("/opt/local/bin/sbcl") :coding-system utf-8-unix)))
(setq slime-default-lisp 'sbcl)
(setq common-lisp-hyperspec-root 
      "file:/opt/local/share/doc/lisp/HyperSpec-7-0/HyperSpec/")
(setq slime-space-information-p t)

;; Emacs default
(one-buffer-one-frame-mode 0)