greg/bart-tile
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Writing useful bart info into webapp!!

Browse Source
This commit is contained in:
ronreg-ribdev 2020-05-23 06:10:11 -07:00
parent 3c0f460993
commit 5f219f00f5
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
urbit/app/bartinfo.hoon
View File

@ -76,8 +76,12 @@
^- (quip card:agent:gall _this) ^- (quip card:agent:gall _this)
~& "on-watch path: {<path>}" ~& "on-watch path: {<path>}"
?: ?=([%primary *] path) ?: ?=([%primary *] path)
:_ this =/ initial-resp [%give %fact ~ %json !>((bogus-json:cc))]
[%give %fact ~ %json !>((bogus-json:cc))]~ =/ out *outbound-config:iris
=/ req request-bart-stations:cc
::=/ bart-station-request [%pass /[(scot %da now.bol)] %arvo %i %request req out]
=/ bart-station-request [%pass /bartstationrequest %arvo %i %request req out]
[[initial-resp bart-station-request ~] this]
?: ?=([%http-response *] path) ?: ?=([%http-response *] path)
`this `this
?. =(/ path) ?. =(/ path)
@ -89,6 +93,13 @@
++ on-arvo ++ on-arvo
|= [=wire =sign-arvo] |= [=wire =sign-arvo]
^- (quip card _this) ^- (quip card _this)
?: ?=(%http-response +<.sign-arvo)
~& "WIRE: {<wire>}"
::~& "SIGN ARVO: {<sign-arvo>}"
=/ value %- pairs:enjs:format
:~ fulltext+s+(crip "{<sign-arvo>}")
==
[[%give %fact ~[/primary] %json !>(value)]~ this]
?. ?=(%bound +<.sign-arvo) ?. ?=(%bound +<.sign-arvo)
(on-arvo:def wire sign-arvo) (on-arvo:def wire sign-arvo)
[~ this] [~ this]