219 lines
6.9 KiB
EmacsLisp
219 lines
6.9 KiB
EmacsLisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Global keymaps ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
(bind (kbd "≈") 'smex
|
||
(kbd "˛") 'smex-major-mode-commands
|
||
(kbd "C-;") 'eval-expression
|
||
(kbd "C-`") 'popwin:toggle-popup-window
|
||
|
||
(kbd "M-=") 'text-scale-increase
|
||
(kbd "M--") 'text-scale-decrease
|
||
(kbd "M-w") 'evil-window-delete
|
||
(kbd "M-/") 'evilnc-comment-or-uncomment-lines
|
||
(kbd "M-s") 'save-buffer)
|
||
|
||
;; Faster scrolling
|
||
(bind 'motion my-mode-map
|
||
(kbd "M-j") "6j"
|
||
(kbd "M-k") "6k")
|
||
|
||
(bind 'normal my-mode-map
|
||
(kbd "M-o") 'ido-find-file
|
||
(kbd "M-d") 'dash-at-point)
|
||
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Local keymaps ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
(bind '(normal visual) my-mode-map
|
||
";" 'evil-ex
|
||
"X" 'evil-exchange
|
||
|
||
"g l" (λ (linum-mode 1) (evil-ex "") (linum-mode -1))
|
||
|
||
"] 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 default-directory))
|
||
"\\ o F" 'my-send-dir-to-finder
|
||
"\\ o u" (λ (my-send-to-transmit buffer-file-name))
|
||
"\\ o U" 'my-send-to-transmit
|
||
"\\ o l" (λ (my-send-to-launchbar buffer-file-name))
|
||
"\\ o L" 'my-send-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)))
|
||
|
||
(bind 'emacs [escape] 'evil-normal-state)
|
||
|
||
(bind 'insert my-mode-map
|
||
"<A-backspace>" 'evil-delete-backward-word
|
||
"<A-delete>" (λ (evil-forward-word) (evil-delete-backward-word))
|
||
|
||
;; Newline magic
|
||
"<backspace>" 'backward-delete-char-untabify
|
||
"<M-backspace>" 'my.backward-kill-to-bol-and-indent
|
||
"<C-return>" 'evil-ret-and-indent
|
||
|
||
;; Textmate-esque indent shift left/right
|
||
"M-[" (kbd "C-o m l C-o I DEL C-o ` l")
|
||
"M-]" (λ (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)
|
||
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Keymap fixes ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
;; This section is dedicated to keymaps that "fix" certain keys so
|
||
;; that they behave more like vim (or how I like it).
|
||
|
||
;; Restores "dumb" indentation to the tab key. This rustles a lot of
|
||
;; peoples' jimmies, apparently, but it's how I like it.
|
||
(bind 'insert "<tab>" 'my.dumb-indent)
|
||
(bind 'insert "<A-tab>" 'indent-for-tab-command)
|
||
|
||
;; Except for lisp
|
||
(bind 'insert lisp-mode-map [remap my.dumb-indent] 'indent-for-tab-command)
|
||
(bind 'insert emacs-lisp-mode-map [remap my.dumb-indent] 'indent-for-tab-command)
|
||
|
||
;; Highjacks space/backspace to:
|
||
;; a) delete spaces on either side of the cursor, if present ( | ) -> (|)
|
||
;; b) allow backspace to delete space-indented blocks intelligently
|
||
;; c) and not do any of this magic when inside a string
|
||
(bind 'insert
|
||
"SPC" 'my.inflate-space-maybe
|
||
[remap backward-delete-char-untabify] 'my.deflate-space-maybe
|
||
[remap newline] 'my.newline-and-indent
|
||
|
||
;; Smarter move-to-beginning-of-line
|
||
[remap move-beginning-of-line] 'my.move-to-bol
|
||
|
||
;; Restore bash-esque keymaps in insert mode; C-w and C-a already exist
|
||
"\C-e" 'my.move-to-eol
|
||
"\C-u" 'my.backward-kill-to-bol-and-indent
|
||
|
||
;; Fixes delete
|
||
(kbd "<kp-delete>") 'delete-char)
|
||
|
||
(bind '(insert normal)
|
||
;; Textmate-esque insert-line before/after
|
||
(kbd "<M-return>") 'evil-open-below
|
||
(kbd "<S-M-return>") 'evil-open-above)
|
||
|
||
;; Fix osx keymappings and then some
|
||
(use-package smart-forward
|
||
:config
|
||
(bind 'insert
|
||
(kbd "<M-left>") 'smart-backward
|
||
(kbd "<M-right>") 'smart-forward
|
||
;; (kbd "<M-up>") 'beginning-of-buffer
|
||
(kbd "<M-up>") 'smart-up
|
||
(kbd "<M-down>") 'smart-down
|
||
(kbd "<M-backspace>") 'my.backward-kill-to-bol-and-indent))
|
||
|
||
|
||
|
||
(provide 'my-bindings)
|
||
;;; my-bindings.el ends here
|