mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 18:50:42 -08:00
update documentation, remove tabs
This commit is contained in:
David Botton
parent
2c9ce0864f
commit
25a9462f1f
84 changed files with 2163 additions and 2278 deletions
|
|
@ -32,13 +32,13 @@
|
|||
|
||||
; Menu Menu Item URL Handler Actions Auth
|
||||
(defparameter *menu* `(("Features" (("Home" "/")
|
||||
("Login" "/login" on-login :login)
|
||||
("Signup" "/signup" on-signup :signup)
|
||||
("Change Password" "/pass" on-new-pass :change-password)
|
||||
("Content" "/content" on-main :content)
|
||||
("Logout" "/logout" on-logout :logout)))
|
||||
("Admin" (("User List" "/users" on-users :users)))
|
||||
("Help" (("About" "/content/about"))))
|
||||
("Login" "/login" on-login :login)
|
||||
("Signup" "/signup" on-signup :signup)
|
||||
("Change Password" "/pass" on-new-pass :change-password)
|
||||
("Content" "/content" on-main :content)
|
||||
("Logout" "/logout" on-logout :logout)))
|
||||
("Admin" (("User List" "/users" on-users :users)))
|
||||
("Help" (("About" "/content/about"))))
|
||||
"Setup website menu")
|
||||
|
||||
(defun start-tutorial ()
|
||||
|
|
@ -47,8 +47,8 @@
|
|||
(add-authorization '(:guest :member) '(:content-show-comments))
|
||||
(add-authorization '(:guest) '(:login :signup))
|
||||
(add-authorization '(:member) '(:logout
|
||||
:change-password
|
||||
:content-comment))
|
||||
:change-password
|
||||
:content-comment))
|
||||
(add-authorization '(:editor) '(:content-edit))
|
||||
(add-authorization '(:admin) '(:users :content-admin))
|
||||
;; Setup database connection
|
||||
|
|
@ -65,17 +65,17 @@
|
|||
(create-base-tables *sql-connection*)
|
||||
;; A main page was added, but let's also add an about page:
|
||||
(dbi:do-sql
|
||||
*sql-connection*
|
||||
(sql-insert* "content" `(:key "about"
|
||||
:title "About Tutorial 32"
|
||||
:value "All about me."
|
||||
:createdate (,*sqlite-timestamp*))))))
|
||||
*sql-connection*
|
||||
(sql-insert* "content" `(:key "about"
|
||||
:title "About Tutorial 32"
|
||||
:value "All about me."
|
||||
:createdate (,*sqlite-timestamp*))))))
|
||||
;; Setup clog
|
||||
(initialize 'on-main
|
||||
:long-poll-first t
|
||||
:extended-routing t
|
||||
:boot-function (clog-web-meta
|
||||
"clogpower.com - CLOG - the common lisp omnificent gui"))
|
||||
:long-poll-first t
|
||||
:extended-routing t
|
||||
:boot-function (clog-web-meta
|
||||
"clogpower.com - CLOG - the common lisp omnificent gui"))
|
||||
(clog-web-routes-from-menu *menu*)
|
||||
(open-browser))
|
||||
|
||||
|
|
@ -90,27 +90,27 @@
|
|||
(clog-web-initialize body)
|
||||
;; Instantly reload other windows open on authentication change
|
||||
(set-on-authentication-change body (lambda (body)
|
||||
(url-replace (location body) "/")))
|
||||
(url-replace (location body) "/")))
|
||||
;; Initialzie the clog-web-site environment
|
||||
(let ((profile (get-profile body *sql-connection*)))
|
||||
(create-web-site body
|
||||
:settings '(:color-class "w3-blue-gray"
|
||||
:border-class ""
|
||||
:signup-link "/signup"
|
||||
:login-link "/login")
|
||||
:profile profile
|
||||
;; We define the roles simply if logged out a :guest
|
||||
;; if logged in a :member and if username is admin
|
||||
;; a :member, :editor and :admin.
|
||||
:roles (if profile
|
||||
(if (equalp "admin"
|
||||
(getf profile :|username|))
|
||||
'(:member :editor :admin)
|
||||
'(:member))
|
||||
'(:guest))
|
||||
:title "CLOG - The Common Lisp Omnificent GUI"
|
||||
:footer "(c) 2022 David Botton"
|
||||
:logo "/img/clog-liz.png")))
|
||||
:settings '(:color-class "w3-blue-gray"
|
||||
:border-class ""
|
||||
:signup-link "/signup"
|
||||
:login-link "/login")
|
||||
:profile profile
|
||||
;; We define the roles simply if logged out a :guest
|
||||
;; if logged in a :member and if username is admin
|
||||
;; a :member, :editor and :admin.
|
||||
:roles (if profile
|
||||
(if (equalp "admin"
|
||||
(getf profile :|username|))
|
||||
'(:member :editor :admin)
|
||||
'(:member))
|
||||
'(:guest))
|
||||
:title "CLOG - The Common Lisp Omnificent GUI"
|
||||
:footer "(c) 2022 David Botton"
|
||||
:logo "/img/clog-liz.png")))
|
||||
|
||||
;;
|
||||
;; URL Path Handlers
|
||||
|
|
@ -122,14 +122,14 @@
|
|||
(create-web-page
|
||||
body
|
||||
:login `(:menu ,*menu*
|
||||
:on-submit ,(lambda (obj)
|
||||
(if (login body *sql-connection*
|
||||
(name-value obj "username")
|
||||
(name-value obj "password"))
|
||||
(url-replace (location body) "/")
|
||||
(clog-web-alert obj "Invalid" "The username and password are invalid."
|
||||
:time-out 3
|
||||
:place-top t))))
|
||||
:on-submit ,(lambda (obj)
|
||||
(if (login body *sql-connection*
|
||||
(name-value obj "username")
|
||||
(name-value obj "password"))
|
||||
(url-replace (location body) "/")
|
||||
(clog-web-alert obj "Invalid" "The username and password are invalid."
|
||||
:time-out 3
|
||||
:place-top t))))
|
||||
:authorize t))
|
||||
|
||||
(defun on-logout (body)
|
||||
|
|
@ -139,45 +139,45 @@
|
|||
(defun on-signup (body)
|
||||
(init-site body)
|
||||
(create-web-page body
|
||||
:signup `(:menu ,*menu*
|
||||
:content ,(lambda (body)
|
||||
(sign-up body *sql-connection*)))
|
||||
:authorize t))
|
||||
:signup `(:menu ,*menu*
|
||||
:content ,(lambda (body)
|
||||
(sign-up body *sql-connection*)))
|
||||
:authorize t))
|
||||
|
||||
(defun on-main (body)
|
||||
(init-site body)
|
||||
(create-web-page body :index `(:menu ,*menu*
|
||||
:content ,(clog-web-content *sql-connection*
|
||||
:comment-table "content"))))
|
||||
:content ,(clog-web-content *sql-connection*
|
||||
:comment-table "content"))))
|
||||
|
||||
(defun on-users (body)
|
||||
(init-site body)
|
||||
(create-web-page body :users
|
||||
`(:menu ,*menu*
|
||||
:content ,(lambda (body)
|
||||
(let ((users (dbi:fetch-all
|
||||
(dbi:execute
|
||||
(dbi:prepare
|
||||
*sql-connection*
|
||||
"select * from users")))))
|
||||
(dolist (user users)
|
||||
(let* ((box (create-div body))
|
||||
(suser (create-span box :content (getf user :|username|)))
|
||||
(rbut (create-button box :content "Reset Password"
|
||||
:class "w3-margin-left")))
|
||||
(declare (ignore suser))
|
||||
(set-on-click rbut (lambda (obj)
|
||||
(declare (ignore obj))
|
||||
(reset-password *sql-connection*
|
||||
(getf user :|username|))
|
||||
(setf (disabledp rbut) t)
|
||||
(setf (text rbut) "Done"))))))))
|
||||
:authorize t))
|
||||
`(:menu ,*menu*
|
||||
:content ,(lambda (body)
|
||||
(let ((users (dbi:fetch-all
|
||||
(dbi:execute
|
||||
(dbi:prepare
|
||||
*sql-connection*
|
||||
"select * from users")))))
|
||||
(dolist (user users)
|
||||
(let* ((box (create-div body))
|
||||
(suser (create-span box :content (getf user :|username|)))
|
||||
(rbut (create-button box :content "Reset Password"
|
||||
:class "w3-margin-left")))
|
||||
(declare (ignore suser))
|
||||
(set-on-click rbut (lambda (obj)
|
||||
(declare (ignore obj))
|
||||
(reset-password *sql-connection*
|
||||
(getf user :|username|))
|
||||
(setf (disabledp rbut) t)
|
||||
(setf (text rbut) "Done"))))))))
|
||||
:authorize t))
|
||||
|
||||
(defun on-new-pass (body)
|
||||
(init-site body)
|
||||
(create-web-page body
|
||||
:change-password `(:menu ,*menu*
|
||||
:content ,(lambda (body)
|
||||
(change-password body *sql-connection*)))
|
||||
:authorize t))
|
||||
:change-password `(:menu ,*menu*
|
||||
:content ,(lambda (body)
|
||||
(change-password body *sql-connection*)))
|
||||
:authorize t))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue