From 14d7f7c425a04091e6982104f5c48d79bb528e89 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 21 Feb 2022 14:40:03 -0600
Subject: updated lib to use more conventional api forms

---
 src/lib.lisp | 51 +++++++++++++++++++++++++++++++--------------------
 1 file changed, 31 insertions(+), 20 deletions(-)

(limited to 'src/lib.lisp')

diff --git a/src/lib.lisp b/src/lib.lisp
index d174c6a..332dd07 100644
--- a/src/lib.lisp
+++ b/src/lib.lisp
@@ -92,15 +92,22 @@ the directories that appear in the value of that variable."
   (princ prompt out-stream) (force-output out-stream)
   (read-line in-stream))
 
+(defun history (&optional n)
+  (when (uiop:file-exists-p (last-search-file))
+    (let ((contents (with-open-file (input (last-search-file)) (read input)))) 
+      (if n
+          (nth n contents)
+          contents))))
+
 ;;; API REQUEST FUNCTIONS
 
-;; (defun flag-item (item-number)
-;;   (ensure-config)
-;;   (api:request-with
-;;       (:host (host))
-;;     (a:if-let ((token (api-token))
-;;                (oneliner (history item-number))) 
-;;       (api:patch--flag-oneliner (getf oneliner :id) :token token))))
+(defun flag-item (item-number)
+  (assert (plusp item-number) () "Item number must be ")
+  (ensure-config)
+  (api:request-with
+      (:host (host))
+    (a:when-let (oneliner (history (1- item-number))) 
+      (api:put--oneliner-entry-flag (getf oneliner :id) :token (api-token)))))
 
 (defun add-new-oneliner ()
   (ensure-config)
@@ -126,22 +133,26 @@ the directories that appear in the value of that variable."
                       :brief brief
                       :explanation explanation))
          :content-type "application/json")
-      (api:post--add-oneliner :token (api-token))
+      (api:post--oneliner :token (api-token))
       (format t "Added~%"))))
 
 (defun request-invite-code ()
   (ensure-config)
   (api:request-with
       (:host (host))
-    (format t "Invite Code: ~a~%"
-            (getf (jonathan:parse (api:post--make-invite :token (api-token))) :code))))
+    (let ((invite (api:post--invite :token (api-token))))
+      (format t "Invite Code: ~a~%Expires: ~a~%"
+              (getf invite :code)
+              (getf invite :expires)))))
 
 (defun login (user pass)
   (ensure-config)
   (a:when-let (response (jonathan:parse
                          (api:request-with
-                             (:host (host)) 
-                           (api:post--token-contributor user :password pass))))
+                             (:host (host)
+                              :body (jonathan:to-json (list :password pass :handle user))
+                              :content-type "application/json") 
+                           (api:post--access))))
     (setf (api-token) (getf response :token))
     (write-config-to-disk)
     (format t "Access token written to ~a~%" (config-file))))
@@ -149,11 +160,11 @@ the directories that appear in the value of that variable."
 (defun redeem-invite (token name pass) 
   (ensure-config )
   (api:request-with
-      (:host (host))
-    (api:post--redeem-invite token
-                             :username name
-                             :password1 pass
-                             :password2 pass)))
+      (:host (host)
+       :body (jonathan:to-json (list :handle name :password1 pass :password2 pass))
+       :content-type "application/json")
+    (api:post--invite-redeem-code token)
+    (format t "Account made for ~a. You may log in now~%" name)))
 
 (defun cache-search-results-to-last-search-file (results)
   (with-open-file (output (last-search-file) :direction :output :if-exists :supersede)
@@ -175,9 +186,9 @@ the directories that appear in the value of that variable."
   (let ((response
           (api:request-with
               (:host (host))
-            (api:get--search :tags (str:join "," terms)
-                             :limit limit
-                             :notflagged (if not-flagged-p "true" "false")))))
+            (api:get--oneliners :tags (str:join "," terms)
+                                :limit limit
+                                :notflagged (if not-flagged-p "true" "false")))))
     (handler-case 
         (a:when-let (oneliners
                      (getf (jonathan:parse response) :oneliners))
-- 
cgit v1.2.3