let pagination links fill entire box

This commit is contained in:
nek0 2017-03-22 00:48:18 +01:00
parent eac199d0dc
commit 78760bee99
3 changed files with 15 additions and 14 deletions

View file

@ -117,6 +117,11 @@ a:hover, .item a:hover, .medium a:hover, a:hover figcaption {
height: 150px;
}
.pagin {
line-height: 260px !important;
font-size: 14pt;
}
.column {
margin: 0 40px 0;
}

View file

@ -4,13 +4,12 @@ $doctype 5
<p>
A simple gallery System in Haskell and Yesod
$forall (Entity mediumId medium) <- recentMedia
<div class="item">
<div .item>
<a href=@{MediumR mediumId}>
<figure>
<img src=@{StaticR $ StaticRoute (drop 2 $ map T.pack $ splitDirectories $ mediumThumb medium) []} title=#{mediumTitle medium}>
<figcaption>#{mediumTitle medium}
$if nextMedia
<div .item .subheader .pagin>
<p>
<a href=@{PageR 1}>
older
<div .item .subheader>
<a .pagin href=@{PageR 1}>
older

View file

@ -1,14 +1,12 @@
$doctype 5
$if page == 1
<div .item .subheader>
<div style="height:100%" class="inner">
<a href=@{HomeR}>
newer
<a .pagin href=@{HomeR}>
newer
$else
<div .item .subheader>
<div style="height:100%" class="inner">
<a style="inline-block" href=@{PageR (page - 1)}>
newer
<a href=@{PageR (page - 1)}>
newer
$forall (Entity mediumId medium) <- pageMedia
<div .item>
<a href=@{MediumR mediumId}>
@ -17,6 +15,5 @@ $forall (Entity mediumId medium) <- pageMedia
<figcaption>#{mediumTitle medium}
$if nextMedia
<div .item .subheader>
<div style="height:100%" class="inner">
<a style="inline-block" href=@{PageR (page + 1)}>
older
<a .pagin style="inline-block" href=@{PageR (page + 1)}>
older