aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--app/app.lisp84
1 files changed, 0 insertions, 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))