clay: more printing adjustment
^- path
=/ paz (segments pax)
|- ^- path
- ?~ paz ~_(leaf/"clay: no files match /{<pre>}/{<pax>}/hoon" !!)
+ ?~ paz ~_(leaf/"clay: no files match /{(trip pre)}/{(trip pax)}/hoon" !!)
=/ pux=path pre^(snoc i.paz %hoon)
?: (~(has in deletes) pux)
$(paz t.paz)
%+ turn (tail (spud pux)) :: lose leading '/'
|=(c=@tD `@tD`?:(=('/' c) '-' c)) :: convert '/' to '-'
::
- ~> %slog.0^leaf/"ford: {<~(wyt in invalid)>} cache invalidations"
- ::
:* ((invalidate path vase) files.ford-cache invalid)
((invalidate mark vase) naves.ford-cache invalid)
((invalidate mark dais) marks.ford-cache invalid)
