20 lines
773 B
Common Lisp
20 lines
773 B
Common Lisp
;;;; cl-scopes/web/cookie - interface to cl-cookie for simplified access
|
|
|
|
(defpackage :scopes/web/cookie
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:c cl-cookie))
|
|
(:export #:create #:create-from-keys #:make-header))
|
|
|
|
(in-package :scopes/web/cookie)
|
|
|
|
(defun create (name value &rest args &key &allow-other-keys)
|
|
(apply #'create-from-keys :name name :value value args))
|
|
|
|
(defun create-from-keys (&key name value domain (same-site :lax)
|
|
(max-age 86400) (path "/") (httponly-p t)
|
|
&allow-other-keys)
|
|
(c:make-cookie :name name :value value :domain domain :same-site same-site
|
|
:max-age max-age :path path :httponly-p httponly-p))
|
|
|
|
(defun make-header (cookie)
|
|
(c:write-set-cookie-header cookie))
|