                                         (first emptyRows)]
 
                                        :else
-                                       (take 2 emptyRows)))))))))
+                                       (take TIMETABLE-MIN-ROWS-FOR-DAY
+                                             emptyRows)))))))))
 
 (defn- timetable-remove-lesson-group!
   "Removes a selected lesson group for a module from the `Timetable`.

;                                          sorted lexicographically by
;                                          `:lessonType`
;   }

(defn- get-ModulesMap
  "Retrieves the `ModulesMap` JavaScript global variable"

(defn- create-day-repr
  "Creates in-memory representation of a single day in the timetable.

   Each day is a vector of rows, and there is a minimum of
   `TIMETABLE-MIN-ROWS-FOR-DAY` rows in each day.
   Multiple rows are needed when there are lessons with overlapping start and
   end time."
  []
  (loop [ttDay           []
         nrRowsRemaining TIMETABLE-MIN-ROWS-FOR-DAY]
    (if (zero? nrRowsRemaining)
        ttDay
        (recur (conj ttDay (create-empty-timetable-row))
               (dec nrRowsRemaining)))))

(defn timetable-create!
  "Initializes the in-memory representation of the timetable.
