webview-get-style debugging

racket-webview.rkt

@@ -1040,26 +1040,29 @@
                       ))
            (r (webview-call-js wv js-code))
            )
-;                       (format
+      ;                       (format
-;                        (js-code
+      ;                        (js-code
-;                         "function(id, el) {"
+      ;                         "function(id, el) {"
-;                         "  let cl = ~a;"
+      ;                         "  let cl = ~a;"
-;                         "  let r = {};"
+      ;                         "  let r = {};"
-;                         "  cl.forEach(function(st) {"
+      ;                         "  cl.forEach(function(st) {"
-;                         "    let stl = window.getComputedStyle(el);"
+      ;                         "    let stl = window.getComputedStyle(el);"
-;                         "    r[st] = stl[st];"
+      ;                         "    r[st] = stl[st];"
-;                         "  });"
+      ;                         "  });"
-;                         "  return { id: id, style: r };"
+      ;                         "  return { id: id, style: r };"
-;                         "}") cl))
+      ;                         "}") cl))
-;                     )))
+      ;                     )))
       (displayln (format "~a: ~a" r js-code))
       (if (eq? r #f)
           #f
           (let ((h (hash-ref r 'with-ids)))
             (let ((l  (map (λ (e)
-                            (cons
+                             (let ((id-rec (car e))
-                             (string->symbol (hash-ref e 'id))
+                                   (style-rec (cadr e)))
-                             (hash-ref e 'style))) h)))
+                               (cons (string->symbol (cadr id-rec))
+                                     (make-hash (map (λ (e) (cons (car e) (cadr e))) (cadr style-rec)))
+                                     )
+                               )) h)))
               (if (symbol? selector)
                   (cdr (car l))
                   l))))