shrub/pkg/arvo/gen/hood/code.hoon

42 lines
980 B
Plaintext
Raw Normal View History

:: Helm: query or reset login code for web
::
:::: /hoon/code/hood/gen
::
/? 310
/- *sole
/+ *generators
:- %ask
|= $: [now=@da eny=@uvJ bec=beak]
[arg=?(~ [%reset ~]) ~]
==
=* our p.bec
^- (sole-result [%helm-code ?(~ %reset)])
?~ arg
=/ code=tape
%+ slag 1
%+ scow %p
.^(@p %j /(scot %p our)/code/(scot %da now)/(scot %p our))
=/ step=tape
%+ scow %ud
.^(@ud %j /(scot %p our)/step/(scot %da now)/(scot %p our))
::
%+ 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)
%+ 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])