From 8d4db87c4fb3071491a5f455b2086f35fc9d2f46 Mon Sep 17 00:00:00 2001
From: Josef Heinen <j.heinen@fz-juelich.de>
Date: Sun, 16 Apr 2023 20:43:14 +0200
Subject: [PATCH] Add support for setlists

---
 src/dialog.jl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/dialog.jl b/src/dialog.jl
index e9ee006..00d50c8 100644
--- a/src/dialog.jl
+++ b/src/dialog.jl
@@ -3,6 +3,8 @@ module dialog
 include("console.jl")
 include("keys.jl")
 
+using DelimitedFiles
+
 using .console
 using .keys
 
@@ -27,6 +29,10 @@ function openfiledialog(path)
     global first, current, scrolled
     if isfile(joinpath(path, "index.txt"))
         songs = readindex(joinpath(path, "index.txt"))
+        if isfile(joinpath(path, "set.txt"))
+            set = readdlm(joinpath(path, "set.txt"), ',', Int)
+            songs = songs[set]
+        end
     else
         files = filter(x->endswith(lowercase(x), ".mid"), readdir(path))
         songs = zip(files, files) |> collect