                         "revert" (fn [] true)
                         "start"  (lesson-draggable-start-evt-handler-maker
                                    moduleCode lessonType lessonLabel
-                                   bgColorCssClass)))))
+                                   bgColorCssClass)
+                        "stop"   (lesson-draggable-stop-evt-handler-maker)))))
 
 (defn- add-module-lesson-group
   "Adds a lesson group of a module to the timetable.

            (map (fn [[lessonGroup _]]
                   (add-module-lesson-group moduleCode lessonType lessonGroup
                                            bgColorCssClass false))
                 unselectedLessonGroupsMap))])))

; TODO: Make lesson type with only a single lessongroup non-draggable
(defn- make-added-lessons-draggable

       :moduleCode moduleCode, :lessonType lessonType, :lessonGroup lessonLabel,
       :divElem $divElem})))

(def ^{:doc     "Sequence of `TimetableLessonInfo` objects augmented with the
                 `:divElem`, `:moduleCode`, `:lessonType`, `:lessonGroup` keys.
                 These are 'fake' lessons created when a selected lesson is
                 being dragged by the user, in order for him/her to switch to
                 a different lesson group for that lesson type."
       :private true}
  Lessons-Created-By-Draggable nil)

; Forward declaration
(declare add-module-lesson-group)

