   "Removes empty rows resulting from the removal of lessons on given days."
   [affectedDaysSet]
   (doseq [day affectedDaysSet]
-    (let [nrRows          (get-nr-rows-in-timetable-day day)
+    (let [nrRows          (timetable-day-get-nr-rows day)
 
           {:keys [emptyRows nonEmptyRows]}
           (timetable-day-get-empty-and-non-empty-rows day)

  (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

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

