gemini.cli: use stdin for input, not argument

diff --git a/extra/gemini/cli/cli.factor b/extra/gemini/cli/cli.factor
index 62244ae5eabb1292ce352644f0d1493eb5e37c7d..7c1ebc846506a1fcfeb223dceeae42906a9a2569 100644 (file)
--- a/extra/gemini/cli/cli.factor
+++ b/extra/gemini/cli/cli.factor
@@ -124,8 +124,12 @@ CONSTANT: URL V{ }
 
 : gemini-less ( -- )
     "gemini.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 ;
 
  : gemini-ls ( args -- )