blob: 67f418302a9c238d4b2a2ef767aa90c38370abf5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
;;;; arclade.lisp
(in-package #:arclade)
;;; CONFIGURATION
(defvar *config* nil)
(defclass/std config ()
((datastore-directory :ir :std (local-store-path))
(swank-port :std nil :doc "If set, swank is started on this port.")
(host :std "0.0.0.0")
(port :ir :std 8888)
(steam-key :ia :std "")
(steam-user-id :ia :std "")))
(defun config-from-file (path)
"PATH should be a path to a file containing a PLIST suitable for
passing as the keyword arguments to (MAKE-INSTANCE 'CONFIG ...)"
(apply #'make-instance 'config (read-from-file path)))
;;; DATASTORE
(defun local-store-path ()
(merge-pathnames "store/" (asdf:system-source-directory :arclade)))
(defun init-db (config)
"Initializes the data store with values from the CONFIG."
(ensure-directories-exist (datastore-directory config))
(unless (boundp 'db:*store*)
(make-instance
'db:mp-store
:directory (datastore-directory config)
:subsystems (list (make-instance 'db:store-object-subsystem)))))
;;; WEB SERVER
(defvar *server* nil
"The instance of the HTTP server")
(lzb:provision-app ()
:title "Arclade"
:version "0.1.0"
:content-type "text/html")
(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*))
(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)))))))))))
|
