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