mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 09:51:36 +03:00
126 lines
2.5 KiB
Plaintext
126 lines
2.5 KiB
Plaintext
/+ *server
|
|
/= tile-js
|
|
/^ octs
|
|
/; as-octs:mimes:html
|
|
/: /===/app/timer/js/tile
|
|
/| /js/
|
|
/~ ~
|
|
==
|
|
/= timer-png
|
|
/^ (map knot @)
|
|
/: /===/app/timer/img /_ /png/
|
|
=, format
|
|
::
|
|
|%
|
|
:: +move: output effect
|
|
::
|
|
+$ move [bone card]
|
|
:: +card: output effect payload
|
|
::
|
|
+$ poke
|
|
$% [%launch-action [@tas path @t]]
|
|
==
|
|
::
|
|
+$ card
|
|
$% [%poke wire dock poke]
|
|
[%http-response =http-event:http]
|
|
[%connect wire binding:eyre term]
|
|
[%diff %json json]
|
|
[%wait wire @da]
|
|
[%rest wire @da]
|
|
==
|
|
::
|
|
--
|
|
::
|
|
|_ [bol=bowl:gall tim=@da]
|
|
::
|
|
++ this .
|
|
::
|
|
++ bound
|
|
|= [wir=wire success=? binding=binding:eyre]
|
|
^- (quip move _this)
|
|
[~ this]
|
|
::
|
|
++ prep
|
|
|= old=(unit tim=@da)
|
|
^- (quip move _this)
|
|
=/ launcha [%launch-action [%timer /tile '/~timer/js/tile.js']]
|
|
:-
|
|
:~
|
|
[ost.bol %connect / [~ /'~timer'] %timer]
|
|
[ost.bol %poke /timer [our.bol %launch] launcha]
|
|
==
|
|
?~ old
|
|
this
|
|
%= this
|
|
tim tim.u.old
|
|
==
|
|
::
|
|
++ peer-tile
|
|
|= pax=path
|
|
^- (quip move _this)
|
|
?: =(tim *@da)
|
|
[[ost.bol %diff %json [%s '']]~ this]
|
|
[[ost.bol %diff %json [%s (scot %da tim)]]~ this]
|
|
::
|
|
++ send-tile-diff
|
|
|= jon=json
|
|
^- (list move)
|
|
%+ turn (prey:pubsub:userlib /tile bol)
|
|
|= [=bone ^]
|
|
[bone %diff %json jon]
|
|
::
|
|
++ poke-json
|
|
|= jon=json
|
|
^- (quip move _this)
|
|
?. ?=(%s -.jon)
|
|
[~ this]
|
|
=/ str/@t +.jon
|
|
?: =(str 'start')
|
|
=/ data/@da (add now.bol ~m20)
|
|
:_ this(tim data)
|
|
[[ost.bol %wait /timer data] (send-tile-diff [%s (scot %da data)])]
|
|
?: =(str 'stop')
|
|
:_ this(tim *@da)
|
|
[[ost.bol %rest /timer tim] (send-tile-diff [%s ''])]
|
|
[~ this]
|
|
::
|
|
++ poke-handle-http-request
|
|
%- (require-authorization:app ost.bol move this)
|
|
|= =inbound-request:eyre
|
|
^- (quip move _this)
|
|
=/ request-line (parse-request-line url.request.inbound-request)
|
|
=/ back-path (flop site.request-line)
|
|
=/ name=@t
|
|
=/ back-path (flop site.request-line)
|
|
?~ back-path
|
|
''
|
|
i.back-path
|
|
::
|
|
?+ site.request-line
|
|
[[ost.bol %http-response not-found:app]~ this]
|
|
::
|
|
:: tile
|
|
::
|
|
[%'~timer' %js %tile ~]
|
|
[[ost.bol %http-response (js-response:app tile-js)]~ this]
|
|
::
|
|
:: images
|
|
::
|
|
[%'~timer' %img *]
|
|
=/ img (as-octs:mimes:html (~(got by timer-png) `@ta`name))
|
|
:_ this
|
|
[ost.bol %http-response (png-response:app img)]~
|
|
==
|
|
::
|
|
++ wake
|
|
|= [wir=wire err=(unit tang)]
|
|
^- (quip move _this)
|
|
?~ err
|
|
:- (send-tile-diff [%s 'alarm'])
|
|
this(tim *@da)
|
|
~& err
|
|
[~ this]
|
|
::
|
|
--
|