Initial eyre paring down

arvo/zuse.hoon

@@ -508,8 +508,7 @@
 ::
 ++  moon                                                ::  mime type to text
   |=  myn=mite
-  %+  rap
-    3
+  %-  crip
   |-  ^-  tape
   ?~  myn  ~
   ?:  =(~ t.myn)  (trip i.myn)
@@ -2080,17 +2079,11 @@
   =+  dyb=(slay i.t.but)
   ?>  ?&  ?=([~ %many *] dyb)
           ?=([* * *] p.u.dyb)
-          ::  ?=([%$ %tas *] i.p.u.dyb)
-          ?=([%many *] i.p.u.dyb)
+          ?=([%$ %ta *] i.p.u.dyb)
           ?=([%blob *] i.t.p.u.dyb)
       ==
   =+  ced=((hard cred) p.i.t.p.u.dyb)
   ::  =+  nep=q.p.i.p.u.dyb
-  =+  ^=  nyp  ^-  path
-      %+  turn  p.i.p.u.dyb
-      |=  a=coin  ^-  @ta
-      ?>  ?=([%$ %ta @] a)
-      ?>(((sane %ta) q.p.a) q.p.a)
   =+  ^=  gut  ^-  (list ,@t)
       %+  turn  t.t.p.u.dyb
       |=  a=coin  ^-  @t
@@ -2105,7 +2098,6 @@
       ced
       bem
       t.t.but
-      nyp
   ==
 ::
 ++  sifo                                                ::  64-bit encode
@@ -2823,7 +2815,6 @@
               ced=cred                                  ::  client credentials
               bem=beam                                  ::  original path
               but=path                                  ::  ending
-              nyp=path                                  ::  request model
           ==                                            ::
 ++  flap  ,@uvH                                         ::  network packet id
 ++  flow                                                ::  packet connection
@@ -3032,7 +3023,7 @@
           $%  [& q=soba]                                ::  delta
               [| p=@tas]                                ::  label
           ==                                            ::
-++  octs  ,[p=@ud q=@]                                  ::  octet-stream
+++  octs  ,[p=@ud q=@t]                                 ::  octet-stream
 ++  oryx  ,@t                                           ::  CSRF secret
 ++  pact  path                                          ::  routed path
 ++  pail  ?(%none %warm %cold)                          ::  connection status

main/app/shell/core.hook

@@ -83,7 +83,7 @@
       [%vega p=path]                                    ::
   ==  ==  ==                                            ::
 --
-!:
+::
 ::::  parsers
   ::
 |%
@@ -129,9 +129,9 @@
     ==
   ::
   ++  expg  (rais ;~(pfix ace expr(tol %1)) ;~(pfix gap expr))
-  ++  expr  (rais [wide tall]:(vang & pax))
-  ++  loca  %+  sear  ;~(biff plex:(vang & pax) vabe)   ::  path in %clay
-            [;~(pose rood ;~(simu cen scat))]:(vang & pax)
+  ++  expr  (rais [wide tall]:(vang | pax))
+  ++  loca  %+  sear  ;~(biff plex:(vang | pax) vabe)   ::  path in %clay
+            [;~(pose rood ;~(simu cen scat))]:(vang | pax)
   ++  vabe  |=(a=path ?~((tome a) ~ (some a)))          ::  check valid beam
   ++  args                                              ::  task arguments
     %^  rail
@@ -143,7 +143,7 @@
   ::
   --
 --
-!:
+::
 ::::  per event
   ::
 |%
@@ -503,7 +503,7 @@
     !>([%rush %term-line `term-line`[pro(r a) ~ ~]])
   --
 --
-!:
+::
 ::::  formal interface
   ::
 |_  [hid=hide vat=axle]

main/mar/md/door.hook

@@ -4,4 +4,8 @@
 /?  314
 |_  mud=@t
 ++  garb  [%down ~]
+++  grow
+  |%
+  ++  mime  [text//x-markdown (taco mud)]
+  --
 --

main/mar/psal/door.hook

@@ -10,6 +10,7 @@
   ++  html  (crip (poxo hymn))                          ::  convert to %html
   ++  mime  [/text/html (taco html)]                    ::  convert to %mime
   --
+++  garb  [%react ~]
 ++  grab  |%                                            ::  convert from
           ++  noun  manx                                ::  clam from %noun
 --        --

main/mar/tang/door.hook

@@ -1,9 +1,17 @@
 ::
-::::  /hoon/core/zing/mar
+::::  /hoon/core/psal/mar
   ::
 /?  314
+!:
 |_  tan=(list tank)
 ::
+++  grow
+  |%
+  ++  psal
+    =-  ;pre:code:"{(trip (role (turn - crip)))}"       ::  XX
+    ^-  wall  %-  zing  ^-  (list wall)
+    (turn tan |=(a=tank (wash 0^160 a)))
+  --
 ++  grab                                                ::  convert from
   |%
   ++  noun  (list tank)                                 ::  clam from %noun