From 18e44a06ddf3a379159afcaf14dd96800b54ebf2 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sun, 6 Mar 2022 11:34:25 -0600
Subject: moved prompt into its own package

---
 src/app.lisp | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'src/app.lisp')

diff --git a/src/app.lisp b/src/app.lisp
index 812081f..c3b4c0a 100644
--- a/src/app.lisp
+++ b/src/app.lisp
@@ -186,9 +186,6 @@ than the users."
                   (string-equal header (net.didierverna.clon::header item)))
           return item))
 
-
-;;; MAIN ENTRY POINT
-
 (defun prepare-oneliner-arguments (arguments)
   "Takes a list of arguments, as gathered by (REMAINDER), and returns
   a list that looks like (ID-OR-NAME . ARGS) where ID-OR-NAME is
@@ -197,6 +194,8 @@ than the users."
     (cons id (rest arguments))
     arguments))
 
+;;; MAIN ENTRY POINT
+
 (defun main ()
   "Entry point for our standalone application."
   (make-context)
@@ -272,14 +271,16 @@ than the users."
                ((getopt :long-name "run")
                 (cli::run-item id-or-name args
                                :timeout (getopt :long-name "timeout")))
-               (t 
+
+               (t                       ; arguments but no overriding flags, search wiki
                 (cli::search-for-oneliners arguments
                                            (getopt :long-name "limit")
                                            (getopt :long-name "not-flagged")
                                            (getopt :long-name "all-flagged")
                                            (getopt :long-name "newest")))))
            (uiop:quit))
-          (t
+
+          (t                            ; no arguments and no options, print help
            (help)))
         (uiop:quit))
     (error (e)
-- 
cgit v1.2.3