Playing with a spacemacs-like scrolling micro state and new syntax

gistfile1.el

(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))
  )