[dynamic] Re-implement RSVP using SSR

1 files changed, 12 insertions, 1 deletions

diff --git a/haunt/jakob/dynamic/config.scm b/haunt/jakob/dynamic/config.scm
index 5eb615b..8fc9dea 100644
--- a/haunt/jakob/dynamic/config.scm
+++ b/haunt/jakob/dynamic/config.scm
@@ -16,7 +16,9 @@
 
 (define-module (jakob dynamic config)
   #:export (%debug-enabled
-            paramstring-for-dbname))
+            %api-server-port
+            paramstring-for-dbname
+            absolute-url))
 
 ;; Whether or not to enable "debug mode", in which:
 ;;
@@ -24,6 +26,9 @@
 ;;   - Rate limiting is disabled.
 (define %debug-enabled (make-parameter (or (getenv "API_SERVER_DEBUG") #f)))
 
+;; Port that the API server should listen on
+(define %api-server-port (make-parameter (or (getenv "API_SERVER_PORT") 8080)))
+
 ;; Should be fairly self-explanatory.
 (define %postgresql-user (make-parameter (or (getenv "API_SERVER_DB_USER") "jakob_dynamic")))
 (define %postgresql-host (make-parameter (or (getenv "API_SERVER_DB_HOST") "localhost")))
@@ -35,3 +40,9 @@
           (%postgresql-port)
           (%postgresql-user)
           dbname))
+
+(define (absolute-url relative-path)
+  "Produce an absolute URL from the identifier RELATIVE-PATH"
+  (if (%debug-enabled)
+      (format #f "http://localhost:~a/~a" (%api-server-port) relative-path)
+      (string-append "https://jakob.space" relative-path)))