@@ -11,6 +11,9 @@
(fn-traced [_ _]
db/default-db))
+(defn prompt [db]
+ (->> db :cmdline :prompt-id (.getElementById js/document)))
+
(defn single-space [s]
(as-> s x
(split x " ")