gen: add |new-desk for creating minimal desks

Includes the bare minimum of necessary files.

pkg/arvo/gen/hood/new-desk.hoon

@@ -0,0 +1,35 @@
+::  |new-desk: creates a minimal desk
+::
+:-  %say
+|=  $:  [now=@da eny=@uvJ bek=beak]
+        [=desk ~]
+        from=$~(%base desk)
+    ==
+::
+?:  (~(has in .^((set ^desk) %cd (en-beam bek(q from) /))) desk)
+  ~|  [%already-exists desk]
+  !!
+::
+=+  .^(=dome:clay %cv (en-beam bek /))
+::
+:-  %helm-pass
+%^  new-desk:cloy  desk
+  ~
+%-  ~(gas by *(map path page:clay))
+|^  =-  (turn - mage)
+    ^-  (list path)
+    :~  /mar/noun/hoon
+        /mar/hoon/hoon
+        /mar/kelvin/hoon
+        /sys/kelvin
+    ==
+::
+++  mage
+  |=  =path
+  :-  path
+  ^-  page:clay
+  =;  =cage  [p q.q]:cage
+  ~|  [%missing-source-file from path]
+  (need (~(get an:cloy ank.dome) path))
+--
+