urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-24 13:06:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

vats: hack to always render multi-line tanks

Browse Source
This commit is contained in:
Joe Bryan 2023-04-28 16:47:51 -04:00
parent 05a7c755c6
commit d732e5a91a
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkg/arvo/gen/vats.hoon
View File

@ -15,6 +15,7 @@
|= [[now=@da * bec=beak] deks=$@(~ (list desk)) filt=@tas verb=_|] |= [[now=@da * bec=beak] deks=$@(~ (list desk)) filt=@tas verb=_|]
?: &(=(~ deks) =(%$ filt)) ?: &(=(~ deks) =(%$ filt))
:- %tang :- %tang
%- zing
%+ turn %+ turn
%+ sort %+ sort
~(tap in .^((set desk) %cd /(scot %p p.bec)/base/(scot %da now))) ~(tap in .^((set desk) %cd /(scot %p p.bec)/base/(scot %da now)))

14
pkg/base-dev/sur/hood.hoon
View File

@ -40,10 +40,12 @@
:: ::
++ report-vats ++ report-vats
|= [our=@p now=@da desks=(list desk) filt=@tas verb=?] |= [our=@p now=@da desks=(list desk) filt=@tas verb=?]
^- tang
=/ ego (scot %p our) =/ ego (scot %p our)
=/ wen (scot %da now) =/ wen (scot %da now)
=/ prep (report-prep our now) =/ prep (report-prep our now)
?~ filt ?~ filt
%- zing
%+ turn (flop desks) %+ turn (flop desks)
|=(syd=@tas (report-vat prep our now syd verb)) |=(syd=@tas (report-vat prep our now syd verb))
=/ deks =/ deks
@ -66,8 +68,11 @@
|=([syd=desk *] syd) |=([syd=desk *] syd)
?~ blockers ~[leaf+"No desks blocking upgrade, run |bump to apply"] ?~ blockers ~[leaf+"No desks blocking upgrade, run |bump to apply"]
:- [%rose [" %" "To unblock upgrade run |suspend %" ""] blockers] :- [%rose [" %" "To unblock upgrade run |suspend %" ""] blockers]
%- zing
%+ turn (flop blockers) %+ turn (flop blockers)
|=(syd=desk (report-vat prep our now syd verb)) |=(syd=desk (report-vat prep our now syd verb))
::
%- zing
%+ turn %+ turn
?+ filt !! ?+ filt !!
:: ::
@ -100,6 +105,15 @@
== ==
our=ship now=@da syd=desk verb=? 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 ^- tank
=/ ego (scot %p our) =/ ego (scot %p our)
=/ wen (scot %da now) =/ wen (scot %da now)