From 66e7047a52dd277ab64dd8a3d3eca914c6573961 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Thu, 9 Jun 2022 21:26:33 +0200
Subject: Add 'blackout'

---
 guile/starlet/state.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm
index bf0fc0a..d4c42d0 100644
--- a/guile/starlet/state.scm
+++ b/guile/starlet/state.scm
@@ -48,6 +48,7 @@
             lighting-state
             programmer-state
             home-fixture!
+            blackout
             blackout!
             sel
             selection-hook
@@ -234,6 +235,10 @@
   (make <starlet-state>))
 
 
+(define blackout
+  (make-empty-state))
+
+
 (define (state-for-each func state)
   (hash-for-each (lambda (key value)
                    (func (car key)
-- 
cgit v1.2.3