From aa64d6bdaa9fd23d205c18974dac8f29d29fd4f3 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 5 Apr 2016 14:08:02 +0200
Subject: Highlight current page in header

---
 src/server/Design/Header.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/server/Design/Header.hs')

diff --git a/src/server/Design/Header.hs b/src/server/Design/Header.hs
index 3b4f35c..e361cb1 100644
--- a/src/server/Design/Header.hs
+++ b/src/server/Design/Header.hs
@@ -31,6 +31,16 @@ headerDesign =
       paddingRight headerPadding
       hover & backgroundColor darkenedRed
       focus & backgroundColor darkenedRed
+      position relative
+      ".current" & after & do
+          display block
+          content (stringContent "")
+          height (px 5)
+          width (pct 100)
+          position absolute
+          bottom (px 0)
+          left (px 0)
+          backgroundColor C.white
 
     ".title" ? do
       height (pct 100)
-- 
cgit v1.2.3