urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-03 05:43:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

writes web/plan to whichever desk has been |served

Browse Source
This commit is contained in:
Joseph Bryan 2017-10-06 19:48:59 -04:00
parent 60f40e7f95
commit 94d6b3ccfa
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/eyre.hoon
View File

@ -1984,6 +1984,8 @@
?. ?=($$ ren) [~ ~]
?. ?=($$ -.lot) [~ ~]
?+ syd [~ ~]
$serv
``[%path !>((tope top))]
$host
%- (lift (lift |=(a/hart [%hart !>(a)])))
^- (unit (unit hart))

5
lib/write.hoon
View File

@ -50,8 +50,11 @@
|= dif/plan-diff ^+ abet
?. =(our src)
~|(foreign-write+[our=our src=src] !!)
=/ sev
=+ .^(path %e /(scot %p our)/serv/(scot %da now))
?>(?=({@tas @tas *} -) -)
=; sob/soba
?~(sob abet abet:(emit %info write+~ our `toro`[q.byk %& sob]))
?~(sob abet abet:(emit %info write+~ our `toro`[i.t.sev %& sob]))
=+ pax=`path`/web/plan
=+ paf=(tope beak-now (flop pax))
?~ [fil:.^(arch %cy paf)]