From ff18bda668c6f8d37121dedf2f545f205de8b24f Mon Sep 17 00:00:00 2001 From: blankie Date: Sat, 8 Oct 2022 22:27:28 +0700 Subject: [PATCH] oops --- src/page-file.rkt | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/src/page-file.rkt b/src/page-file.rkt index dfd3024..fdf868b 100644 --- a/src/page-file.rkt +++ b/src/page-file.rkt @@ -29,16 +29,6 @@ ; '#hasheq((batchcomplete . #t) (continue . #hasheq((cmcontinue . "page|4150504c45|41473") (continue . "-||"))) (query . #hasheq((categorymembers . (#hasheq((ns . 0) (pageid . 25049) (title . "Item (entity)")) #hasheq((ns . 0) (pageid . 128911) (title . "3D")) #hasheq((ns . 0) (pageid . 124018) (title . "A Very Fine Item")) #hasheq((ns . 0) (pageid . 142208) (title . "Amethyst Shard")) #hasheq((ns . 0) (pageid . 121612) (title . "Ankle Monitor"))))))))) (define (html-from-url image-url) - ([media-detail (define dest-url - (format "~a/wikia.php?~a" - origin - (params->query `(("format" . "json") - ("controller" . "Lightbox") - ("method" . "getMediaDetail") - ("fileTitle" . ,prefixed-title))))) - (log-outgoing dest-url) - (define dest-res (easy:get dest-url #:timeouts timeouts)) - (easy:response-json dest-res)] (log-outgoing image-url) (define dest-res (easy:head image-url #:timeouts timeouts)) (define content-type (response-headers-ref dest-res "Content-Type"))