From 8e8a922591f704c5860b0b9a6a728920e960935f Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 10 Jul 2022 17:06:06 +0200
Subject: Add "remove-selection-from-programmer!"

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

diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm
index 654b7e8..b5b26cd 100644
--- a/guile/starlet/state.scm
+++ b/guile/starlet/state.scm
@@ -61,7 +61,8 @@
             add-update-hook!
             state-empty?
             remove-fixtures-from-state!
-            remove-fixture-from-state!))
+            remove-fixture-from-state!
+            remove-selection-from-programmer!))
 
 
 ;; A "state" is an atomically-updating container for an immutable
@@ -477,3 +478,9 @@ pre-existing contents."
 
 (define (remove-fixture-from-state! st fix)
   (remove-fixtures-from-state! st (list fix)))
+
+
+(define (remove-selection-from-programmer!)
+  (remove-fixtures-from-state!
+    programmer-state
+    (get-selection)))
-- 
cgit v1.2.3