Use the names %lient and %rver for now.

Instead of continuing to struggle with all the places in arvo where we
assume that vane names are one letter and that one letter is the first
letter of the full vane name, just use %l/lient and %r/rver for now to
finish the split of %light into a separate http client and server vane.

lib/hood/helm.hoon

@@ -171,7 +171,6 @@
   =+  zus==('z' tip)
   =+  way=?:(zus (welp top /sys/[nam]) (welp top /sys/vane/[nam]))
   =+  fil=.^(@ %cx (welp way /hoon))
-  ~&  [%poke-reload-desk-nam way fil]
   [%flog /reload [%veer ?:(=('z' tip) %$ tip) way fil]]
 ::  +poke-reset:  send %lyra to initiate kernel upgrade
 ::

lib/pill.hoon

@@ -14,12 +14,19 @@
     :~  ::  sys/zuse: standard library
         ::
         [%$ /zuse]
-        ::  sys/vane/http-client: http client
+        ::  TODO: I really want these to be named http-client and http-server,
+        ::  but this interacts badly with every piece of the system which
+        ::  assumes that vane names are one letter, and that one letter is the
+        ::  first letter of the file. This assumption is threaded through way
+        ::  too many places in the entire system to modify it while doing
+        ::  something else.
         ::
-        [%http-client /vane/http-client]
-        ::  sys/vane/http-server: http server
+        ::  sys/vane/lient: http client
         ::
-        [%http-server /vane/http-server]
+        [%l /vane/lient]
+        ::  sys/vane/rver: http server
+        ::
+        [%r /vane/rver]
         ::  sys/vane/ames: network
         ::
         [%a /vane/ames]

sys/arvo.hoon

@@ -243,12 +243,12 @@
     ++  slur-g  ~/(%slur-g |=({gat/vase hil/mill} =+(%g (slur gat hil))))
     ++  slur-j  ~/(%slur-j |=({gat/vase hil/mill} =+(%j (slur gat hil))))
     ++  slur-z  ~/(%slur-z |=({gat/vase hil/mill} =+(%z (slur gat hil))))
-    ++  slur-http-server
-      ~/  %slur-http-server
-      |=({gat/vase hil/mill} =+(%http-server (slur gat hil)))
-    ++  slur-http-client
-      ~/  %slur-http-client
-      |=({gat/vase hil/mill} =+(%http-client (slur gat hil)))
+    ++  slur-r
+      ~/  %slur-r
+      |=({gat/vase hil/mill} =+(%r (slur gat hil)))
+    ++  slur-l
+      ~/  %slur-l
+      |=({gat/vase hil/mill} =+(%l (slur gat hil)))
     ::
     ++  slur-pro                                        ::  profiling slur
       ~/  %slur-pro
@@ -263,8 +263,8 @@
         $g  (slur-g gat hil)
         $j  (slur-j gat hil)
       ::
-        %http-client  (slur-http-client gat hil)
-        %http-server  (slur-http-server gat hil)
+        %l  (slur-l gat hil)
+        %r  (slur-r gat hil)
       ==
     ::
     ++  song                                            ::  reduce metacard
@@ -467,7 +467,7 @@
       {@ $sync *}  %c
       {@ $term *}  %d
       ::  TODO: %http-server in the interface.
-      {@ $http-server *}  %http-server
+      {@ $http-server *}  %r
       {@ $behn *}  %b
     ==
   ::

sys/vane/gall.hoon

@@ -1314,8 +1314,8 @@
         $well  `%e
         $wind  `%j
         $wipe  `%f
-        $serve    `%http-server
-        $connect  `%http-server
+        $serve    `%r
+        $connect  `%r
       ==
     --
   --

sys/vane/jael.hoon

@@ -728,7 +728,7 @@
         ^-  (list move)
         :~  [hen %pass /(scot %p our)/init %b %wait +(now)]
             [hen %give %init our]
-            [hen %slip %http-server %init our]
+            [hen %slip %r %init our]
             [hen %slip %d %init our]
             [hen %slip %g %init our]
             [hen %slip %c %init our]
@@ -777,7 +777,7 @@
         %+  weld  moz
         ^-  (list move)
         :~  [hen %give %init our]
-            [hen %slip %http-server %init our]
+            [hen %slip %r %init our]
             [hen %slip %d %init our]
             [hen %slip %g %init our]
             [hen %slip %c %init our]

sys/zuse.hoon

@@ -7405,7 +7405,7 @@
       {$f task:able:ford}
       {$g task:able:gall}
       {$j task:able:jael}
-      [%http-server task:able:http-server]
+      [%r task:able:http-server]
       {@tas $meta vase}
   ==
 ++  sign-arvo                                           ::  in result $<-
@@ -7417,7 +7417,7 @@
       {$f gift:able:ford}
       {$g gift:able:gall}
       {$j gift:able:jael}
-      [%http-server gift:able:http-server]
+      [%r gift:able:http-server]
   ==
 ::
 ++  unix-task                                           ::  input from unix

tests/sys/vane/lient.hoon

@@ -1,6 +1,6 @@
 /+  *test
 ::
-/=  http-client-raw  /:  /===/sys/vane/http-client  /!noun/
+/=  http-client-raw  /:  /===/sys/vane/lient  /!noun/
 ::
 !:
 ::

tests/sys/vane/rver.hoon

@@ -1,6 +1,6 @@
 /+  *test, *test-ford
 ::
-/=  http-server-raw  /:  /===/sys/vane/http-server  /!noun/
+/=  http-server-raw  /:  /===/sys/vane/rver  /!noun/
 ::
 !:
 ::