From 71637c96bd277364306abebf4add4e34a93325ff Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Fri, 5 Aug 2022 12:45:51 -0500
Subject: [add] account interface, updated asd file

---
 app/account.lisp  | 93 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 app/app.lisp      | 17 ++--------
 app/app.orig.lisp |  2 +-
 3 files changed, 96 insertions(+), 16 deletions(-)
 create mode 100644 app/account.lisp

(limited to 'app')

diff --git a/app/account.lisp b/app/account.lisp
new file mode 100644
index 0000000..7d4b749
--- /dev/null
+++ b/app/account.lisp
@@ -0,0 +1,93 @@
+;;;; account.lisp
+
+(in-package :oneliners.cli.app )
+
+
+(defhandler account/login/handler (username password)
+  (ol:login username password))
+
+(defun account/login/command ()
+  (cli:make-command
+   :name "login"
+   :usage "<USERNAME> <PASSWORD>"
+   :description "obtains an API access key and stores it locally"
+   :handler #'account/login/command))
+
+(defun account/logout/handler (cmd)
+  (declare (ignore cmd))
+  (ol:revoke-access))
+
+(defun account/logout/command ()
+  (cli:make-command
+   :name "logout"
+   :description "revokes access for the currently stored key"
+   :handler #'account/logout/command))
+
+(defun account/signature/handler (cmd)
+  (declare (ignore cmd))
+  (ol:change-signature))
+
+(defun account/signature/command ()
+  (cli:make-command
+   :name "signature"
+   :description "a signature is text users seen when they do `ol account whois <you>`"
+   :handler #'account/signature/handler))
+
+(defhandler account/password/handler (old new)
+  (ol:change-pw old new new))
+
+(defun account/password/command ()
+  (cli:make-command
+   :name "password"
+   :usage "<OLDPW> <NEWPW>"
+   :description "change your password"
+   :handler #'account/password/handler))
+
+(defhandler account/whois/handler (nick)
+  (ol:show-contributor nick))
+
+(defun account/whois/command ()
+  (cli:make-command
+   :name "whois"
+   :description "View the user's signature, if they have one."
+   :handler #'account/whois/command))
+
+(defun account/invite/handler (cmd)
+  (declare (ignore cmd))
+  (ol:request-invite-code))
+
+(defun account/invite/command ()
+  (cli:make-command
+   :name "invite"
+   :description "request an invite token from the server"
+   :handler #'account/invite/handler))
+
+(defhandler account/redeem/handler (token name password)
+  (ol:redeem-invite token name password))
+
+(defun account/redeem/command ()
+  (cli:make-command
+   :name "redeem"
+   :usage "<TOKEN> <NEW-USERNAME> <NEW-PASSWORD>"
+   :handler #'account/redeem/handler
+   :description "redeem an invite token to create a new contributor account"))
+
+(defun account/subcommands ()
+  (list
+   (account/login/command)
+   (account/logout/command)
+   (account/signature/command)
+   (account/password/command)
+   (account/whois/command)
+   (account/invite/command)
+   (account/redeem/command)))
+
+(defun account/handler (cmd)
+  (cli:print-usage-and-exit cmd t))
+
+(defun account/command ()
+  (cli:make-command
+   :name "account"
+   :description "commands having to do with user accounts"
+   :handler #'account/handler
+   :sub-commands (account/subcommands)))
diff --git a/app/app.lisp b/app/app.lisp
index 46ef74b..0ed0b45 100644
--- a/app/app.lisp
+++ b/app/app.lisp
@@ -33,21 +33,8 @@
    (clip/command)
    (show/command)
    (draft/command)
-   (modify/command)))
-
-
-;; ol account login <USER> <PW>
-;; ol account logout
-;; ol account signature <new sig>
-;; ol account password <new pw> <repeat>
-;; ol account whois <user>
-;; ol invite new
-;; ol invite redeem
-
-;; ol account use <SERVER> ;; for switchign servers
-
-;; new edit delete publish trash drafts flag unflag lockated unlock
-;; redeem login logout password signature whois
+   (modify/command)
+   (account/command)))
 
 (defun toplevel/handler (cmd)
   "Prints usage statement and then exits"
diff --git a/app/app.orig.lisp b/app/app.orig.lisp
index e83bd66..1015d1e 100644
--- a/app/app.orig.lisp
+++ b/app/app.orig.lisp
@@ -103,7 +103,7 @@ Their meaning is as follows:
           collect (apply 'format nil row-format group)))))
 
 (defsynopsis (:postfix "COMMAND [ARGS...]")
-  (group (:header "SEARCHING FOR ONELINERS" :hidden t)
+    (group (:header "SEARCHING FOR ONELINERS" :hidden t)
          (text :contents "Usage: ol [OPTIONS] search [TERMS...]")
          (text :contents " ")
          (text :contents "Search for oneliners that have been tagged with all of TERMS.")
-- 
cgit v1.2.3