Commit f7ad3769 authored by Christopher League's avatar Christopher League
Browse files

Mark F2F vs async in blended course

parent dd3f0c09
......@@ -169,10 +169,15 @@ stripNL :: LazyText -> LazyText
stripNL = LT.replace "\n" " "
meetingTex :: Bool -> TextFmt -> Meeting -> LazyText
meetingTex blend fmt Meeting {..} =
meetingTex blend fmt m@Meeting {..} =
LT.intercalate ". " $
catMaybes
[ textit fmt <$> meetUnit,
[ case (blend, meetFormatDef m) of
(True, Meet_f2f) -> Just "Face-to-face meeting"
(False, Meet_f2f) -> Nothing
(_, Meet_online) -> Just "Online meeting"
(_, Meet_async) -> Just "No meeting",
textit fmt <$> meetUnit,
textbf fmt <$> meetExam,
meetTopic,
meetRead,
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment