brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Allow searching without action.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-04 19:39:42 +02:00
parent 2232786316
commit cc4cfccae1
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/bbstool.scm
View file

@ -94,7 +94,10 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
"" ""
"Query options:" "Query options:"
(-mi (id) "Specify member by id" (-member-id- (string->number id))) (-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:" "Actions:"
(-info () "Print information" (-info () "Print information"
@ -168,6 +171,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
((> (length mrs) 1) ((> (length mrs) 1)
(newline) (newline)
(print "Found: " (member-records->string mrs)) (print "Found: " (member-records->string mrs))
(-action- 'no-op)
#f) #f)
(else (else
(car mrs)))) (car mrs))))
@ -235,6 +239,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(if mr (if mr
(edit-file (member-file-path mr)) (edit-file (member-file-path mr))
(print "No member to edit."))) (print "No member to edit.")))
((no-op) (void))
(else (else
(print "Nothing to do.")) (print "Nothing to do."))