diff options
-rw-r--r-- | guile/starlet/state.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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) |