ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 13:55:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

chat is working

Browse Source
This commit is contained in:
pcmonk 2014-08-01 16:17:24 -07:00
parent 7d581a3714
commit fe828ce29c
3 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/gall.hoon
View File

@ -579,7 +579,6 @@
^+ .
=> (give %nice ~)
=+ pax=+:(fall (~(get by sup.sat) ost) *[ship path])
~& [%blowing ost (~(has by sup.sat) ost) (~(get by r.zam.sat) ost)]
%= +
qic.sat ~
sup.sat (~(del by sup.sat) ost)
@ -971,7 +970,6 @@
[%call (harm cog (conf (core u.huv.sat))) (cove %$ sam)]
::
%show
~& [%yawn-showing ost (~(get by r.zam.sat) ost)]
?: (warm %peer)
=+ sam=!>([ost p.kon q.kon])
?> ?=(^ huv.sat)

28
main/app/chat/core.hoon
View File

@ -45,6 +45,7 @@
++ station
$: msg=(list zong)
sub=(unit bone)
new=(unit ,[p=@da q=bone])
tim=@da
ami=(set idad)
==
@ -56,7 +57,6 @@
::
++ since
|= [ya=msg=(list zong) tim=@da]
%- flop
|- ^- (list zong)
?: |(?=(~ msg.ya) (lth p.i.msg.ya tim)) ~
[i.msg.ya $(msg.ya t.msg.ya)]
@ -64,19 +64,22 @@
++ peer
|= [ost=bone you=ship pax=path]
^- [(list move) _+>]
:_ +>.$
=+ sta=*path
|- ^- (list move)
|- ^- [(list move) _+>.^$]
?: ?=(~ pax)
~
[~ +>.^$]
?. ?=(~ +.pax)
$(sta `path`[-.pax sta], pax `path`+.pax)
=. sta (flop sta)
=+ ya=(grab sta)
:: ~& [%peer ami.ya msg.ya]
?+ -.pax ~
%amigos [ost %give %rust %users (~(tap in ami.ya))]~
%mensajes [ost %give %rust %zongs (flop (since msg.ya tim.ya))]~
?+ -.pax [~ +>.^$]
%amigos [[ost %give %rust %users (~(tap in ami.ya))]~ +>.^$]
%mensajes
?~ sub.ya
[~ +>.^$(air (~(put by air) sta ya(new `[tim.ya ost])))]
:_ +>.^$
[ost %give %rust %zongs (since msg.ya tim.ya)]~
==
::
++ poke-zung
@ -93,7 +96,6 @@
%^ yend you (welp p.zug /mensajes)
:* %give %rust %zongs
?: ?=(%ud q.zug)
%- flop
%+ scag r.zug
msg.ya
=+ ^= tim ?-(q.zug %da r.zug, %dr (sub lat.hid r.zug))
@ -111,10 +113,8 @@
?^ sub.ya [~[zag] +>.$]
:_ +>.$(air (~(put by air) p.zug ya(sub `ost)))
:~ zag
=- ~& [%peer-hola-a -] -
=+ pax=(welp p.zug /mensajes)
[ost %pass [%show pax] %g %show [pad %radio] you pax]
=- ~& [%peer-hola-b -] -
=+ pax=(welp p.zug /amigos)
[ost %pass [%show pax] %g %show [pad %radio] you pax]
==
@ -176,12 +176,14 @@
==
==
==
?: &([?=([%rust %zongs] .)]:[+<.sih +>-.sih] .?(new.ya))
:_ +>.$(air (~(put by air) rax ya(new ~)))
=+ new=(need new.ya)
[q.new %give %rust %zongs (since msg.ya p.new)]~
?: (gth ~m2 (sub lat.hid tim.ya))
:- (send t.pax %give +.sih)
+>.$(air (~(put by air) rax ya))
:-
=- ~& [%pour-hola -] -
:- [u.sub.ya %pass [%show (welp rax /mensajes)] %g %nuke [pad %radio] our.hid]
:- :- [u.sub.ya %pass [%show (welp rax /mensajes)] %g %nuke [pad %radio] our.hid]
:_ (send t.pax %give +.sih)
[u.sub.ya %pass [%show (welp rax /amigos)] %g %nuke [pad %radio] our.hid]
+>.$(air (~(put by air) rax ya(sub ~)))

4
main/bin/chat.hoon
View File

@ -189,7 +189,7 @@
(fall (~(get by ami) her) *@t)
::
++ init
(subs:(subs:(joke:tint %hola sta) (welp sta /amigos)) (welp sta /mensajes))
(joke:(subs:(subs:tint (welp sta /amigos)) (welp sta /mensajes)) %hola sta)
::
++ jake
|= [her=@p msg=^mess]
@ -302,7 +302,7 @@
%user (join ((hard user) q.nut))
%users (joyn ((hard (list idad)) q.nut))
%zong =+(zog=((hard zong) q.nut) (said ?:(=(who q.zog) ~ [zog ~])))
%zongs (said ((hard (list zong)) q.nut))
%zongs (said (flop ((hard (list zong)) q.nut)))
==
%up ?>(?=(%up -.nut) (toke now p.nut))
%ra ?> &(?=(%ow -.nut) ?=(^ t.pax))