diff --git a/OneOhOne.hs b/OneOhOne.hs index a796ba1..24dd755 100644 --- a/OneOhOne.hs +++ b/OneOhOne.hs @@ -25,6 +25,9 @@ usualDay = "Friday" usualRoom :: String usualRoom = "LT210" +usualBuilding :: String +usualBuilding = "Livingstone Tower" + -- HTML utils nl2br :: String -> String @@ -350,7 +353,7 @@ generateHTML ts out = do header = unlines ["### default.html(section.msp101=current,headtags=)", "", "

MSP101 Seminar

", - "

MSP101 is an ongoing series of informal talks by visiting academics or members of the MSP group. The talks are usually " ++ usualDay ++ " " ++ formattedTime ++ " in room " ++ usualRoom ++ " in Livingstone Tower. They are announced on the msp-interest mailing-list. The list of talks is also available as a feed iconRSS feed and as a calendar file. The MSP 101 seminar is now hybrid, with both in-person attendance in room " ++ usualRoom ++ ", and online via Zoom (the link can be found on the msp-interest mailing list and the SPLS Zulipchat).

"] + "

MSP101 is an ongoing series of informal talks by visiting academics or members of the MSP group. The talks are usually " ++ usualDay ++ " " ++ formattedTime ++ " in room " ++ usualRoom ++ " in " ++ usualBuilding ++ ". They are announced on the msp-interest mailing-list. The list of talks is also available as a feed iconRSS feed and as a calendar file. The MSP 101 seminar is now hybrid, with both in-person attendance in room " ++ usualRoom ++ ", and online via Zoom (the link can be found on the msp-interest mailing list and the SPLS Zulipchat).

"] writeFile out (header ++ upcoming ++ previous) where entryBlock b i dt abst = unlines $