diff --git a/pkg/arvo/gen/vats.hoon b/pkg/arvo/gen/vats.hoon index 5fdfaec745..061df9516b 100644 --- a/pkg/arvo/gen/vats.hoon +++ b/pkg/arvo/gen/vats.hoon @@ -15,6 +15,7 @@ |= [[now=@da * bec=beak] deks=$@(~ (list desk)) filt=@tas verb=_|] ?: &(=(~ deks) =(%$ filt)) :- %tang + %- zing %+ turn %+ sort ~(tap in .^((set desk) %cd /(scot %p p.bec)/base/(scot %da now))) diff --git a/pkg/base-dev/sur/hood.hoon b/pkg/base-dev/sur/hood.hoon index 28883c8a67..bbe55e4e1a 100644 --- a/pkg/base-dev/sur/hood.hoon +++ b/pkg/base-dev/sur/hood.hoon @@ -40,10 +40,12 @@ :: ++ report-vats |= [our=@p now=@da desks=(list desk) filt=@tas verb=?] + ^- tang =/ ego (scot %p our) =/ wen (scot %da now) =/ prep (report-prep our now) ?~ filt + %- zing %+ turn (flop desks) |=(syd=@tas (report-vat prep our now syd verb)) =/ deks @@ -66,8 +68,11 @@ |=([syd=desk *] syd) ?~ blockers ~[leaf+"No desks blocking upgrade, run |bump to apply"] :- [%rose [" %" "To unblock upgrade run |suspend %" ""] blockers] + %- zing %+ turn (flop blockers) |=(syd=desk (report-vat prep our now syd verb)) + :: + %- zing %+ turn ?+ filt !! :: @@ -100,6 +105,15 @@ == our=ship now=@da syd=desk verb=? == + ^- tang + =- :: hack to force wrapped rendering + :: + :: edg=6 empirically prevents dedent + :: + %+ roll + (~(win re -) [0 6]) + |=([a=tape b=(list @t)] [(crip a) b]) + :: ^- tank =/ ego (scot %p our) =/ wen (scot %da now)