src/giveAwrl.civet

@@ -2,16 +2,22 @@ import https://code.jquery.com/jquery-3.7.1.js
 X3D from https://create3000.github.io/code/x_ite/latest/x_ite.mjs
 {convert} from ./deps/vrml1to97/index.js
 
-certainlyHandled := '.x3d .gltf .glb .obj .stl .ply'.split ' '
-// The next line will need to change when we handle pages with more than
-// one link, since we will potentially need a canvas for each one.
+knownExtensions := /[.](?:wrl|x3d|gltf|glb|obj|stl|ply)$/
+certainlyHandled :=
+   knownExtensions.source.slice(0, -2).split('wrl|')[1].split '|'
+
+function makeBrowser(url: string)
    canvas := X3D.createBrowser()
 
-// Fix up the css so the browser is a nice size and we can see the world info
-$(canvas).css width: '150px', height: '150px', overflow: 'visible'
+   // Fix up css: smaller browser, but we can see the world info
+   $(canvas).css
+      width: '150px'
+      height: '150px'
+      overflow: 'visible'
+      'vertical-align': 'top'
    x_ite_shadow := canvas.shadowRoot
    if x_ite_shadow
-   x_ite_style := x_ite_shadow.querySelector('link')
+      x_ite_style := x_ite_shadow.querySelector 'link'
       if x_ite_style
          $(x_ite_style).after '<style type="text/css">
             .x_ite-private-world-info-overlay {
@@ -26,8 +32,6 @@ if x_ite_shadow
    // Now get the browser and load the requested VRML, converting if need be
    browser := X3D.getBrowser canvas
    browser.setBrowserOption 'StraightenHorizon', false
-site := $('a[href^="http"]')
-url := site.attr('href') ?? ''
 
    if certainlyHandled.some((ext) => url.includes ext)
       canvas.setAttribute 'src', url
@@ -40,5 +44,28 @@ else if url.includes '.wrl'
       browser.baseURL = url
       scene := await browser.createX3DFromString text
       browser.replaceWorld scene
+   canvas
 
-site.after(canvas)
+// Put eye icons after all of the eligible links
+links := $('a').filter -> !!@.getAttribute('href')?.match knownExtensions
+links.after ->
+   newSpan := $('<span>👁</span>')
+   newSpan.hover
+     (-> $(@).css 'background-color', 'lightblue'),
+     (-> $(@).css 'background-color', 'inherit')
+   newSpan.on 'click', @,
+   (e) =>
+      eye := e.target
+      state .= eye.getAttribute 'data'
+      unless state
+         state = 'off'
+         url := e.data.getAttribute('href') ?? ''
+         $(eye).after await makeBrowser url
+      if state is 'off'
+         eye.setAttribute 'data', 'on'
+         $(eye).css 'text-decoration', 'line-through 3px'
+         $(eye.nextSibling as Element).show()
+      else
+         eye.setAttribute 'data', 'off'
+         $(eye).css 'text-decoration', 'none'
+         $(eye.nextSibling as Element).hide()