Skip to content

Instantly share code, notes, and snippets.

@herbertjones
Created February 21, 2015 20:30
Show Gist options
  • Save herbertjones/2cfb738e81a6f15c6983 to your computer and use it in GitHub Desktop.
Save herbertjones/2cfb738e81a6f15c6983 to your computer and use it in GitHub Desktop.
Playing with a spacemacs-like scrolling micro state and new syntax
;; New syntax
(spacemacs|define-micro-state scroll
:doc "[,] page down [.] page up "
:bindings
("," evil-scroll-page-down)
("." evil-scroll-page-up))
(evil-leader/set-key
"," '(lambda (x)
(interactive "p")
(evil-scroll-page-down x)
(spacemacs/scroll-micro-state))
"." '(lambda (x)
(interactive "p")
(evil-scroll-page-up x)
(spacemacs/scroll-micro-state))
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment