        [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

                 ]
             (for [v [id salary abbrev]]
               [:td (conj {:key (str "tr-" i "-" v)}
                          {:style {:border "1px" :borderStyle "solid"}}
                          {:on-click #(when-not @loading?
                                        (println "on-click" v))})
                v]))])
        @emps)])))

