gopher.cli: use stdin for input, not argument

diff --git a/extra/gopher/cli/cli.factor b/extra/gopher/cli/cli.factor
index 27a7dfc4cbbfa6875855f15e4bee148296eeb1e3..e43d4097d6a8696e6f45922207a1932aa4a74a6c 100644 (file)
--- a/extra/gopher/cli/cli.factor
+++ b/extra/gopher/cli/cli.factor
@@ -4,8 +4,8 @@
 USING: accessors arrays combinators.short-circuit command-loop
 environment formatting gopher gopher.private io io.directories
 io.encodings.utf8 io.files io.files.temp io.launcher io.pipes
-kernel literals math math.parser present sequences splitting
-system urls webbrowser ;
+kernel literals math math.parser namespaces present sequences
+splitting system urls webbrowser ;
 
 IN: gopher.cli
 
@@ -122,8 +122,12 @@ CONSTANT: URL V{ }
 
 : gopher-less ( -- )
     "gopher.txt" temp-file dup file-exists? [
-        [ "PAGER" os-env [ "less" ] unless* ]
-        [ "\"" dup surround " " glue try-process ] bi*
+        utf8 [
+            <process>
+                "PAGER" os-env [ "less" ] unless* >>command
+                input-stream get >>stdin
+            try-process
+        ] with-file-reader
     ] [ drop ] if ;
 
  : gopher-ls ( args -- )