diff --git a/reploy.hs b/reploy.hs index aab4282..c540d5b 100644 --- a/reploy.hs +++ b/reploy.hs @@ -181,7 +181,8 @@ processLink base l = || take 1 l == "#" then pure l else if isAbsolute l - then rootedPageLink l + then let (path, rest) = break (`elem` ['?', '#']) l + in (<> rest) <$> rootedPageLink path else installFile (base l) >>= rootedLink -- | Conjure a function that finds a displayable name for a page at a particular mount. @@ -208,6 +209,8 @@ addGlobalMeta meta = do rt <- rootedLink' rtp <- rootedPageLink' pn <- pageName' + aui <- use appendUrlIndex + ifname <- use indexFilename Y.Object m <- (`objMerge` meta) <$> use extraMeta let l = map (\(k, v) -> (K.toText k, Mu.toMustache v)) $ KM.toList m pure . Mu.object @@ -217,6 +220,7 @@ addGlobalMeta meta = do , ("pageLink", Mu.overText $ T.pack . rtp . T.unpack) , ("pageName", Mu.overText $ T.pack . pn . T.unpack) ] + ++ (if aui then [("indexFilename", Mu.toMustache $ T.pack ifname )] else []) -- | Get the expected timestamp file for a given filepath metadataFile :: FilePath -> Site FilePath