diff options
| author | Omar Rizwan <omar@omar.website> | 2023-06-14 23:27:38 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-06-14 23:27:38 +0000 |
| commit | 2041019d4fa08bc3f14541bf9480f728e7bdd531 (patch) | |
| tree | a40b16e1474d603727b71935ba711cb24b6bb0f1 /virtual-programs | |
| parent | Merge commit 'refs/pullreqs/39' (diff) | |
| download | folk-2041019d4fa08bc3f14541bf9480f728e7bdd531.tar.gz folk-2041019d4fa08bc3f14541bf9480f728e7bdd531.zip | |
Make virtual program editing work on web from localhost:4273
(rewrites the root syndication stuff)
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/web-editor.folk | 8 |
1 files changed, 5 insertions, 3 deletions
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> }] - } } |