38 lines
1.7 KiB
Plaintext
38 lines
1.7 KiB
Plaintext
$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 (_, weekDayTitle, weekDayIdent) <- weekDays
|
|
<th .table__th uw-hide-column-header=#{weekDayIdent}>
|
|
_{weekDayTitle}
|
|
<tbody>
|
|
$forall slot <- slotsToDisplay
|
|
<tr .table__row>
|
|
<td .table__td>
|
|
^{slotToDisplayTime slot}
|
|
$forall (day, _, _) <- weekDays
|
|
<td .table__td>
|
|
<div .table__td-content>
|
|
$maybe dayEvents <- Map.lookup day courseEvents
|
|
$maybe slotEvents <- Map.lookup slot dayEvents
|
|
$forall ScheduleEntry{seCourse=Entity _ Course{courseTerm,courseSchool,courseShorthand,courseName},seType,seRoom,seOccurrence} <- slotEvents
|
|
<a href=@{CourseR courseTerm courseSchool courseShorthand CShowR} .schedule--entry-link>
|
|
<div .schedule--entry>
|
|
#{CI.original courseName}: #
|
|
$case seType
|
|
$of SETCourseEvent{..}
|
|
#{CI.original setceType}
|
|
$of SETTutorial{..}
|
|
#{CI.original settType}
|
|
$of SETExamOccurrence{..}
|
|
#{seteoExamName}
|
|
<br>
|
|
|
|
$maybe room <- seRoom
|
|
_{MsgScheduleRoom}: #{room} <br/>
|
|
|
|
^{formatOccurrenceW seOccurrence}
|