   :key :main
   :on-create
   (fn [this bundle]
+    (neko.log/d "onCreate()" this)
     (neko.activity/request-window-features! this :indeterminate-progress)
     (.addFlags (.getWindow this) android.view.WindowManager$LayoutParams/FLAG_KEEP_SCREEN_ON)
     (safe-for-ui

  (.startActivity
   a (Intent. a (resolve 'org.bytopia.foreclojure.LoginActivity)))
  (.finish a))

(defn make-problem-adapter [a]
  (proxy [CursorAdapter] [a nil]

           (when-let [json (assoc (api/fetch-problem problem-id)
                             "id" problem-id)]
             (db/insert-problem a json)))
         (when (pos? (+ (count new-ids) (count to-download) (count to-upload)))
           (on-ui (toast a (format "Downloaded %d new problem(s).\nDiscovered %d server solution(s).\nUploaded %d local solution(s)."
                                   (count new-ids) (count to-download) (count to-upload)))))))
     (on-ui (refresh-ui a)))))

;; (reload-from-server (*a))
