        [user-name-and-avatar]
        (panels @active-panel)
        ])))
+
+(defn main-panel []
+  (fn []
+    [:div
+     [loading-throbber]
+     [table]]))


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

        [:tbody [tbody]]
        ]])))

(defn loading-throbber
  []
  (let [loading? (re-frame/subscribe [:loading?])]
    (when @loading?
      (do
        (println "Loading...")
        [:div.loading
         [:div.three-quarters-loader "Loading..."]]))))

(defn github-id-input
  []
