From b5b0204d6742c68a90a6388593b980864ae301c3 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sun, 13 Mar 2022 10:58:19 -0500
Subject: removed old main

---
 app/app.lisp | 84 ------------------------------------------------------------
 1 file changed, 84 deletions(-)

(limited to 'app')

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