include i-postgmodern interface for postgres.

Conflicts:
	asteroid.asd
This commit is contained in:
Brian O'Reilly 2025-11-23 19:57:29 -05:00 committed by Brian O'Reilly
parent d2508451d0
commit 6c2ed75b15
2 changed files with 14 additions and 12 deletions

View File

@ -28,6 +28,9 @@
:bordeaux-threads :bordeaux-threads
:drakma :drakma
;; radiance interfaces ;; radiance interfaces
:i-log4cl
:i-postmodern
:r-clip
:r-data-model :r-data-model
(:interface :auth) (:interface :auth)
(:interface :database) (:interface :database)

View File

@ -1,17 +1,16 @@
;;;; Radiance PostgreSQL Configuration for Asteroid Radio ;;;; Radiance PostgreSQL Configuration for Asteroid Radio
;;;; This file configures Radiance to use PostgreSQL instead of the default database ;;;; This file configures Radiance to use PostgreSQL instead of the default database
(in-package #:radiance-user) (in-package #:i-postmodern)
;; PostgreSQL Database Configuration ;; PostgreSQL Database Configuration
(setf (config :database :connection) (setf (config :default) :main
'(:type :postgres ;; (config :connections :default) :main
:host "localhost" ; Change to "asteroid-postgres" when running in Docker (config :connections :main :host) "localhost"
;; :host "asteroid-postgres" (config :connections :main :port) 5432
:port 5432 (config :connections :main :user) "asteroid"
:database "asteroid" (config :connections :main :pass) "asteroid_db_2025"
:username "asteroid" (config :connections :main :database) "asteroid")
:password "asteroid_db_2025"))
;; Alternative Docker configuration (uncomment when running Asteroid in Docker) ;; Alternative Docker configuration (uncomment when running Asteroid in Docker)
;; (setf (config :database :connection) ;; (setf (config :database :connection)
@ -33,6 +32,6 @@
(setf (config :database :pool-size) 10) (setf (config :database :pool-size) 10)
(setf (config :database :pool-timeout) 30) (setf (config :database :pool-timeout) 30)
(format t "~%✅ Radiance configured for PostgreSQL~%") ;; (format t "~%✅ Radiance configured for PostgreSQL~%")
(format t "Database: asteroid@localhost:5432~%") ;; (format t "Database: asteroid@localhost:5432~%")
(format t "Connection pooling: enabled (10 connections)~%~%") ;; (format t "Connection pooling: enabled (10 connections)~%~%")