mirror of
https://github.com/urbit/shrub.git
synced 2024-12-01 06:35:32 +03:00
118 lines
2.5 KiB
Plaintext
118 lines
2.5 KiB
Plaintext
/- neo
|
|
=< p-message
|
|
|%
|
|
+$ msg
|
|
[%msg from=ship now=time contents=@t]
|
|
++ pike pike:neo
|
|
++ goon goon:neo
|
|
++ get-bowl
|
|
=/ m (pike bowl:pike)
|
|
^- form:m
|
|
|= in=input:pike
|
|
^- output:m
|
|
[%done bowl.in]
|
|
++ grab
|
|
|= items=(list item:pike)
|
|
=/ m (pike (pole clot:goon))
|
|
^- form:m
|
|
|= in=input:pike
|
|
^- output:m
|
|
?^ syn.in
|
|
?. ?=(%grab -.u.syn.in)
|
|
[%fail %weird-card ~]
|
|
[%done items.u.syn.in]
|
|
[%emit %grab items]
|
|
++ grab-one
|
|
|= =item:pike
|
|
=/ m (pike clot:goon)
|
|
;< =(pole clot:goon) bind:m
|
|
(grab item ~)
|
|
?> ?=([clot=* ~] pole)
|
|
(pure:m clot.pole)
|
|
++ grab-validate
|
|
|= [items=(list item:pike) valid=$-((list clot:goon) (list (unit @t)))]
|
|
=/ m (pike (pole clot:goon))
|
|
^- form:m
|
|
|- =* loop $
|
|
;< res=(list clot:goon) bind:m
|
|
(grab items)
|
|
=/ errs (valid res)
|
|
=/ has-err=?
|
|
%+ roll errs
|
|
|= [er=(unit cord) has-err=_|]
|
|
?: has-err &
|
|
?~ er |
|
|
&
|
|
?. has-err
|
|
(pure:m res)
|
|
=/ new
|
|
=| new=(list item:pike)
|
|
|-
|
|
?~ items
|
|
new
|
|
?~ errs
|
|
new
|
|
=. err.i.items i.errs
|
|
$(items t.items, new (snoc new i.items), errs t.errs)
|
|
loop(items new)
|
|
::
|
|
++ peek
|
|
|= =path
|
|
=/ m (pike cage)
|
|
^- form:m
|
|
|= in=input:pike
|
|
^- output:m
|
|
?^ syn.in
|
|
?. ?=(%peek -.u.syn.in)
|
|
[%fail %weird-card ~]
|
|
[%done cage.u.syn.in]
|
|
[%emit %peek path]
|
|
++ p-message
|
|
=/ m (pike ewer:neo)
|
|
^- form:m
|
|
;< p=(pole clot:goon) bind:m
|
|
%- grab
|
|
=- ~[-]
|
|
:* 'Message'
|
|
'Enter the message you want to send'
|
|
~
|
|
%cord
|
|
==
|
|
?> ?=([[%cord p=@t] ~] p)
|
|
;< =bowl:pike bind:m get-bowl
|
|
(pure:m %chat-diff !>([%msg our.bowl now.bowl p.p]))
|
|
::
|
|
++ p-addr
|
|
=/ m (pike *)
|
|
^- form:m
|
|
;< zip=(pole clot:goon) bind:m
|
|
=- %+ grab-validate ~[-]
|
|
|= ls=(pole clot:goon)
|
|
^- (list (unit cord))
|
|
?> ?=([[%patud p=@ud] ~] ls)
|
|
=- ~[-]
|
|
?: &((gth p.ls 10.000) (lth p.ls 99.999))
|
|
~
|
|
`'Invalid ZIP code'
|
|
:* 'Zip Code'
|
|
'Please enter the zip code of your billing address'
|
|
~
|
|
%patud
|
|
==
|
|
~& zip
|
|
?> ?=([[%patud p=@ud] ~] zip)
|
|
;< =cage bind:m
|
|
(peek /dummy/zipcode/(scot %ud p.zip))
|
|
?> =(%addr-info p.cage)
|
|
=+ !<([city=@t state=@t] q.cage)
|
|
;< lines=(pole clot:goon) bind:m
|
|
%- grab
|
|
:~ ['Address Line 1' '' ~ %cord]
|
|
['Address Line 2' '' ~ %cord]
|
|
==
|
|
?> ?=([one=[%cord p=cord] two=[%cord p=cord] ~] lines)
|
|
=/ addy=*
|
|
[p.one.lines p.two.lines city p.zip state]
|
|
(pure:m !>(addy))
|
|
--
|