invites: import/export

This commit is contained in:
Isaac Visintainer 2020-11-30 13:07:26 -08:00
parent 4f0e599cb1
commit 398fb5de50

View File

@ -102,9 +102,16 @@
=^ cards state
?+ mark (on-poke:def mark vase)
%invite-action (poke-invite-action !<(action:store vase))
%import (poke-import q.vase)
==
[cards this]
::
++ poke-import
|= arc=*
^- (quip card _state)
=/ sty=state-1 ;;(state-1 arc)
[~ sty]
::
++ poke-invite-action
|= =action:store
^- (quip card _state)
@ -205,5 +212,7 @@
:^ ~ ~ %noun
!> ^- (unit invite:store)
(~(get by invitatory) serial)
::
[%x %export ~] ``noun+!>(state)
==
--