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

Chatook

Browse Source
This commit is contained in:
Anton Dyudin 2015-01-26 16:36:09 -08:00
parent 63329c7b05
commit 04594ceda9
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
main/app/chat/core.hook
View File

@ -59,6 +59,7 @@
$% [%mess p=hapt q=ship r=cage] $% [%mess p=hapt q=ship r=cage]
[%nuke p=hapt q=ship] [%nuke p=hapt q=ship]
[%show p=hapt q=ship r=path] [%show p=hapt q=ship r=path]
[%took p=hapt q=ship]
== == == == == ==
++ sign ++ sign
$? $: %g $? $: %g
@ -219,9 +220,7 @@
;title: Radio ;title: Radio
;script(type "text/javascript", src "//use.typekit.net/fkv0sjk.js"); ;script(type "text/javascript", src "//use.typekit.net/fkv0sjk.js");
;script(type "text/javascript", src "//cdnjs.cloudflare.com/ajax/libs/jquery/2.1.1/jquery.min.js"); ;script(type "text/javascript", src "//cdnjs.cloudflare.com/ajax/libs/jquery/2.1.1/jquery.min.js");
;script:''' ;script:'try{Typekit.load();}catch(e){}'
try{Typekit.load();}catch(e){}
'''
;link(rel "stylesheet", type "text/css", href "/gen/main/pub/src/chat/main.css"); ;link(rel "stylesheet", type "text/css", href "/gen/main/pub/src/chat/main.css");
== ==
;body ;body
@ -293,11 +292,17 @@
== ==
[~ +>.$] [~ +>.$]
:: ::
++ pass-took
|= [moz=(list move) ost=bone pax=path imp=path]
:_ +>.$
:_(moz [ost %pass pax %g %took [our.hid imp] our.hid])
::
++ pour ++ pour
|= [ost=bone pax=path sih=*] |= [ost=bone pax=path sih=*]
^- [(list move) _+>] ^- [(list move) _+>]
:: ~& sih=sih :: ~& sih=sih
=+ sih=((hard sign) sih) =+ sih=((hard sign) sih)
=+ took=|=([imp=path moz=(list move)] (pass-took moz ost pax imp))
?~ pax ~& %chat-pour-strange-path !! ?~ pax ~& %chat-pour-strange-path !!
:: ~& [%pour-mess pax] :: ~& [%pour-mess pax]
?+ i.pax ~& %chat-pour-strange-path !! ?+ i.pax ~& %chat-pour-strange-path !!
@ -307,7 +312,8 @@
%mean [(send /out %give +.sih) +>.$] %mean [(send /out %give +.sih) +>.$]
?(%rush %rust) ?(%rush %rust)
?> ?=(%txt -.p.sih) ?> ?=(%txt -.p.sih)
(exec-cmd ost p.p.sih) =^ moz +>.$ (exec-cmd ost p.p.sih)
(took +.imp.hid moz)
== ==
:: ::
?(%mesg %priv) ?(%mesg %priv)
@ -319,8 +325,7 @@
[~ +>.$] [~ +>.$]
?> ?=(%rush +<.sih) ?> ?=(%rush +<.sih)
?> ?=(%zong -.p.sih) ?> ?=(%zong -.p.sih)
:_ +>.$ (took /chat (send /out %give %rush %tang (zong-to-tank & p.p.sih) ~))
(send /out %give %rush %tang (zong-to-tank & p.p.sih) ~)
:: ::
?(%radi-a %radi-m) ?(%radi-a %radi-m)
?: ?=(%nice +<.sih) ?: ?=(%nice +<.sih)
@ -365,7 +370,8 @@
=+ ^= pout ?:(=(i.pax %radi-a) %amigos %mensajes) =+ ^= pout ?:(=(i.pax %radi-a) %amigos %mensajes)
=. air (~(put by air) t.pax ya) =. air (~(put by air) t.pax ya)
=+ mow=(send [pout t.pax] %give +.sih) =+ mow=(send [pout t.pax] %give +.sih)
=< [mow +>.$] =< (took /radio mow)
:: =< [mow +>.$]
:: XX yes, I just used an inline comment :: XX yes, I just used an inline comment
:: XX and multiple XX's. why? because :: XX and multiple XX's. why? because
:: XX tmi is incredibly lame. :: XX tmi is incredibly lame.