quakes-live.xtl

1⍝# Earthquakes of the past week, live: the USGS feed of magnitude 2.5 and
2⍝# up, fetched now (the network: run it only when you mean to), its
3⍝# SHA-256 shown, then the same report as quakes.xtl.
4⍝# Run: just live-quakes   (from the repository root; pictures go to work/draw/)
5
6ʰᵗ⁼u̲se< "Http"
7ᵈᵍ⁼u̲se< "Digest"
8ˢᵉ⁼u̲se< "Seismic"
9
10url ← "https://earthquake.usgs.gov/earthquakes/feed/v1.0/summary/2.5_week.csv"
11csv ← "work/quakes-live.csv"
12"fetched (bytes), status, last modified:"
13url ʰᵗs̲ave! csv
14ʰᵗs̲tatus @
15ʰᵗh̲eader "last-modified"
16"its SHA-256:"
17ᵈᵍs̲ha256File csv
18ˢᵉr̲eport csv