Reword display of train station name
This commit is contained in:
parent
f2defe4ad7
commit
f822211000
1 changed files with 1 additions and 2 deletions
3
sncf.ss
3
sncf.ss
|
@ -39,8 +39,7 @@
|
|||
(get-station-id sncf-key station)
|
||||
(values "Vernon - Giverny (Vernon)" "stop_area:SNCF:87415604")))
|
||||
(let-values (((departures disruptions) (get-departures sncf-key station-id)))
|
||||
(displayln (compute-table-widths departures))
|
||||
(displayln (str "Station : " station-name))
|
||||
(displayln (str "Prochains départs de " station-name))
|
||||
(display-departures-table departures)
|
||||
(display-disruptions disruptions)
|
||||
(when mattermost-url
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue