diff --git a/src/tree-updater.rkt b/src/tree-updater.rkt index 815ef8a..f4e2f90 100644 --- a/src/tree-updater.rkt +++ b/src/tree-updater.rkt @@ -39,6 +39,11 @@ (img (@ (src "data:image/gif;base64,R0lGODlhAQABAIABAAAAAP///yH5BAEAAAEALAAAAAABAAEAQAICTAEAOw%3D%3D") (data-src "https://static.wikia.nocookie.net/nice-image-thumbnail.png") (class "thumbimage lazyload")))) + (noscript + (a (@ (href "https://static.wikia.nocookie.net/nice-image.png") (title "a nice image") (three-attribs)) + (img (@ (src "https://static.wikia.nocookie.net/nice-image-thumbnail.png") + (data-src "https://static.wikia.nocookie.net/nice-image-thumbnail.png") + (class "thumbimage"))))) (noscript (a (@ (href "https://static.wikia.nocookie.net/nice-image.png") (class "image")) (img (@ (src "https://static.wikia.nocookie.net/nice-image-thumbnail.png") @@ -193,8 +198,8 @@ ; remove noscript versions of images because they are likely lower quality than the script versions [(and (eq? element-type 'noscript) (match children - ; either the noscript has a.image as a first child... - [(list (list 'a (list '@ a-att ...) _)) (has-class? "image" a-att)] + ; either the noscript has an a, with attributes and an img as a first child, as a first child... + [(list (list 'a (list '@ _ ...) (list 'img _))) #t] ; or the noscript has img as a first child [(list (list 'img _)) #t] [_ #f]))