let pagination links fill entire box
This commit is contained in:
parent
eac199d0dc
commit
78760bee99
3 changed files with 15 additions and 14 deletions
|
@ -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;
|
||||
}
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue