urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-03 10:02:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

Prepare for reset.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-12-07 16:57:54 -08:00
parent f6128cf792
commit 599c5fa608
3 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ape/hood.hoon
View File

@ -102,6 +102,7 @@
++ poke-helm-reload (wrap poke-reload):from-helm
++ poke-helm-reload-desk (wrap poke-reload-desk):from-helm
++ poke-helm-reset (wrap poke-reset):from-helm
++ poke-helm-deset (wrap poke-deset):from-helm
++ poke-helm-send-hi (wrap poke-send-hi):from-helm
++ poke-helm-send-ask (wrap poke-send-ask):from-helm
++ poke-helm-verb (wrap poke-verb):from-helm

12
gen/hood/deset.hoon Normal file
View File

@ -0,0 +1,12 @@
::
:::: /hoon/deset/hood/gen
::
/? 314
::
::::
!:
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=~ ~]
==
[%helm-deset ~]

10
lib/helm.hoon
View File

@ -32,6 +32,8 @@
== ::
++ hood-reset :: reset command
,~ ::
++ hood-deset :: reset command
,~ ::
++ helm-verb :: reset command
,~ ::
++ hood-reload :: reload command
@ -150,6 +152,14 @@
=+ txt=((hard ,@) .^(%cx (welp way /hoon)))
[%flog /reset %veer p way txt]
::
++ poke-deset :: deset system
|= hood-deset =< abet
%- emil
%- flop ^- (list card)
=+ top=`path`/(scot %p our)/home/(scot %da now)/arvo
:- [%flog /deset %vega (weld top `path`/hoon)]
~
::
++ poke-will :: hear certificate
|= wil=(unit will)
?> ?=(^ bur)