;;packages
(require 'package)
(setq package-archives '(;("ELPA" . "http://tromey.com/elpa/")
                         ;("gnu" . "http://elpa.gnu.org/packages/")
                         ("marmalade" . "http://marmalade-repo.org/packages/")
                         ("melpa" . "http://melpa.milkbox.net/packages/")
                         ;("geiser" . "http://download.savannah.gnu.org/releases/geiser/packages")
                         ))
(package-initialize)
;; defer fontification
(setq jit-lock-defer-time 0.01)
(ido-mode 1)
;; (helm-mode 1)
;;Appearance
(load-theme 'deeper-blue t)
;(require 'color-theme)
;(color-theme-initialize)
;(color-theme-charcoal-black)
(set-cursor-color "white")
(menu-bar-mode 0)
(tool-bar-mode 0)
(scroll-bar-mode -1)
(set-face-attribute 'default nil :font "Consolas-11")

;;Keys
(global-set-key (kbd "<apps>") 'execute-extended-command) ;"M-x"
(global-set-key (kbd "C-;") 'comment-or-uncomment-region)
(global-set-key (kbd "¦") "|")
(global-set-key (kbd "<f11>") 'linum-mode)

;; (global-unset-key (kbd "<up>"))
;; (global-unset-key (kbd "<down>"))
;; (global-unset-key (kbd "<right>"))
;; (global-unset-key (kbd "<left>"))

;;Unix style line endings
(setq-default buffer-file-coding-system 'undecided-unix)

;;No tabs
(setq-default indent-tabs-mode nil)

;;Ruby Rsense
;; (setq rsense-home "/home/azaza/Install/rsense-0.3")
;; (add-to-list 'load-path (concat rsense-home "/etc"))
;; (require 'rsense)
;; (add-hook 'ruby-mode-hook
;;           (lambda ()
;;             (add-to-list 'ac-sources 'ac-source-rsense-method)
;;             (add-to-list 'ac-sources 'ac-source-rsense-constant)))
;;Ruby Rinari keys
(load "C:/Users/azaza/.emacs.d/rinarikeys.el")
;;Lua
(setq lua-indent-level 2)
;;JavaScript
(setq inferior-js-program-command "d8")
(autoload 'moz-minor-mode "moz" "Mozilla Minor and Inferior Mozilla Modes" t)
(add-hook 'js2-mode-hook 'js2-custom-setup)
(defun js2-custom-setup ()
  (moz-minor-mode 1))

;;Prolog
(autoload 'run-prolog "prolog" "Start a Prolog sub-process." t)
(autoload 'prolog-mode "prolog" "Major mode for editing Prolog programs." t)
(autoload 'mercury-mode "prolog" "Major mode for editing Mercury programs." t)
(setq prolog-system 'swi)  ; optional, the system you are using;
                           ; see `prolog-system' below for possible values
(setq auto-mode-alist (append '(("\\.pl$" . prolog-mode)
                                ("\\.m$" . mercury-mode))
                               auto-mode-alist))

;;auto-complete
(require 'auto-complete-config)
(ac-config-default)

;; ;;evil
;; (add-to-list 'load-path "~/.emacs.d/evil-plugins")
;; ;(require 'evil-relative-linum)
;; (evil-mode 1)
;; (setq evil-default-cursor t)
;; (define-key evil-motion-state-map (kbd "<up>") 'nil)
;; (define-key evil-motion-state-map (kbd "<down>") 'nil)
;; (define-key evil-motion-state-map (kbd "<right>") 'nil)
;; (define-key evil-motion-state-map (kbd "<left>") 'nil)

;;rainbow-mode
(defun all-css-modes() (css-mode)
       (rainbow-mode))
(add-to-list 'auto-mode-alist '("\.css$" . all-css-modes))
(defun all-scss-modes() (scss-mode)
       (rainbow-mode))
(add-to-list 'auto-mode-alist '("\.scss$" . all-scss-modes))
;;scss no compilation
(setq scss-compile-at-save nil)

;;haskell
(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
(add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
(setq haskell-program-name "C:/private/Haskell Platform/2012.2.0.0/bin/ghci.exe")

;;ocaml tuareg
;; (require 'caml)
;; (require 'tuareg)
(setq tuareg-use-smie t)
;; (autoload 'tuareg-mode "tuareg.el" "Major mode for editing Caml code" t)
;; (autoload 'camldebug "camldebug" "Run the Caml debugger" t)
;; (autoload 'tuareg-imenu-set-imenu "tuareg-imenu"
;;   "Configuration of imenu for tuareg" t)

;; (add-hook 'tuareg-mode-hook 'tuareg-imenu-set-imenu)

;; (setq auto-mode-alist
;;       (append '(("\\.ml[ily]?$" . tuareg-mode)
;;                 ("\\.topml$" . tuareg-mode))
;;               auto-mode-alist))
;;deft
(when (require 'deft nil 'noerror)
  (setq
   deft-extension "org"
   deft-directory "c:/private/texts/"
   deft-text-mode 'org-mode)
  (global-set-key (kbd "<f9>") 'deft))

;;paredit hack
(require 'paredit)
(define-key paredit-mode-map (kbd "[") 'paredit-open-round)
(define-key paredit-mode-map (kbd "]") 'paredit-close-round)
(define-key paredit-mode-map (kbd "M-[") 'paredit-wrap-round)
(define-key paredit-mode-map (kbd "(") 'paredit-open-square)
(define-key paredit-mode-map (kbd ")") 'paredit-close-square)
(define-key paredit-mode-map (kbd "M-(") 'paredit-wrap-square)
(defun turn-on-parentheses-goodies ()
  (rainbow-delimiters-mode 1)
  (paredit-mode 1))
(defun turn-on-lisp-repl-goodies ()
  (auto-complete-mode 1)
  (turn-on-parentheses-goodies))
(defvar my-lisp-mode-hooks '(bee-mode-hook
                             scheme-mode-hook
                 slime-repl-mode-hook
                 emacs-lisp-mode-hook
                 lisp-mode-hook
                 shen-mode-hook
                             clojure-mode-hook
                             clojurescript-mode-hook))
(defvar my-lisp-repl-mode-hooks '(inferior-shen-mode-hook
                  geiser-repl-mode-hook
                                  ;nrepl-mode-hook
                                  ))
(mapcar (lambda (x) (add-hook x  'turn-on-parentheses-goodies))  my-lisp-mode-hooks)
(mapcar (lambda (x) (add-hook x  'turn-on-lisp-repl-goodies))  my-lisp-repl-mode-hooks)

;;slime
(setq inferior-lisp-program "C:/private/sbcl/sbcl.exe")
(add-to-list 'load-path "C:/private/lisp/Libraries/slime/")
(add-to-list 'load-path "C:/private/lisp/Libraries/slime/contrib/")
(require 'slime-autoloads)
(slime-setup '(slime-fancy))
(setq common-lisp-hyperspec-root "C:/private/Texts/HyperSpec/")
(setq lisp-indent-function 'common-lisp-indent-function)
(setq slime-lisp-implementations '(("sbcl" ("sbcl"))))
;;ac-slime
(add-hook 'slime-mode-hook 'set-up-slime-ac)
(add-hook 'slime-repl-mode-hook 'set-up-slime-ac)
(eval-after-load "auto-complete"
  '(add-to-list 'ac-modes 'slime-repl-mode))
;;shen
;(require 'shen-mode)
;(require 'inf-shen)
;(setq inferior-shen-program "C:/private/shen/bin/shen.exe" )

;; bee for bigloo scheme
(if (locate-library "bmacs")
    (require 'bmacs))

(setq auto-mode-alist
      (append '(("\\.scm$" . bee-mode)
                ("\\.sch$" . bee-mode)
                ("\\.scme$" . bee-mode)
                ("\\.bgl$" . bee-mode)
                ("\\.bee$" . bee-mode))
              auto-mode-alist))

(add-hook 'bee-mode-hook
          (lambda ()
            (define-key bee-mode-map (kbd "C-M-x") 'bee-repl-send-define)
            (auto-complete-mode 1)))
;;racket+geiser+quack
;(load-file "C:/private/scheme/geiser/elisp/geiser.el")
(setq geiser-active-implementations '(racket))
;(setq geiser-racket-binary "C:/private/Racket/racket.exe")
(add-to-list 'load-path "/home/azaza/.emacs.d/scheme/")
;; (require 'quack)

;;php
;(require 'php-mode)
;(require 'php-electric)
;(add-hook 'php-mode-hook '(lambda () (php-electric-mode)))
;(require 'multi-web-mode)
;(setq mweb-default-major-mode 'html-mode)
;(setq mweb-tags '((php-mode "<\\?php\\|<\\? \\|<\\?=" "\\?>")
;                  (js-mode "<script +\\(type=\"text/javascript\"\\|language=\"javascript\"\\)[^>]*>" "</script>")
;                  (css-mode "<style +type=\"text/css\"[^>]*>" "</style>")))
;(setq mweb-filename-extensions '("php" "htm" "html" "ctp" "phtml" "php4" "php5" ))
;(multi-web-global-mode 1)
;;(add-to-list 'auto-mode-alist '("\.html\.erb$" . multi-web-mode-html-erb))

(defun recode-buffer-safe (target-coding-system)
  "* Recode buffer as if it were encoded with `target-coding-system'.
If current buffer is write-protected (`buffer-read-only'), do nothing."
  (interactive "zEnter target coding system: ")
  (unless buffer-read-only
    (encode-coding-region (point-min)
                          (point-max)
                          buffer-file-coding-system)
    (decode-coding-region (point-min)
                          (point-max)
                          target-coding-system)
    (set-buffer-file-coding-system target-coding-system)))

;;yasnippet
;(require 'yasnippet-bundle)

(hl-line-mode 0)