(add-to-list 'load-path "~/.emacs.d/")
(add-to-list 'load-path "~/.emacs.d/solarized/")
(add-to-list 'load-path "~/.emacs.d/auto-complete/")
(add-to-list 'custom-theme-load-path "~/.emacs.d/solarized")
;(load-theme 'solarized-light t)

(require 'package)
(add-to-list 'package-archives
             '("marmalade" . "http://marmalade-repo.org/packages/"))
(package-initialize)

(set-face-attribute 'default nil :height 120)

(setq visible-bell 1)
(tool-bar-mode -1)

(require 'ido)
(ido-mode 1)
(setq ido-enable-last-directory-history t)
(setq ido-enable-flex-matching t)
(global-set-key (kbd "M-f") 'ido-find-file)


;;;;;;;;;;;;
;;; keys ;;;
;;;;;;;;;;;;

(cua-mode t)

(require 'redo)
(global-set-key (kbd "C-S-z") 'redo)
(global-set-key (kbd "C-s") 'save-buffer)
(global-set-key (kbd "C-S-s") 'write-file)
(global-set-key (kbd "C-s") 'save-buffer)
(global-set-key (kbd "C-S-s") 'write-file)
(global-set-key (kbd "C-w") 'kill-buffer)
(global-set-key (kbd "C-a") 'mark-whole-buffer)
(global-set-key (kbd "C-o") 'find-file)
(global-set-key (kbd "C-S-<tab>") 'previous-buffer)
(global-set-key (kbd "C-<tab>") 'next-buffer)
(global-set-key (kbd "C-p") 'execute-extended-command)

;; isearch stuff
(global-set-key (kbd "C-f") 'isearch-forward)
(global-set-key (kbd "C-S-f") 'isearch-backward)
(add-hook 'isearch-mode-hook
      (lambda ()
        (define-key isearch-mode-map (kbd "C-f") 'isearch-repeat-forward)
        (define-key isearch-mode-map (kbd "C-S-f") 'isearch-repeat-backward)))

(global-set-key (kbd "C-h") 'query-replace)

;;;;;;;;;;;;;;;;;;;;;
;;; auto-complete ;;;
;;;;;;;;;;;;;;;;;;;;;

(require 'auto-complete-config)
(add-to-list 'ac-dictionary-directories "~/.emacs.d/ac-dict")
(setq ac-delay 0.0)
(setq ac-use-quick-help t)
(setq ac-quick-help-delay 0.05)
(setq ac-use-fuzzy 1)
(setq ac-auto-start 1)
(setq ac-auto-show-menu 1)
(ac-config-default)

(define-key ac-mode-map (kbd "C-SPC") 'auto-complete)

; TODO: сделать пэйдж ап и даун
;(add-hook 'auto-complete-mode-hook
;     (lambda ()
;       (define-key ac-mode-map (kbd "<next>") '

;;;;;;;;;;;;;;;;;;;
;;; auto-indent ;;;
;;;;;;;;;;;;;;;;;;;

(global-set-key (kbd "RET") 'newline-and-indent)

;;;;;;;;;;;;;;
;;; slime  ;;;
;;;;;;;;;;;;;;

;; (setq inferior-lisp-program "C:/home/bin/clisp/full/lisp.exe
;; -B C:/home/bin/clisp/full
;; -M C:/home/bin/clisp/full/lispinit.mem
;; -ansi -q")
;; (setq lisp-indent-function 'common-lisp-indent-function
;;       slime-complete-symbol-function 'slime-fuzzy-complete-symbol)

;; (add-to-list 'load-path "C:/home/bin/emacs/site-lisp/slime/")
;; (add-to-list 'load-path "c:/home/bin/emacs/site-lisp/slime/contrib")
;; (require 'slime)
;; (require 'slime-autoloads)
;; (require 'slime-fuzzy)
;; (slime-setup '(slime-fancy))

;; (require 'ac-slime)

;; (add-hook 'slime-mode-hook 'set-up-slime-ac)
;; (add-hook 'slime-repl-mode-hook 'set-up-slime-ac)
;; (add-to-list 'ac-modes 'slime-repl-mode)
;; (add-to-list 'ac-modes 'lisp-mode)

;;;;;;;;;;;;;;;
;;; clojure ;;;
;;;;;;;;;;;;;;;

(require 'nrepl)

;; Configure nrepl.el
(setq nrepl-hide-special-buffers t)
(setq nrepl-popup-stacktraces-in-repl t)
(setq nrepl-history-file "~/.emacs.d/nrepl-history")

;; Some default eldoc facilities
(add-hook 'nrepl-connected-hook
      (defun pnh-clojure-mode-eldoc-hook ()
        (add-hook 'clojure-mode-hook 'turn-on-eldoc-mode)
        (add-hook 'nrepl-interaction-mode-hook 'nrepl-turn-on-eldoc-mode)
        (nrepl-enable-on-existing-clojure-buffers)))

;; Repl mode hook
(add-hook 'nrepl-mode-hook 'subword-mode)

;; Auto completion for NREPL
(require 'ac-nrepl)
(eval-after-load "auto-complete"
  '(add-to-list 'ac-modes 'nrepl-mode))

(add-hook 'nrepl-mode-hook 'ac-nrepl-setup)

(eval-after-load 'clojure-mode
  '(define-key clojure-mode-map (kbd "C-<ret>") 'nrepl-eval-expression-at-point))

(global-set-key (kbd "C-<ret>") 'nrepl-eval-expression-at-point)