mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 00:13:12 +03:00
42 lines
942 B
Plaintext
42 lines
942 B
Plaintext
:: 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 (mask "yY"))
|
|
(cold %.n (mask "nN"))
|
|
==
|
|
|= reset=?
|
|
?. reset
|
|
no-product
|
|
(produce [%helm-code %reset])
|