kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

queryImageUrls from mediaWiki

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-08-01 22:31:27 -06:00
parent e7036b487e
commit 38ed54cfc6
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
projects/nat-archive-tool/src/nat/systems/MediaWikiSystem.kiss
View File

@@ -37,4 +37,7 @@
(defmethod queryImageTitles [:Array<String> pageTitles]
(flatten (for =>_id page (the haxe.DynamicAccess<Dynamic> .pages .query (query [=>"titles" pageTitles =>"prop" ["images"]])) (page.images.map ->image image.title))))
(defmethod queryImageUrls [:Array<String> imageTitles]
(flatten (for =>_id image (the haxe.DynamicAccess<Dynamic> .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"])

2
projects/nat-archive-tool/src/test/TestMain.kiss
View File

@@ -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"]))
~(wikipedia.queryImageUrls (wikipedia.queryImageTitles ["Phoenix Wright"])))