Shell : edit path inference

main/app/shell/core.hook

@@ -4,7 +4,7 @@
   ::
 /?    314
 /-    term-line, kyev
-/=    pit  /~  !>(.)                                    ::  kernel vase
+/=    pit  /~  !>(+)                                    ::  kernel vase
 ::
 ::::  structures
   ::
@@ -239,12 +239,17 @@
     |=  [paf=path gen=(unit twig)]
     ^+  +>
     =+  fel=(file paf)  
-    ?~  fel
+    ?^  fel
-      (chew-file paf '! none')
+      ?~  gen
-    ?^  gen 
+        (blab (stray (crip ": {(spud paf)} {<(,@t u.fel)>}"))) 
       %+  with  u.gen  |=  new=vase
       (chew-file paf (foal paf q.new))
-    (blab (stray (crip ": {(spud paf)} {<(,@t u.fel)>}"))) 
+    =+  ark=;;(arch .^(%cy paf))
+    ?-  r.ark
+      ~        (chew-file paf '! none')
+      [^ ~ ~]  $(paf (welp paf /[p.n.r.ark]))
+      *        (chew-file paf '! many')
+    ==
   ::
   ++  eat-help
     |=  app=term

main/mar/hymn/door.hook

@@ -8,6 +8,14 @@
   |%
   ++  html  (crip (poxo own))                          ::  convert to %html
   ++  mime  [/text/html (taco html)]                    ::  convert to %mime
+  ++  urb
+    ~|  hymn//mal-formed
+    ?>  ?=([[%html ~] [[%head ~] *] [[%body ~] ^] ~] own)
+    %_    own
+        c.i.c
+      :_  c.i.c.own
+      ;script@"/~/on/try/0.js";  ::  XX
+    ==
   --
 ++  grab  |%                                            ::  convert from
           ++  noun  manx                                ::  clam from %noun

main/mar/json/door.hook

@@ -10,9 +10,11 @@
 ++  grow                                                ::  convert to
   |%
   ++  mime                                              ::  convert to %mime
-    [/text/json (taco (crip (pojo jon)))]
+    [/text/json (tact (pojo jon))]
   --
 ++  grab  |%                                            ::  convert from
           ++  noun  json                                ::  clam from %noun
+          ++  numb  jone
+          ++  time  jode
 --        --