(defn repl-prompt
"Returns the current repl prompt based on this repl's prompt-fmt"
[]
(let [{:keys [prompt-fmt]} *private*
{:keys [serial thread depth]} *info*
line (.getLineNumber *in*)
namespace (ns-name *ns*)]
(format prompt-fmt serial thread depth line namespace)))
Comments top
No comments for repl-prompt. Log in to add a comment.