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

  (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)

; 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]
  [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]
  (count ttDay))

(def ^{:doc     "HTML string for the <td> elements in a <tr> on the Timetable

  []
  (.remove ($ ".lesson"))
  (doseq [day (range 5)]
    (let [nrRows   (timetable-day-get-nr-rows day)
          $dayElem (nth HTML-Timetable day)]
      ; Remove rows >= 2
      (doseq [rowIdx (reverse (range 2 nrRows))]
