ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 07:28:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

file-server: restore who generator binding

Browse Source
This commit is contained in:
ixv 2021-06-28 16:50:20 -07:00
parent a3b43137d6
commit 807b23b1fb
1 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
pkg/arvo/app/file-server.hoon
View File

@ -12,8 +12,8 @@
[%glob =glob:glob] [%glob =glob:glob]
== ==
:: ::
+$ state-3 +$ state-4
$: %3 $: %4
=configuration:srv =configuration:srv
=serving =serving
== ==
@ -22,7 +22,7 @@
%+ verb | %+ verb |
%- agent:dbug %- agent:dbug
:: ::
=| state-3 =| state-4
=* state - =* state -
^- agent:gall ^- agent:gall
|_ =bowl:gall |_ =bowl:gall
@ -42,6 +42,7 @@
== ==
:~ (connect /) :~ (connect /)
(connect /'~landscape') (connect /'~landscape')
[%pass /serve-who %arvo %e %serve [~ /who] %home /gen/who/hoon ~]
== ==
:: ::
++ connect ++ connect
@ -56,6 +57,7 @@
^- (quip card _this) ^- (quip card _this)
|^ |^
=+ !<(old-state=versioned-state old-vase) =+ !<(old-state=versioned-state old-vase)
=| cards=(list card)
=? old-state ?=(%0 -.old-state) =? old-state ?=(%0 -.old-state)
%= old-state %= old-state
- %1 - %1
@ -79,16 +81,23 @@
^- [^content ? ?] ^- [^content ? ?]
[content public %.y] [content public %.y]
== ==
?> ?=(%3 -.old-state) =? cards ?=(%3 -.old-state)
[~ this(state old-state)] :_ cards
[%pass /serve-who %arvo %e %serve [~ /who] %home /gen/who/hoon ~]
=? old-state ?=(%3 -.old-state)
old-state(- %4)
?> ?=(%4 -.old-state)
[cards this(state old-state)]
:: ::
+$ serving-0 (map url-base=path [=clay=path public=?]) +$ serving-0 (map url-base=path [=clay=path public=?])
+$ serving-1 (map url-base=path [=content public=?]) +$ serving-1 (map url-base=path [=content public=?])
+$ serving-3 (map url-base=path [=content public=? single-page=?])
+$ versioned-state +$ versioned-state
$% state-0 $% state-0
[%1 state-1] [%1 state-1]
[%2 state-1] [%2 state-1]
state-3 state-3
state-4
== ==
:: ::
+$ state-0 +$ state-0
@ -100,6 +109,11 @@
$: =configuration:srv $: =configuration:srv
serving=serving-1 serving=serving-1
== ==
+$ state-3
$: %3
=configuration:srv
serving=serving-3
==
-- --
:: ::
++ on-poke ++ on-poke