From 14464dee966fe415d4c8e1fb8b5205653b22003f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 3 Oct 2022 19:22:23 -0400
Subject: Add prototype catbird modules.

---
 catbird/config.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 catbird/config.scm

(limited to 'catbird/config.scm')

diff --git a/catbird/config.scm b/catbird/config.scm
new file mode 100644
index 0000000..a010bc1
--- /dev/null
+++ b/catbird/config.scm
@@ -0,0 +1,16 @@
+(define-module (catbird config)
+  #:use-module (oop goops)
+  #:export (developer-mode?
+            <catbird-metaclass>
+            define-root-class))
+
+(define developer-mode?
+  (equal? (getenv "CATBIRD_DEV_MODE") "1"))
+
+(define <catbird-metaclass>
+  (if developer-mode? <redefinable-class> <class>))
+
+(define-syntax-rule (define-root-class name (supers ...) args ...)
+  (define-class name (supers ...)
+    args ...
+    #:metaclass <catbird-metaclass>))
-- 
cgit v1.2.3