diff --git a/database.lisp b/database.lisp index 575a1c1..912e994 100644 --- a/database.lisp +++ b/database.lisp @@ -30,6 +30,20 @@ (active :integer) (created-date :integer) (last-login :integer)))) - - (format t "Database collections initialized~%")) + + (unless (db:collection-exists-p "playlist_tracks") + (db:create "playlist_tracks" '((track_id :integer) + (position :ingeger) + (added_date :timestamp)))) + + ;; TODO: the radiance db interface is too basic to contain anything + ;; but strings, integers, booleans, and maybe timestamps... we will + ;; need to rethink this. currently track/playlist relationships are + ;; defined in the SQL file 'init-db.sql' referenced in the docker + ;; config for postgresql, but our lisp code doesn't leverage it. + + ;; (unless (db:collection-exists-p "sessions") + ;; (db:create "sessions" '(()))) + + (l:info "~2&Database collections initialized~%")) diff --git a/docker/radiance-default.conf.lisp b/docker/radiance-default.conf.lisp index 8c97ebe..1f18116 100644 --- a/docker/radiance-default.conf.lisp +++ b/docker/radiance-default.conf.lisp @@ -1,20 +1,20 @@ ; meta (:version 1.0 :package "RADIANCE-CORE") ((:interfaces (:admin . "r-simple-admin") (:auth . "r-simple-auth") - (:ban . "r-simple-ban") (:cache . "r-simple-cache") - (:data-model . "r-simple-model") (:database . "i-lambdalite") - (:relational-database . "i-sqlite") (:logger . "i-verbose") - (:mail . "i-smtp") (:profile . "r-simple-profile") (:rate . "r-simple-rate") - (:server . "i-hunchentoot") (:session . "r-simple-sessions") - (:user . "r-simple-users")) + (:ban . "r-simple-ban") (:cache . "r-simple-cache") + (:data-model . "r-simple-model") (:database . "i-lambdalite") + (:relational-database . "i-sqlite") (:logger . "i-verbose") + (:mail . "i-smtp") (:profile . "r-simple-profile") (:rate . "r-simple-rate") + (:server . "i-hunchentoot") (:session . "r-simple-sessions") + (:user . "r-simple-users")) (:versions . [hash-table equal ("radiance-core" :|2.2.0|) ("i-hunchentoot" :|1.1.0|) - ("asteroid" :|0.0.0|) ("i-log4cl" :|1.0.0|) ("r-clip" :|1.0.0|) - ("r-data-model" :|1.0.1|) ("i-lambdalite" :|1.0.0|) - ("r-simple-users" :|1.0.1|) - ("r-simple-errors" :|1.0.0|) ("i-verbose" :|1.0.0|) - ("r-simple-auth" :|1.0.0|) ("r-simple-sessions" :|1.0.1|) - ("r-ratify" :|1.0.0|) ("r-simple-rate" :|1.0.0|) - ("r-simple-profile" :|1.0.0|)]) - (:domains "radiance" "localhost") + ("asteroid" :|0.0.0|) ("i-log4cl" :|1.0.0|) ("r-clip" :|1.0.0|) + ("r-data-model" :|1.0.1|) ("i-lambdalite" :|1.0.0|) + ("r-simple-users" :|1.0.1|) + ("r-simple-errors" :|1.0.0|) ("i-verbose" :|1.0.0|) + ("r-simple-auth" :|1.0.0|) ("r-simple-sessions" :|1.0.1|) + ("r-ratify" :|1.0.0|) ("r-simple-rate" :|1.0.0|) + ("r-simple-profile" :|1.0.0|)]) + (:domains "asteroid" "radiance" "asteroid.radio" "localhost") (:startup :r-simple-errors :r-simple-sessions) (:routes) (:debugger . :if-swank-connected))