Renamespace Devalloc and Que

Move them under the Biz root so that we know they are specific to Biz stuff. Biz
is for proprietary stuff that we own.

I also had to refactor the bild namespace parsing code because it couldn't
handle a namespace with 3 parts. I really need to get that namespace library
written and tested.

1 files changed, 15 insertions, 14 deletions

diff --git a/Hero/Look/Typography.hs b/Hero/Look/Typography.hs
index 9e35ef5..7c28f21 100644
--- a/Hero/Look/Typography.hs
+++ b/Hero/Look/Typography.hs
@@ -36,7 +36,7 @@ lean = fontStyle italic
 -- | "smallcaps" is already taken by Clay
 smol = fontVariant smallCaps
 
-lower = textTransform lowercase
+lower = textTransform Clay.lowercase
 
 upper = textTransform uppercase
 
@@ -52,21 +52,22 @@ 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)
-         ]
+  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
+    mkEuro (sufx, fmt, extra) =
+      fontFace <| do
+        fontFamily ["Eurostile"] []
+        fontFaceSrc [FontFaceSrcUrl (fontRoot <> sufx) <| Just fmt]
+        extra
 
 -- TODO: add the below to Clay.Font upstream