Browse Source

fix ancient line view for XR

master
eta 2 weeks ago
parent
commit
ee139f6abe
  1. 110
      wobsite.lisp

110
wobsite.lisp

@ -4554,59 +4554,61 @@ Returns the number of requests counted, including this one." @@ -4554,59 +4554,61 @@ Returns the number of requests counted, including this one."
(:span
:class "govuk-details__summary-text"
"What do the columns mean?"))
(:div
:class "govuk-details__text"
(:ul
(:li
(:p
:class "govuk-body"
(:strong "TrainID")
(who:esc
" is a unique identifier given in the open data feeds. It's not entirely clear what, if anything, it correlates to in real life.")))
(:li
(:p
:class "govuk-body"
(:strong "LCID")
(who:esc
" (Leading Car ID) ostensibly identifies the leading car of the train in some way. We use this as our primary means of tracking trains.")))
(:li
(:p
:class "govuk-body"
(:strong "Track codes")
" "
(:strong
:class "govuk-tag govuk-tag--grey"
"ABCDEF")
(who:esc
" are arbitrary pieces of text describing a piece of track on the line. ")))
(:li
(:p
:class "govuk-body"
(:strong "WTT")
(who:esc
" gives the Train Number as found in the TfL ")
(:a
:href "https://tfl.gov.uk/corporate/publications-and-reports/working-timetables"
"Working Timetables (WTT)")
(who:esc
". These are keyed in by train operators at the start of their journey, and can be moved around by Line Controllers if necessary.")
(unless (string= code "X")
(who:htm
(:div
:class "govuk-details__text"
(:ul
(:li
(:p
:class "govuk-body"
(:strong
:class "govuk-tag govuk-tag--pink"
"NNN ×R")
(:strong "TrainID")
(who:esc
" denotes a train with WTT number NNN, on its Rth trip of the day.")))
" is a unique identifier given in the open data feeds. It's not entirely clear what, if anything, it correlates to in real life.")))
(:li
(:p
:class "govuk-body"
(:strong "LCID")
(who:esc
" (Leading Car ID) ostensibly identifies the leading car of the train in some way. We use this as our primary means of tracking trains.")))
(:li
(:p
:class "govuk-body"
(:strong "Track codes")
" "
(:strong
:class "govuk-tag govuk-tag--green"
"NNN")
:class "govuk-tag govuk-tag--grey"
"ABCDEF")
(who:esc
" are arbitrary pieces of text describing a piece of track on the line. ")))
(:li
(:p
:class "govuk-body"
(:strong "WTT")
(who:esc
" gives the Train Number as found in the TfL ")
(:a
:href "https://tfl.gov.uk/corporate/publications-and-reports/working-timetables"
"Working Timetables (WTT)")
(who:esc
" denotes a train with WTT number NNN, on its first run of the day (or where no trip number info is available).")))))))))
". These are keyed in by train operators at the start of their journey, and can be moved around by Line Controllers if necessary.")
(:ul
(:li
(:p
:class "govuk-body"
(:strong
:class "govuk-tag govuk-tag--pink"
"NNN ×R")
(who:esc
" denotes a train with WTT number NNN, on its Rth trip of the day.")))
(:li
(:p
:class "govuk-body"
(:strong
:class "govuk-tag govuk-tag--green"
"NNN")
(who:esc
" denotes a train with WTT number NNN, on its first run of the day (or where no trip number info is available).")))))))))))
(loop
for (group . trains) in grouped
do (who:htm
@ -4628,16 +4630,18 @@ Returns the number of requests counted, including this one." @@ -4628,16 +4630,18 @@ Returns the number of requests counted, including this one."
(:abbr
:title "TrackerNet unique identifier"
"TrainID"))
(:th
:class "govuk-table__header"
(:abbr
:title "Working Timetable train number"
"WTT"))
(:th
:class "govuk-table__header no-phones"
(:abbr
:title "Leading Car ID (LCID)"
"LCID"))
(unless (string= code "X")
(who:htm
(:th
:class "govuk-table__header"
(:abbr
:title "Working Timetable train number"
"WTT"))
(:th
:class "govuk-table__header no-phones"
(:abbr
:title "Leading Car ID (LCID)"
"LCID"))))
(:th
:class "govuk-table__header govuk-!-width-two-thirds"
"Current location")))

Loading…
Cancel
Save