webview-get-style debugging

2026-07-30 13:46:13 +02:00
parent 75232b1460
commit 57eb80ce1d
1 changed files with 1 additions and 1 deletions
@@ -51,7 +51,7 @@
        (let ((d* (string->symbol (format "~a" (car d)))))
          (webview-set-style! wv element-id (list 'display d*))))
      (let ((style-hash (webview-get-style wv element-id 'display)))
-        (displayln style-hash)
+        (display "style-hash: ") (write style-hash) (newline)
        (let ((display-style (hash-ref (if (eq? style-hash #f)
                                           (make-hash)
                                           style-hash) 'display #f)))