From 95542a0f5af22b350e64f18f66ece8d9260b4db5 Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Fri, 24 Jan 2025 21:47:58 +0100
Subject: [PATCH] steps towards creating auth cookie

---
 lib/auth/web.lisp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lib/auth/web.lisp b/lib/auth/web.lisp
index 2d837db..25bf71c 100644
--- a/lib/auth/web.lisp
+++ b/lib/auth/web.lisp
@@ -5,10 +5,17 @@
   (:local-nicknames (:auth :scopes-auth)
                     (:config :scopes/config)
                     (:core :scopes/core)
+                    (:jwt :scopes/web/jwt)
+                    (:server :scopes/web/server)
+                    (:shape :scopes/shape)
                     (:util :scopes/util))
   (:export #:login))
 
 (in-package :scopes-auth/web)
 
 (defun login (ctx msg)
-  (core:echo 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)))