 
 
 (defn start-server
-  [port & {:keys [route-handler connfn]
+  [port & {:keys [route-handler idfn connfn]
            :or {route-handler (aerobio-handler (aerobio-routes))
                 connfn identity}}]
   (let [ch (srv/start-server port :main-handler route-handler)]
-    (printchan "Server start, reading msgs from " ch)
+    (infof "Server start, reading msgs from %s" ch)
     (update-adb :chan ch
+                :idfn [idfn]
                 :connfn [connfn])
     (go-loop [msg (<! ch)]
       (let [{:keys [op payload]} msg]

  (async/>!! (get-adb :chan) {:op :stop :payload {:cause :userstop}}))


#_(hmi/start-server
   7070
   :route-handler (hmi/aerobio-handler
                   (hmi/aerobio-routes :index-path "public/Fig/index.html"))
   :idfn (constantly "Exploring")
   :connfn connfn)




         [:p (str "Params" params)]
         [:hr]
         [:p (str "User Agent: " user-agent)])))))
