;;;; package.lisp

(defpackage #:cl-oid-connect.utils
  (:use #:cl #:alexandria #:anaphora #:fwoar.lisputils #:ningle)
  (:export #:vars-to-symbol-macrolets #:with-session-values #:with-endpoints
           #:with-session #:def-route #:gen-state #:valid-state #:my-with-context-variables
           #:string-assoc #:assoc-cdr #:define-auth-entry-point #:define-auth-callback
           #:reject-when-state-invalid #:auth-callback-skeleton #:ensure-logged-in
           #:setup-oid-connect #:check-login #:require-login #:redirect-if-necessary
           #:*oid* #:user-not-logged-in))

(defpackage #:cl-oid-connect.objects
  (:use #:cl #:alexandria #:anaphora #:fwoar.lisputils #:cl-oid-connect.utils #:sheeple)
  (:export #:*fbook-info* #:*goog-info* #:*fbook-endpoint-schema* #:*goog-endpoint-schema*
           #:get-user-info #:get-access-token #:client-id #:secret #:redirect-uri
           #:token-endpoint #:discover-endpoints #:do-auth-request))

(defpackage #:cl-oid-connect
  (:use
    #:cl #:alexandria #:anaphora #:clack #:cl-json #:cljwt #:cl-who #:drakma
    ;#:lack-middleware-session
    #:iterate #:ningle #:lquery #:plump #:sheeple #:fwoar.lisputils
    #:cl-oid-connect.objects #:cl-oid-connect.utils)
  (:export
    #:redirect-if-necessary #:def-route #:require-login #:oauth2-login-middleware #:with-session
    #:assoc-cdr #:session #| private!! |# #:vars-to-symbol-macrolets #:initialize-oid-connect
    #:run-callback-function))

(in-package :cl-oid-connect.objects)

(defvar *fbook-info*)
(defvar *goog-info*)
(defvar *endpoint-schema*)