$newline never
<div uw-hide-columns="schedule-week">
  <table .table .table--striped .table--hover .schedule>
    <thead>
      <tr .table__row .table__row--head>
        <th .table__th uw-hide-column-header="time">
          _{MsgScheduleTableHeadTime}
        $forall day <- week
          <th .table__th uw-hide-column-header=#{dayTableHeadIdent day}>
            ^{formatTimeW SelFormatDate day}
    <tbody>
      $forall slot <- slotsToDisplay
        <tr .table__row>
          <td .table__td>
            ^{formatTimeSlotW slot}
          $forall day <- week
            <td .table__td>
              <div .table__td-content>
                $maybe dayEvents <- Map.lookup day events
                  $maybe slotEvents <- Map.lookup slot dayEvents
                    $forall se@ScheduleEntry{seCourse=Entity _ Course{courseName},seType,seRooms,seOccurrence} <- slotEvents
                      <a href=@{scheduleEntryToHref se} .schedule--entry-link>
                        <div .schedule--entry>
                          #{CI.original courseName}: #
                          $case seType
                            $of SETCourseEvent{..}
                              #{CI.original setceType}
                            $of SETTutorial{..}
                              #{settName} #
                              (#{CI.original settType})
                            $of SETExamOccurrence{..}
                              #{seteoExamName} #
                          <br>

                          $case seRooms
                            $of []
                            $of [room]
                              _{MsgScheduleRoom}: #{room}
                            $of rooms
                              _{MsgScheduleRooms}: #{intercalate ", " rooms}
                          <br>
                          
                          ^{formatOccurrenceW seOccurrence}