cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

steps towards creating auth cookie

Browse source
This commit is contained in:
Helmut Merz 2025-01-24 21:47:58 +01:00
parent 3cf5700a3d
commit 95542a0f5a
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lib/auth/web.lisp
View file

@ -5,10 +5,17 @@
(:local-nicknames (:auth :scopes-auth) (:local-nicknames (:auth :scopes-auth)
(:config :scopes/config) (:config :scopes/config)
(:core :scopes/core) (:core :scopes/core)
(:jwt :scopes/web/jwt)
(:server :scopes/web/server)
(:shape :scopes/shape)
(:util :scopes/util)) (:util :scopes/util))
(:export #:login)) (:export #:login))
(in-package :scopes-auth/web) (in-package :scopes-auth/web)
(defun login (ctx msg) (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)))