mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

Theme helpers and better theming

Browse source
This commit is contained in:
David Botton 2022-04-26 22:43:59 -04:00
parent 99f7d663cb
commit 222b2c9d54
3 changed files with 132 additions and 93 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tutorial/31-tutorial.lisp
View file

@ -71,7 +71,9 @@
(let ((profile (get-profile body *sql-connection*)))
(create-web-site body
:settings '(:color-class "w3-blue-gray"
:border-class "")
:border-class ""
:signup-link "/signup"
:login-link "/login")
:profile profile
:roles (if profile
(if (equalp "admin"
@ -93,7 +95,6 @@
(create-web-page
body
:login `(:menu ,*menu*
:sign-up "/signup"
:on-submit ,(lambda (obj)
(if (login body *sql-connection*
(name-value obj "username")