;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Global keymaps                     ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(bind (kbd "M-x")      'smex
      (kbd "M-X")      'smex-major-mode-commands
      (kbd "C-;")      'eval-expression
      (kbd "C-`")      'popwin:toggle-popup-window

      (kbd "s-=")      'text-scale-increase
      (kbd "s--")      'text-scale-decrease
      (kbd "s-w")      'evil-window-delete
      (kbd "s-/")      'evilnc-comment-or-uncomment-lines)

;; Faster scrolling
(bind 'motion my-mode-map
      (kbd "s-j")      "6j"
      (kbd "s-k")      "6k")

(bind 'normal my-mode-map
      (kbd "s-o")      'ido-find-file
      (kbd "s-d")      'dash-at-point)

(bind 'visual my-mode-map
      (kbd "s-r")      'my-run-code-region
      (kbd "s-R")      'my-send-region-to-repl)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Local keymaps                      ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(bind '(normal visual) my-mode-map
      ";"     'evil-ex
      "X"     'evil-exchange

      "g SPC" (λ (call-interactively
                  (if (evil-visual-line-state-p)
                      'evil-ace-jump-line-mode
                    'evil-ace-jump-char-mode)))
      "g w"   'evil-ace-jump-word-mode  ; overwrites evil-fill
      "g l"   'evil-ace-jump-line-mode
      "g s"   'evil-ace-jump-two-chars-mode
      "g t"   'ace-window
      "g T"   (λ (ace-window 4))

      "] e"   'next-error
      "[ e"   'previous-error
      "] g"   'git-gutter+-next-hunk
      "[ g"   'git-gutter+-previous-hunk

      "] \\"  'er/expand-region
      "[ \\"  'er/contract-region)

(bind 'normal my-mode-map
      ;; <leader>
      ", ,"   'helm-projectile-switch-to-buffer
      ", ."   'helm-resume
      ", /"   'helm-projectile-find-file
      ", ;"   'helm-semantic-or-imenu
      ", <"   'helm-mini
      ", E"   'my:init-files
      ", M"   'helm-projectile-recentf ; recent PROJECT files
      ", ]"   'helm-etags-select
      ", a"   'helm-projectile-find-other-file
      ", e"   'ido-find-file
      ", f"   'helm-projectile-find-file-dwim
      ", g"   'git-gutter+-show-hunk
      ", h"   'helm-apropos
      ", m"   'helm-recentf
      ", p"   'helm-projectile-switch-project
      ", y"   'helm-show-kill-ring

      ;; <localleader>
      "\\ \\"   'neotree-toggle
      "\\ ;"    'linum-mode
      "\\ ="    'toggle-transparency
      "\\ e"    'evil-emacs-state

      "\\ ]"    'next-buffer
      "\\ ["    'previous-buffer

      "\\ o f"  'my-send-dir-to-finder
      "\\ o u"  'my-send-to-transmit
      "\\ o l"  'my-send-to-launchbar
      "\\ o L"  'my-send-dir-to-launchbar

      ;; tmux: cd (default-directory)
      "\\ o t"  (λ (ex:tmux-chdir nil t))
      ;; tmux: cd [project root]
      "\\ o T"  'ex:tmux-chdir

      ;; behave  like D and C; yank to end of line
      "Y"     (λ (evil-yank (point) (point-at-eol)))

      "z x"       'kill-this-buffer
      "Z X"       'bury-buffer

      "] b"       'next-buffer
      "[ b"       'previous-buffer
      "] p"       'persp-next
      "[ p"       'persp-prev

      ;; winner-mode: window layout undo/redo (see init-core.el)
      "C-w u"     'winner-undo
      "C-w C-u"   'winner-undo
      "C-w C-r"   'winner-redo

      ;; Increment/decrement number under cursor
      "C-="       'evil-numbers/inc-at-pt
      "C--"       'evil-numbers/dec-at-pt)

(bind 'visual my-mode-map
      ", ="   'align-regexp

      ;; vnoremap < <gv
      "<"    (λ (evil-shift-left (region-beginning) (region-end))
                (evil-normal-state)
                (evil-visual-restore))
      ;; vnoremap > >gv
      ">"    (λ (evil-shift-right (region-beginning) (region-end))
                (evil-normal-state)
                (evil-visual-restore)))


(defun my--enable-linum ()
  (interactive)
  (linum-mode 1)
  (add-hook 'pre-command-hook 'my--disable-linum))

(defun my--disable-linum ()
  (interactive)
  (linum-mode 0)
  (remove-hook 'pre-command-hook 'my--disable-linum))

(bind 'emacs [escape] 'evil-normal-state)

(bind 'insert my-mode-map
      "<M-kp-delete>" (λ (evil-forward-word) (evil-delete-backward-word))

      ;; Newline magic
      "<backspace>"   'backward-delete-char-untabify
      "<S-backspace>" 'backward-delete-char
      "<C-return>"    'evil-ret-and-indent
      "<M-return>"    (kbd "<return> DEL") ; newline and dedent

      ;; Textmate-esque indent shift left/right
      "s-["           (kbd "C-o m l C-o I DEL C-o ` l")
      "s-]"           (λ (evil-shift-right (point-at-bol) (point-at-eol)))
      "<backtab>"     (kbd "s-["))

;; Enable TAB to do matchit
(bind '(normal visual) evil-matchit-mode-map [tab] 'evilmi-jump-items)

;; Rotate-text (see elisp/rotate-text.el)
(bind 'normal my-mode-map "!" 'rotate-word-at-point)
(bind 'visual my-mode-map "!" 'rotate-region)

;; Additional operators
(bind 'motion my-mode-map "g x" 'my-scratch-buffer) ; send to scratch buffer

;; Easy escape from insert mode (more responsive than using key-chord-define)
(bind 'insert "j" 'my--maybe-exit-insert-mode)

(bind 'insert "C-g" 'evil-normal-state)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Plugin/mode keymaps                ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Peek at file from dired
(bind dired-mode-map "o" (λ (popwin:find-file (dired-get-file-for-visit))))

;; Evil registers ;;;;;;;;;;;;;;;;;;;;;;

(after "help-mode"
  (bind 'normal help-mode-map
        "]]" 'help-go-forward
        "[[" 'help-go-back))

(evil-make-overriding-map my-mode-map nil)


(provide 'my-bindings)
;;; my-bindings.el ends here