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

:begin ~ship ~ticket form

Browse Source
This commit is contained in:
Anton Dyudin 2014-07-23 15:15:30 -07:00 committed by Anton Dyudin
parent 7e50755029
commit cde3031388
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
main/bin/begin.hoon
View File

@ -4,7 +4,7 @@
=> .(-< `who=@p`-<)
=> .(+ =>(+ ^/===/lib/pony))
|= [est=time *]
|= arg=$|(~ [p=@p ~])
|= arg=$|(~ [p=@p q=$|(~ [p=@p ~])])
=- ^- bowl
?^ arg (fud p.arg)
%+ pomp ""
@ -65,8 +65,10 @@
%+ pomp ""
%+ pomp " -- Bunting, _Chomei at Toyama_"
%+ pogo (pond ^:@/===doc%/warning/txt)
%+ (polo %text "Your ticket: ~" ~ ~)
fed:ag
=- ?: ?=([@ @ ~] arg)
(- ~ p.q.arg)
%+ (polo %text "Your ticket: ~" ~ ~)
fed:ag -
|= [* tic=@p]
%+ pogo (pond ^:@/===doc%/entropy/txt)
%+ (polo %pass "Entropy: " ~ ~)