              (res/get-string R$string/your_input_fmt input))
            :long)))
 
+
 (defn init-httpd
   [bind-address port]
   (let [httpd (proxy [NanoHTTPD] [bind-address port]


  (onCreate [this bundle]
    (.superOnCreate this bundle)
    (toast "starting HTTPD server..." :long)
    (log/i "staring httpd server")
    (.start httpd)
    (log/i "starting wsd server")
    ;; starting wsd server with with a negative SOCKET_READ_TIMEOUT that will set no timeout
    (.start wsd -1)
    (neko.debug/keep-screen-on this)
    (on-ui
      (set-content-view! (*a)

                (let [web-socket (proxy [NanoWSD$WebSocket] [handshake]
                                   (onOpen []
                                     (log/i "onOpen")
                                     ;; TODO - need to check how to get session-id
                                     (swap! wsd-sessions :sessiond handshake))
                                   (onClose [code, reason, initiated-by-remote]
                                     (log/i "onClose"))
