yogsototh/aggreact
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Updated CSS

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2018-12-15 23:51:47 +01:00
parent c55157beed
commit f2aaac4c0f
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
2 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/Aggreact/Css.hs
View file

@ -3,10 +3,23 @@ module Aggreact.Css where
import Clay
genCss :: Css
genCss =
genCss = do
body ? do
fontFamily ["Menlo"] [monospace]
fontSize (px 14)
maxWidth (px 800)
lineHeight (em 1.5)
margin (px 0) auto (px 0) auto
borderLeft solid (em 1) black
paddingLeft (em 1)
label ?
minWidth (px 100)
pre ? do
marginTop (px 0)
marginBottom (px 0)
li ? do
borderLeft solid (px 1) black
paddingLeft (em 1)
".metas" ? do
borderTop solid (px 1) black
fontSize (px 11)

2
src/Servant/Clay.hs
View file

@ -16,7 +16,7 @@ import Servant.API (Accept (..), MimeRender (..))
data CSS deriving Typeable
instance Accept CSS where
contentType _ = "test" M.// "css" M./: ("charset","utf-8")
contentType _ = "text" M.// "css" M./: ("charset","utf-8")
instance MimeRender CSS Css where
mimeRender _ = encodeUtf8 . renderWith compact []