From 12508568af89cf1ae8fb580633e8a0dfce218cdd Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Thu, 12 Feb 2015 13:04:33 -0800
Subject: [PATCH] Shell : edit path inference

---
 main/app/shell/core.hook | 15 ++++++++++-----
 main/mar/hymn/door.hook  |  8 ++++++++
 main/mar/json/door.hook  |  4 +++-
 3 files changed, 21 insertions(+), 6 deletions(-)

diff --git a/main/app/shell/core.hook b/main/app/shell/core.hook
index a6f01ff31..2c2baabcf 100644
--- a/main/app/shell/core.hook
+++ b/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
-      (chew-file paf '! none')
-    ?^  gen 
+    ?^  fel
+      ?~  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
diff --git a/main/mar/hymn/door.hook b/main/mar/hymn/door.hook
index 43153b94f..e7bafa0b8 100644
--- a/main/mar/hymn/door.hook
+++ b/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
diff --git a/main/mar/json/door.hook b/main/mar/json/door.hook
index 212b8fa74..e345cd08c 100644
--- a/main/mar/json/door.hook
+++ b/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
 --        --