aa26332d00
vcs: + +git-gutter to conf-modes; -git-gutter from evil-insert-state-exit + switch github-browse-file for browse-at-remote + fix <leader>ob; add <leader>d[./sr] vc bindings + vc-annotate bindings and initial state Workgroups2 integration: + don't mess with buffers (speeds up emacs a lot!) + unicode numbers in display + single display function + remember workgroup uid instead (and smarter :tabrename) + clean up after wg update Org-mode + give highlight precedence to links in org-mode + enable encryption + config clean up + use different font for org + exclude attachments in recentf + redo latex and inline-image config + add narf/org-open-notes + update file templates for org CRM Mode-line + polish mode-line + decouple from spaceline-segments.el + refactor narf|spaceline-env-update + add macro-recording and buffer-size indicators to mode-line + python: '2>&1' in env-command + flycheck fringe indicator: change to arrow Aesthetics + update narf-dark-theme + add narf-minibuffer-active face + change writing indicator in writing-mode Misc + fix whitespace in display-startup-echo-area-message + reset fonts for more unicode characters + custom imenu entries + helm-imenu fontification + enable yascroll-bar in REPLs + reorganize my-commands.el + force quit iedit on ESC in normal mode + update snippets submodule + remove ido init (helm handles it all) [EXPERIMENTAL] + back to Terminus(TTF) font + popwin: update config for git-gutter and vc-diff windows + highlight :g[lobal] and :al[ign] matches + decouple narf/get-buffers+narf/get-all-buffers from wg-mess-with-buffer-list + fix narf/helm-buffers-dwim (add interactive form)
433 lines
13 KiB
EmacsLisp
433 lines
13 KiB
EmacsLisp
;;; my-bindings.el
|
||
|
||
;; Minimalistic key mapping! Why go so far for this?
|
||
;; ...
|
||
;; Uh. Good question.
|
||
|
||
(eval-when-compile (require 'core-defuns))
|
||
|
||
;; See `narf-leader-prefix' & `narf-localleader-prefix' in ../core/core-vars.el
|
||
|
||
(map!
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Global keymaps ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
"M-x" 'helm-M-x
|
||
"M-;" 'eval-expression
|
||
"M-/" 'evil-commentary-line
|
||
"A-x" 'helm-M-x
|
||
"A-;" 'eval-expression
|
||
"A-/" 'evil-commentary-line
|
||
|
||
"M-0" (λ (text-scale-set 0))
|
||
"M-=" 'text-scale-increase
|
||
"M--" 'text-scale-decrease
|
||
|
||
;; debug
|
||
"<f9>" 'what-face
|
||
|
||
"M-b" 'narf:build
|
||
"M-t" 'narf:workgroup-new
|
||
"M-T" 'narf/workgroup-display
|
||
"A-`" 'narf-switch-to-iterm
|
||
"C-`" 'popwin:messages
|
||
"C-~" 'rtog/toggle-repl
|
||
"M-`" 'narf/popup-toggle
|
||
|
||
"M-w" 'narf/close-window-or-workgroup
|
||
"M-W" 'delete-frame
|
||
"M-n" 'narf/new-buffer
|
||
"M-N" 'narf/new-frame
|
||
|
||
;; Simpler window navigation
|
||
"C-j" 'evil-window-down
|
||
"C-k" 'evil-window-up
|
||
"C-h" 'evil-window-left
|
||
"C-l" 'evil-window-right
|
||
|
||
"C-<escape>" 'evil-emacs-state
|
||
:e "C-<escape>" 'evil-normal-state
|
||
|
||
:m "M-j" 'narf/multi-next-line
|
||
:m "M-k" 'narf/multi-previous-line
|
||
|
||
:n "M-r" 'narf:eval-buffer
|
||
:v "M-r" 'narf:eval-region
|
||
:n "M-o" 'narf/ido-find-file
|
||
:n "M-O" 'narf/ido-find-project-file
|
||
|
||
:m "M-1" (λ (narf:switch-to-workgroup-at-index 0))
|
||
:m "M-2" (λ (narf:switch-to-workgroup-at-index 1))
|
||
:m "M-3" (λ (narf:switch-to-workgroup-at-index 2))
|
||
:m "M-4" (λ (narf:switch-to-workgroup-at-index 3))
|
||
:m "M-5" (λ (narf:switch-to-workgroup-at-index 4))
|
||
:m "M-6" (λ (narf:switch-to-workgroup-at-index 5))
|
||
:m "M-7" (λ (narf:switch-to-workgroup-at-index 6))
|
||
:m "M-8" (λ (narf:switch-to-workgroup-at-index 7))
|
||
:m "M-9" (λ (narf:switch-to-workgroup-at-index 8))
|
||
|
||
(:when IS-MAC
|
||
"<A-left>" 'backward-word
|
||
"<A-right>" 'forward-word
|
||
"<M-backspace>" 'narf/backward-kill-to-bol-and-indent
|
||
"A-SPC" 'just-one-space
|
||
"M-a" 'mark-whole-buffer
|
||
"M-c" 'evil-yank
|
||
"M-s" 'save-buffer
|
||
"M-v" 'clipboard-yank
|
||
"M-q" 'evil-quit-all
|
||
"M-z" 'undo
|
||
"M-Z" 'redo
|
||
"C-M-f" 'narf:toggle-fullscreen
|
||
|
||
:ni "M-d" 'dash-at-point
|
||
|
||
;; Textmate-esque indent shift left/right
|
||
:i "M-[" (kbd "C-o m l C-o I DEL C-o ` l")
|
||
:i "M-]" (λ (evil-shift-right (point-at-bol) (point-at-eol)))
|
||
|
||
;; Restore osx text objects
|
||
:i "<A-backspace>" 'evil-delete-backward-word
|
||
:i "<A-delete>" (λ (evil-forward-word) (evil-delete-backward-word)))
|
||
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Local keymaps ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
:m ";" 'evil-ex
|
||
(:leader
|
||
:nv "," 'narf/helm-buffers-dwim
|
||
:nv "<" 'helm-buffers-list
|
||
:nv "." 'helm-find-files
|
||
:nv ">" 'helm-projectile-find-file-in-known-projects
|
||
:nv "/" 'helm-projectile-find-file
|
||
:nv ";" 'helm-semantic-or-imenu
|
||
:nv ":" 'helm-imenu-in-all-buffers
|
||
:nv "]" 'helm-etags-select
|
||
:nv "a" 'helm-projectile-find-other-file
|
||
:nv "m" 'helm-recentf
|
||
:nv "M" 'helm-projectile-recentf ; recent PROJECT files
|
||
:nv "P" 'helm-projectile-switch-project
|
||
:v "=" 'align-regexp
|
||
|
||
:n "h" 'help-command
|
||
:nv "p" 'helm-show-kill-ring
|
||
:n "R" 'narf/reset-theme
|
||
:n "e" 'narf/flycheck-errors
|
||
:n "s" 'yas-visit-snippet-file
|
||
:n "S" 'narf/yas-find-file
|
||
:n "D" 'vc-annotate
|
||
(:prefix "d"
|
||
:n "." 'narf/vcs-show-hunk
|
||
:n "/" 'vc-diff
|
||
:n "s" 'narf/vcs-stage-hunk
|
||
:n "r" 'narf/vcs-revert-hunk)
|
||
|
||
:n "b" 'helm-bookmarks
|
||
:n "w" 'narf/workgroup-display
|
||
:n "W" 'narf:helm-wg
|
||
|
||
:n "n" 'narf/neotree-toggle
|
||
:n "N" 'narf/neotree-find
|
||
:nv "l" 'narf/nlinum-toggle
|
||
|
||
:nv "qq" 'evil-save-and-quit
|
||
:nv "QQ" 'narf/kill-all-buffers-do-not-remember
|
||
|
||
:nv "E" 'narf/helm-find-in-emacsd
|
||
:nv "\\" 'narf/helm-find-in-dotfiles
|
||
|
||
;; Tmux
|
||
(:prefix "t"
|
||
:n "." 'narf/tmux-cd-to-here
|
||
:n "/" 'narf/tmux-cd-to-project
|
||
:n "s" 'narf/tmux-split-window
|
||
:n "v" 'narf/tmux-vsplit-window
|
||
:n "c" 'narf/tmux-new-window
|
||
:v "r" 'narf:tmux)
|
||
|
||
;; Open with O/S
|
||
:n "O" 'os-reveal
|
||
(:prefix "o"
|
||
:n "o" 'os-open-in-default-program
|
||
:n "p" 'os-reveal-project
|
||
:n "b" 'os-open-in-browser
|
||
:n "u" 'os-upload
|
||
:n "U" 'os-upload-folder
|
||
:n "l" 'os-send-to-launchbar
|
||
:n "L" 'os-send-project-to-launchbar
|
||
:n "t" 'os-switch-to-term
|
||
:n "T" 'os-switch-to-term-and-cd)
|
||
|
||
;; Org notes
|
||
:n "X" 'narf/org-open-notes
|
||
(:prefix "x"
|
||
:n "." 'narf/helm-org-find-files
|
||
:n "/" 'narf/helm-org
|
||
:n "p" 'narf/helm-org-crm-projects
|
||
:n "c" 'narf/helm-org-crm-contacts
|
||
:n "i" 'narf/helm-org-crm-invoices
|
||
:n "w" 'narf/helm-org-writing))
|
||
|
||
(:localleader
|
||
:n "b" 'narf:build
|
||
:n "R" 'narf:repl
|
||
:v "R" 'narf:repl-eval
|
||
:v "r" 'narf:eval-region
|
||
(:prefix "r"
|
||
:n "e" 'emr-show-refactor-menu
|
||
:n "r" 'narf:eval-buffer
|
||
:n "b" 'narf:build)
|
||
|
||
;; :n "t" unit tests prefix
|
||
)
|
||
|
||
:nv "K" 'smart-up
|
||
|
||
;; Don't move cursor on indent
|
||
:n "=" (λ (save-excursion (call-interactively 'evil-indent)))
|
||
:v "=" 'evil-indent
|
||
|
||
:n "zr" 'narf/evil-open-folds
|
||
:n "zm" 'narf/evil-close-folds
|
||
:n "zx" 'narf:kill-real-buffer
|
||
:n "ZX" 'bury-buffer
|
||
|
||
:n "]b" 'narf/next-real-buffer
|
||
:n "[b" 'narf/previous-real-buffer
|
||
:m "]d" 'narf/vcs-next-hunk
|
||
:m "[d" 'narf/vcs-prev-hunk
|
||
:m "]e" 'narf/flycheck-next-error
|
||
:m "[e" 'narf/flycheck-previous-error
|
||
;; Switch workgroups
|
||
:n "]w" 'narf:switch-to-workgroup-right
|
||
:n "[w" 'narf:switch-to-workgroup-left
|
||
:m "gt" 'narf:switch-to-workgroup-right
|
||
:m "gT" 'narf:switch-to-workgroup-left
|
||
|
||
;; Increment/decrement number under cursor
|
||
:n "g=" 'evil-numbers/inc-at-pt
|
||
:n "g-" 'evil-numbers/dec-at-pt
|
||
|
||
:n "gc" 'evil-commentary
|
||
:n "gx" 'evil-exchange
|
||
:n "gr" 'narf:eval-region
|
||
:n "gR" 'narf:eval-buffer
|
||
:v "gR" 'narf:eval-region-and-replace
|
||
:m "g]" 'smart-right
|
||
:m "g[" 'smart-left
|
||
:v "@" 'narf/evil-macro-on-all-lines
|
||
:n "g@" 'narf/evil-macro-on-all-lines
|
||
|
||
:v "." 'evil-repeat
|
||
|
||
;; vnoremap < <gv
|
||
:v "<" (λ (evil-shift-left (region-beginning) (region-end))
|
||
(evil-normal-state)
|
||
(evil-visual-restore))
|
||
;; vnoremap > >gv
|
||
:v ">" (λ (evil-shift-right (region-beginning) (region-end))
|
||
(evil-normal-state)
|
||
(evil-visual-restore))
|
||
|
||
;; undo/redo for regions
|
||
;; :nv "u" 'undo-tree-undo
|
||
;; :nv "C-r" 'undo-tree-redo
|
||
|
||
:v "*" 'evil-visualstar/begin-search-forward
|
||
:v "#" 'evil-visualstar/begin-search-backward
|
||
|
||
;; paste from recent yank register; which isn't overwritten by deletes or
|
||
;; other operations.
|
||
:n "Y" "y$"
|
||
:v "P" "\"0p"
|
||
|
||
:v "S" 'evil-surround-region
|
||
:v "R" 'evil-iedit-state/iedit-mode ; edit all instances of marked region
|
||
:v "v" 'er/expand-region
|
||
:v "V" 'er/contract-region
|
||
|
||
;; aliases for %
|
||
:m "%" 'evilmi-jump-items
|
||
:m [tab] (λ (cond ((eq major-mode 'org-mode)
|
||
(org-cycle))
|
||
(t (if (ignore-errors (hs-already-hidden-p))
|
||
(hs-toggle-hiding)
|
||
(call-interactively 'evilmi-jump-items)))))
|
||
|
||
;; Textmate-esque newlines
|
||
:i "<backspace>" 'backward-delete-char-untabify
|
||
:i "<M-backspace>" 'narf/backward-kill-to-bol-and-indent
|
||
:i "<C-return>" 'evil-ret-and-indent
|
||
|
||
;; escape from insert mode (more responsive than using key-chord-define)
|
||
:ir "j" 'narf:exit-mode-maybe
|
||
:ir "J" 'narf:exit-mode-maybe
|
||
:irv "C-g" 'evil-normal-state
|
||
|
||
:o "s" 'evil-surround-edit
|
||
:o "S" 'evil-Surround-edit
|
||
|
||
:n "!" 'rotate-word-at-point
|
||
:v "!" 'rotate-region
|
||
:e "<escape>" 'evil-normal-state
|
||
|
||
(:map evil-window-map ; prefix "C-w"
|
||
"u" 'narf/undo-window-change
|
||
|
||
;; Jump to new splits
|
||
"s" 'narf/evil-window-split
|
||
"v" 'narf/evil-window-vsplit
|
||
|
||
;; Move window in one step
|
||
"H" 'narf/evil-window-move-left
|
||
"J" 'narf/evil-window-move-down
|
||
"K" 'narf/evil-window-move-up
|
||
"L" 'narf/evil-window-move-right
|
||
|
||
"C-u" 'narf/undo-window-change
|
||
"C-r" 'narf/redo-window-change
|
||
"C-h" 'evil-window-left ; don't accidentally invoke help
|
||
"C-j" 'evil-window-down ; don't accidentally invoke help
|
||
"C-k" 'evil-window-up ; don't accidentally invoke help
|
||
"C-l" 'evil-window-right ; don't accidentally invoke help
|
||
|
||
"C-w" 'ace-window
|
||
"C-S-w" (λ (ace-window 4)) ; swap windows
|
||
"C-C" (λ (ace-window 16))) ; delete windows
|
||
|
||
;; Vim omni-complete emulation
|
||
:i "C-SPC" 'company-complete-common
|
||
(:prefix "C-x"
|
||
:i "C-l" 'narf/company-whole-lines
|
||
:i "C-k" 'company-dict
|
||
:i "C-f" 'company-files
|
||
:i "C-]" 'company-tags
|
||
:i "s" 'company-ispell
|
||
:i "C-s" 'company-yasnippet
|
||
:i "C-o" 'company-semantic
|
||
:i "C-n" 'company-dabbrev-code
|
||
:i "C-p" (λ (let ((company-selection-wrap-around t))
|
||
(call-interactively 'company-dabbrev-code)
|
||
(company-select-previous-or-abort))))
|
||
|
||
(:after company
|
||
(:map company-active-map
|
||
"C-o" 'company-search-kill-others
|
||
"C-n" 'company-select-next
|
||
"C-p" 'company-select-previous
|
||
"C-h" 'company-show-doc-buffer
|
||
"C-S-h" 'company-show-location
|
||
"C-S-s" 'company-search-candidates
|
||
"C-s" 'company-filter-candidates
|
||
"C-SPC" 'company-complete-common-or-cycle
|
||
[tab] 'narf/company-complete-common-or-complete-full
|
||
"<backtab>" 'company-select-previous
|
||
[escape] (λ (company-abort) (evil-normal-state 1))
|
||
"<C-return>" 'helm-company)
|
||
(:map company-search-map
|
||
"C-n" 'company-search-repeat-forward
|
||
"C-p" 'company-search-repeat-backward
|
||
[escape] 'company-search-abort))
|
||
|
||
(:after help-mode
|
||
(:map help-map
|
||
"e" 'narf:popup-messages
|
||
;; Remove slow/annoying help subsections
|
||
"h" nil
|
||
"g" nil)
|
||
(:map help-mode-map
|
||
:n "]]" 'help-go-forward
|
||
:n "[[" 'help-go-back
|
||
:n "<escape>" (λ (kill-buffer)
|
||
(if (narf/popup-p (current-buffer))
|
||
(narf/popup-close)
|
||
(evil-window-delete))))))
|
||
|
||
;; Line-wise mouse selection on margin
|
||
(global-set-key (kbd "<left-margin> <down-mouse-1>") 'narf/mouse-drag-line)
|
||
(global-set-key (kbd "<left-margin> <mouse-1>") 'narf/mouse-select-line)
|
||
(global-set-key (kbd "<left-margin> <drag-mouse-1>") 'narf/mouse-select-line)
|
||
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; 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.
|
||
(map! :i "<tab>" 'narf/dumb-indent
|
||
:i "<C-tab>" 'indent-for-tab-command
|
||
|
||
;; No dumb-tab for lisp
|
||
(:map lisp-mode-map :i [remap narf/dumb-indent] 'indent-for-tab-command)
|
||
(:map emacs-lisp-mode-map :i [remap narf/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
|
||
:i "SPC" 'narf/inflate-space-maybe
|
||
:i [remap backward-delete-char-untabify] 'narf/deflate-space-maybe
|
||
:i [remap newline] 'narf/newline-and-indent
|
||
|
||
;; Smarter move-to-beginning-of-line
|
||
:i [remap move-beginning-of-line] 'narf/move-to-bol
|
||
|
||
;; Restore bash-esque keymaps in insert mode; C-w and C-a already exist
|
||
:i "C-e" 'narf/move-to-eol
|
||
:i "C-u" 'narf/backward-kill-to-bol-and-indent
|
||
|
||
;; Fixes delete
|
||
:i "<kp-delete>" 'delete-char
|
||
|
||
;; Fix osx keymappings and then some
|
||
:i "<M-left>" 'narf/move-to-bol
|
||
:i "<M-right>" 'narf/move-to-eol
|
||
:i "<M-up>" 'beginning-of-buffer
|
||
:i "<M-down>" 'end-of-buffer
|
||
:i "<C-up>" 'smart-up
|
||
:i "<C-down>" 'smart-down
|
||
|
||
;; Fix emacs motion keys
|
||
:i "A-b" 'evil-backward-word-begin
|
||
:i "A-w" 'evil-forward-word-begin
|
||
:i "A-e" 'evil-forward-word-end
|
||
|
||
;; Textmate-esque insert-line before/after
|
||
:i "<M-return>" 'evil-open-below
|
||
:i "<S-M-return>" 'evil-open-above
|
||
;; insert lines in-place)
|
||
:n "<M-return>" (λ (save-excursion (evil-insert-newline-below)))
|
||
:n "<S-M-return>" (λ (save-excursion (evil-insert-newline-above)))
|
||
|
||
;; Make ESC quit all the things
|
||
:e [escape] 'evil-normal-state
|
||
(:map (minibuffer-local-map
|
||
minibuffer-local-ns-map
|
||
minibuffer-local-completion-map
|
||
minibuffer-local-must-match-map
|
||
minibuffer-local-isearch-map)
|
||
[escape] 'narf-minibuffer-quit
|
||
"C-r" 'evil-paste-from-register)
|
||
|
||
(:map read-expression-map "C-w" 'backward-kill-word)
|
||
|
||
(:map view-mode-map "<escape>" 'View-quit-all)
|
||
|
||
(:map evil-ex-completion-map "C-a" 'move-beginning-of-line))
|
||
|
||
;; Common unicode characters
|
||
(map! :i "A-o" (λ (insert "ø"))
|
||
:i "A-O" (λ (insert "Ø"))
|
||
|
||
:i "A--" (λ (insert "–"))
|
||
:i "A-_" (λ (insert "—")))
|
||
|
||
(provide 'my-bindings)
|
||
;;; my-bindings.el ends here
|