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

pass a UI to NAT entryProcessors

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-06-27 18:22:57 +00:00
parent 9f1e337069
commit 7e7053e132
13 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
projects/nat-archive-tool/src/nat/systems/AttachmentSystem.hx
View File

@@ -7,7 +7,7 @@ import haxe.Json;
using haxe.io.Path;
typedef AttachmentProcessor = (Archive, Entry, Array<FileRef>) -> Dynamic;
typedef AttachmentProcessor = (Archive, Entry, Array<FileRef>, ?ArchiveUI) -> Dynamic;
/**
* Base System that processes Entries based on whether they have file attachments

4
projects/nat-archive-tool/src/nat/systems/AttachmentSystem.kiss
View File

@@ -12,5 +12,5 @@
(return true)))
false
}
->[archive e]
(processor archive e (filter e.files ->file !(= -1 (extensions.indexOf (file.extension)))))))
->[archive e &opt ui]
(processor archive e (filter e.files ->file !(= -1 (extensions.indexOf (file.extension)))) ui)))

2
projects/nat-archive-tool/src/nat/systems/ImageAttachmentSystem.kiss
View File

@@ -3,7 +3,7 @@
(defNew []
(super
["jpg" "jpeg" "png"]
->[archive e imageFiles]
->[archive e imageFiles &opt ui]
(unless (hasComponent e Images)
(addComponent archive e Images
(object

2
projects/nat-archive-tool/src/nat/systems/NameSystem.kiss
View File

@@ -6,7 +6,7 @@
(defNew []
(super
->[archive e] (hasComponent e Name)
->[archive e] (let [name (readComponent e Name)]
->[archive e &opt ui] (let [name (readComponent e Name)]
(if (entriesByName.exists (name.toLowerCase))
(.push (dictGet entriesByName (name.toLowerCase)) e)
(dictSet entriesByName (name.toLowerCase) [e]))

2
projects/nat-archive-tool/src/nat/systems/RemarkableAPISystem.kiss
View File

@@ -3,7 +3,7 @@
(defNew []
(super
->[archive e] false
->[archive e] null)
->[archive e &opt ui] null)
~(#extern String js
(object

6
projects/nat-archive-tool/src/nat/systems/WikipediaImageSystem.kiss
View File

@@ -8,7 +8,7 @@
1))
// named method in case a user will want to run it on selectedEntries instead of on media entries
(method scrapeForImages [archive e]
(method scrapeForImages [archive e &opt ui]
(let [:String title
(readComponent e Name)
:Array<String> wikipediaImageUrls
@@ -21,7 +21,9 @@
(.urlDecode (url.withoutDirectory))
// Some symbols shouldn't be decoded because they're invalid in file systems!
"\"" "%22"))]
// TODO do this with ui.displayMessage
// TODO write a macro that either does both print and displayMessage if a ui is available
(when ui
(ui.displayMessage "Downloading $title image: $url"))
(print url "downloading")
(assertProcess "curl" ["--output" filePath url])
filePath)))