   (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

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

(defn- create-lesson-div

  (.append (nth HTML-Timetable day)
           ($ (str "<tr class='day-row'>" Timetable-Row-TD-HTML-String "</tr>")))
  ; Modify the rowspan of the <th> in the 0th row in the timetable
  (let [nrRows (timetable-day-get-nr-rows day)
        thElem (.find (nth HTML-Timetable day) "tr > th")]
    (attr thElem "rowspan" nrRows)))

