jam-all-desks: prevent recursive tempfile cancer
|= [our=ship =desk now=@da]
~> %slog.0^leaf/"jamming desk {<desk>}"
%- jam
+ %- ?:(=(%base desk) remove-tmp-dir same)
%- ankh-to-map
=< ank
.^(dome:clay %cv /(scot %p our)/[desk]/(scot %da now))
::
+++ remove-tmp-dir
+ |= fiz=(map path page)
+ ^- (map path page)
+ %- ~(gas by *(map path page))
+ (skip ~(tap by fiz) |=([p=path *] ?=([%tmp *] p)))
+::
++ ankh-to-map
=| res=(map path page)
=| pax=path
