1 files changed, 0 insertions, 84 deletions
diff --git a/Hero/Look/Typography.hs b/Hero/Look/Typography.hs
deleted file mode 100644
index 603e78b..0000000
--- a/Hero/Look/Typography.hs
+++ /dev/null
@@ -1,84 +0,0 @@
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE NoImplicitPrelude #-}
-
-module Hero.Look.Typography where
-
-import Alpha
-import Clay
-import Clay.Stylesheet (key)
-import Data.Semigroup ((<>))
-import qualified Hero.Pack as Pack
-
-main :: Css
-main = fonts
-
--- font modifiers
-
-euro, slim, wide, thicc, thinn, norm, lean, smol, lower, upper :: Css
-euro = fontFamily ["Eurostile"] [sansSerif]
-
--- | stretch
-slim = fontStretch condensed
-
-wide = fontStretch expanded
-
--- | weight
-thicc = fontWeight bold
-
-thinn = fontWeight normal
-
--- | style
-norm = fontStyle normal
-
-lean = fontStyle italic
-
--- | "smallcaps" is already taken by Clay
-smol = fontVariant smallCaps
-
-lower = textTransform Clay.lowercase
-
-upper = textTransform uppercase
-
--- | font sizing
-
--- | apparently "coat" is a synonym for "size"
-coat :: Double -> Css
-coat = fontSize <. Clay.rem
-
-fontRoot :: Text
-fontRoot = Pack.cdnEdge <> "/old-assets/fonts/eurostile/Eurostile"
-
--- | font faces
-fonts :: Css
-fonts =
-  mconcat
-    <| mkEuro
-    </ [ ("-Reg.otf", OpenType, fontWeight normal <> fontStyle normal),
-         ("LTStd-Bold.otf", OpenType, thicc <> norm),
-         ("LTStd-Cn.otf", OpenType, slim <> norm),
-         ("LTStd-Ex2.otf", OpenType, wide <> norm),
-         ("LTStd-BoldCn.otf", OpenType, slim <> thicc),
-         ("LTStd-BoldEx2.otf", OpenType, wide <> thicc)
-       ]
-  where
-    mkEuro :: (Text, FontFaceFormat, Css) -> Css
-    mkEuro (sufx, fmt, extra) =
-      fontFace <| do
-        fontFamily ["Eurostile"] []
-        fontFaceSrc [FontFaceSrcUrl (fontRoot <> sufx) <| Just fmt]
-        extra
-
--- TODO: add the below to Clay.Font upstream
-
-newtype FontStretch = FontStretch Value
-  deriving (Val, Inherit, Normal, Other)
-
-expanded :: FontStretch
-expanded = FontStretch "expanded"
-
-condensed :: FontStretch
-condensed = FontStretch "condensed"
-
-fontStretch :: FontStretch -> Css
-fontStretch = key "font-stretch"