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

story: update |story-remove to use new types

Browse Source
This commit is contained in:
Yaseen 2022-01-25 14:54:55 -05:00
parent 86ef82dbe1
commit 5b512abae5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkg/arvo/gen/hood/story-remove.hoon
View File

@ -1,6 +1,7 @@
:: ::
:::: ::::
:: ::
/- *story
:- %say :- %say
|= $: [now=@da eny=@uvJ bec=beak] |= $: [now=@da eny=@uvJ bec=beak]
[[syd=desk =aeon:clay ~] ~] [[syd=desk =aeon:clay ~] ~]
@ -11,8 +12,7 @@
=/ our p.bec =/ our p.bec
:: XX should `base` here be syd or q.bec :: XX should `base` here be syd or q.bec
=/ tak .^(tako:clay %cs /(scot %p our)/base/(scot %ud aeon)/tako/~) =/ tak .^(tako:clay %cs /(scot %p our)/base/(scot %ud aeon)/tako/~)
=/ tale=(map tako:clay [@t @t]) =/ tale=story .^(story %cx /(scot %p our)/[syd]/(scot %da now)/story)
.^((map tako:clay [@t @t]) %cx /(scot %p our)/[syd]/(scot %da now)/story) =. tale (~(del ju tale) tak)
=. tale (~(del by tale) tak)
:- %helm-pass :- %helm-pass
[%c [%info syd %& [/story %ins story+!>(tale)]~]] [%c [%info syd %& [/story %ins story+!>(tale)]~]]