direct message prototype

This commit is contained in:
tiller-tolbus 2024-04-16 18:20:02 -03:00
parent 68d5f97200
commit 0342339c45
4 changed files with 84 additions and 0 deletions

View File

@ -0,0 +1,64 @@
/@ dm-diff
/@ message
=>
|%
++ card card:neo
--
^- firm:neo
|%
++ state %sig
++ poke (sy %dm-diff %rely ~)
++ kids
%- ~(gas by *kids:neo)
:~ :- ~[|/%da]
[%message %sig]
==
++ deps
%- ~(gas by *deps:neo)
:~
::
:- %link
::
:+ req=| [%sig %dm-diff]
:+ ~ %y
%- ~(gas by *kids:neo)
:~ :- [|/%da]~
[%message %sig]
==
==
++ form
^- form:neo
|_ [=bowl:neo =ever:neo state-vase=vase *]
++ poke
|= [=stud:neo vax=vase]
^- (quip card:neo vase)
?: =(%rely stud)
=+ !<([=term =stem:neo] vax)
?> ?=(%y -.q.stem)
=/ =pail:neo pail:(snag 0 ~(val by kids.q.stem))
=+ !<(=message q.pail)
:: TODO handle
?< =(our.bowl from.message)
:_ !>(~)
:_ ~
:*
(welp here.bowl ~[da/now.bowl])
%make
[%message `q.pail ~]
==
?> =(%dm-diff stud)
=/ poke !<(dm-diff vax)
?> =(our ship.src):bowl
?> =(%msg -.poke)
:_ !>(~)
:~
:*
(welp were.bowl ~[da/now.bowl])
%make
[%message `!>(message.poke) ~]
==
==
++ init
|= old=(unit vase) `!>(~)
--
--

View File

@ -0,0 +1,17 @@
/@ txt
|%
++ state %txt
++ poke ~
++ kids *kids:neo
++ deps *deps:neo
++ form
^- form:neo
|_ [=bowl:neo =ever:neo state-vase=vase *]
++ poke
|= [=stud:neo vax=vase]
!!
++ init
|= vas=(unit vase)
`(need vas)
--
--

View File

@ -0,0 +1,2 @@
/@ message
,[%msg =message]

View File

@ -0,0 +1 @@
cord