From cc4cfccae168c0c0130daac3abe1e1420b93e222 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 4 Apr 2023 19:39:42 +0200
Subject: [PATCH] Allow searching without action.

---
 src/bbstool.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/bbstool.scm b/src/bbstool.scm
index 6112717..defbb51 100644
--- a/src/bbstool.scm
+++ b/src/bbstool.scm
@@ -94,7 +94,10 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  ""
  "Query options:"
  (-mi (id) "Specify member by id" (-member-id- (string->number id)))
- (-mn (nick) "Specify member by nick" (-member-nick- nick))
+ (-mn (nick) "Specify member by nick"
+      (when (not (-action-))
+	(-action- 'no-op))
+      (-member-nick- nick))
  ""
  "Actions:"
  (-info () "Print information"
@@ -168,6 +171,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 		  ((> (length mrs) 1)
 		   (newline)
 		   (print "Found: " (member-records->string mrs))
+		   (-action- 'no-op)
 		   #f)
 		  (else
 		   (car mrs))))
@@ -235,6 +239,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
    (if mr
        (edit-file (member-file-path mr))
        (print "No member to edit.")))
+  ((no-op) (void))
   (else
    (print "Nothing to do."))