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

Some chat and chat related fixes.

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-11-08 13:06:04 -08:00
parent 6356570403
commit c15c28f8a8
3 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/batz.hoon
View File

@ -272,6 +272,7 @@
|= [lap=wire ted=@ud] :: XX ugly
^+ +>
%= +>
duv :_(duv [[/b ~] [%hail ~]])
paq.gyr
%- ~(gas to *(qeu gyro))
%+ skip
@ -282,7 +283,10 @@
++ hoot :: hoot:fi:be
|= [lap=wire ted=@ud pod=prod] :: install prompt
^+ +>
%_(+> paq.gyr (~(put to paq.gyr) [ted lap pod]))
%_ +>
duv :_(duv [[/b ~] [%hail ~]])
paq.gyr (~(put to paq.gyr) [ted lap pod])
==
::
++ kill
^+ .

2
main/bin/room.hoon
View File

@ -125,7 +125,7 @@
?: ?=(?(%lord %lady) -.p.u.gos)
r.p.p.u.gos
?:(?=(%punk -.p.u.gos) p.p.u.gos %white)
&
|
now
==
~(. of her ful)

20
main/bin/tach.hoon
View File

@ -103,7 +103,7 @@
=+ wyt=?:(?=(& -.sad) !=(0 oot) (~(has by tod) p.sad))
%+ weld
?:(?=(& -.sad) ?:(p.sad "&" "|") (scow %p p.sad))
?:(wyt " " " ")
?:(wyt "... " " ")
==
--
::
@ -128,7 +128,7 @@
=+ dyt=(need (~(get by tod) u.hur))
%_ +>.$
tod
?: =(0 dyt)
?: =(1 dyt)
(~(del by tod) u.hur)
(~(put by tod) u.hur (dec dyt))
==
@ -164,20 +164,22 @@
=. wak (add ~m1 wak)
?.(=(0 oot) + (joke ~ `zing`[%ego est]))
::
++ toke :: user prompt
++ toke :: user action
|= txt=@t
^+ +>
=+ rey=(rush txt chat)
?~ rey
(show %leaf "invalid input")
?+ -.u.rey
(joke ~ `zing`u.rey)
?- -.u.rey
%all (joke(sad [%& p.u.rey]) ~ `zing`u.rey)
%def %- joke
[~ `zing`[%all %& p.u.rey]]
:: ?: ?=(& -.sad)
:: [[~ p.sad] p.u.rey]
?: ?=(& -.sad)
[~ `zing`[%all p.sad p.u.rey]]
[[~ p.sad] `^mess`p.u.rey]
%how (show %leaf "help file goes here :-|")
%say (joke [~ p.u.rey] `^mess`q.u.rey)
%out (show(dun &) %leaf "thanks for chatting yo")
%say (joke(sad [%| p.u.rey]) [~ p.u.rey] `^mess`q.u.rey)
%who (joke ~ `zing`u.rey)
==
::
++ vent :: handle event