code.tool.refactor.base.expression — xyz.zcaudate/code.tool.refactor 4.1.0

rewrite-if-not clj

(rewrite-if-not zloc)

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)"

rewrite-if-to-when clj

(rewrite-if-to-when zloc)

rewrites (if ... (do ...))

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

rewrite-not-empty clj

(rewrite-not-empty zloc)

rewrites (not (empty? ...))

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

rewrite-not-seq clj

(rewrite-not-seq zloc)

rewrites (not (seq ...))

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

rewrite-when-not clj

(rewrite-when-not zloc)

rewrites (when (not ...) ...)

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