styling and fixes

src/Aggreact/Css.hs

@@ -1,21 +1,21 @@
-{-# LANGUAGE  OverloadedStrings          #-} -- write "foo" and it will be the correct text type
-{-# LANGUAGE  NoImplicitPrelude          #-} -- to use protolude for example
-{-# LANGUAGE  ScopedTypeVariables        #-} -- write expr :: Type  inside an expression
-{-# LANGUAGE  TupleSections              #-} -- (a,,) instead of \x y -> (a,x,y)
-{-# LANGUAGE  OverloadedLists            #-} -- write [1,2,3] :: Set
-{-# LANGUAGE  ExplicitForAll             #-} -- f :: forall a b. a -> b -> b
-{-# LANGUAGE  RecordWildCards            #-} -- f Conf{..} = field1 ...
-{-# LANGUAGE  GeneralizedNewtypeDeriving #-} -- newtype Id = Id Text deriving (StringConv Id String)
-{-# LANGUAGE  DeriveGeneric              #-} -- deriving ToJSON ...
-{-# LANGUAGE  DerivingStrategies         #-} -- remove warn about deriving strategies
-{-# LANGUAGE  StandaloneDeriving         #-} -- write deriving instance ...
-{-# LANGUAGE  NamedWildCards             #-} -- can use _type instead of just _
-{-# LANGUAGE  PartialTypeSignatures      #-} --
-{-# LANGUAGE  BlockArguments             #-} -- blabla do ... instead of blabla $ do ...
-{-# LANGUAGE  NumericUnderscores         #-} -- write 1_000 instead of 1000
+{-# LANGUAGE BlockArguments             #-}
+{-# LANGUAGE DeriveGeneric              #-}
+{-# LANGUAGE DerivingStrategies         #-}
+{-# LANGUAGE ExplicitForAll             #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE NamedWildCards             #-}
+{-# LANGUAGE NoImplicitPrelude          #-}
+{-# LANGUAGE NumericUnderscores         #-}
+{-# LANGUAGE OverloadedLists            #-}
+{-# LANGUAGE OverloadedStrings          #-}
+{-# LANGUAGE PartialTypeSignatures      #-}
+{-# LANGUAGE RecordWildCards            #-}
+{-# LANGUAGE ScopedTypeVariables        #-}
+{-# LANGUAGE StandaloneDeriving         #-}
+{-# LANGUAGE TupleSections              #-}
 module Aggreact.Css where
 
-import           Protolude hiding ((&), div)
+import           Protolude hiding (div, (&))
 
 import           Clay
 
@@ -64,14 +64,13 @@ highlightColor = base3
 
 headerstyle :: Clay.Selector -> Css
 headerstyle h = h ? do
-  fontWeight bold
+  fontWeight (weight 500)
   fontSize (em 1)
 
-
 genCss :: Css
 genCss = do
   body ? do
-    fontFamily ["helvetica"] [sansSerif]
+    fontFamily ["Helvetica Neue"] [sansSerif]
     -- fontFamily ["menlo"] [monospace]
     fontSize (px 14)
     color (rgb 64 64 64)
@@ -178,8 +177,9 @@ genCss = do
     marginTop (px 0)
     marginBottom (px 0)
     overflow scroll
-  ".commentContent" ?
+  ".commentContent" ? do
     whiteSpace preWrap
+    overflowWrap breakWord
   body |> ul ?
     paddingLeft (px 0)
   ul ? do
@@ -189,9 +189,11 @@ genCss = do
     marginLeft (px 0)
   form ? margin (ex 1) (px 0) (ex 1) (px 0)
   ".small" ? do
+    fontWeight (weight 200)
     fontSize (px 11)
     lineHeight (em 1)
   ".metas" ? do
     marginTop (ex 1)
     fontSize (px 11)
+    fontWeight (weight 200)
     color grey