dimitri/sncf-bot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Handle API error more gracefully

Browse source
This commit is contained in:
Dimitri Lozeve 2022-09-20 21:40:03 +02:00
parent e223a736e1
commit fb6cc611c7
4 changed files with 44 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

17
sncf/api.ss
View file

@ -4,6 +4,7 @@
(import :std/format
:std/iter
:std/logger
:std/net/request
:std/net/uri
:std/srfi/19
@ -19,11 +20,11 @@
(let ((pts (hash-ref req-json 'pt_objects #f)))
(if (and pts (not (null? pts)))
(values (hash-ref (car pts) 'name) (hash-ref (car pts) 'id))
(begin (display (format "No station found for \"~a\".\n" station) (current-error-port))
(exit 1)))))
(begin (display (format "Failed to query the SNCF API: ~a ~a\n"
(request-status req) (request-status-text req)))
(exit 1))))
(begin (warnf "No station found for \"~a\"." station)
(values #f #f)))))
(begin (warnf "Failed to query the SNCF API: ~a ~a"
(request-status req) (request-status-text req))
(values #f #f))))
(def (get-departures sncf-key station-id (datetime #f))
(def url (format "~a/stop_areas/~a/departures" +sncf-url+ station-id))
@ -35,9 +36,9 @@
(let (req-json (request-json req))
(values (parse-departures (hash-ref req-json 'departures))
(hash-ref req-json 'disruptions)))
(begin (display (format "Failed to query the SNCF API: ~a ~a\n"
(request-status req) (request-status-text req)))
(exit 1))))
(begin (warnf "Failed to query the SNCF API: ~a ~a"
(request-status req) (request-status-text req))
(values #f #f))))
(defstruct departure (network direction base-datetime datetime))

30
sncf/display.ss
View file

@ -45,15 +45,21 @@
(displayln (if (null? messages) "[Pas de message]" (hash-ref (car messages) 'text))))))
(def (display-all departures disruptions station-name (datetime #f) style: (style 'unicode))
(display
(if (eq? style 'markdown)
(format "Prochains départs de **~a** " station-name)
(parse-markup
(format "[bold]Prochains départs de [green]~a[/green] " station-name))))
(when datetime
(display (format "le ~a à ~a "
(date->string datetime "~d ~b ~Y")
(date->string datetime "~H:~M"))))
(displayln (if (eq? style 'markdown) ":\n" ":"))
(display-departures-table departures style: style)
(display-disruptions disruptions style: style))
(let/cc return
(unless departures
(displayln (format "Aucun départ prévu de ~a~a"
station-name
(if datetime (string-append " le " (date->string datetime "~d ~b ~Y")))))
(return))
(display
(if (eq? style 'markdown)
(format "Prochains départs de **~a** " station-name)
(parse-markup
(format "[bold]Prochains départs de [green]~a[/green] " station-name))))
(when datetime
(display (format "le ~a à ~a "
(date->string datetime "~d ~b ~Y")
(date->string datetime "~H:~M"))))
(displayln (if (eq? style 'markdown) ":\n" ":"))
(display-departures-table departures style: style)
(display-disruptions disruptions style: style)))