Move schedule generation to player.

lib/midi_tools/event.ex

@@ -44,7 +44,7 @@ defmodule MIDITools.Event do
   @doc """
   Converts the event to a list of MIDI commands.
   """
-  @spec convert(t()) :: MIDITools.Schedule.t()
+  @spec convert(t()) :: [{non_neg_integer(), binary()}]
   def convert(%Note{
         channel: channel,
         tone: tone,

lib/midi_tools/player.ex

@@ -17,11 +17,16 @@ defmodule MIDITools.Player do
 
   @doc """
   Set the current schedule and total duration for the MIDI player.
+
+  The list of events is internally converted to MIDI commands.
+  If multiple events are scheduled on the same time,
+  then they are executed in the same order as in the list.
   The duration makes sure the player plays a (potential) pause after the last
   midi command.
   """
-  @spec set_schedule(MIDITools.Schedule.t(), non_neg_integer()) :: :ok
+  @spec set_schedule([MIDITools.Event.t()], non_neg_integer()) :: :ok
-  def set_schedule(schedule, duration) do
+  def set_schedule(events, duration) do
+    schedule = convert_events(events)
     GenServer.call(__MODULE__, {:set_schedule, schedule, duration})
   end
 
@@ -86,6 +91,7 @@ defmodule MIDITools.Player do
 
   @impl GenServer
   def handle_call({:set_schedule, schedule, duration}, _from, state) do
+
     {:reply, :ok, %{state | schedule: schedule, schedule_left: schedule, duration: duration}}
   end
 
@@ -208,4 +214,13 @@ defmodule MIDITools.Player do
       {timer, schedule_left}
     end
   end
+
+  defp convert_events(events) do
+    events
+    |> Enum.flat_map(&MIDITools.Event.convert/1)
+    |> Enum.reduce(%{}, fn {time, midi}, acc ->
+      Map.update(acc, time, midi, &<<&1::binary, midi::binary>>)
+    end)
+    |> Enum.sort()
+  end
 end

lib/midi_tools/schedule.ex

@@ -1,24 +0,0 @@
-defmodule MIDITools.Schedule do
-  @moduledoc """
-  Functions for using a MIDI schedule.
-  """
-
-  @typedoc """
-  A list of tuples which indicate that the MIDI binary should play at the given time.
-  """
-  @type t :: [{non_neg_integer(), binary()}]
-
-  @doc """
-  Convert a list of events to MIDI schedule.
-  See `MIDITools.Event` for creating these events.
-  """
-  @spec convert_events([MIDITools.Event.t()]) :: t()
-  def convert_events(events) do
-    events
-    |> Enum.flat_map(&MIDITools.Event.convert/1)
-    |> Enum.reduce(%{}, fn {time, midi}, acc ->
-      Map.update(acc, time, midi, &<<&1::binary, midi::binary>>)
-    end)
-    |> Enum.sort()
-  end
-end