                             :endTime endTime}
                            $divElem)
 
-    ; add background color css class
-    (.addClass $divElem bgColorCssClass)
-    (.append $divElem (text ($ "<p />") (str moduleCode " " moduleName)))
-    (.append $divElem (text ($ "<p />") (str lessonType " [" lessonLabel "]")))
-    (.append $divElem (text ($ "<p />") (:venue modulesMapLesson)))
-    (width $divElem (str (* half-hour-pixels slotsOcc) "px"))
-    ; make the <div> less opaque for a lesson added by jQuery UI draggable
-    (if (not isActuallySelected?)
-        (.addClass $divElem "lesson-droppable-not-hover"))
     (let [dayHTMLElem (nth HTML-Timetable day)
           rowHTMLElem (nth (children dayHTMLElem "tr") rowNum)
           tdHTMLElem  (nth (children

        startTime (:startTime modulesMapLesson)
        endTime   (:endTime modulesMapLesson)
        slotsOcc  (- endTime startTime)
        $divElem  ($ "<div />" (js-obj "class" "lesson"))

        [hourClass minuteClass]
        (get-css-hour-minute-classes-for-time startTime)]
    ; Create new row if necessary
    (if (= rowNum (get-nr-rows-in-timetable-day day))
        (add-new-row-to-timetable-day! day))

      (doseq [siblingTdElem (take (- slotsOcc 1) (.nextAll tdHTMLElem))]
        (.remove siblingTdElem))

      {:day day, :rowNum rowNum, :startTime startTime, :endTime endTime,
       :moduleCode moduleCode, :lessonType lessonType, :lessonGroup lessonLabel,
       :divElem $divElem})))
