195 lines
6.0 KiB
EmacsLisp
195 lines
6.0 KiB
EmacsLisp
(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-eshell-window
|
|
(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 '(normal visual) my-mode-map
|
|
(kbd "s-j") "6j"
|
|
(kbd "s-k") "6k"
|
|
(kbd "s-b") 'my:build
|
|
(kbd "s-f") 'helm-swoop
|
|
(kbd "s-F") 'helm-do-ag)
|
|
|
|
(bind 'normal my-mode-map
|
|
(kbd "s-r") 'my-run-code-buffer
|
|
(kbd "s-R") 'my-switch-to-repl
|
|
(kbd "s-t") 'helm-projectile-find-file
|
|
(kbd "s-T") 'helm-semantic-or-imenu
|
|
(kbd "s-p") 'helm-projectile-switch-project
|
|
(kbd "s-P") 'persp-switch
|
|
(kbd "s-m") ",m"
|
|
(kbd "s-M") ",M"
|
|
(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 ; Remap ; to : - SPC and shift-SPC replace ; and ,
|
|
"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
|
|
", a" 'helm-projectile-find-other-file
|
|
", e" 'ido-find-file
|
|
", E" 'my:init-files
|
|
", f" 'helm-projectile-find-file-dwim
|
|
", g" 'git-gutter+-show-hunk
|
|
", h" 'helm-apropos
|
|
", m" 'helm-recentf
|
|
", M" 'helm-projectile-recentf ; recent PROJECT files
|
|
", p" 'helm-projectile-switch-project
|
|
", y" 'helm-show-kill-ring
|
|
", ;" 'helm-semantic-or-imenu
|
|
", ," 'helm-projectile-switch-to-buffer
|
|
", <" 'helm-mini
|
|
", ]" 'helm-etags-select
|
|
", /" 'helm-projectile-find-file
|
|
", ." 'helm-resume)
|
|
|
|
(bind 'god my-mode-map
|
|
;; <localleader>
|
|
"\\" 'neotree-toggle
|
|
":" 'linum-mode
|
|
"=" 'toggle-transparency
|
|
|
|
"]" '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 'normal my-mode-map
|
|
;; 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 '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-["))
|
|
|
|
;; (bind 'emacs
|
|
;; ;; Preserve buffer-movement in emacs mode
|
|
;; "C-j" 'evil-next-line
|
|
;; "C-k" 'evil-previous-line
|
|
|
|
;; "C-w h" 'evil-window-left
|
|
;; "C-w l" 'evil-window-right
|
|
;; "C-w j" 'evil-window-down
|
|
;; "C-w k" 'evil-window-up)
|
|
|
|
;; Rotate-text (see elisp/rotate-text.el)
|
|
(bind 'normal my-mode-map "!" 'rotate-word-at-point)
|
|
(bind 'visual my-mode-map "!" 'rotate-region)
|
|
|
|
;; Easy escape from insert mode
|
|
;; (ibind "jk" 'evil-normal-state)
|
|
|
|
;; Enable TAB to do matchit
|
|
(bind '(normal visual) evil-matchit-mode-map [tab] 'evilmi-jump-items)
|
|
|
|
;; Additional operators
|
|
(bind 'normal my-mode-map "g r" 'my:run-code) ; code eval
|
|
(bind 'normal my-mode-map "g R" 'my:send-region-to-repl) ; eval in repl
|
|
(bind 'normal my-mode-map "g x" 'my-scratch-buffer) ; send to scratch buffer
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; 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)
|