emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add narf/evil-macro-on-all-lines + refactor bindings

Browse source
This commit is contained in:
Henrik Lissner 2015-10-28 17:28:41 -04:00
parent e32b712f4a
commit ebb9f75bfa
2 changed files with 28 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

13
core/lib/defuns-evil.el
View file

@ -62,5 +62,18 @@
(cons (format format (car pair)) (cons (format format (car pair))
(format format (cdr pair))))) (format format (cdr pair)))))
;;;###autoload (autoload 'narf/evil-macro-on-all-lines "defuns-evil" nil t)
(evil-define-operator narf/evil-macro-on-all-lines (beg end &optional arg)
"Apply macro to each line. Courtesy of PythonNut/emacs-config"
(evil-with-state
(evil-normal-state)
(goto-char end)
(evil-visual-state)
(goto-char beg)
(evil-ex-normal (region-beginning) (region-end)
(concat "@"
(single-key-description
(read-char "What macro?"))))))
(provide 'defuns-evil) (provide 'defuns-evil)
;;; defuns-evil.el ends here ;;; defuns-evil.el ends here

24
private/my-bindings.el
View file

@ -12,9 +12,9 @@
;; Global keymaps ;; ;; Global keymaps ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
"A-x" 'execute-extended-command
"M-x" 'smex "M-x" 'smex
"M-X" 'smex-major-mode-commands "M-X" 'smex-major-mode-commands
"M-:" 'helm-M-x
"M-;" 'eval-expression "M-;" 'eval-expression
"M-=" 'text-scale-increase "M-=" 'text-scale-increase
"M--" 'text-scale-decrease "M--" 'text-scale-decrease
@ -52,7 +52,7 @@
(:when IS-MAC (:when IS-MAC
;; Textmate-esque indent shift left/right ;; Textmate-esque indent shift left/right
:i "M-[" "C-o m l C-o I DEL C-o ` l" :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))) :i "M-]" (λ (evil-shift-right (point-at-bol) (point-at-eol)))
"<A-left>" 'backward-word "<A-left>" 'backward-word
@ -112,12 +112,11 @@
;; <localleader> ;; <localleader>
(:prefix "\\" (:prefix "\\"
:n "\\" 'narf-switch-to-iterm :nv "\\" 'narf-switch-to-iterm
:n "|" 'narf/neotree-toggle :nv "|" 'narf/neotree-toggle
:n "." 'narf/neotree-find :nv "." 'narf/neotree-find
:n ";" 'narf/nlinum-toggle :nv ";" 'narf/nlinum-toggle
:n "-" 'toggle-transparency :nv "E" 'evil-emacs-state
:n "E" 'evil-emacs-state
:n "]" 'next-buffer :n "]" 'next-buffer
:n "[" 'previous-buffer :n "[" 'previous-buffer
@ -157,6 +156,7 @@
;; Increment/decrement number under cursor ;; Increment/decrement number under cursor
:n "g=" 'evil-numbers/inc-at-pt :n "g=" 'evil-numbers/inc-at-pt
:n "g-" 'evil-numbers/dec-at-pt :n "g-" 'evil-numbers/dec-at-pt
:n "gR" 'narf:eval-buffer :n "gR" 'narf:eval-buffer
:n "gc" 'evil-commentary :n "gc" 'evil-commentary
:n "gy" 'evil-commentary-yank :n "gy" 'evil-commentary-yank
@ -166,6 +166,7 @@
:m "gl" 'avy-goto-line :m "gl" 'avy-goto-line
:m "g]" 'smart-down :m "g]" 'smart-down
:m "g[" 'smart-up :m "g[" 'smart-up
:no "g@" 'narf/evil-macro-on-all-lines
:v "." 'evil-repeat :v "." 'evil-repeat
@ -196,9 +197,12 @@
;; aliases for % ;; aliases for %
:m "%" 'evilmi-jump-items :m "%" 'evilmi-jump-items
:m [tab] (λ (if (ignore-errors (hs-already-hidden-p)) :m [tab] (λ (cond ((eq major-mode 'org-mode)
(org-cycle))
(t
(if (ignore-errors (hs-already-hidden-p))
(hs-toggle-hiding) (hs-toggle-hiding)
(call-interactively 'evilmi-jump-items))) (call-interactively 'evilmi-jump-items)))))
;; Restore osx text objects ;; Restore osx text objects
:i "<A-backspace>" 'evil-delete-backward-word :i "<A-backspace>" 'evil-delete-backward-word