(defn
transform
[{:keys [body id with-focus with-card with-callback]} form-str]
(if
(or with-focus with-card with-callback)
(pr-str
(cond->
(read-string form-str)
(some? with-focus)
(add-focus with-focus body)
(some? with-card)
(add-card with-card id)
(some? with-callback)
(add-callback with-callback)))
form-str))