rewrites (if (not …) …)

(nav/string (rewrite-if-not (nav/parse-root “(if (not a) b c)”))) => “(if-not a b c)”

(nav/string (rewrite-if-not (nav/parse-root “(if (not a) b)”))) => “(if-not a b)”

rewrites (if … (do …))

(nav/string (rewrite-if-to-when (nav/parse-root “(if a (do b))”))) => “(when a b)”

rewrites (not (empty? …))

(nav/string (rewrite-not-empty (nav/parse-root “(not (empty? a))”))) => “(seq a)”

rewrites (not (seq …))

(nav/string (rewrite-not-seq (nav/parse-root “(not (seq a))”))) => “(empty? a)”

rewrites (when (not …) …)

(nav/string (rewrite-when-not (nav/parse-root “(when (not a) b)”))) => “(when-not a b)”