 (object/behavior* ::clj-result
                   :triggers #{:editor.eval.clj.result}
                   :reaction (fn [obj res]
-                              (notifos/done-working)
+                              (notifos/done-working "")
                               (let [type (or (-> res :meta :result-type) :inline)
                                     ev (->dottedkw :editor.eval.clj.result type)]
                                 (object/raise obj ev res))))

(object/behavior* ::handle-cancellation
                  :triggers #{:editor.eval.clj.cancel}
                  :reaction (fn [this]
                              (notifos/done-working)
                              (notifos/set-msg! "Canceled clj eval." {:class "error"})))

(object/behavior* ::print-length

                                (object/update! this [:buffer] str out)
                                (if (> (.indexOf out "nREPL server started") -1)
                                  (do
                                    (notifos/done-working "")
                                    (object/merge! this {:connected true})
                                    (let [client (clients/by-id (:cid @this))]
                                      (object/merge! client {:port (-> (re-seq #"port ([\d]+)" out) first second)})
