         [:tbody [tbody]]
         ]])))
 
-(defn main-panel []
-  (fn []
-    [:div
-     [table]]))
-
 (defn loading-throbber
   []
   (let [loading? (re-frame/subscribe [:loading?])]
     (when @loading?
-      [:div.loading
-       [:div.three-quarters-loader "Loading..."]])))
+      (do
+        (println "Loading...")
+        [:div.loading
+         [:div.three-quarters-loader "Loading..."]]))))
 
 (defn github-id-input
   []

                 ]
             (for [v [id salary abbrev]]
               [:td (conj {:key (str "tr-" i "-" v)}
                          {:style {:border "1px" :borderStyle "solid"}})
                v]))])
        @emps)])))



(defn tbody []
  (fn []
    (let [loading? (re-frame/subscribe [:loading?])
          emps (re-frame/subscribe [:emps])]
      ;; (doall) ;; avoid warn: Reactive deref not supported in lazy seq
      (println "@emps" @emps)
      [:tbody
