2021-09-27 05:03:13 +03:00
|
|
|
=, clay
|
|
|
|
|
|%
|
|
|
|
|
++ jam-desk
|
|
|
|
|
|= [our=ship =desk now=@da]
|
|
|
|
|
~> %slog.0^leaf/"jamming desk {<desk>}"
|
2022-05-24 18:51:27 +03:00
|
|
|
=+ .^(=rang:clay %cx /(scot %p our)//(scot %da now)/rang)
|
|
|
|
|
=+ .^(=tako:clay %cs /(scot %p our)/[desk]/(scot %da now)/tako/~)
|
2021-09-27 05:03:13 +03:00
|
|
|
%- jam
|
2021-09-29 21:59:19 +03:00
|
|
|
%- ?:(=(%base desk) remove-misc-dirs same)
|
2022-05-15 08:49:10 +03:00
|
|
|
%- ~(run by q:(~(got by hut.rang) tako))
|
|
|
|
|
~(got by lat.rang)
|
2021-09-27 05:03:13 +03:00
|
|
|
::
|
2021-09-29 21:59:19 +03:00
|
|
|
++ remove-misc-dirs
|
2021-09-27 21:20:44 +03:00
|
|
|
|= fiz=(map path page)
|
|
|
|
|
^- (map path page)
|
|
|
|
|
%- ~(gas by *(map path page))
|
2021-09-29 21:59:19 +03:00
|
|
|
%+ skip ~(tap by fiz)
|
|
|
|
|
|= [p=path *]
|
|
|
|
|
?| ?=([%tmp *] p)
|
|
|
|
|
?=([%tests *] p)
|
|
|
|
|
==
|
2021-09-27 05:03:13 +03:00
|
|
|
--
|
