From 78760bee99fd9844f9e9f60729d31ce3ae80f76a Mon Sep 17 00:00:00 2001 From: nek0 Date: Wed, 22 Mar 2017 00:48:18 +0100 Subject: [PATCH] let pagination links fill entire box --- static/css/main.css | 5 +++++ templates/home.hamlet | 9 ++++----- templates/page.hamlet | 15 ++++++--------- 3 files changed, 15 insertions(+), 14 deletions(-) diff --git a/static/css/main.css b/static/css/main.css index c83cbef..2f0428b 100644 --- a/static/css/main.css +++ b/static/css/main.css @@ -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; } diff --git a/templates/home.hamlet b/templates/home.hamlet index caf1996..9a029aa 100755 --- a/templates/home.hamlet +++ b/templates/home.hamlet @@ -4,13 +4,12 @@ $doctype 5

A simple gallery System in Haskell and Yesod $forall (Entity mediumId medium) <- recentMedia -

+
#{mediumTitle medium} $if nextMedia -