Different banner text for plain mode.

* txr.c (banner): In plain mode, indicate that the mode is
in effect. Do not suggest any Ctrl-X commands, since they
are not recognized.

1 files changed, 6 insertions, 2 deletions

diff --git a/txr.c b/txr.c
index 43471029..d0fbcfaa 100644
--- a/txr.c
+++ b/txr.c
@@ -177,8 +177,12 @@ static void help(void)
 static void banner(void)
 {
   format(std_output,
-         lit("This is the TXR Lisp interactive listener of TXR ~a.\n"
-             "Quit with :quit or Ctrl-D on empty line. Ctrl-X ? for cheatsheet.\n"),
+         if3(opt_noninteractive,
+             lit("This is the TXR Lisp plain mode listener of TXR ~a.\n"
+                 "Quit wth :quit or Ctrl-D on an empty line.\n"),
+             lit("This is the TXR Lisp interactive listener of TXR ~a.\n"
+                 "Quit with :quit or Ctrl-D on an empty line. "
+                 "Ctrl-X ? for cheatsheet.\n")),
          static_str(version), nao);
 }
 #else