From 42eb157dd35ec237e3dacc0c87eefb8461b1c2d1 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 10 Jul 2022 17:05:52 +0200
Subject: Add 'ps' as a synonym for programmer-state

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

(limited to 'guile')

diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm
index 15b5d4e..654b7e8 100644
--- a/guile/starlet/state.scm
+++ b/guile/starlet/state.scm
@@ -48,6 +48,7 @@
             show-state
             lighting-state
             programmer-state
+            ps
             home-fixture!
             blackout
             blackout!
@@ -83,6 +84,7 @@
 
 ;; The state used to build a new scene for recording
 (define programmer-state (make <starlet-state>))
+(define ps programmer-state)
 
 
 (define (add-update-hook! state proc)
-- 
cgit v1.2.3