From 7ce119cabdf82db91cf676be6701eab66e4398bf Mon Sep 17 00:00:00 2001 From: Brian O'Reilly Date: Sun, 14 Sep 2025 13:38:21 -0400 Subject: [PATCH] Some new dependencies start up a slynk server in the binary entry point so we can attach Sly to it and work live without pfaffing about in the threading library, hiding radiance from Sly/Slynk running inside emacs. --- asteroid.asd | 10 ++++++++-- asteroid.lisp | 5 ++++- database.lisp | 1 + 3 files changed, 13 insertions(+), 3 deletions(-) diff --git a/asteroid.asd b/asteroid.asd index 9f9a70a..8d1ea8e 100644 --- a/asteroid.asd +++ b/asteroid.asd @@ -9,7 +9,9 @@ :version "0.0.0" :defsystem-depends-on (:radiance) :class "radiance:virtual-module" - :depends-on (:radiance + :depends-on (:slynk + :radiance + :i-log4cl :r-clip :cl-json :dexador @@ -17,7 +19,11 @@ :r-data-model :cl-fad :local-time - :taglib) + :taglib + (:interface :database) + :r-data-model + (:interface :user)) + :pathname "./" :components ((:file "app-utils") (:file "module") diff --git a/asteroid.lisp b/asteroid.lisp index 4345a0c..7256537 100644 --- a/asteroid.lisp +++ b/asteroid.lisp @@ -310,9 +310,12 @@ (format t "~%Received interrupt, stopping server...~%") (stop-server)))) -(defun -main (&optional args) +(defun -main (&optional args (debug t)) (declare (ignorable args)) + (format t "~&args of asteroid: ~A~%" args) (format t "~%🎵 ASTEROID RADIO - Music for Hackers 🎵~%") (format t "Starting RADIANCE web server...~%") + (when debug + (slynk:create-server :port 4009 :dont-close t)) (run-server)) diff --git a/database.lisp b/database.lisp index 30be8c5..19d6abd 100644 --- a/database.lisp +++ b/database.lisp @@ -23,3 +23,4 @@ (track-ids :text)))) (format t "Database collections initialized~%")) +