urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-30 01:33:53 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix &womb-invite and &sole-action

Browse Source
This commit is contained in:
Anton Dyudin 2017-10-20 10:52:31 -07:00
parent d9dafeafc7
commit c23db2bcd3
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mar/sole/action.hoon
View File

@ -27,11 +27,18 @@
|= c/json %. c |= c/json %. c
?.(=(%a -.c) b (pe -.a (ar +.a))) ?.(=(%a -.c) b (pe -.a (ar +.a)))
:: ::
++ change (ot ler+(at ni ni ~) ted+(cu |*(a/* [0v0 a]) edit) ~) ++ ke :: callbacks
|* {gar/* sef/(trap fist)}
|= jon/json ^- (unit _gar)
=- ~! gar ~! (need -) -
((sef) jon)
::
++ change (ot ler+(at ni ni ~) ted+(pe 0v0 edit) ~)
++ char (cu turf so) ++ char (cu turf so)
++ edit ++ edit
%+ ke *sole-edit |. ~+
%+ fo %nop %+ fo %nop
%+ ra mor+|=(json (edit +<)) %+ ra mor+edit
(of del+ni set+(cu tuba sa) ins+(ot at+ni cha+char ~) ~) (of del+ni set+(cu tuba sa) ins+(ot at+ni cha+char ~) ~)
-- --
:: ::

4
mar/womb/invite.hoon
View File

@ -7,11 +7,11 @@
:::: ~fyr :::: ~fyr
:: ::
=, old-zuse =, old-zuse
|_ {cord invite}:womb |_ {cord invite:womb}
:: ::
++ grab :: convert from ++ grab :: convert from
|% |%
++ noun {cord invite}:womb :: clam from %noun ++ noun {cord invite:womb} :: clam from %noun
++ json ++ json
%+ corl need %+ corl need
=> jo => jo