Improve rendering of multi-line %exp messages in talk
url+(crip (apix:en-purl:html url.sep))
::
$exp
- mor+~[txt+"# {(trip exp.sep)}" tan+res.sep]
+ =/ texp=tape ['>' ' ' (trip exp.sep)]
+ :- %mor
+ |- ^- (list sole-effect:sole-sur)
+ ?: =("" texp) [tan+res.sep ~]
+ =/ newl (find "\0a" texp)
+ ?~ newl [txt+texp $(texp "")]
+ =+ (trim u.newl texp)
+ :- txt+(scag u.newl texp)
+ $(texp [' ' ' ' (slag +(u.newl) texp)])
::
$ire
=+ num=(~(get by known) top.sep)
==
::
$exp
- :- (tr-chow wyd '#' ' ' (trip exp.sep))
+ =+ texp=(trip exp.sep)
+ =+ newline=(find "\0a" texp)
+ =? texp ?=(^ newline)
+ (weld (scag u.newline texp) " ...")
+ :- (tr-chow wyd '#' ' ' texp)
?~ res.sep ~
=- [' ' (tr-chow (dec wyd) ' ' -)]~
~(ram re (snag 0 `(list tank)`res.sep))
