Fix active on articles

src/Build.hs

@@ -17,7 +17,8 @@ putNavbar nebelhorn@Nebelhorn{..} = nebelhorn
     , nebelhornPages = putNavbarPage <$> nebelhornPages
     , nebelhornIndex = putNavbarPage nebelhornIndex
     } where
-        putNavbarArticle = addMeta "navbar" $ MetaList $ navItemToMeta True <$> nebelhornNavItems
+        putNavbarArticle = addMeta "navbar" $ MetaList $ f <$> nebelhornNavItems where
+            f n@NavItem{..} = navItemToMeta navItemActiveOnArticles n
         putNavbarPage pandoc@(Pandoc meta _) = addMeta "navbar" (MetaList $ f <$> nebelhornNavItems) pandoc where
             f n@NavItem{..} = case lookupMeta "link" meta of
                 Just (MetaString link) -> navItemToMeta (unpack navItemLink == "/" <> link) n