From 2041019d4fa08bc3f14541bf9480f728e7bdd531 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Wed, 14 Jun 2023 19:27:38 -0400
Subject: Make virtual program editing work on web from localhost:4273

(rewrites the root syndication stuff)
---
 virtual-programs/web-editor.folk | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/web-editor.folk b/virtual-programs/web-editor.folk
index fed34c3f..67953a86 100644
--- a/virtual-programs/web-editor.folk
+++ b/virtual-programs/web-editor.folk
@@ -94,8 +94,11 @@ Wish the web server handles route {/page/(.*)$} with handler {
 
 	    if (isVirtualProgram) {
 		send(`
-		  Retract /anyone/ claims file_name has program code /something/
-		  Assert web claims file_name has program code {${code}}
+                  set oldRootVirtualPrograms $::rootVirtualPrograms
+                  dict set ::rootVirtualPrograms file_name {${code}}
+                  Assert $::nodename is providing root virtual programs $::rootVirtualPrograms
+                  Retract $::nodename is providing root virtual programs $oldRootVirtualPrograms
+                  Step
 		`)
 	    }
 
@@ -117,5 +120,4 @@ Wish the web server handles route {/page/(.*)$} with handler {
 	</body>
 	</html>
     }]
-    }
 }
-- 
cgit v1.2.3