From 11ec9fd8c614589151570394bc5627882f34d4f7 Mon Sep 17 00:00:00 2001
From: Henry Le Grys <henry@legrys.info>
Date: Sun, 19 Feb 2023 23:16:52 +0000
Subject: [PATCH] Add public track lookup API

---
 BaboonAPI/BaboonAPI.fsproj        | 1 +
 BaboonAPI/api-post/TrackLookup.fs | 8 ++++++++
 2 files changed, 9 insertions(+)
 create mode 100644 BaboonAPI/api-post/TrackLookup.fs

diff --git a/BaboonAPI/BaboonAPI.fsproj b/BaboonAPI/BaboonAPI.fsproj
index ab5c77e..11ad200 100644
--- a/BaboonAPI/BaboonAPI.fsproj
+++ b/BaboonAPI/BaboonAPI.fsproj
@@ -60,6 +60,7 @@
         <Compile Include="patch\SaverLoaderPatch.fs" />
         <Compile Include="patch\InitializerPatch.fs" />
         <Compile Include="patch\TrackScorePatch.fs" />
+        <Compile Include="api-post\TrackLookup.fs" />
         <Compile Include="Library.fs" />
     </ItemGroup>
 
diff --git a/BaboonAPI/api-post/TrackLookup.fs b/BaboonAPI/api-post/TrackLookup.fs
new file mode 100644
index 0000000..80a79c4
--- /dev/null
+++ b/BaboonAPI/api-post/TrackLookup.fs
@@ -0,0 +1,8 @@
+/// Public hooks to look up registered tracks
+module BaboonAPI.Hooks.Tracks.TrackLookup
+
+open BaboonAPI.Internal
+
+/// Look up a track by trackref
+let public lookup (trackref: string): TromboneTrack =
+    TrackAccessor.fetchTrack trackref