ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 16:09:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix #507 zlightly better, storing the messages but just not displaying them

Browse Source
This commit is contained in:
Anton Dyudin 2015-11-05 16:18:03 -08:00
parent 4f3f06b7ad
commit e993ff088f
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ape/talk.hoon
View File

@ -758,9 +758,13 @@
::
++ sh-repo-grams :: apply telegrams
|= [num=@ud gaz=(list telegram)]
^+ +>
?~ gaz +>
$(gaz t.gaz, num +(num), +> (sh-repo-gram num i.gaz))
=. gaz
=+ len=(lent gaz)
?.((gth len 200) gaz (slag (sub len 200) gaz))
|-
^+ +>+
?~ gaz +>+
$(gaz t.gaz, num +(num), +>+ (sh-repo-gram num i.gaz))
::
++ sh-repo-glyph :: apply binding
|= nac=(jug char (set partner))
@ -1484,10 +1488,10 @@
?+ -.rad ~|([%talk-odd-friend rad] !!)
%cabal (pa-cabal cuz +.rad)
%group (pa-remind [%& cuz] +.rad)
%grams =. q.+.rad
%grams :: =. q.+.rad
:: ?. ?=(%pawn (clan our.hid)) q.+.rad
?. (gth (lent q.+.rad) 200) q.+.rad
(slag (sub (lent q.+.rad) 200) q.+.rad)
:: ?. (gth (lent q.+.rad) 200) q.+.rad
:: (slag (sub (lent q.+.rad) 200) q.+.rad)
(pa-lesson q.+.rad)
==
::