diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt index 488886f..5c2b77a 100644 --- a/src/page-wiki.rkt +++ b/src/page-wiki.rkt @@ -61,6 +61,11 @@ (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")) + (img (@ (src "https://static.wikia.nocookie.net/nice-image-thumbnail.png") + (data-src "https://static.wikia.nocookie.net/nice-image-thumbnail.png") + (class "thumbimage"))))) (figcaption "Test figure!")) (iframe (@ (src "https://example.com/iframe-src"))))))) @@ -122,10 +127,12 @@ ; 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... + ; the noscript has a.image as a first child... [(list (list 'a (list '@ a-att ...) _)) (has-class? "image" a-att)] - ; or the noscript has img as a first child + ; or the noscript has img as a first child... [(list (list 'img _)) #t] + ; or 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] [_ #f])) return-no-element] [#t