Highlight current page in header

1 files changed, 10 insertions, 0 deletions

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)