diff options
| author | Mirek Kratochvil <miroslav.kratochvil@uni.lu> | 2023-08-03 14:12:18 +0200 |
|---|---|---|
| committer | Mirek Kratochvil <miroslav.kratochvil@uni.lu> | 2023-08-03 14:12:18 +0200 |
| commit | b4bbc0f1b3e20bd21210c7786880d0fc337303b8 (patch) | |
| tree | 429bd61460b840611c51b33f64f262d6c8ca846c /reploy.hs | |
| parent | 8d2c3c229cc4b3025de70a4892ad99c6be33caa2 (diff) | |
| download | reploy-b4bbc0f1b3e20bd21210c7786880d0fc337303b8.tar.gz reploy-b4bbc0f1b3e20bd21210c7786880d0fc337303b8.tar.bz2 | |
support custom metadata per build
Closes #13
Diffstat (limited to 'reploy.hs')
| -rw-r--r-- | reploy.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -202,8 +202,9 @@ addGlobalMeta :: Y.Value -> Site MT.Value addGlobalMeta (Y.Object m) = do r <- use urlBase i <- use appendUrlIndex + em <- use extraMeta let l = map (\(k, v) -> (K.toText k, Mu.toMustache v)) $ KM.toList m - pure . Mu.object $ l ++ + pure . Mu.object $ l ++ map (\(k, v) -> (T.pack k, Mu.toMustache v)) em ++ [ ("root", Mu.toMustache $ T.pack r) , ("rawRootUrl", Mu.overText $ T.pack . rootUrl' r . T.unpack) , ("pageLink", Mu.overText $ T.pack . rootPageUrl' r i . T.unpack) |