webview-get-style debugging

2026-07-30 13:19:01 +02:00
parent 97313c1357
commit 6a4dd25dfe
1 changed files with 30 additions and 27 deletions
@@ -1057,9 +1057,12 @@
          #f
          (let ((h (hash-ref r 'with-ids)))
            (let ((l  (map (λ (e)
-                            (cons
-                             (string->symbol (hash-ref e 'id))
-                             (hash-ref e 'style))) h)))
+                             (let ((id-rec (car e))
+                                   (style-rec (cadr e)))
+                               (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))))