diff options
Diffstat (limited to 'arclade.lisp')
| -rw-r--r-- | arclade.lisp | 21 |
1 files changed, 17 insertions, 4 deletions
diff --git a/arclade.lisp b/arclade.lisp index eb34688..67f4183 100644 --- a/arclade.lisp +++ b/arclade.lisp @@ -46,7 +46,20 @@ (defun start () (setf *config* (config-from-file #P"config.lisp")) (init-db *config*) - ;; (setf *server* (lzb:create-server)) - ;; (lzb:install-app *server* (lzb:app 'arclade)) - ;; (lzb:start-server *server*) - ) + (setf *server* (lzb:create-server)) + (lzb:install-app *server* (lzb:app 'arclade)) + (lzb:start-server *server*)) + +(defendpoint* :get "/" () () + (with-page (:title "Records of Raditude") + (:div + :class "container" + (dolist (game (all-games)) + (let ((feats (feats-fulfilled game))) + (unless (null feats) + (:div + :class "game" + (:h2 (name game)) + (:div :class "feats" + (dolist (feat feats) + (:div :class "feat" (render feat))))))))))) |