2021-04-20 06:46:46 +03:00
|
|
|
:: Kiln: Fuse local desk from (optionally-)foreign sources
|
|
|
|
|
::
|
|
|
|
|
:::: /hoon/fuse/hood/gen
|
|
|
|
|
::
|
2021-05-24 01:43:41 +03:00
|
|
|
/+ *hood-kiln
|
2021-04-20 06:46:46 +03:00
|
|
|
/* help-text %txt /gen/hood/fuse/help/txt
|
|
|
|
|
=, clay
|
|
|
|
|
::
|
|
|
|
|
::::
|
|
|
|
|
::
|
2021-05-24 01:43:41 +03:00
|
|
|
=>
|
|
|
|
|
|%
|
|
|
|
|
+$ fuse-arg
|
|
|
|
|
$: des=desk
|
|
|
|
|
res=[?([%cancel ~] [bas=fuse-source con=(list [fuse-source germ]) ~])]
|
|
|
|
|
==
|
|
|
|
|
--
|
2021-04-20 06:46:46 +03:00
|
|
|
:- %say
|
2021-05-24 01:43:41 +03:00
|
|
|
|= [* [arg=[?(~ fuse-arg)]] [overwrite=$~(| flag) ~]]
|
2021-05-02 06:04:19 +03:00
|
|
|
:- %kiln-fuse
|
|
|
|
|
?~ arg
|
|
|
|
|
((slog (turn `wain`help-text |=(=@t leaf+(trip t)))) ~)
|
2021-05-24 01:43:41 +03:00
|
|
|
:- des.arg
|
|
|
|
|
?: ?=([%cancel ~] res.arg)
|
|
|
|
|
~
|
|
|
|
|
[overwrite bas.res.arg con.res.arg]
|
