From 38ed54cfc6de38a529bbd2520b2c3b8b3ce10a03 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Sun, 1 Aug 2021 22:31:27 -0600 Subject: [PATCH] queryImageUrls from mediaWiki --- projects/nat-archive-tool/src/nat/systems/MediaWikiSystem.kiss | 3 +++ projects/nat-archive-tool/src/test/TestMain.kiss | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/projects/nat-archive-tool/src/nat/systems/MediaWikiSystem.kiss b/projects/nat-archive-tool/src/nat/systems/MediaWikiSystem.kiss index d7233545..9ee53078 100644 --- a/projects/nat-archive-tool/src/nat/systems/MediaWikiSystem.kiss +++ b/projects/nat-archive-tool/src/nat/systems/MediaWikiSystem.kiss @@ -37,4 +37,7 @@ (defmethod queryImageTitles [:Array pageTitles] (flatten (for =>_id page (the haxe.DynamicAccess .pages .query (query [=>"titles" pageTitles =>"prop" ["images"]])) (page.images.map ->image image.title)))) +(defmethod queryImageUrls [:Array imageTitles] + (flatten (for =>_id image (the haxe.DynamicAccess .pages .query (query [=>"titles" imageTitles =>"prop" ["imageinfo"] =>"iiprop" ["url"]])) (image.imageinfo.map ->image image.url)))) + (var headers [=>"User-Agent" "NatArchiveTool/0.0.0 (https://github.com/NQNStudios/kisslang/tree/main/projects/nat-archive-tool; natquaylenelson@gmail.com) Requests/2.26.0"]) \ No newline at end of file diff --git a/projects/nat-archive-tool/src/test/TestMain.kiss b/projects/nat-archive-tool/src/test/TestMain.kiss index cbc11b8d..01befb08 100644 --- a/projects/nat-archive-tool/src/test/TestMain.kiss +++ b/projects/nat-archive-tool/src/test/TestMain.kiss @@ -31,4 +31,4 @@ (assert (= name "Adventure")))) (let [wikipedia (new MediaWikiSystem "https://en.wikipedia.org/w/api.php" null null 1)] - ~(wikipedia.queryImageTitles ["Phoenix Wright"])) \ No newline at end of file + ~(wikipedia.queryImageUrls (wikipedia.queryImageTitles ["Phoenix Wright"]))) \ No newline at end of file