Complete PR 68 - Add Generic Font Families

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:
 

src/CSS/Font.purs

@@ -20,9 +20,45 @@ derive instance ordGenericFontFamily :: Ord 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"
+
+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)