From c9b76323fead8c203c20166a88b31ea78b52a73a Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sun, 21 Feb 2021 10:39:14 +0100 Subject: Add show-state --- guile/starlet/base.scm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'guile') diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index dc25491..d6436f3 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -45,6 +45,7 @@ current-state at apply-state + show-state lighting-state blackout @@ -304,6 +305,14 @@ (define (apply-state state) + "Apply the contents of 'state' to the current state, on top of the \ +pre-existing contents." + (add-state-to-state! merge-rule-ltp state (current-state))) + + +(define (show-state state) + "Clear the current state, and apply the contents of 'state'" + (clear-state! (current-state)) (add-state-to-state! merge-rule-ltp state (current-state))) -- cgit v1.2.3