 ;; `leader m C-v' | switch to `visual block state`
 ;; `leader m w'   | wrap expression with parenthesis
 ;; `leader m W'   | unwrap expression
-;; `leader m xs'  | delete symbol
-;; `leader m xw'  | delete word
-;; `leader m xx'  | delete expression
 ;; `leader m y'   | copy expression
 
 ;; Configuration:

    ("C-v" . evil-visual-block)
    ("w"   . lisp-state-wrap)
    ("W"   . sp-unwrap-sexp)
    ("xs"  . sp-kill-symbol)
    ("Xs"  . sp-backward-kill-symbol)
    ("xw"  . sp-kill-word)
    ("Xw"  . sp-backward-kill-word)
    ("xx"  . sp-kill-sexp)
    ("Xx"  . sp-backward-kill-sexp)
    ("y"   . sp-copy-sexp))
  "alist of keys and commands in lisp state.")
(dolist (x evil-lisp-state-commands)

;; `leader m $'   | go to the end of current sexp
;; `leader m 0'   | go to the beginning of current sexp
;; `leader m a'   | absorb expression
;; `leader m b'   | forward barf expression
;; `leader m B'   | backward barf expression
;; `leader m c'   | convolute expression
;; `leader m ds'  | delete symbol
;; `leader m dw'  | delete word
;; `leader m dx'  | delete expression
;; `leader m h'   | previous symbol
;; `leader m i'   | switch to `insert state`
;; `leader m I'   | go to beginning of current expression and switch to `insert state`
;; `leader m j'   | next closing parenthesis
;; `leader m J'   | join expression
;; `leader m k'   | previous opening parenthesis
;; `leader m l'   | next symbol
;; `leader m p'   | paste after
;; `leader m P'   | paste before
;; `leader m r'   | raise expression (replace parent expression by current one)
;; `leader m s'   | forwared slurp expression
;; `leader m S'   | backward slurp expression
;; `leader m t'   | transpose expression
;; `leader m C-s' | (splice) unwrap current expression and kill all symbols after point
;; `leader m C-S' | (splice) unwrap current expression and kill all symbols before point
;; `leader m u'   | undo
;; `leader m C-r' | redo
;; `leader m v'   | switch to `visual state`
