# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1341381095 -7200
# Node ID 3115bd81b9de882da674f4bf24f6bbf44f47efb6
# Parent  a8b63fbad8079e7be0c8388c58d6bb50eaf5a7d4
clix.archive: Be interactive when --interactive is set. --everything makes it page by itself.

diff -r a8b63fbad807 -r 3115bd81b9de clix/archive.lua
--- a/clix/archive.lua	Sat Jun 30 01:00:16 2012 +0200
+++ b/clix/archive.lua	Wed Jul 04 07:51:35 2012 +0200
@@ -41,11 +41,17 @@
 				print_message(result[i]);
 			end
 			if result.last then
-				io.stderr:write "--More--"
-				if io.read"*l" then
+				local fetch_next = opts.everything;
+				if opts.interactive and not fetch_next then
+					io.stderr:write "--More--"
+					fetch_next = io.read"*l";
+				end
+				if fetch_next then
 					opts.after = result.last;
 					conn:query_archive(opts.to, opts, handle_results);
 					return
+				else
+					conn:info("Next page: --after=%s", result.last);
 				end
 			end
 			conn:close();