diff options
| author | Thomas White <taw@physics.org> | 2022-07-10 17:06:06 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2022-07-10 17:06:06 +0200 |
| commit | 8e8a922591f704c5860b0b9a6a728920e960935f (patch) | |
| tree | 98c0e586a820d59e51fcc1e65cf0ad065ed260dd | |
| parent | 42eb157dd35ec237e3dacc0c87eefb8461b1c2d1 (diff) | |
Add "remove-selection-from-programmer!"
| -rw-r--r-- | guile/starlet/state.scm | 9 |
1 files changed, 8 insertions, 1 deletions
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))) |