                                       `[(class/save {:class ~selected-class})
                                         (app/select-page {:selected-page :classes})
                                         :app/selected-page]))}
-                  "Save")))))
+                  (dom/span #js {:className "glyphicon glyphicon-ok"})
+                  " Save")))))
         ))))
 
 ;(dom/div #js {:className "container"}

      (log "SelectedClassParticipantsView")
      (log selected-class)
      (dom/div #js {:className "col-sm-12"}
        (dom/h2 {:className "sub-header"} (str "Select Participants for Class "
                                               (:class/name selected-class)))
        (dom/div nil
          (dom/button #js {:className (str "btn btn-default")
                           :onClick   #()}
                      (dom/span #js {:className "glyphicon glyphicon-arrow-left"}))

          (dom/button #js {:className (str "btn btn-default")
                           :onClick   #(om/transact! this `[(app/select-page {:selected-page :create-class})
                                                            :app/selected-page])}
                      (dom/span #js {:className "glyphicon glyphicon-ok"})))

        (map #(dom/button #js {:className (str "col-sm-3 btn" (if (selected? %)
                                                                " btn-primary"
                                                                " btn-default"))
                               :onClick   (fn [e]
                                            (let [updated-starting
                                                  (if (selected? %)
                                                    (filter (fn [p]
                                                              (not= (:participant/id p) (:participant/id %)))
                                                            starting)
                                                    (conj starting %))]
                                              (om/transact!
                                                reconciler
                                                `[(class/update
                                                    {:class/starting ~updated-starting})
                                                  :app/selected-class])))}
                          (str (:participant/number %) " - " (:participant/name %)))
             participants)))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Import/Export Component

      ;; - Startlist (participants)
      (log "Selected class")
      (log selected-class)
      (dom/div #js {:className "col-sm-12"}
        (dom/div #js {:className "col-sm-offset-3"}
          (dom/h3 {:className " sub-header"} "Create new class"))

        (dom/div #js {:className "container"}
          (dom/div #js {:className "form-horizontal"}

