(require 'auto-complete)
(require 'auto-complete-config)
(require 'auto-complete-clang)
;(require 'go-autocomplete)

(ac-config-default)

(setq clang-completion-suppress-error t)
(setq ac-clang-flags
      (mapcar (lambda (item)(concat "-I" item))
              (c-get-system-includes)))

;; Generic setup.
(global-auto-complete-mode t)           ;enable global-mode
(setq ac-auto-start 2)                ;automatically start (disabled)
(setq ac-dwim t)                        ;Do what i mean
(setq ac-override-local-map nil)        ;don't override local map
;(setq ac-quick-help-delay 1)
(setq ac-auto-show-menu 0.5)
(setq ac-ignore-case t)
(setq ac-delay 0.5)
(setq ac-use-fuzzy t)
(setq ac-use-comphist t)
(setq ac-use-quick-help nil)

;; (setq ac-modes
;;       '(emacs-lisp-mode lisp-interaction-mode lisp-mode scheme-mode
;;                         c-mode cc-mode c++-mode java-mode
;;                         perl-mode cperl-mode python-mode ruby-mode
;;                         ecmascript-mode javascript-mode php-mode css-mode
;;                         makefile-mode sh-mode fortran-mode f90-mode ada-mode
;;                         xml-mode sgml-mode
;;                         haskell-mode literate-haskell-mode
;;                         emms-tag-editor-mode
;;                         asm-mode
;;                         org-mode
;;                         lua-mode go-mode))

;; The sources for common all mode.
(custom-set-variables
 '(ac-sources
   '(
     ;ac-source-filename
     ac-source-files-in-current-dir
     ;ac-source-words-in-buffer
     ac-source-words-in-same-mode-buffers
     ;ac-source-yasnippet
     ;ac-source-words-in-all-buffer
     ;ac-source-gtags
     ;ac-source-imenu
     ;ac-source-abbrev
     ;ac-source-semantic
     ;ac-source-semantic-raw
     ;ac-source-ropemacs
     ;ac-source-symbols
     )))

;;; Lisp mode
(dolist (hook (list
               'emacs-lisp-mode-hook
               'lisp-mode-hook
               'lisp-interaction-mode-hook))
  (add-hook hook '(lambda ()
                    (add-to-list 'ac-sources 'ac-source-symbols))))

(add-hook 'haskell-mode-hook '(lambda ()
                                (add-to-list 'ac-sources 'ac-source-haskell)))

(add-hook 'c-mode-common-hook '(lambda ()
                                 (add-to-list 'ac-omni-completion-sources
                                              (cons "\\." '(ac-source-semantic)))
                                 (add-to-list 'ac-omni-completion-sources
                                              (cons "->" '(ac-source-semantic)))
                                 (setq ac-sources (append '(ac-source-clang ac-source-yasnippet) ac-sources))
                                 ))


(add-hook 'go-mode-hook '(lambda()
                           (add-to-list 'ac-sources 'ac-source-go)))


(ac-flyspell-workaround)