gen: warn and prompt for confirmation in |code %reset
:::: /hoon/code/hood/gen
::
/? 310
-::
-::::
- ::
-:- %say
+/- *sole
+/+ *generators
+:- %ask
|= $: [now=@da eny=@uvJ bec=beak]
[arg=?(~ [%reset ~]) ~]
==
=* our p.bec
-:- %helm-code
+^- (sole-result [%helm-code ?(~ %reset)])
?~ arg
=/ code=tape
%+ slag 1
=/ step=tape
%+ scow %ud
.^(@ud %j /(scot %p our)/step/(scot %da now)/(scot %p our))
- %- %- slog
- :~ [%leaf code]
- [%leaf (weld "current step=" step)]
- [%leaf "use |code %reset to invalidate this and generate a new code"]
- ==
- ~
+ ::
+ %+ print 'use |code %reset to invalidate this and generate a new code'
+ %+ print leaf+(weld "current step=" step)
+ %+ print leaf+code
+ (produce [%helm-code ~])
+::
?> =(%reset -.arg)
-%reset
+%+ print 'continue?'
+%+ print 'warning: resetting your code closes all web sessions'
+%+ prompt
+ [%& %project "y/n: "]
+%+ parse
+ ;~ pose
+ (cold %.y ;~(pose (just 'y') (just 'Y')))
+ (cold %.n ;~(pose (just 'n') (just 'N')))
+ ==
+|= reset=?
+?. reset
+ no-product
+(produce [%helm-code %reset])
