   (nth (timetable-get-day day) rowNum))
 
 ; Returns the total number of rows for a given day in the Timetable.
-(defmulti get-nr-rows-in-timetable-day number? :default false)
+(defmulti timetable-day-get-nr-rows number? :default false)
 
 ; Argument argument is a a 0-indexed integer representing the day, where
 ; 0 = Monday, 1 = Tuesday, until 4 = Friday
-(defmethod get-nr-rows-in-timetable-day true [day]
+(defmethod timetable-day-get-nr-rows true [day]
   [day]
   (count (timetable-get-day day)))
 
 ; Argument is a Timetable row returned by the `tiemtable-get-day-row` function
-(defmethod get-nr-rows-in-timetable-day false [ttDay]
+(defmethod timetable-day-get-nr-rows false [ttDay]
   (count ttDay))
 
 (def ^{:doc     "HTML string for the <td> elements in a <tr> on the Timetable

                           :bgColorCssClass bgColorCssClass,
                           :isActuallySelected? isActuallySelected?)]
    ; Create new row if necessary
    (if (= rowNum (get-nr-rows-in-timetable-day day))
        (add-new-row-to-timetable-day! day))

    ; Update in-memory representation of timetable

                  (update-in dayPartition [:nonEmptyRows] #(conj %1 rowIdx))))
            {:emptyRows [], :nonEmptyRows []}
            (map vector
                 (range (timetable-day-get-nr-rows ttDay))
                 ttDay))))

(defn- create-lesson-div
