nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

let pagination links fill entire box

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

5
static/css/main.css
View file

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

7
templates/home.hamlet
View file

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

9
templates/page.hamlet
View file

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