+;; color-theme
+(require-if-present 'color-theme)
+(if (featurep 'color-theme)
+ (progn
+ (color-theme-initialize)
+ (color-theme-subtle-hacker)))
+
+;; auto-complete
+(require-if-present 'auto-complete-config)
+(if (featurep 'auto-complete-config)
+ (progn
+ (add-to-list 'ac-dictionary-directories
+ "/usr/pkg/share/emacs/site-lisp/auto-complete/ac-dict")
+ (mapcar (lambda (mode)
+ (add-to-list 'ac-modes mode))
+ '(autoconf-mode
+ erlang-mode
+ sql-mode))
+ (setq ac-modes (remove 'css-mode ac-modes))
+ (add-hook 'erlang-mode-hook
+ (lambda ()
+ (add-to-list 'ac-sources 'ac-source-semantic)))
+ (ac-config-default)))
+