urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

improved chat

Browse Source
This commit is contained in:
pcmonk 2014-07-03 11:14:22 -07:00
parent f0d41ea9d6
commit 40329afb12
3 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/zuse.hoon
View File

@ -2305,7 +2305,7 @@
[%zz p=path q=path r=curd] ::
== ::
++ zang :: XX evil hack
$% [%backlog p=path q=@da] ::
$% [%backlog p=path q=?(%da %dr %ud) r=@] ::
[%hola p=path] ::
$: %mess p=path ::
$= q ::

13
main/app/radio/core.hoon
View File

@ -24,7 +24,7 @@
++ move ,[p=bone q=(mold note gift)]
++ note ,~
++ zing
$% [%backlog p=path q=@da]
$% [%backlog p=path q=?(%da %dr %ud) r=@]
[%hola p=path]
[%mess p=path q=mess]
==
@ -49,7 +49,8 @@
%mensajes
:_ ~
:* ost %give %rust %zongs
p:(fall (~(get by p.vat) sta) [p=*(list zong) q=*(set ship)])
%- flop
(scag 5 p:(fall (~(get by p.vat) sta) [p=*(list zong) q=*(set ship)]))
==
%amigos
:_ ~
@ -67,8 +68,14 @@
:_ +>.$
%+ send (welp p.zig /mensajes)
:* %give %rust %zongs
?: ?=(%ud q.zig)
%- flop
%+ scag r.zig
p:(fall (~(get by p.vat) p.zig) [p=*(list zong) q=*(set ship)])
=+ ^= tim ?-(q.zig %da r.zig, %dr (sub lat.hid r.zig))
%- flop
|- ^- (list zong)
?: |(?=(~ p.ya) (lth p.i.p.ya q.zig)) ~
?: |(?=(~ p.ya) (lth p.i.p.ya tim)) ~
[i.p.ya $(p.ya t.p.ya)]
==
%hola

27
main/bin/chat.hoon
View File

@ -13,7 +13,7 @@
=> |%
++ chat :: user action
$% [%all p=mess] :: say
[%back p=@da] :: backlog
[%back p=?(%da %dr %ud) q=@] :: backlog
[%how ~] :: help
[%who ~] :: who
== ::
@ -24,7 +24,7 @@
== ::
++ station path ::
++ zing :: client to server
$% [%backlog p=path q=@da] ::
$% [%backlog p=path q=?(%da %dr %ud) r=@] ::
[%hola p=station] ::
[%mess p=station q=mess] ::
== ::
@ -46,12 +46,14 @@
++ dat
|= now=@da
%+ cook
|= [p=@tas q=@]
?+ p `@da`0
%da `@da`q
%dr `@da`(sub now q)
|= p=coin
?. ?=(~ -.p) [%ud 5]
?+ p.p.p [%ud 5]
%da [%da q.p.p]
%dr [%dr q.p.p]
%ud [%ud q.p.p]
==
;~(pfix (jest '\\\\ ~') crub:so)
;~(pfix (jest '\\\\ ') nuck:so)
::
++ expn
%- sear
@ -147,15 +149,6 @@
%= $
duz t.duz
+>
=. giz
?. ?& :: ?=(%mess -.i.duz)
=+ ^= r
%+ rexp (scow %p who)
(trip =>(r.i.duz ?@(+ p p)))
&(!=(~ r) !=([~ ~] r) !=([~ ~ ~] r))
==
giz
[[%xy /d [%blit [%bel ~]~]] giz]
%- show
^- tank
?- -.i.duz
@ -179,7 +172,7 @@
(show %leaf "invalid input")
?- -.u.rey
%all (joke %mess sta p.u.rey)
%back (joke %backlog sta p.u.rey)
%back (joke %backlog sta p.u.rey q.u.rey)
%how (shew (turn (lore ^:@/===doc%/help/txt) |=(a=@t [%leaf (trip a)])))
%who (show %rose [", " "" ""] (turn (~(tap in ami)) |=(p=ship >p<)))
==