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)))