Merge pull request #453 from ohAitch/gen-shims

Add /+  old-zuse shims to various generators

gen/cram.hoon

@@ -1,3 +1,4 @@
+::BROKEN fixme when md is properly merged
 ::
 ::::  hoon/cram/gen
   ::

gen/curl-hiss.hoon

@@ -4,6 +4,8 @@
   ::
 /?    310
 /-  sole
+/+  old-zuse
+=,  old-zuse
 =,  sole
 :-  %get  |=  {^ {a/hiss $~} usr/iden}
 ^-  (sole-request (cask httr))

gen/curl.hoon

@@ -4,6 +4,8 @@
   ::
 /?    310
 /-  sole
+/+  old-zuse
+=,  old-zuse
 =,  sole
 :-  %get  |=  {^ {a/tape $~} $~}
 ^-  (sole-request (cask httr))

gen/curl/url.hoon

@@ -2,7 +2,9 @@
 ::
 ::::  /hoon/url/curl/gen
   ::
-/?  310
+/?    310
+/+  old-zuse
+=,  old-zuse
 ::
 :::::
   ::

gen/heed.hoon

@@ -1,3 +1,4 @@
+::BROKEN
 =>  |%
     --
 |*  $:  :>  vinyl: historical state (including version)

gen/hood/ask.hoon

@@ -3,6 +3,8 @@
 ::::  /hoon/ask/hood/gen
   ::
 /?    310
+/+  old-zuse
+=,  old-zuse
 :-  %say
 |=  {^ {mel/cord $~} $~}
 =+  adr=(star ;~(less (mask "\"\\()[],:;<>@") prn))

gen/hood/begin.hoon

@@ -4,6 +4,8 @@
   ::
 /?    310
 /-  sole
+/+  old-zuse
+=,  old-zuse
 ::
 ::::
   ::

gen/hood/bonus.hoon

@@ -3,6 +3,8 @@
 ::::  /hoon/bonus/hood/gen
   ::
 /?    310
+/+  old-zuse
+=,  old-zuse
 ::
 ::::
   ::
@@ -13,4 +15,4 @@
 ?~  opt  $(opt [planets=1]~)
 ?~  +.opt  $(+.opt [stars=0]~)
 :-  %womb-bonus
-[(scot %uv pas) planets stars]
+[(scot %uv pas) planets.opt stars.opt]

gen/hood/init-oauth1.hoon

@@ -4,6 +4,8 @@
   ::
 /?  314
 /-  sole
+/+  old-zuse
+=,  old-zuse
 ::
 ::::
   ::
@@ -31,4 +33,4 @@
 %+  sole-go  (boss 256 (star prn))
 |=  sec/@t
 %+  sole-so  %write-sec-atom    :: XX typed pair
-[hot (of-wain key sec ~)]
+[hot (of-wain:format key sec ~)]

gen/hood/init-oauth2.hoon

@@ -4,6 +4,8 @@
   ::
 /?  314
 /-  sole
+/+  old-zuse
+=,  old-zuse
 ::
 ::::
   ::

gen/hood/load.hoon

@@ -3,7 +3,8 @@
 ::::  /hoon/load/hood/gen
   ::
 /?    310
-/+    womb
+/+    womb,  old-zuse
+=,  old-zuse
 ::
 ::::
   ::

gen/hood/mv.hoon

@@ -3,6 +3,8 @@
 ::::  /hoon/mv/hood/gen
   ::
 /?    310
+/+  old-zuse
+=,  old-zuse
 :-  %say
 |=  {^ {input/path output/path $~} $~}
 :-  %kiln-info

gen/hood/report.hoon

@@ -2,6 +2,8 @@
 ::::  /hoon/report/hood/gen
   ::
 /?    310
+/+  old-zuse
+=,  old-zuse
 ::
 ::::
   ::

gen/hood/save.hoon

@@ -3,6 +3,8 @@
 ::::  /hoon/save/hood/gen
   ::
 /?    310
+/+  old-zuse
+=,  old-zuse
 ::
 ::::
   ::

gen/hood/serve.hoon

@@ -3,6 +3,8 @@
 ::::  /hoon/serve/hood/gen
   ::
 /?    310
+/+  old-zuse
+=,  old-zuse
 ::
 ::::
   ::

gen/metal.hoon

@@ -2,6 +2,8 @@
 ::::  /hoon/metal/gen
   ::
 /?    310
+/+  old-zuse
+=,  old-zuse
 ::
 ::::
   !:
@@ -277,7 +279,7 @@
             =/  dat  .^(@t %cx pax)
             [(met 3 dat) dat]
           ==
-      =/  all  (~(tap by dir.lon) ~)
+      =/  all  ~(tap by dir.lon)
       |-  ^-  mode:clay
       ?~  all  hav
       $(all t.all, hav ^$(tyl [p.i.all tyl]))

gen/moon.hoon

@@ -4,6 +4,8 @@
   ::
 /?    310
 /-  sole
+/+  old-zuse
+=,  old-zuse
 [. sole]
 ::
 ::::

gen/mud.hoon

@@ -1,3 +1,4 @@
+::BROKEN
 ::  Compile arvo as a pill noun, for compiler changes; 
 ::  usage 
 ::
@@ -6,6 +7,8 @@
 ::::  /hoon/mud/gen
   ::
 /?    310
+/+  old-zuse
+=,  old-zuse
 ::
 ::::
   !:

gen/pope.hoon

@@ -5,6 +5,8 @@
 /?    310
 ::  Input twitter keys
 /-    sole
+/+  old-zuse
+=,  old-zuse
 ::
 =+  cryp=crub
 =+  [sole]

gen/twit/feed.hoon

@@ -2,7 +2,10 @@
 ::
 ::::  /hoon/feed/twit/gen
   ::
+/?    310
 /-    twitter
+/+  old-zuse
+=,  old-zuse
 ::
 ::::  ~fyr
   ::

gen/walk.hoon

@@ -1,3 +1,4 @@
+::BROKEN
 !:
 ::::
   ::

lib/gmail.hoon

@@ -1 +0,0 @@
-fd