mirror of
https://github.com/urbit/shrub.git
synced 2024-12-13 16:03:36 +03:00
prompting :begin seems to work...
This commit is contained in:
Philip C Monk
parent
34bd31893d
commit
f2dea88245
@ -6,19 +6,19 @@
|
||||
$% [%went p=ship q=cape]
|
||||
[%init p=@p]
|
||||
== == ==
|
||||
++ began-args ,[his=@p tic=@p eny=@t ges=gens]
|
||||
--
|
||||
::
|
||||
!:
|
||||
|_ [hid=hide %0 ust=bone his=@p mac=mace]
|
||||
++ poke-begin-args
|
||||
|= [ost=bone you=ship arg=begin-args]
|
||||
=+ bur=(shax :(mix (jam ges.arg) eny.arg))
|
||||
++ poke-began-args
|
||||
|= [ost=bone you=ship began-args]
|
||||
=+ bur=(shax :(mix (jam ges) eny))
|
||||
=+ loy=(bruw 2.048 bur)
|
||||
:_ +>.$(ust ost, his his.arg, mac [0 sec:ex:loy]~)
|
||||
:_ +>.$(ust ost, his his, mac [0 sec:ex:loy]~)
|
||||
:~ :* ost %pass /ticketing %a %want [our.hid (sein his)] /q/ta
|
||||
his.arg tic.arg ges.arg pub:ex:loy
|
||||
his tic ges pub:ex:loy
|
||||
==
|
||||
[ost %give %nice ~]
|
||||
==
|
||||
::
|
||||
++ poke-will
|
||||
|
||||
@ -5,19 +5,370 @@
|
||||
$% $: %g
|
||||
$% [%nice ~]
|
||||
[%mean p=ares]
|
||||
[%rush %txt p=cord]
|
||||
== == ==
|
||||
++ form ,[his=@p tic=@p eny=@t ges=gens]
|
||||
++ state
|
||||
$? %begin %his %tic %eny %lag
|
||||
%name %form %psect %pname %year
|
||||
%govt %sect %fname %mname %nname
|
||||
%lname %done
|
||||
==
|
||||
--
|
||||
::
|
||||
!:
|
||||
|_ [hid=hide ~]
|
||||
|_ [hid=hide sat=state form]
|
||||
++ done
|
||||
|= ost=bone
|
||||
:_ +>.$
|
||||
:~ :* ost %pass /to-gan %g %mess [our.hid /began] our.hid
|
||||
%began-args !>([his tic eny ges])
|
||||
==
|
||||
==
|
||||
::
|
||||
++ loon
|
||||
%+ cook
|
||||
|= all=(list ,@t)
|
||||
|- ^- @t
|
||||
?~ all %$
|
||||
?~ t.all i.all
|
||||
(cat 3 i.all (cat 3 ' ' $(all t.all)))
|
||||
(most ace (cook |=(a=(list ,@) (rap 3 a)) (plus prn)))
|
||||
::
|
||||
++ next
|
||||
|= txt=cord
|
||||
^- [[cord (list cord)] _+>.$]
|
||||
?- sat
|
||||
%begin [['Your ship: ~' ~] +>.$(sat %his)]
|
||||
%his
|
||||
=+ her=(rash txt fed:ag)
|
||||
=> .(-.q.ges (clan her))
|
||||
=+ ^= cow
|
||||
|- ^- @ud
|
||||
?- -.q.ges
|
||||
%czar 256
|
||||
%king (mul 255 $(-.q.ges %czar))
|
||||
%duke (mul 65.535 $(-.q.ges %king))
|
||||
%earl (mul (dec (bex 32)) $(-.q.ges %duke))
|
||||
%pawn (sub (bex 128) $(-.q.ges %earl))
|
||||
==
|
||||
=+ ^= ves ^- tape
|
||||
?- -.q.ges
|
||||
%czar "carriers"
|
||||
%king "cruisers"
|
||||
%duke "destroyers"
|
||||
%earl "yachts"
|
||||
%pawn "submarines"
|
||||
==
|
||||
:_ ^+ +>.$ +>.$(his (rash txt fed:ag), sat %tic)
|
||||
:- 'Your ticket: ~'
|
||||
%- lore %- crip
|
||||
"""
|
||||
|
||||
Launching {<her>}, one of {<cow>} Urbit {ves}...
|
||||
|
||||
If I did not build for myself
|
||||
for whom should I build?
|
||||
|
||||
-- Bunting, _Chomei at Toyama_
|
||||
|
||||
Let's configure your identity. Warning - it's nontrivial to
|
||||
change this data once you've sent it to the server. If you enter
|
||||
something wrong, hit ^D to cancel, then run the program again.
|
||||
|
||||
"""
|
||||
::
|
||||
%tic
|
||||
:_ +>.$(tic (rash txt fed:ag), sat %eny)
|
||||
:- 'Entropy: '
|
||||
%- lore %- crip
|
||||
"""
|
||||
|
||||
Enter a passphrase or other unusual text. You (or your enemies)
|
||||
can regenerate your ship from this entropy.
|
||||
|
||||
"""
|
||||
::
|
||||
%eny
|
||||
:_ +>.$(eny (rash txt (boss 256 (more gon qit))), sat %lag)
|
||||
:- 'Language: '
|
||||
%- lore %- crip
|
||||
"""
|
||||
|
||||
What language would your ship rather speak? Enter it as a
|
||||
two-letter (ISO 639-1) code, like "en" for English. Whatever
|
||||
language you pick, it'll all be English now, but in future
|
||||
we'll be more sensitive to your needs.
|
||||
|
||||
"""
|
||||
::
|
||||
%lag
|
||||
=+ ^= par
|
||||
%+ sear
|
||||
|= [a=@ b=@]
|
||||
^- (unit ,@ta)
|
||||
=+ c=(cat 3 a b)
|
||||
=+(d=(glon c) ?~(d ~ [~ c]))
|
||||
;~(plug low low)
|
||||
?. ?=(%duke -.q.ges)
|
||||
:_ +>.$(p.ges (rash txt par), sat %name)
|
||||
['Name: ' ~]
|
||||
:_ +>.$(p.ges (rash txt par), sat %form)
|
||||
:- 'Form: '
|
||||
%- lore %- crip
|
||||
"""
|
||||
|
||||
Please select one of the pre-chosen forms:
|
||||
|
||||
%lady female-identified individual
|
||||
%lord male-identified individual
|
||||
%punk opaque handle
|
||||
%anon totally anonymous
|
||||
|
||||
"""
|
||||
::
|
||||
%name
|
||||
?> ?=(?(%earl %king) -.q.ges)
|
||||
=+ nam=(rash txt (boss 256 (more gon qit)))
|
||||
=+ gos=?-(-.q.ges %earl [%earl nam], %king [%king nam])
|
||||
:_ +>.$(q.ges gos, sat %done)
|
||||
['' ~]
|
||||
::
|
||||
%form
|
||||
^- [[cord (list cord)] _+>.$]
|
||||
=+ ^= par
|
||||
;~ pose
|
||||
(jest %anon)
|
||||
(jest %lady)
|
||||
(jest %lord)
|
||||
(jest %punk)
|
||||
==
|
||||
=+ fom=(rash txt par)
|
||||
?+ fom !!
|
||||
%anon [['' ~] +>.$(q.ges [%duke %anon ~], sat %done)]
|
||||
%punk
|
||||
:_ +>.$(q.ges [%duke %punk *sect ''], sat %pname)
|
||||
['Handle: ' ~]
|
||||
?(%lady %lord)
|
||||
=+ wat=?-(fom %lady [%lady *whom], %lord [%lord *whom])
|
||||
:_ +>.$(q.ges `gcos`[%duke wat], sat %year)
|
||||
:- 'Year you were born: '
|
||||
%- lore %- crip
|
||||
"""
|
||||
|
||||
You've selected a personal identity. For a %lord or a %lady,
|
||||
please use your real name only. If you'd prefer a fictitious
|
||||
handle, you can hit ^D and start over as a %punk. Or you can
|
||||
use %anon and go by your ship name alone.
|
||||
|
||||
As a real person, we're going to ask you for a little bit of
|
||||
personal information - not enough to compromise your privacy,
|
||||
just enough to make everyone on Urbit feel like a neighbor.
|
||||
|
||||
What we're going to ask you for is information that's (a)
|
||||
public (would be obvious, or at least easy to guess, for
|
||||
someone who met you in person); (b) durable (doesn't change
|
||||
often); and (c) relevant (helps you connect with friends).
|
||||
|
||||
For example, we'll ask for the year (not day) you were born,
|
||||
because your age is easy to guess in person, doesn't change,
|
||||
and has a big effect on how people perceive you.
|
||||
|
||||
"""
|
||||
==
|
||||
::
|
||||
%pname
|
||||
:_ +>.$(q.ges [%duke %punk *sect (rash txt loon)], sat %psect)
|
||||
:- 'Banner: %'
|
||||
%- lore %- crip
|
||||
"""
|
||||
|
||||
One basic human instinct is the urge to form political tribes.
|
||||
In a network that fights this need, these tribes form anyway and
|
||||
they form badly. Urbit designs them into the infrastructure.
|
||||
Inspired by the Qing Dynasty, you'll align yourself with one of
|
||||
five colored "banners" - %red, %blue, %orange, %black or %white.
|
||||
|
||||
Political discourse across tribal boundaries is almost always an
|
||||
antisocial act - less communication, than symbolic violence. In
|
||||
Urbit, messages marked political stay within your own banner;
|
||||
your friends in other banners simply won't see them. Between
|
||||
banners, politics doesn't erode apolitical relationships; inside
|
||||
each banner, political discourse is harmonious and productive.
|
||||
|
||||
Pick a banner by the adjective you feel best describes you:
|
||||
|
||||
%red far left: radical, anarchist
|
||||
%blue center-left: moderate, liberal
|
||||
%orange center-right: conservative, libertarian
|
||||
%black far right: traditionalist, reactionary
|
||||
|
||||
Or if digital agitation isn't your cup of tea, choose %white, and
|
||||
your Urbit experience will remain politics-free.
|
||||
|
||||
"""
|
||||
::
|
||||
%psect
|
||||
?> ?=(%duke -.q.ges)
|
||||
?> ?=(%punk -.p.q.ges)
|
||||
=+ ^= par
|
||||
;~ pose
|
||||
(jest %white)
|
||||
(jest %blue)
|
||||
(jest %red)
|
||||
(jest %black)
|
||||
(jest %orange)
|
||||
==
|
||||
:- ['' ~]
|
||||
%= +>.$
|
||||
q.ges [%duke %punk ((hard sect) (rash txt par)) q.p.q.ges]
|
||||
sat %done
|
||||
==
|
||||
::
|
||||
%year
|
||||
?> ?=(%duke -.q.ges)
|
||||
?> ?=(?(%lord %lady) -.p.q.ges)
|
||||
=+ woh=`whom`[(rash txt dim:ag) *govt *sect *name]
|
||||
=+ wat=`what`?-(-.p.q.ges %lord [%lord woh], %lady [%lady woh])
|
||||
:_ +>.$(q.ges [%duke wat], sat %govt)
|
||||
:- 'Location (e.g. us/94103):'
|
||||
%- lore %- crip
|
||||
"""
|
||||
|
||||
Where are you? This is totally optional, but we'd like to
|
||||
know your vague general location. You can enter nothing at
|
||||
all, just a country code, or country and postal code.
|
||||
|
||||
"""
|
||||
::
|
||||
%govt
|
||||
?> ?=(%duke -.q.ges)
|
||||
?> ?=(?(%lord %lady) -.p.q.ges)
|
||||
=+ ^= par
|
||||
;~ pose
|
||||
;~ plug (cook |=([a=@ b=@] (cat 3 a b)) ;~(plug low low))
|
||||
;~ pfix fas
|
||||
%+ cook
|
||||
|=(a=tape (rap 3 ^-((list ,@) a)))
|
||||
(star ;~(pose hig hep nud))
|
||||
==
|
||||
(easy ~)
|
||||
==
|
||||
==
|
||||
=+ woh=`whom`[p.p.p.q.ges (rash txt par) *sect *name]
|
||||
=+ wat=`what`?-(-.p.q.ges %lord [%lord woh], %lady [%lady woh])
|
||||
:_ +>.$(q.ges [%duke wat], sat %sect)
|
||||
:- 'Banner: %'
|
||||
%- lore %- crip
|
||||
"""
|
||||
|
||||
One basic human instinct is the urge to form political tribes.
|
||||
In a network that fights this need, these tribes form anyway and
|
||||
they form badly. Urbit designs them into the infrastructure.
|
||||
Inspired by the Qing Dynasty, you'll align yourself with one of
|
||||
five colored "banners" - %red, %blue, %orange, %black or %white.
|
||||
|
||||
Political discourse across tribal boundaries is almost always an
|
||||
antisocial act - less communication, than symbolic violence. In
|
||||
Urbit, messages marked political stay within your own banner;
|
||||
your friends in other banners simply won't see them. Between
|
||||
banners, politics doesn't erode apolitical relationships; inside
|
||||
each banner, political discourse is harmonious and productive.
|
||||
|
||||
Pick a banner by the adjective you feel best describes you:
|
||||
|
||||
%red far left: radical, anarchist
|
||||
%blue center-left: moderate, liberal
|
||||
%orange center-right: conservative, libertarian
|
||||
%black far right: traditionalist, reactionary
|
||||
|
||||
Or if digital agitation isn't your cup of tea, choose %white, and
|
||||
your Urbit experience will remain politics-free.
|
||||
|
||||
"""
|
||||
::
|
||||
%sect
|
||||
?> ?=(%duke -.q.ges)
|
||||
?> ?=(?(%lord %lady) -.p.q.ges)
|
||||
=+ ^= par
|
||||
;~ pose
|
||||
(jest %white)
|
||||
(jest %blue)
|
||||
(jest %red)
|
||||
(jest %black)
|
||||
(jest %orange)
|
||||
==
|
||||
=+ woh=`whom`[p.p.p.q.ges q.p.p.q.ges (sect (rash txt par)) *name]
|
||||
=+ wat=`what`?-(-.p.q.ges %lord [%lord woh], %lady [%lady woh])
|
||||
:_ +>.$(q.ges [%duke wat], sat %fname)
|
||||
['First name: ' ~]
|
||||
::
|
||||
%fname
|
||||
?> ?=(%duke -.q.ges)
|
||||
?> ?=(?(%lord %lady) -.p.q.ges)
|
||||
=+ nam=[(rash txt loon) *(unit ,@t) *(unit ,@t) *@t]
|
||||
=+ woh=`whom`[p.p.p.q.ges q.p.p.q.ges r.p.p.q.ges nam]
|
||||
=+ wat=`what`?-(-.p.q.ges %lord [%lord woh], %lady [%lady woh])
|
||||
:_ +>.$(q.ges [%duke wat], sat %mname)
|
||||
['Middle name (or blank): ' ~]
|
||||
::
|
||||
%mname
|
||||
?> ?=(%duke -.q.ges)
|
||||
?> ?=(?(%lord %lady) -.p.q.ges)
|
||||
=+ uni=(rash txt ;~(pose (stag ~ loon) (easy ~)))
|
||||
=+ nam=[p.s.p.p.q.ges uni *(unit ,@t) *@t]
|
||||
=+ woh=`whom`[p.p.p.q.ges q.p.p.q.ges r.p.p.q.ges nam]
|
||||
=+ wat=`what`?-(-.p.q.ges %lord [%lord woh], %lady [%lady woh])
|
||||
:_ +>.$(q.ges [%duke wat], sat %nname)
|
||||
['Nickname/handle (or blank): ' ~]
|
||||
::
|
||||
%nname
|
||||
?> ?=(%duke -.q.ges)
|
||||
?> ?=(?(%lord %lady) -.p.q.ges)
|
||||
=+ uni=(rash txt ;~(pose (stag ~ loon) (easy ~)))
|
||||
=+ nam=[p.s.p.p.q.ges q.s.p.p.q.ges uni *@t]
|
||||
=+ woh=`whom`[p.p.p.q.ges q.p.p.q.ges r.p.p.q.ges nam]
|
||||
=+ wat=`what`?-(-.p.q.ges %lord [%lord woh], %lady [%lady woh])
|
||||
:_ +>.$(q.ges [%duke wat], sat %lname)
|
||||
['Last name: ' ~]
|
||||
::
|
||||
%lname
|
||||
?> ?=(%duke -.q.ges)
|
||||
?> ?=(?(%lord %lady) -.p.q.ges)
|
||||
=+ nam=[p.s.p.p.q.ges q.s.p.p.q.ges r.s.p.p.q.ges (rash txt loon)]
|
||||
=+ woh=`whom`[p.p.p.q.ges q.p.p.q.ges r.p.p.q.ges nam]
|
||||
=+ wat=`what`?-(-.p.q.ges %lord [%lord woh], %lady [%lady woh])
|
||||
:_ +>.$(q.ges [%duke wat], sat %done)
|
||||
['' ~]
|
||||
::
|
||||
%done !!
|
||||
==
|
||||
::
|
||||
++ poke-begin-args
|
||||
|= [ost=bone you=ship arg=begin-args]
|
||||
=^ res +>.$ ^- [[pot=cord tak=(list cord)] _+>.$] (next(sat %begin) '')
|
||||
:_ +>.$
|
||||
[ost %pass /to-gan %g %mess [our.hid /began] you %begin-args !>(arg)]~
|
||||
%+ welp
|
||||
:~ [ost %pass /in %g %show [our.hid +.imp.hid] you /in/[-.imp.hid]]
|
||||
[ost %give %nice ~]
|
||||
==
|
||||
%+ welp
|
||||
(spam %rush %prompt pot.res)
|
||||
%- zing
|
||||
(turn tak.res |=(a=cord (spam %rush %txt a)))
|
||||
::
|
||||
++ pour
|
||||
|= [ost=bone pax=path sih=*]
|
||||
=+ sih=((hard sign) sih)
|
||||
?: ?=([%in ~] pax)
|
||||
?. ?=(%rush +<.sih) `+>.$
|
||||
=^ res +>.$ ^- [[pot=cord tak=(list cord)] _+>.$] (next p.sih)
|
||||
?: ?=(%done sat)
|
||||
(done ost)
|
||||
:_ +>.$
|
||||
%+ welp (spam %rush %prompt pot.res)
|
||||
%- zing
|
||||
(turn tak.res |=(a=cord (spam %rush %txt a)))
|
||||
:_ +>.$
|
||||
:- [ost %give +.sih]
|
||||
%+ turn (~(tap by sup.hid))
|
||||
@ -30,4 +381,10 @@
|
||||
|=
|
||||
*
|
||||
`+>
|
||||
::
|
||||
++ spam
|
||||
|* git=*
|
||||
%+ turn
|
||||
(~(tap in (~(get ju pus.hid) /out)))
|
||||
|=(a=bone [a %give git])
|
||||
--
|
||||
|
||||
@ -29,6 +29,7 @@
|
||||
%nice
|
||||
[ost %give %nice ~]~
|
||||
%rush
|
||||
%+ weld (spam %rush %prompt 'searching for {<arg>}...')
|
||||
%- spam
|
||||
?- &3.sih
|
||||
%txt
|
||||
|
||||
@ -10,12 +10,13 @@
|
||||
::
|
||||
|% ::
|
||||
++ axle ::
|
||||
$: pid=@u ::
|
||||
pax=_`path`/=try= ::
|
||||
act=(unit span) ::
|
||||
pip=(map span span) ::
|
||||
pop=(map span span) ::
|
||||
var=(map term vase) ::
|
||||
$: pid=@u :: next process id
|
||||
pax=_`path`/=try= :: working directory
|
||||
act=(unit span) :: active child
|
||||
pip=(map span span) :: pipe out->in
|
||||
pop=(map span span) :: pipe in->out
|
||||
pot=(map span cord) :: prompts
|
||||
var=(map term vase) :: variables
|
||||
== ::
|
||||
++ gift ::
|
||||
$% [%rush p=gilt] ::
|
||||
@ -190,7 +191,7 @@
|
||||
?^ (file paf) ["! none" ~]
|
||||
["deleted" `(fray paf)]
|
||||
::
|
||||
++ eat-end
|
||||
++ eat-end :: XX clean up state
|
||||
|= poc=(each ,@u cord)
|
||||
^+ +>
|
||||
?- -.poc
|
||||
@ -359,6 +360,8 @@
|
||||
++ prompt
|
||||
^- @t
|
||||
?^ act
|
||||
=+ por=(~(get by pot) u.act)
|
||||
?^ por u.por
|
||||
(rap 3 (~(got by cub.hid) u.act) '(' u.act ') ' ~)
|
||||
?. &(?=([@ @ @ *] pax) =('0' &3.pax))
|
||||
(rsh 3 1 (spat pax))
|
||||
@ -385,11 +388,12 @@
|
||||
%- blab
|
||||
?: (~(has by pip) cil)
|
||||
(spam /in/(~(got by pip) cil) %meta (slot 3 typ sih))
|
||||
?: ?=(%prompt p.sih)
|
||||
ping(pot (~(put by pot) cil (cord q.sih)))
|
||||
%- print-vase
|
||||
?+ p.sih
|
||||
!>([(sell (slot 15 [typ sih]))]~)
|
||||
%tang
|
||||
(slot 15 [typ sih])
|
||||
%tang (slot 15 [typ sih])
|
||||
%txt
|
||||
?^ q.sih !! :: move to vase space?
|
||||
!>([leaf/(trip q.sih)]~)
|
||||
|
||||
@ -1 +1 @@
|
||||
,[his=@p tic=@p eny=@t ges=gens ~]
|
||||
(list)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user