Lowdown %grams now exclusively come from the mailbox.

This commit is contained in:
Fang 2017-04-11 22:51:47 +02:00
parent 1345c9b3c0
commit f0331924b3
3 changed files with 10 additions and 5 deletions

View File

@ -205,9 +205,9 @@
++ ra-low-grams
::x apply new grams
::
|= {man/knot num/@ud gams/(list telegram)}
|= {num/@ud gams/(list telegram)}
^+ +>
=. +>.$ sh-abet:(~(sh-low-grams sh cli man) num gams)
=. +>.$ sh-abet:(~(sh-low-grams sh cli (main our.hid)) num gams)
(ra-lesson gams)
::
++ ra-emil :: ra-emit move list

View File

@ -507,8 +507,11 @@
[new %diff %talk-lowdown %glyph nak]
::x nicknames
[new %diff %talk-lowdown %names (~(run by folks) some)]
::x messages
:* new %diff %talk-lowdown %grams 0
grams:(~(got by stories) (main our.hid))
==
==
::TODO all mailbox %grams!
::
++ ra-think :: publish+review
::x consumes each thought.
@ -916,7 +919,9 @@
|= {num/@ud gam/telegram}
^+ +>
::x notify all of our readers.
=. +> (pa-inform %grams man num gam ~)
=. +> ::TODO =?
?. =(man (main our.hid)) +>
(pa-inform %grams num gam ~)
::x notify only the followers who are currently interested.
=+ ^= moy
|- ^- (pair (list bone) (list move))

View File

@ -75,7 +75,7 @@
{$names (map ship (unit human))} :: new identities
{$confs (map station (unit config))} :: changed configs
{$precs (map partner atlas)} :: changed presences
{$grams (pair knot (pair @ud (list telegram)))} :: new grams
{$grams (pair @ud (list telegram))} :: new grams
== ::
++ speech :: narrative action
$% {$lan p/knot q/@t} :: local announce