hans/racket-webview
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

webview-get-style debugging

Browse Source
This commit is contained in:
Hans Dijkema
2026-07-30 14:53:19 +02:00
parent 57eb80ce1d
commit af91944aaf
1 changed files with 21 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
racket-webview.rkt
+21 -21
View File
@@ -1025,7 +1025,7 @@
; (list styles) ; (list styles)
; styles))) ; styles)))
) )
(let* ((js-code (with-selector sel (let ((js-code (with-selector sel
(λ (id el) (λ (id el)
(let ((cl (eval cl)) (let ((cl (eval cl))
(r '())) (r '()))
@@ -1036,10 +1036,10 @@
(set! (js-ref r st) (js-ref stl st))))) (set! (js-ref r st) (js-ref stl st)))))
(send console log r) (send console log r)
(return (list (list 'id id) (return (list (list 'id id)
(list 'style (send Object entries r)))))) (list 'style (send Object entries r))))))))
)) )
(r (webview-call-js wv js-code)) (displayln js-code)
) (let ((r (webview-call-js wv js-code)))
; (format ; (format
; (js-code ; (js-code
; "function(id, el) {" ; "function(id, el) {"
@@ -1052,24 +1052,24 @@
; " return { id: id, style: r };" ; " return { id: id, style: r };"
; "}") cl)) ; "}") cl))
; ))) ; )))
;(displayln (format "~a: ~a" r js-code)) (display "Result: ") (write r) (newline)
(if (eq? r #f) (if (eq? r #f)
#f #f
(let ((h (hash-ref r 'with-ids))) (let ((h (hash-ref r 'with-ids)))
(let ((l (map (λ (e) (let ((l (map (λ (e)
(let ((id-rec (car e)) (let ((id-rec (car e))
(style-rec (cadr e))) (style-rec (cadr e)))
(cons (string->symbol (cadr id-rec)) (cons (string->symbol (cadr id-rec))
(make-hash (map (λ (e) (cons (car e) (cadr e))) (cadr style-rec))) (make-hash (map (λ (e) (cons (car e) (cadr e))) (cadr style-rec)))
) )
)) h))) )) h)))
;(displayln (format "l = ~a" l)) (displayln (format "l = ~a" l))
;(write l)(newline) (write l)(newline)
; l = ((volume-meter . #hash((display . none)))) ; l = ((volume-meter . #hash((display . none))))
; ((volume-meter . #hash(("display" . "none")))) ; ((volume-meter . #hash(("display" . "none"))))
(if (symbol? selector) (if (symbol? selector)
(cdr (car l)) (cdr (car l))
l)))) l)))))
) )
) )
) )