From 50901a31e11b9a9a6b74086c40ccbcd8927de48d Mon Sep 17 00:00:00 2001
From: "Jurgen J. Vinju" <Jurgen.Vinju@cwi.nl>
Date: Fri, 29 Sep 2023 18:23:37 +0200
Subject: [PATCH] fixed some weird bugs and added titles to the webview tabs

---
 src/lang/miniSVG/Bekijken.rsc  | 4 ++--
 src/lang/miniSVG/Semantiek.rsc | 5 ++++-
 src/lang/miniSVG/Syntax.rsc    | 2 +-
 src/lang/yop/Semantiek.rsc     | 2 +-
 voorbeelden/dahlia.yop         | 2 +-
 5 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/src/lang/miniSVG/Bekijken.rsc b/src/lang/miniSVG/Bekijken.rsc
index 0bb5378..92c7e7b 100644
--- a/src/lang/miniSVG/Bekijken.rsc
+++ b/src/lang/miniSVG/Bekijken.rsc
@@ -12,12 +12,12 @@ void bekijken(MiniSVG plaatje) {
     echteSVG = toSVG(plaatje);
 
     // dan laten zien
-    bekijkSVG(echteSVG);
+    bekijkSVG(echteSVG, id=plaatje.title);
 }
 
 // dit start een web server en een web viewer op met het plaatje er in:
 private void bekijkSVG(str svg, str id="miniSVG") {
-    showInteractiveContent(content(id, webServer(svg)));
+    showInteractiveContent(content(id, webServer(svg)), viewColumn=2, title=id);
 }
 
 // dit is een kleine webserver die twee dingen doet:
diff --git a/src/lang/miniSVG/Semantiek.rsc b/src/lang/miniSVG/Semantiek.rsc
index 3d9b2bf..90a231a 100644
--- a/src/lang/miniSVG/Semantiek.rsc
+++ b/src/lang/miniSVG/Semantiek.rsc
@@ -1,6 +1,7 @@
 module lang::miniSVG::Semantiek
 
 import lang::miniSVG::Syntax;
+import String;
 
 // Dit vertaalt een-op-een een lijst van miniSVG teken-instructies naar de textuele XML vorm die "SVG" heet.
 // Én het regelt de assen (van waar tot waar (-1000 tot 1000), en de richting (y-as omhoog en x-as naar rechts))
@@ -53,10 +54,12 @@ str toSVG(rotate(real angle, list[Element] elements))
       '\</g\>";
 
 str toSVG(link(loc src, Element element)) 
-    = "\<a href=# onclick=\"fetch(\'/editor?\' + new URLSearchParams({src: \'<src>\'}));\"\>
+    = "\<a href=\"#\" onclick=\"fetch(\'/editor?\' + new URLSearchParams({src: \'<escape("<src>", ( "\<" : "&lt;", "\>" : "&gt;" ))>\'}));\"\>
       '  <toSVG(element)>
       '\</a\>";
 
+str x = "&gt;";
+
 str toSVG(comment(str bericht)) = "\<!-- <bericht> --\>";
 
 // Omdat het assenstelsel op zijn kop staat, staat alle tekst ook op zijn kop.
diff --git a/src/lang/miniSVG/Syntax.rsc b/src/lang/miniSVG/Syntax.rsc
index 30f5462..03e8a42 100644
--- a/src/lang/miniSVG/Syntax.rsc
+++ b/src/lang/miniSVG/Syntax.rsc
@@ -1,7 +1,7 @@
 module lang::miniSVG::Syntax
 
 data MiniSVG 
-    = miniSVG(list[Element] elements);
+    = miniSVG(list[Element] elements, str title="plaatje");
 
 data Element(Color stroke=rgb(0,0,0,1.), real \stroke-width=2., Color fill=rgb(230,230,230,1.), real \fill-opacity=0.8, real \stroke-opacity=1.)
     = circle(real cx, real cy, real r)
diff --git a/src/lang/yop/Semantiek.rsc b/src/lang/yop/Semantiek.rsc
index 707a702..1cd54c9 100644
--- a/src/lang/yop/Semantiek.rsc
+++ b/src/lang/yop/Semantiek.rsc
@@ -34,7 +34,7 @@ MiniSVG vertaal(Programma p) {
     waarden = ();
 
     // dan de lijst van tekeningen vertalen
-    return miniSVG(vertaal(p.tekeningen));
+    return miniSVG(vertaal(p.tekeningen), title=p@\loc[extension=""].file);
 }
 
 // 1-voor-1 de teken instructies vertalen
diff --git a/voorbeelden/dahlia.yop b/voorbeelden/dahlia.yop
index b0217e6..20897ab 100644
--- a/voorbeelden/dahlia.yop
+++ b/voorbeelden/dahlia.yop
@@ -10,7 +10,7 @@ herhaal 8 {
             10 delen wit met
             random 10 delen rood met
             random 10 delen groen met
-            5 + random 5 delen blauw met
+            15 + random 5 delen blauw met
             random 15 delen transparant
         rechts 90
     }