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

auto indented

Browse source
This commit is contained in:
Shaka Chen 2022-06-03 17:29:53 +08:00
parent c448aae9cf
commit c7669ca1af
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

24
source/clog-web-dbi.lisp
View file

@ -321,18 +321,18 @@ and if CAN-EDIT unless they are set to nil."
(list :content pages
:do-add (when (clog-auth:is-authorized-p roles can-edit)
(lambda (content)
(push (list sql-timestamp-func) content)
(push :createdate content)
(push page content)
(push :key content)
(push page content)
(push :username content)
(when on-new
(setf content (funcall on-new content)))
(when content
(dbi:do-sql
sql-connection
(sql-insert* table content)))))))
(push (list sql-timestamp-func) content)
(push :createdate content)
(push page content)
(push :key content)
(push page content)
(push :username content)
(when on-new
(setf content (funcall on-new content)))
(when content
(dbi:do-sql
sql-connection
(sql-insert* table content)))))))
(dolist (content pages)
(when content
(when on-content