From b5b0204d6742c68a90a6388593b980864ae301c3 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sun, 13 Mar 2022 10:58:19 -0500 Subject: removed old main --- app/app.lisp | 84 ------------------------------------------------------------ 1 file changed, 84 deletions(-) diff --git a/app/app.lisp b/app/app.lisp index affb0b7..d2dd902 100644 --- a/app/app.lisp +++ b/app/app.lisp @@ -279,87 +279,3 @@ than the users." (help :item group) (help))) -;; (defun main () -;; "Entry point for our standalone application." -;; (make-context) -;; (cli:with-local-state -;; (let ((arguments (remainder))) -;; (cond -;; ((getopt :long-name "version") -;; (format t "Oneliner CLI Version: ~a~%" +ol-version+)) -;; ((getopt :long-name "help") -;; (if (and arguments (find-group-with-header (first arguments))) -;; (help :item (find-group-with-header (first arguments))) -;; (help))) -;; ((getopt :long-name "whois") -;; (assert (first arguments) () "--whois requires an argument, a user handle.") -;; (cli::show-contributor (first arguments))) - -;; ((getopt :long-name "redeem") -;; (assert (= 3 (length arguments)) () "--redeem requires exatly three arguments.") -;; (destructuring-bind (token name pass) arguments -;; (cli::redeem-invite token name pass))) - -;; ((getopt :long-name "login") -;; (assert (= 2 (length arguments)) () "--login requires exactly two arguments.") -;; (destructuring-bind (user pass) arguments -;; (cli::login user pass))) - -;; ((getopt :long-name "change-password") -;; (assert (= 3 (length arguments)) () "--change-password requires exactly three arguments." ) -;; (destructuring-bind (current new repeated) arguments -;; (cli::change-pw current new repeated))) - -;; ((getopt :long-name "change-signature") -;; (cli::change-signature)) - -;; ((getopt :long-name "invite") -;; (cli::request-invite-code)) - -;; ((getopt :long-name "logout") -;; (cli::revoke-access)) - -;; ((getopt :long-name "add") -;; (cli::add-new-oneliner)) - -;; ((and (null arguments) (getopt :long-name "all-flagged")) -;; (cli::all-flagged-oneliners (getopt :long-name "limit"))) - -;; ((and (null arguments) (getopt :long-name "newest")) -;; (cli::newest-oneliners (getopt :long-name "limit"))) - -;; ((getopt :long-name "clear-cache") -;; (cli::wipe-cache)) - -;; (arguments -;; (destructuring-bind (id-or-name . args) (prepare-oneliner-arguments arguments) -;; (cond -;; ((getopt :long-name "flag") -;; (cli::flag-item id-or-name )) -;; ((getopt :long-name "unflag") -;; (cli::unflag-item id-or-name)) -;; ((getopt :long-name "lock") -;; (cli::lock-item id-or-name )) -;; ((getopt :long-name "unlock") -;; (cli::unlock-item id-or-name )) -;; ((getopt :long-name "edit") -;; (cli::edit-item id-or-name )) -;; ((getopt :long-name "show") -;; (cli::print-item-explanation id-or-name)) -;; ((getopt :long-name "clip") -;; (cli::run-item id-or-name args -;; :force-clip t -;; :timeout (getopt :long-name "timeout"))) -;; ((getopt :long-name "run") -;; (cli::run-item id-or-name args -;; :timeout (getopt :long-name "timeout"))) - -;; (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")))))) -;; (t ; no arguments and no options, print help -;; (help))))) -;; (uiop:quit)) -- cgit v1.2.3