Browse Source

add the turnback sidings to the model view, and make it a 'station'

master
eta 2 weeks ago
parent
commit
794b4dada7
  1. 8
      wobsite.lisp
  2. 6
      xrcos.lisp

8
wobsite.lisp

@ -370,6 +370,7 @@ @@ -370,6 +370,7 @@
`(("X"
("eastbound"
"Eastbound <i>towards Abbey Wood via Canary Wharf</i>"
("Paddington Turnback Sidings" "A" "B" "C")
("Paddington" "A" "B")
("Bond Street" "A")
("Tottenham Court Road" "A")
@ -391,7 +392,8 @@ @@ -391,7 +392,8 @@
("Farringdon" "B")
("Tottenham Court Road" "B")
("Bond Street" "B")
("Paddington" "A" "B")))
("Paddington" "A" "B")
("Paddington Turnback Sidings" "A" "B" "C")))
("N"
("edgware-bank"
"Northbound <i>towards Edgware via Bank</i>"
@ -4175,7 +4177,9 @@ Returns the number of requests counted, including this one." @@ -4175,7 +4177,9 @@ Returns the number of requests counted, including this one."
(who:esc station-name))
(:span
:class "train-to"
(who:fmt " plat. ~{~A~^, ~}"
(who:fmt "~A ~{~A~^, ~}"
(if (uiop:string-suffix-p station-name "Sidings") ""
" plat.")
platforms)))
(unless (null trains-here)
(incf displayed (length trains-here))

6
xrcos.lisp

@ -145,11 +145,11 @@ @@ -145,11 +145,11 @@
(setf *xrcos-links* ,links))))
(define-xrcos-data ()
(seg (:name "At Paddington Turnback C" :nocont t)
(seg (:name "At Paddington Turnback Sidings Platform C" :nocont t)
0015 0016)
(seg (:name "At Paddington Turnback B" :nocont t)
(seg (:name "At Paddington Turnback Sidings Platform B" :nocont t)
0013 0014)
(seg (:name "At Paddington Turnback A" :nocont t)
(seg (:name "At Paddington Turnback Sidings Platform A" :nocont t)
0011 0012)
(seg (:name "Royal Oak Portal entry (A)" :nocont t)
042C)

Loading…
Cancel
Save