aboutsummaryrefslogtreecommitdiff
path: root/app/app.lisp
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-03-14 08:15:27 -0500
committerColin Okay <okay@toyful.space>2022-03-14 08:15:27 -0500
commit86f7cdb2ce0f99aee0328617999f35b63694b4a6 (patch)
treebbb87135612b2f0d08874d0bc8c5e6dbef3f8f11 /app/app.lisp
parentf18dddd766af9e06ba4f66487701322de495de59 (diff)
argument checking for run and clip
Diffstat (limited to 'app/app.lisp')
-rw-r--r--app/app.lisp2
1 files changed, 2 insertions, 0 deletions
diff --git a/app/app.lisp b/app/app.lisp
index 69cc42c..3277521 100644
--- a/app/app.lisp
+++ b/app/app.lisp
@@ -280,10 +280,12 @@ than the users."
(uiop:quit))))
(:run
+ (help-and-quit-unless "run" id-or-name)
(cli:run-item id-or-name (rest args)
:timeout (getopt :long-name "timeout")
:draftp (getopt :long-name "draft")))
(:clip
+ (help-and-quit-unless "clip" id-or-name)
(cli:run-item id-or-name (rest args)
:force-clip t
:draftp (getopt :long-name "draft")))