;; Lispy
 (use-package lispy
   :ensure t
   :commands 'emacs-lisp-mode
   :commands 'clojure-mode
   :commands 'scheme-mode
   :init
   (add-hook 'emacs-lisp-mode-hook (lambda () (lispy-mode 1)))
   (add-hook 'clojure-mode-hook (lambda () (lispy-mode 1)))
   (add-hook 'scheme-mode-hook (lambda () (lispy-mode 1))))
; Lispyville for Lispy + Evil
(use-package lispyville
  :ensure t
  :commands 'lispy-mode
  :init
  (add-hook 'lispy-mode-hook #'lispyville-mode)
  :bind
  (:map evil-normal-state-map
	("H" . lispyville-backwards-sexp)
	("L" . lispyville-forwards-sexp)
	("C-B" . lispyville-beginning-of-defun)
	("C-E" . lispyville-end-of-defun)
	;; ("[" . lispyville-previous-opening)
	;; ("]" . lispyville-next-closing)
	("{" . lispyville-next-opening)
	("}" . lispyville-previous-closing)
	;; ("(" . lispyville-backward-up-list)
	;; (")" . lispyville-up-list)
	(">" . lispyville-slurp)
	("<" . lispyville-barf)
	("y" . lispyville-yank)
	("d" . lispyville-delete)
	("c" . lispyville-change)
	("x" . lispyville-delete-char-or-splice)
	("Y" . lispyville-yank-line)
	("D" . lispyville-delete-line)
	("C" . lispyville-change-line)
	("X" . lispyville-delete-char-or-splice-backwards)
	("C-w" . lispyville-delete-backwards-word)
	("s" . lispyville-substitute)
	("S" . lispyville-change-whole-line))
  :config
  (lispy-define-key lispy-mode-map "M-[" #'lispyville-previous-opening)
  (lispy-define-key lispy-mode-map "M-]" #'lispyville-next-closing)
  (lispy-define-key lispy-mode-map "M-(" #'lispyville-backward-up-list)
  (lispy-define-key lispy-mode-map "M-)" #'lispyville-up-list))  
;;