        [:td (get-in (val course) [:kr :classification])]])))
 
 (defn courses-table-component []
+  "Table of course search results"
   (let [courses-to-display (re-frame/subscribe [:courses-to-display])]
     (fn []
       [:div [:table.u-full-width

                           nil)
           :placeholder "Course ID, Title, Professor, etc..."}]]]])))

(defn course-component
  "Individual course in search result list"
  [course]
  [:li [:a (kulive.model/course-hm->str course)]])

(defn courses-component []
  (let [courses (re-frame/subscribe [:courses-to-display])]
    (fn []
      [:div.row
       [:div {:class "u-full-width"}
        [:ul
         (for [course @courses]
           ^{:key (key course)} [course-component course])]]])))

(defn course-row-component [course]
  (let [search-tokens (re-frame/subscribe [:search-tokens])]
    (fn []
      [:tr

   [:div {:style {:margin-top "4%" :margin-bottom "5%"}}
    [:h2 "KU Live"]
    [search-component]
    [courses-table-component]
    [my-courses-component]
    [timetable-component]
