small moves, ellie. small moves.

database.lisp

@@ -31,5 +31,19 @@
                          (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~%"))
 

docker/radiance-default.conf.lisp

@@ -15,6 +15,6 @@
   ("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")
+ (:domains "asteroid" "radiance" "asteroid.radio" "localhost")
  (:startup :r-simple-errors :r-simple-sessions) (:routes)
  (:debugger . :if-swank-connected))