Improved rendering of %app and %fat speeches.
%+ weld $(sep sep.sep)
^- (list tape)
?+ -.tac.sep [" attached: ..." ~]
- $name ["attached: {(trip nom.tac.sep)}" ~]
+ $name [(scag wyd " attached: {(trip nom.tac.sep)}") ~]
==
::
$exp
$url
:_ ~
=+ ful=(apix:en-purl:html url.sep)
- =. wyd (sub wyd 2) :: account for prefix.
+ =+ pef=(weld (fall pre "") "/")
+ =. wyd (sub wyd +((lent pef))) :: account for prefix.
:: if the full url fits, just render it.
- ?: (gte wyd (lent ful)) ['/' ' ' ful]
+ ?: (gte wyd (lent ful)) :(weld pef " " ful)
:: if it doesn't, prefix with _ and render just (the tail of) the domain.
- :+ '/' '_'
+ %+ weld (weld pef "_")
=+ hok=r.p.p.url.sep
- ~! hok
=- (swag [a=(sub (max wyd (lent -)) wyd) b=wyd] -)
^- tape
=< ?: ?=($& -.hok)
