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

move main closer to my config branch in preperation for moving in totality.

This commit is contained in:
Brian O'Reilly 2025-11-11 11:16:32 -05:00
parent 7ed4515139
commit 5f91a81545
2 changed files with 23 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
asteroid.asd
View File

@ -11,24 +11,27 @@
:class "radiance:virtual-module" :class "radiance:virtual-module"
:depends-on (:slynk :depends-on (:slynk
:lparallel :lparallel
:radiance
:i-log4cl
:r-clip
:r-simple-rate
:r-simple-profile
:lass
:cl-json
:alexandria :alexandria
:cl-json
:radiance
:lass
:local-time :local-time
:taglib :taglib
:r-data-model
:ironclad :ironclad
:babel :babel
:cl-fad :cl-fad
:bordeaux-threads :bordeaux-threads
:drakma :drakma
;; radiance interfaces
:i-log4cl
:i-postmodern
:r-clip
:r-data-model
:r-simple-profile
:r-simple-rate
(:interface :auth) (:interface :auth)
(:interface :database) (:interface :database)
(:interface :relational-database)
(:interface :user)) (:interface :user))
:pathname "./" :pathname "./"
:components ((:file "app-utils") :components ((:file "app-utils")

23
build-asteroid.lisp
View File

@ -22,20 +22,20 @@
;; Load RADIANCE first, then handle environment ;; Load RADIANCE first, then handle environment
(ql:quickload :radiance) (ql:quickload :radiance)
(defmethod radiance:environment-directory (environment (kind (eql :configuration))) ;; (defmethod radiance:environment-directory (environment (kind (eql :configuration)))
(ab:path (make-pathname :directory `(:relative "config" ,environment)))) ;; (ab:path (make-pathname :directory `(:relative "config" ,environment))))
(defmethod radiance:environment-directory (environment (kind (eql :cache))) ;; (defmethod radiance:environment-directory (environment (kind (eql :cache)))
(ab:path (make-pathname :directory `(:relative "cache" ,environment)))) ;; (ab:path (make-pathname :directory `(:relative "cache" ,environment))))
(defmethod radiance:environment-directory (environment (kind (eql :data))) ;; (defmethod radiance:environment-directory (environment (kind (eql :data)))
(ab:path (make-pathname :directory `(:relative "data" ,environment)))) ;; (ab:path (make-pathname :directory `(:relative "data" ,environment))))
(defmethod radiance:environment-directory (environment (kind (eql :template))) ;; (defmethod radiance:environment-directory (environment (kind (eql :template)))
(ab:path (make-pathname :directory `(:relative "override" ,environment "template")))) ;; (ab:path (make-pathname :directory `(:relative "override" ,environment "template"))))
(defmethod radiance:environment-directory (environment (kind (eql :static))) ;; (defmethod radiance:environment-directory (environment (kind (eql :static)))
(ab:path (make-pathname :directory `(:relative "override" ,environment "static")))) ;; (ab:path (make-pathname :directory `(:relative "override" ,environment "static"))))
;; Ensure RADIANCE environment is set before loading ;; Ensure RADIANCE environment is set before loading
(unless (radiance:environment) (unless (radiance:environment)
@ -63,4 +63,5 @@
(sb-ext:save-lisp-and-die "asteroid" (sb-ext:save-lisp-and-die "asteroid"
:toplevel #'main :toplevel #'main
:executable t :executable t
:compression 22) :compression 12)