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

Moar printf

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-12-17 13:37:14 -08:00
parent ba09dbf845
commit 22e5d78c7e
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
main/app/rodeo/core.hook
View File

@ -707,7 +707,7 @@
++ pour ++ pour
|= [ost=bone pax=path sih=*] |= [ost=bone pax=path sih=*]
^- [(list move) _+>] ^- [(list move) _+>]
:: ~& [%rodeo-pour ost pax sih] ~& [%rodeo-pour ost pax sih]
:: ~& sih=sih :: ~& sih=sih
=+ sih=((hard sign) sih) =+ sih=((hard sign) sih)
?+ pax ~& [%rodeo-strange-path pax] !! ?+ pax ~& [%rodeo-strange-path pax] !!
@ -740,7 +740,7 @@
?. =(%show i.t.pax) ?. =(%show i.t.pax)
~& [%pour-friend-nuke-nuke pax] ~& [%pour-friend-nuke-nuke pax]
[~ +>.$] [~ +>.$]
=+ [man tay]=[i.t.t.pax `station`[%& (slav %p i.t.t.t.pax) i.t.t.t.t.pax]] =+ [man tay]=[i.t.t.pax [%& (slav %p i.t.t.t.pax) i.t.t.t.t.pax]]
ra-abet:(~(ra-stalk ra ost ~) man tay sih) ra-abet:(~(ra-stalk ra ost ~) man tay sih)
:: ::
[%repeat *] [%repeat *]

3
main/app/talk/core.hook
View File

@ -14,6 +14,7 @@
parties=(map span party) :: all parties parties=(map span party) :: all parties
shown=(set serial) :: messages shown shown=(set serial) :: messages shown
targets=(unit (set station)) :: talking to targets=(unit (set station)) :: talking to
mode=presence :: interactive mode
== :: == ::
++ party :: local party ++ party :: local party
$: count=@ud :: number shown $: count=@ud :: number shown
@ -420,7 +421,7 @@
?(%rush %rust) ?(%rush %rust)
?> ?=(%type -.p.sih) ?> ?=(%type -.p.sih)
~& [%talk-inputting p.p.sih] ~& [%talk-inputting p.p.sih]
[~ +>.$] [~ +>.$(mode ?:(p.p.sih %
== ==
:: ::
%command %command