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

Add dynamic information to the paste micro-state

Browse source
This commit is contained in:
syl20bnr 2015-03-08 00:18:29 -05:00
parent aedfe94b45
commit 61e4c78dd6
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
spacemacs/packages.el
View file

@ -679,10 +679,14 @@ which require an initialization must be listed explicitly in the list.")
(defadvice evil-visual-paste (after spacemacs/evil-visual-paste activate) (defadvice evil-visual-paste (after spacemacs/evil-visual-paste activate)
"Initate the paste micro-state after the execution of evil-visual-paste" "Initate the paste micro-state after the execution of evil-visual-paste"
(spacemacs/paste-micro-state)) (spacemacs/paste-micro-state))
(defun spacemacs//paste-ms-doc ()
"The documentation for the paste micro-state."
(format (concat "[%s/%s] Type [p] or [P] to paste the previous or "
"next copied text, [C-p] or [C-P] to paste the same "
"text before of after the point.")
(length kill-ring-yank-pointer) (length kill-ring)))
(spacemacs|define-micro-state paste (spacemacs|define-micro-state paste
:doc (concat "Type [p] or [P] to paste the previous or " :doc (spacemacs//paste-ms-doc)
"next copied text, [C-p] or [C-P] to paste the same text "
"before of after the point.")
:use-minibuffer t :use-minibuffer t
:bindings :bindings
("p" evil-paste-pop) ("p" evil-paste-pop)