diff options
Diffstat (limited to 'src/app.lisp')
| -rw-r--r-- | src/app.lisp | 11 |
1 files changed, 6 insertions, 5 deletions
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) |