auto-starts :dns, adds generator to configure authority

app/dns.hoon

@@ -149,19 +149,8 @@
 ++  poke-noun
   |=  a=*
   ^-  (quip move _this)
-  ?+  a  ~&  +<+:this
-         [~ this]
-  ::
-      %aut
-    :_  this  :_  ~
-    :*  ost.bow
-        %poke
-        /foo
-        [our.bow dap.bow]
-        %dns-authority
-        [/org/urbit/dyndns %gcloud %tonal-griffin-853 %dyndns]
-    ==
-  ==
+  ~&  +<+:this
+  [~ this]
 :: +sigh-httr: accept http response
 ::
 ++  sigh-httr

gen/dns/authority.hoon

@@ -0,0 +1,30 @@
+::  DNS: configure zone authority
+::
+::::  /hoon/authority/dns/gen
+  ::
+/-  dns, sole
+=,  [dns sole]
+:-  %ask
+|=  $:  [now=@da eny=@uvJ bec=beak]
+        [arg=$@(~ [dom=path ~])]
+        ~
+    ==
+^-  (sole-result [%dns-authority authority])
+=-  ?~  arg  -
+    (fun.q.q [%& dom.arg])
+%+  sole-lo
+  [%& %dns-domain "dns domain: "]
+%+  sole-go  thos:de-purl:html
+|=  hot=host:eyre
+?:  ?=($| -.hot)
+  ~|(%ips-unsupported !!)
+%+  sole-lo
+  [%& %project "gcloud project: "]
+%+  sole-go  urs:ab
+|=  project=@ta
+%+  sole-lo
+  [%& %zone "dns zone: "]
+%+  sole-go  urs:ab
+|=  zone=@ta
+%+  sole-so  %dns-authority
+[p.hot %gcloud project zone]

lib/hood/drum.hoon

@@ -80,7 +80,12 @@
   =+  myr=(clan:title our)
   ?:  ?=($pawn myr)
     [[%base %collections] [%base %hall] [%base %talk] [%base %dojo] ~]
-  [[%home %collections] [%home %hall] [%home %talk] [%home %dojo] ~]
+  :~  [%home %collections]
+      [%home %dns]
+      [%home %dojo]
+      [%home %hall]
+      [%home %talk]
+  ==
 ::
 ++  deft-fish                                           ::  default connects
   |=  our/ship