;;;; cl-scopes/lib/auth/web - authentication web interface

(defpackage :scopes-auth/web
  (:use :common-lisp)
  (:local-nicknames (:auth :scopes-auth)
                    (:config :scopes/config)
                    (:core :scopes/core)
                    (:jwt :scopes/web/jwt)
                    (:message :scopes/core/message)
                    (:server :scopes/web/server)
                    (:shape :scopes/shape)
                    (:util :scopes/util))
  (:export #:login #:login-form))

(in-package :scopes-auth/web)

(defun login-form (ctx msg)
  (let ((msg (message:create '(:html :render :form :login)
                             :data '(:fields (:login :password) :button "Login")
                             :sender (message:sender msg))))
    (core:echo ctx msg)))

(defun login (ctx msg)
  (let* ((prc (auth:login (shape:data msg))))
    ;(jwt:create ...)
    ;(server:set-cookie ctx ...)
    ;(core:echo ctx ...) ; render htmx response
    (core:echo ctx msg)))