glenn
/
asteroid
mirror of https://github.com/glenneth1/asteroid.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

startup toggles

This commit is contained in:
Brian O'Reilly 2025-11-11 12:04:06 -05:00
parent f0b03255b8
commit 7c569ca4f6
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
asteroid.lisp
View File

@ -848,11 +848,10 @@
(compile-styles) ; Generate CSS file using LASS (compile-styles) ; Generate CSS file using LASS
;; Ensure RADIANCE environment is properly set before startup ;; Ensure RADIANCE environment is properly set before startup
(unless (radiance:environment) ;; (unless (radiance:environment)
(setf (radiance:environment) "default")) ;; (setf (radiance:environment) "asteroid"))
(radiance:startup) (radiance:startup))
(format t "Server started! Visit http://localhost:~a/asteroid/~%" port))
(defun stop-server () (defun stop-server ()
"Stop the Asteroid Radio RADIANCE server" "Stop the Asteroid Radio RADIANCE server"
@ -874,13 +873,14 @@
(defun ensure-radiance-environment () (defun ensure-radiance-environment ()
"Ensure RADIANCE environment is properly configured for persistence" "Ensure RADIANCE environment is properly configured for persistence"
(unless (radiance:environment) (unless (radiance:environment)
(setf (radiance:environment) "default")) (setf (radiance:environment) "asteroid"))
;; Ensure the database directory exists (log:info "~2&:configuration - ~A~%:cache - ~A~%:data - ~A~%:template - ~A~%:static - ~A~2%"
(let ((db-dir (merge-pathnames ".config/radiance/default/i-lambdalite/radiance.db/" (radiance:environment-directory (radiance-core:environment) :configuration)
(user-homedir-pathname)))) (radiance:environment-directory (radiance-core:environment) :cache)
(ensure-directories-exist db-dir) (radiance:environment-directory (radiance-core:environment) :data)
(format t "Database directory: ~a~%" db-dir))) (radiance:environment-directory (radiance-core:environment) :template)
(radiance:environment-directory (radiance-core:environment) :static)))
(defun -main (&optional args (debug t)) (defun -main (&optional args (debug t))
(declare (ignorable args)) (declare (ignorable args))