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

fixed some ordering issues

Browse Source
This commit is contained in:
Philip C Monk 2014-11-05 14:39:00 -05:00
parent b2fb76dbd9
commit 36ef1778ca
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/dill.hoon
View File

@ -365,7 +365,7 @@
?(%rush %rust) :: XX reset prompt
?> ?=(%term-line +>-.sih)
=. +>.$
=- (furl (zing (turn r.q.sih -)))
=- (furl (zing (turn (flop r.q.sih) -)))
|= a=tark
^- wall
?+ -.a (~(win re a) 0 p.q.yar)

13
main/app/begin/core.hook
View File

@ -39,7 +39,14 @@
|= txt=cord
^- [[cord (list cord)] _+>.$]
?- sat
%begin [['Your ship: ~' ~] +>.$(sat %his)]
%begin
:_ +>.$(sat %his)
:- 'Your ship: ~'
%- lore %- crip
"""
Do you have a ship and a ticket? If not, please ask
urbit@urbit.org for one.
"""
%his
=+ her=(rash txt fed:ag)
=> .(-.q.ges (clan her))
@ -490,7 +497,7 @@
%+ welp
(spam %rush %prompt pot.res)
%- zing
(turn tak.res |=(a=cord (spam %rush %txt a)))
(turn (flop tak.res) |=(a=cord (spam %rush %txt a)))
::
++ pour
|= [ost=bone pax=path sih=*]
@ -503,7 +510,7 @@
:_ +>.$
%+ welp (spam %rush %prompt pot.res)
%- zing
(turn tak.res |=(a=cord (spam %rush %txt a)))
(turn (flop tak.res) |=(a=cord (spam %rush %txt a)))
:_ +>.$
:- [ost %give +.sih]
%+ turn (~(tap by sup.hid))