Move CSS into its own file

app/Main.hs

@@ -7,11 +7,13 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RankNTypes #-}
 {-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE TypeOperators #-}
 
 module Main (main) where
 
 import Data.Char (chr)
+import Data.FileEmbed (embedFile)
 import Data.Foldable (for_)
 import Data.List (intercalate)
 import Data.Maybe (fromMaybe, maybeToList)
@@ -106,7 +108,7 @@ instance MimeRender HTML BytesModel where
     H.head $ do
       H.meta ! A.charset "utf-8"
       H.title "utoy"
-      H.style "html { font-size: 32px; font-family: 'Noto Sans', sans-serif; } td { padding: 0.5em 1em; } pre { margin: 0; font-size: 0.5em; } body { display: flex; justify-content: center; }"
+      H.style $ H.toHtml $ Encoding.decodeUtf8 $(embedFile "utoy.css")
     H.body $ do
       H.table $ for_ model.codepoints $ \(bytes, eiC) -> do
         H.tr $ do