Commit 1b213744 authored by Nicolas Lenz's avatar Nicolas Lenz ❄️
Browse files

Fix active on articles

parent 2c45cd93

src/Build.hs

+2 −1
Original line number Diff line number Diff line
@@ -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