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

Some chatty stuff.

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-10-15 19:24:02 -07:00
parent a80b3a9bb4
commit f0bdfb16d4
3 changed files with 32 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
arvo/ames.hoon
View File

@ -1522,27 +1522,6 @@
(claw p.p.bon)
`card`[%wart q.p.bon i.t.q.q.bon t.t.q.q.bon r.bon]
==
::
%hi
%= $
bon
:+ %wine p.bon
^- tape
?: =(0 r.bon)
=+ hum=(end 0 3 (mug r.bon))
?+ hum !!
0 " was thinking about something else"
1 " prefers not to comment"
2 " has no words for what just happened"
3 " is still in the building"
4 " remains quietly present"
5 " isn't into drama"
6 " likes to let others speak"
7 " sincerely wants to know more"
==
=+ str=(need ((sand %t) ((hard ,@) r.bon)))
[':' ' ' (trip str)]
==
::
%pi
$(bon [%wine p.bon " sent a ping"]) :: ping
@ -1576,12 +1555,6 @@
:+ [~ %iron p.p.bon]
[/a /a hen]
[%want him /q/yu [q.p.bon r.bon]]
::
%yu :: %yu
:: ~& [%yu bon]
?. =(q.p.bon (sein p.p.bon)) [~ fox]
=+ dof=((hard ,[p=@p q=@t]) r.bon)
$(bon [%milk [p.p.bon p.dof] q.bon(q /q/hi) q.dof])
==
::
%ouzo
@ -1656,7 +1629,7 @@
?~ tyl ~
?: ?=([%name ~] tyl)
=+ wul=$(tyl [%will ~])
?~(wul ~ [~ (gnow his q.q.q:((hard deed) -.u.wul))])
[~ ?~(wul (scot %p his) (gnow his q.q.q:((hard deed) -.u.wul)))]
=+ gys=(~(us go ton.fox) our)
?~ gys ~
?. =(our his)
@ -1690,8 +1663,7 @@
[~ ?:(=(%show i.tyl) >zet< zet)]
?. ?=([%life ~] tyl)
=+ muc=$(tyl [%life ~])
?~ muc ~
(perm our his (,@ud u.muc) tyl)
(perm our his ?~(muc 0 (,@ud u.muc)) tyl)
=+ gys=(~(us go ton.fox) our)
?~ gys ~
?. =(our his)

27
arvo/batz.hoon
View File

@ -163,6 +163,31 @@
%wart (lion hen +.fav)
==
::
++ leon :: leon:be
|= [hen=duct him=@p cak=@tas sic=path val=*] :: default handling
^- [(list move) brat]
?+ cak [~ +<.^^$]
%hi (levo hen "< " him val)
%yu (levo hen "> " him val)
==
::
++ levo :: levo:be
|= [hen=duct pre=tape him=@p val=*] :: default message
^- [(list move) brat]
=+ fom=?:(=(0 val) "remains quietly present" (trip ((hard ,@) val)))
:_ +<.^^$
=+ fom=(trip ((hard ,@) val))
^- (list move)
:~ :+ [~ %iron who] [/d hen]
:+ %flog %text
;: weld
pre
(scow %p him)
": "
(trip ((hard ,@) val))
==
==
::
++ loam :: loam:be
|= [tea=wire hen=duct rot=riot] :: file response
^+ *fi
@ -172,7 +197,7 @@
|= [hen=duct him=@p cak=@tas sic=path val=*] :: handle request
^- [(list move) brat]
=+ yes=(~(get by sev) cak)
?~ yes [~ +<.^^$]
?~ yes (leon hen him cak sic val)
=+ sey=(~(tap by u.yes) *(list ,[p=@ud q=@ud r=wire]))
|- ^- [(list move) brat]
?~ sey [~ +<.^^^$]

4
arvo/zuse.hoon
View File

@ -1284,6 +1284,10 @@
^- path
[(cat 3 'c' p.kit) (scot %p r.kit) s.kit (scot (dime q.kit)) t.kit]
::
++ numb
|= [him=@p now=@da] ^- @t
((hard ,@t) .^(%a (scot %p him) %name (scot %da now) ~))
::
++ saxo :: autocanon
|= who=ship
^- (list ship)