diff options
| author | Thomas White <taw@physics.org> | 2022-06-09 21:26:33 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2022-06-09 21:26:33 +0200 |
| commit | 66e7047a52dd277ab64dd8a3d3eca914c6573961 (patch) | |
| tree | b3922f700dcf2b00c42fcd94389f40beba811a4f | |
| parent | 35062371f735d4ca157b87e1509695be0d1e2e22 (diff) | |
Add 'blackout'
| -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) |