From 0b9da369672466ffde9132fc5045279038b5d802 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 2 Dec 2022 13:47:21 +1300
Subject: [PATCH] Parse font-variation-settings property for @font-face.

---
 Graphics/Text/Font/Choose/FontSet.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Graphics/Text/Font/Choose/FontSet.hs b/Graphics/Text/Font/Choose/FontSet.hs
index 582b0c3..cb1f84f 100644
--- a/Graphics/Text/Font/Choose/FontSet.hs
+++ b/Graphics/Text/Font/Choose/FontSet.hs
@@ -93,6 +93,10 @@ properties2font (("font-feature-settings", toks):props)
         setValue "fontfeatures" Strong (intercalate "," $ map fst features) $
             properties2font props
 
+properties2font (("font-variation-settings", toks):props)
+    | (_, True, []) <- parseFontVars toks =
+        setValue "variable" Strong True $ properties2font props
+
 properties2font (_:props) = properties2font props
 properties2font [] = []
 
-- 
2.30.2