I think I have a problem..

init/my-bindings.el

@@ -0,0 +1,174 @@
+(provide 'my-bindings)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; 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-execute-in-god-state ; localleader
+      ";"     '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
+      ", ,"   '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
+
+      ;; 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)))
+
+(bind 'god my-mode-map
+      ;; <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"  (λ (my:tmux-chdir nil t))
+      ;; tmux: cd [project root]
+      "o T"  'my:tmux-chdir)
+
+(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)