Style update
This commit is contained in:
parent
d2832f56b4
commit
480f646648
2 changed files with 16 additions and 5 deletions
|
@ -165,6 +165,7 @@ displayOneComment comment vt = do
|
|||
H.a ! A.href (cvt ('#':cid)) $ "§ "
|
||||
H.a H.! A.href (fromString (toS ("/comments/" <> urlEncode (toS s)))) $ H.text (toS s)
|
||||
H.span ! A.class_ "time" $ do
|
||||
H.text " "
|
||||
H.text . toS . approximativeDuration . realToFrac $ diffUTCTime vt (created (metas comment))
|
||||
H.text " ago"
|
||||
H.div ! A.class_ "tohide" $ do
|
||||
|
|
|
@ -60,7 +60,7 @@ base3 :: Color
|
|||
base3 = rgb 253 246 227
|
||||
|
||||
highlightColor :: Color
|
||||
highlightColor = lighten 0.7 yellow
|
||||
highlightColor = base3
|
||||
|
||||
headerstyle :: Clay.Selector -> Css
|
||||
headerstyle h = h ? do
|
||||
|
@ -71,16 +71,24 @@ headerstyle h = h ? do
|
|||
genCss :: Css
|
||||
genCss = do
|
||||
body ? do
|
||||
-- fontFamily ["Menlo"] [monospace]
|
||||
fontFamily ["helvetica"] [sansSerif]
|
||||
fontSize (px 13)
|
||||
fontSize (px 14)
|
||||
color (rgb 64 64 64)
|
||||
margin (px 0) (px 0) (px 0) (px 0)
|
||||
padding (px 0) (px 0) (px 0) (px 0)
|
||||
":target" ?
|
||||
pre ? do
|
||||
fontFamily ["Menlo"] [monospace]
|
||||
fontSize (px 12)
|
||||
code ? do
|
||||
fontFamily ["Menlo"] [monospace]
|
||||
fontSize (px 12)
|
||||
":target" ? do
|
||||
backgroundColor highlightColor
|
||||
":target" |+ div ?
|
||||
padding (ex 1) (ex 1) (ex 1) (ex 1)
|
||||
":target" |+ div ? do
|
||||
backgroundColor highlightColor
|
||||
padding (ex 1) (ex 1) (ex 1) (ex 1)
|
||||
borderBottom solid (px 4) base2
|
||||
header ? do
|
||||
width (pct 100)
|
||||
background base3
|
||||
|
@ -141,6 +149,8 @@ genCss = do
|
|||
borderLeft solid (px 0) solblue
|
||||
borderRight solid (px 0) solblue
|
||||
backgroundColor base2
|
||||
padding (ex 1) (ex 1) (ex 1) (ex 1)
|
||||
margin (ex 1) (ex 1) (ex 1) (ex 0)
|
||||
hover & do
|
||||
backgroundColor base3
|
||||
cursor pointer
|
||||
|
|
Loading…
Reference in a new issue