Merge branch 'master' of https://github.com/urbit/urbit

arvo/ames.hoon

@@ -1704,9 +1704,12 @@
         =+  neh=(claw p.p.bon)
         ?>  ?=(^ neh)
         ?:  ?=(%e ven)
-          ?>  |(=(%pr cak) =(%pc cak))
-          :_  [%sick %wart p.bon cak `path`t.t.t.q.q.bon r.bon]
-          [[%e `path`t.t.t.q.q.bon] hen]
+          ?+  cak  !!                 ::  XX  fix eyre
+            %pr  :_  [%sick %waft p.bon r.bon]
+                 [[`path`t.t.t.q.q.bon] hen] 
+            %pc  :_  [%sick %wart p.bon cak `path`t.t.t.q.q.bon r.bon]
+                 [[%e `path`t.t.t.q.q.bon] hen]
+          ==
         =+  ton=[%waft p.bon r.bon]
         ::  ~&  [%milk-waft [[ven `path`t.t.t.q.q.bon] t.neh]]
         :_  [%sick ton]

arvo/eyre.hoon

@@ -919,9 +919,9 @@
                       delete all.pas;
 
                       console.log('redirect')
-                      window.location= // "http://"+seal.who+".urbit.org/gul?"
-                                      "http://0:8445/gul?"
-                                      + $.param(all);
+                      window.location= 
+                        "http://"+seal.who+".urbit.org/gul?"
+                        + $.param(all);
                       return false;
                     }
 

main/app/curl/core.hook

@@ -0,0 +1,20 @@
+::  Command-line URL fetch, :curl "http://example.com"
+::
+::::
+  ::
+/+  sh-utils  
+!:
+|_  [hide *]
+++  peer  ,_`.
+++  poke--args
+  %+  gate-bang 
+    |=([a=tape ~] [%e %them ~ ~|([%bad-url a] (scan a auri:epur)) %get ~ ~])
+  ,_`.
+::
+++  pour
+  %+  args-into-gate  .
+  |=  [%e %thou @ mess a=(unit octs)]
+  :-  %tang
+  ?~  a  ~
+  (turn (lore q.u.a) |=(b=cord leaf/(trip b)))
+--