+** TODO Expand region map
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (defhydra sd/expand-selected (:color red :columns nil
+ :post (deactivate-mark))
+ "Selected"
+ ;; select
+ ("e" er/expand-region "+")
+ ("c" er/contract-region "-")
+ ;; ("\"" er/mark-inside-quotes "inside \"")
+ ;; ("a\"" er/mark-outside-quotes "inside \"")
+ ;; exchange
+ ("x" exchange-point-and-mark "exchange")
+ ("o" exchange-point-and-mark "exchange")
+ ;; exit
+ ("d" kill-region "delete" :exit t)
+ ("i" kill-region "delete" :exit t)
+ ("y" kill-ring-save "yank" :exit t)
+ ("q" nil "quit" :exit t))
+
+ (global-set-key (kbd "C-=") (lambda ()
+ (interactive)
+ (er/mark-word)
+ (sd/expand-selected/body)))
+
+ ;; er/mark-word
+ ;; er/mark-symbol
+ ;; er/mark-symbol-with-prefix
+ ;; er/mark-next-accessor
+ ;; er/mark-method-call
+ ;; er/mark-inside-quotes
+ ;; er/mark-outside-quotes
+ ;; er/mark-inside-pairs
+ ;; er/mark-outside-pairs
+ ;; er/mark-comment
+ ;; er/mark-url
+ ;; er/mark-email
+ ;; er/mark-defun
+#+END_SRC
+