Merge branch 'default-args'

gen/cat.hoon

@@ -9,7 +9,7 @@
 ::::
   ::
 :-  %say
-|=  {^ {arg/(list path)} vane/?($c $g)}
+|=  {^ {arg/(list path)} vane/?($g $c)}
 =-  tang+(flop `tang`(zing -))
 %+  turn  arg
 |=  pax/path

gen/hood/begin.hoon

@@ -17,7 +17,7 @@
 :-  %ask
 |=  $:  {now/@da eny/@uvJ bec/beak}
         {arg/_(scug *@ *{his/@p tic/@p $~})}
-        safety/?($on $off)
+        safety/?($off $on)
     ==
 ^-  (sole-result (cask begs))
 ?.  =(safety %off)

gen/hood/merge.hoon

@@ -15,11 +15,11 @@
   ::
 :-  %say
 |=  $:  {now/@da eny/@uvJ bek/beak}
-        {arg/{?(sorc {syd/$@(desk beaky) sorc})} cas/case gem/?($auto germ)}
+        {arg/{?(sorc {syd/$@(desk beaky) sorc})} cas/case gem/?(germ $auto)}
     ==
 =*  our  p.bek
 |^  :-  %kiln-merge
-    ^-  {syd/desk her/ship sud/desk cas/case gem/?($auto germ)}
+    ^-  {syd/desk her/ship sud/desk cas/case gem/?(germ $auto)}
     ?-  arg
       {@ @ $~}
         =+(arg [sud ?.(=(our her) her (sein her)) sud (opt-case da+now) gem])

gen/ls.hoon

@@ -9,6 +9,6 @@
   ::
 ~&  %
 :-  %say
-|=  {^ {arg/path $~} vane/?($c $g)}
+|=  {^ {arg/path $~} vane/?($g $c)}
 =+  lon=.^(arch (cat 3 vane %y) arg)
 tang+[?~(dir.lon leaf+"~" (subdir vane arg dir.lon))]~

gen/ls/subdir.hoon

@@ -5,7 +5,7 @@
 /?    310
 |%
 ++  subdir
-  |=  {vane/?($c $g) pax/path des/(map @t $~)}
+  |=  {vane/?($g $c) pax/path des/(map @t $~)}
   ^-  tank
   :+  %rose  [" " `~]
   %+  turn  (sort ~(tap by des) aor)

gen/twit/feed.hoon

@@ -11,7 +11,7 @@
   ::
 :-  %say
 |=  $:  {now/@da eny/@uvJ bek/beak}
-        {{who/iden $~} typ/?($home $user)}
+        {{who/iden $~} typ/?($user $home)}
     ==
 =+  pax=/(scot %p p.bek)/twit/(scot %da now)/[typ]/[who]
 :-  %tang

gen/womb/shop.hoon

@@ -5,7 +5,7 @@
 /?    310
 :-  %say
 |=  $:  {now/@da eny/@uvJ bec/beak}
-        arg/$@($~ {typ/?($stars $planets $galaxies) $~})
+        arg/$@($~ {typ/?($planets $galaxies $stars) $~})
         who/(unit @p)
     ==
 ?~  arg  $(arg ~[typ=%planets])