From 6c8edd8f8effba8963929cd06631f829bb43fdd7 Mon Sep 17 00:00:00 2001
From: Yuriy Lazarev <unisay@gmail.com>
Date: Sat, 12 Aug 2017 14:21:00 +0200
Subject: [PATCH 1/3] Add generic font families

---
 src/CSS/Font.purs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/CSS/Font.purs b/src/CSS/Font.purs
index b3912aa..b7dcc05 100644
--- a/src/CSS/Font.purs
+++ b/src/CSS/Font.purs
@@ -22,9 +22,24 @@ derive instance genericGenericFontFamily :: Generic GenericFontFamily
 instance valGenericFontFamily :: Val GenericFontFamily where
   value (GenericFontFamily v) = v
 
+serif :: GenericFontFamily
+serif = GenericFontFamily $ fromString "serif"
+
 sansSerif :: GenericFontFamily
 sansSerif = GenericFontFamily $ fromString "sans-serif"
 
+cursive :: GenericFontFamily
+cursive = GenericFontFamily $ fromString "cursive"
+
+monospace :: GenericFontFamily
+monospace = GenericFontFamily $ fromString "monospace"
+
+fantasy :: GenericFontFamily
+fantasy = GenericFontFamily $ fromString "fantasy"
+
+systemUi :: GenericFontFamily
+systemUi = GenericFontFamily $ fromString "system-ui"
+
 fontFamily :: Array String -> NonEmpty Array GenericFontFamily -> CSS
 fontFamily a b = key (fromString "font-family") <<< value $ (value <<< quote <$> a) <> oneOf (value <$> b)
 

From 6ffd8d04b51e29a69b1489be951987d360f4701b Mon Sep 17 00:00:00 2001
From: Jordan Martinez <jordanalex.martinez@protonmail.com>
Date: Tue, 21 Sep 2021 05:32:06 -0700
Subject: [PATCH 2/3] Add remaining generic font families

---
 src/CSS/Font.purs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/src/CSS/Font.purs b/src/CSS/Font.purs
index b7dcc05..379fd17 100644
--- a/src/CSS/Font.purs
+++ b/src/CSS/Font.purs
@@ -40,6 +40,27 @@ fantasy = GenericFontFamily $ fromString "fantasy"
 systemUi :: GenericFontFamily
 systemUi = GenericFontFamily $ fromString "system-ui"
 
+uiSerif :: GenericFontFamily
+uiSerif = GenericFontFamily $ fromString "ui-serif"
+
+uiSansSerif :: GenericFontFamily
+uiSansSerif = GenericFontFamily $ fromString "ui-sans-serif"
+
+uiMonospace :: GenericFontFamily
+uiMonospace = GenericFontFamily $ fromString "ui-monospace"
+
+uiRounded :: GenericFontFamily
+uiRounded = GenericFontFamily $ fromString "ui-rounded"
+
+emoji :: GenericFontFamily
+emoji = GenericFontFamily $ fromString "emoji"
+
+math :: GenericFontFamily
+math = GenericFontFamily $ fromString "math"
+
+fangsong :: GenericFontFamily
+fangsong = GenericFontFamily $ fromString "fangsong"
+
 fontFamily :: Array String -> NonEmpty Array GenericFontFamily -> CSS
 fontFamily a b = key (fromString "font-family") <<< value $ (value <<< quote <$> a) <> oneOf (value <$> b)
 

From 78856e1d1051ca1d06ff5840d3f631d860fb24ce Mon Sep 17 00:00:00 2001
From: Jordan Martinez <jordanalex.martinez@protonmail.com>
Date: Tue, 21 Sep 2021 05:34:59 -0700
Subject: [PATCH 3/3] Update changelog

---
 CHANGELOG.md | 1 +
 1 file changed, 1 insertion(+)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 73cad52..669a3e3 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -7,6 +7,7 @@ Notable changes to this project are documented in this file. The format is based
 Breaking changes:
 
 New features:
+- Add smart constructors for generic font families (#68, #136 by @Unisay and @JordanMartinez)
 
 Bugfixes: