(defNew [&prop :String path
            &prop :Option<Puzzle> nextPuzzle
            &prop :Int puzzlesDone
            &prop :Int puzzlesTotal])

(var puzzleSearchGlobs ["puzzles"])
// TODO add the itch io client folder to search paths- it's
// C:\Users\$(userHome)\AppData\Roaming\itch\apps\ on windows

(function _glob [pattern]
    // TODO implement my own "glob" to avoid haxe-concurrency dependency
    [pattern])

(function :Array<PuzzlePack> availablePacks [:HabitModel model]
    (let [:Array<PuzzlePack> packs []]
        (doFor glob puzzleSearchGlobs
            (doFor dir (_glob glob)
                (let [packDirs (filter (for thing (FileSystem.readDirectory dir) (let [full "${dir}/${thing}"] (when (FileSystem.isDirectory full) full))))]
                    (doFor packDir packDirs
                        (let [fop (firstUnsolvedPuzzle model packDir)]
                            (packs.push 
                                (new PuzzlePack
                                    packDir 
                                    (if fop.path 
                                            (Some fop) 
                                        None) 
                                    fop.index
                                    fop.outOf)))))))
        packs))

(function :Puzzle firstUnsolvedPuzzle [:HabitModel model :String dir]
    (let [images (FileSystem.readDirectory dir)
            &mut puzzleCount images.length
            rewardFilePaths (for rf model.rewardFiles rf.path)]
        (doFor [idx image] (enumerate images)
            (let [fullPath (joinPath dir image)]
                (if (FileSystem.isDirectory fullPath)
                        (-= puzzleCount 1)
                    (unless (rewardFilePaths.contains fullPath)
                        (return (object path fullPath index idx outOf images.length))))))
        (object path null index images.length outOf images.length)))

(method toString []
    "$(haxe.io.Path.withoutDirectory path): ${puzzlesDone}/${puzzlesTotal}")