                                                            bgColorCssClass
                                                            isActuallySelected?))
                           modulesMapLessonSeq))
+
               lessonInfoSeq (map #(dissoc %1 :divElem :moduleCode :lessonType
                                           :lessonGroup)
                                  augLessonInfoSeq)

  []
  (aget js/window "ModulesMap"))

(def ^{:doc     "Width in pixels of a half hour timeslot"
       :private true
       }

                        (get missingModuleLessonTypes moduleCode)]
                    (reduce
                      (fn [lgMap lessonType]
                        (assoc-in lgMap [moduleCode lessonType]
                                  (get-first-lesson-group-for-module-lesson-type
                                    moduleCode lessonType)))
                      lgMapFinal
                      missingLessonTypes)))
                moduleLessonGroupsMap
