adds warnings and a confirmation prompt to %/gen/moon
:::: /hoon/moon/gen
::
/? 310
+/- sole
+[. sole]
::
::::
!:
-:- %say
+:- %ask
|= $: {now/@da eny/@uvJ bec/beak}
$~
$~
==
-:- %tang :_ ~ :- %leaf
-=+ ran=(clan p.bec)
+=/ ran (clan p.bec)
?: ?=({?($earl $pawn)} ran)
- "can't create a moon from a {?:(?=($earl ran) "moon" "comet")}"
-=+ mon=(mix (lsh 5 1 (end 5 1 eny)) p.bec)
-=+ tic=.^(@ /a/(scot %p p.bec)/tick/(scot %da now)/(scot %p mon))
-"moon: {<`@p`mon>}; ticket: {<`@p`tic>}"
+ %- sole-so
+ :- %tang :_ ~
+ leaf+"can't create a moon from a {?:(?=($earl ran) "moon" "comet")}"
+=/ mon (mix (lsh 5 1 (end 5 1 eny)) p.bec)
+=/ tic .^(@ /a/(scot %p p.bec)/tick/(scot %da now)/(scot %p mon))
+%+ sole-yo
+ leaf+"(see https://github.com/urbit/arvo/issues/327 for details)"
+%+ sole-yo
+ :- %leaf
+ ;: weld
+ "WARNING: linking a moon to your "
+ ?-(ran $czar "galaxy", $king "star", $duke "planet")
+ " can cause networking bugs"
+ ==
+%+ sole-lo
+ [& %$ "enter y/yes to continue: "]
+|= inp/tape
+?. |(=("y" inp) =("yes" inp))
+ (sole-so [%tang leaf+"canceled" ~])
+(sole-so [%tang leaf+"moon: {<`@p`mon>}; ticket: {<`@p`tic>}" leaf+"" ~])
