mirror of
https://github.com/urbit/shrub.git
synced 2024-11-28 05:22:27 +03:00
vats: hack to always render multi-line tanks
This commit is contained in:
parent
05a7c755c6
commit
d732e5a91a
@ -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)))
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user