paredit.clj

;; often I'll write something like :
|(if (> x 3)
   (assoc foo :bar x)
   (assoc foo :bar 0))

;; with point on the open paren for the if:
;; C-M-f C-M-p C-M-p C-M-b M-r C-M-p C-M-b C-c C-f
;; (note: I have C-c C-f bound to paredit-convolute-sexp)
|(assoc foo :bar (if (> x 3)
                   x
                   0))



;; if I realize I need to make this change after only writing
(if (> x 3)
  (assoc foo :bar |))

;; with point after :bar
;; C-c C-f C-M-f C-M-p C-M-p
(assoc foo :bar (if (> x 3)
                  |))