TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Paste micro-state proof of concept

Browse source
This commit is contained in:
syl20bnr 2015-03-07 11:07:40 -05:00
parent 1e8bf6fc8a
commit 4ac4e65c4c
1 changed files with 38 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
spacemacs/packages.el
View file

@ -669,6 +669,44 @@ which require an initialization must be listed explicitly in the list.")
("<" spacemacs/scroll-half-page-up)
(">" spacemacs/scroll-half-page-down))
;; pasting micro-state
(spacemacs|define-micro-state paste
:doc "keep pressing [p] or [P] to cycle between previous or next yanked text"
:bindings
("p" spacemacs/paste-pop)
("P" spacemacs/paste-pop-next))
(defun spacemacs/paste-pop (count)
"Paste and pop yank ring"
(interactive "p")
(setq last-command 'evil-paste-before)
(evil-paste-pop count))
(defun spacemacs/paste-pop-next (count)
"Paste and pop yank ring with negative argument"
(interactive "p")
(setq last-command 'evil-paste-before)
(evil-paste-pop-next count))
(evil-define-command spacemacs/paste-before
(count &optional register yank-handler)
"Paste yanked text before point and switch to micro-state."
(interactive "P<x>")
(evil-paste-before count register yank-handler)
(setq last-command 'evil-paste-before)
(spacemacs/paste-micro-state))
(evil-define-command spacemacs/paste-after
(count &optional register yank-handler)
"Paste yanked text after point and switch to micro-state."
(interactive "P<x>")
(evil-paste-after count register yank-handler)
(setq last-command 'evil-paste-after)
(spacemacs/paste-micro-state))
(define-key evil-normal-state-map "p" 'spacemacs/paste-after)
(define-key evil-normal-state-map "P" 'spacemacs/paste-before)
;; define text objects
(defmacro spacemacs|define-and-bind-text-object (key name start-regex end-regex)
(let ((inner-name (make-symbol (concat "evil-inner-" name)))