From 403c2c7ade31861c36334f0185b644e38d2dd71f Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 16 May 2024 22:07:35 +0200
Subject: new feature: Server.Frontend.Ticker
A simple way to have "announcements" available via API, and otherwise
distinct from the service announcements which show up in Gtfs Realtime.
These are meant to go e.g. be embedded on the operator's website, or in
other places where it's not as easy to display per-trip specific messages.
---
lib/Server/Frontend/Tickets.hs | 5 +++++
1 file changed, 5 insertions(+)
(limited to 'lib/Server/Frontend/Tickets.hs')
diff --git a/lib/Server/Frontend/Tickets.hs b/lib/Server/Frontend/Tickets.hs
index 1f4ad3f..9b88a48 100644
--- a/lib/Server/Frontend/Tickets.hs
+++ b/lib/Server/Frontend/Tickets.hs
@@ -45,6 +45,7 @@ import Numeric (showFFloat)
import Persist
import Server.Frontend.SpaceTime (mkSpaceTimeDiagram,
mkSpaceTimeDiagramHandler)
+import Server.Frontend.Ticker (tickerWidget)
import Server.Util (Service, secondsNow)
import Text.Read (readMaybe)
import Yesod
@@ -77,6 +78,8 @@ getTicketsR = do
let trips = GTFS.tripsOnDay gtfs day
+ tickerAnnounceWidget <- tickerWidget
+
(widget, enctype) <- generateFormPost (tripImportForm (fmap (,day) (M.elems trips)))
defaultLayout $ do
[whamlet|
@@ -90,6 +93,8 @@ $maybe name <- mdisplayname
$else
_{Msgtoday}
#{nextday} →
+
+ ^{tickerAnnounceWidget}
_{MsgTickets}
--
cgit v1.2.3