(defn
add-parinfer
[enable? console-start-num state]
(if
enable?
(let
[cropped-state
(:cropped-state state)
indent-type
(:indent-type state)
state
(cond
(pos? console-start-num)
(add-parinfer-after-console-start console-start-num state)
indent-type
(cp/add-indent state)
:else
(cp/add-parinfer :paren state))]
(if
(and cropped-state indent-type)
(assoc
state
:cropped-state
(merge
cropped-state
(cp/add-indent (assoc cropped-state :indent-type indent-type))))
state))
state))