From 2665872956400c7075f0481bdce577b1e1884fae Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Wed, 23 Nov 2022 10:19:01 +1300
Subject: [PATCH] Commit public API.

---
 Graphics/Text/Font/Choose.hs | 56 ++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 Graphics/Text/Font/Choose.hs

diff --git a/Graphics/Text/Font/Choose.hs b/Graphics/Text/Font/Choose.hs
new file mode 100644
index 0000000..7265dac
--- /dev/null
+++ b/Graphics/Text/Font/Choose.hs
@@ -0,0 +1,56 @@
+module Graphics.Text.Font.Choose(CharSet, FontSet, ObjectSet, Pattern(..), Binding(..),
+  Range(..), iRange, StrSet, StrList, Value(..),
+
+  Config, configCreate,
+  configSetCurrent, configGetCurrent, configUptoDate, configHome, configEnableHome,
+  configBuildFonts, configBuildFonts', configGetConfigDirs, configGetConfigDirs',
+  configGetFontDirs, configGetFontDirs', configGetConfigFiles, configGetConfigFiles',
+  configGetCacheDirs, configGetCacheDirs', SetName(..), configGetFonts, configGetFonts',
+  configGetRescanInterval,configGetRescanInterval', configAppFontClear,configAppFontClear',
+  configAppFontAddFile, configAppFontAddFile', configAppFontAddDir, configAppFontAddDir',
+  MatchKind(..), configSubstituteWithPat, configSubstituteWithPat', fontList, fontList', 
+  configSubstitute, configSubstitute', fontMatch, fontMatch', fontSort, fontSort',
+  fontRenderPrepare, fontRenderPrepare', configGetFilename, configGetFilename',
+  configParseAndLoad, configParseAndLoad', configGetSysRoot, configGetSysRoot',
+  configParseAndLoadFromMemory, configParseAndLoadFromMemory',
+  configSetSysRoot, configSetSysRoot', configGetFileInfo, configGetFileInfo',
+
+  fontSetList, fontSetList', fontSetMatch, fontSetMatch', fontSetSort, fontSetSort',
+
+  initLoadConfig, initLoadConfigAndFonts, init, fini, reinit, bringUptoDate, version,
+
+  LangSet, defaultLangs, langs, langSetCompare, langNormalize, langCharSet,
+
+  equalSubset, normalizePattern, filter, substitute, nameParse, nameUnparse, format) where
+
+import Prelude hiding (init, filter)
+
+import Graphics.Text.Font.Choose.CharSet (CharSet)
+import Graphics.Text.Font.Choose.Config (Config, configCreate,
+  configSetCurrent, configGetCurrent, configUptoDate, configHome, configEnableHome,
+  configBuildFonts, configBuildFonts', configGetConfigDirs, configGetConfigDirs',
+  configGetFontDirs, configGetFontDirs', configGetConfigFiles, configGetConfigFiles',
+  configGetCacheDirs, configGetCacheDirs', SetName(..), configGetFonts, configGetFonts',
+  configGetRescanInterval,configGetRescanInterval', configAppFontClear,configAppFontClear',
+  configAppFontAddFile, configAppFontAddFile', configAppFontAddDir, configAppFontAddDir',
+  MatchKind(..), configSubstituteWithPat, configSubstituteWithPat', fontList, fontList', 
+  configSubstitute, configSubstitute', fontMatch, fontMatch', fontSort, fontSort',
+  fontRenderPrepare, fontRenderPrepare', configGetFilename, configGetFilename',
+  configParseAndLoad, configParseAndLoad', configGetSysRoot, configGetSysRoot',
+  configParseAndLoadFromMemory, configParseAndLoadFromMemory',
+  configSetSysRoot, configSetSysRoot', configGetFileInfo, configGetFileInfo')
+import Graphics.Text.Font.Choose.FontSet (FontSet)
+import Graphics.Text.Font.Choose.FontSet.API (fontSetList, fontSetList',
+    fontSetMatch, fontSetMatch', fontSetSort, fontSetSort')
+import Graphics.Text.Font.Choose.Init (initLoadConfig, initLoadConfigAndFonts,
+    init, fini, reinit, bringUptoDate, version)
+import Graphics.Text.Font.Choose.LangSet (LangSet, defaultLangs, langs,
+    langSetCompare, langNormalize, langCharSet)
+import Graphics.Text.Font.Choose.ObjectSet (ObjectSet)
+import Graphics.Text.Font.Choose.Pattern (Pattern(..), Binding(..), equalSubset,
+    normalizePattern, filter, substitute, nameParse, nameUnparse, format)
+import Graphics.Text.Font.Choose.Range (Range(..), iRange)
+import Graphics.Text.Font.Choose.Strings (StrSet, StrList)
+import Graphics.Text.Font.Choose.Value (Value(..))
+import Graphics.Text.Font.Choose.Weight (weightFromOpenTypeDouble, weightToOpenTypeDouble,
+    weightFromOpenType, weightToOpenType)
-- 
2.30.2