finish merge from wh/sky-post-pokes

pkg/arvo/neo/cod/std/src/imp/hawk-eyre-handler.hoon

@@ -2,7 +2,7 @@
 /@  htmx-type=htmx
 /@  htmx-type=htmx
 /-  feather-icons
-/-  serv=server
+/-  serv=sky-server
 />  htmx
 /<  node
 =>
@@ -10,24 +10,6 @@
 ++  manx-to-octs
   |=  man=manx
   (as-octt:mimes:html (en-xml:html man))
-++  parse-url
-  |=  =request:http
-  ^-  [pax=path pam=(map @t @t)]
-  =/  parsed
-    %+  rash  url.request
-    ;~  plug
-        ;~(pfix fas (more fas smeg:de-purl:html))
-        yque:de-purl:html
-    ==
-      :: strip first 2 segments (/neo/hawk)
-  :-  (slag 2 -.parsed)
-  (malt +.parsed)
-++  parse-body
-  |=  =request:http
-  ^-  manx
-  %+  fall
-    (de-xml:html q:(fall body.request [p=0 q='']))
-  *manx
 ++  eyre-cards
   |=  [eyre-id=@ta =bowl:neo status=@ud =manx]
   ^-  (list card:neo)
@@ -238,19 +220,24 @@
     =/  [=stud:neo =vase]  (need pal)
     =+  !<([eyre-id=@ta req=inbound-request:eyre] vase)
     :_  [stud vase]
-    ?.  authenticated.req
-      %:  eyre-cards
-          eyre-id
-          bowl
-          403
-          ;div: 403
-      ==
+    ::XX revive when auth
+    ::?.  authenticated.req
+    ::  %:  eyre-cards
+    ::      eyre-id
+    ::      bowl
+    ::      403
+    ::      ;div: 403
+    ::  ==
     ?~  src=(~(get by deps.bowl) %src)
+      =/  main
+        ;div.wf.hf.fc.jc.ac: nothing here
+      =/  raw
+        ;div.wf.hf.fc.jc.ac: raw view
       %:  eyre-cards
           eyre-id
           bowl
-          404
-          ;div: 404
+          200
+          ~(lift hawk #/[p/our.bowl] main raw |)
       ==
     =/  here  p.u.src
     ^-  (list card:neo)
@@ -266,23 +253,22 @@
       =.  kids.bol  q.u.src
       ::  XX src.bowl
       =/  main  (!<(htmx-type q.pail.root) bol)
-      =/  raw  *manx
-      =/  raw  *manx
+      =/  raw
+        ;div.wf.hf.fc.jc.ac: raw view
       %:  eyre-cards
           eyre-id
           bowl
           200
-          ~(lift hawk here.bol main raw)
+          ~(lift hawk here.bol main raw &)
       ==
     ::
         %'POST'
-      =/  purl  (parse-url request.req)
-      =/  body  (parse-body request.req)
+      =/  purl  (parse-url:serv request.req)
+      =/  body  (parse-body:serv request.req)
       =/  poke-stud
         ^-  stud:neo
         ~|  %no-stud-specified
         (~(got by pam.purl) 'stud')
-      ::=/  mul  `(each ^vase tang)`[%.y p=!>(~)]        :: stub for build system bug
       =/  mul  (mule |.((node [poke-stud body])))
       ?-    -.mul
           %.n
@@ -297,6 +283,17 @@
               ;div: {(of-wall:format (~(win re tank) 0 55))}
             ==
         ==
+        %:  eyre-cards
+            eyre-id
+            bowl
+            400
+            ;div
+              ;*
+              %+  turn  (tang p.mul)
+              |=  =tank
+              ;div: {(of-wall:format (~(win re tank) 0 55))}
+            ==
+        ==
       ::
           %.y
         =/  =pail:neo  [poke-stud p.mul]
@@ -322,6 +319,12 @@
             200
             manx
         ==
+        %:  eyre-cards
+            eyre-id
+            bowl
+            200
+            manx
+        ==
       ==
     ==
   --

pkg/arvo/neo/cod/std/src/imp/hawk-eyre.hoon

@@ -1,5 +1,6 @@
 /@  eyre-reqs
 /-  serv=sky-server
+/-  serv=sky-server
 ^-  kook:neo
 |%
 ++  state  pro/%sig
@@ -21,8 +22,8 @@
          %eyre-task
       =+  !<(=task:eyre:neo vax)
       =/  [eyre-id=@ta req=inbound-request:eyre]  task
-      =/  lin  (parse-request-line:serv url.request.req)
-      =/  inner=pith:neo  (pave:neo (slag 2 site.lin))
+      =/  purl  (parse-url:serv request.req)
+      =/  inner=pith:neo  (pave:neo pax.purl)
       =/  =crew:neo  (~(gas by *crew:neo) src/inner ~)
       =/  =made:neo  [%hawk-eyre-handler `[stud vax] crew]
       =/  =made:neo  [%hawk-eyre-handler `[stud vax] crew]