exa/reploy
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

some fixes

Browse source
This commit is contained in:
Mirek Kratochvil 2024-10-14 14:10:16 +02:00
parent 0e710215b4
commit a64aff0c1f
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
pages/index.md
View file

@ -10,3 +10,5 @@ timestamp: null
# Well hello there # Well hello there
This site is empty, you can start populating it! This site is empty, you can start populating it!
[link test](/?link-test)

6
reploy.hs
View file

@ -210,7 +210,7 @@ addGlobalMeta meta = do
rtp <- rootedPageLink' rtp <- rootedPageLink'
pn <- pageName' pn <- pageName'
aui <- use appendUrlIndex aui <- use appendUrlIndex
ifname <- use indexFilename ifi <- use indexFile
Y.Object m <- (`objMerge` meta) <$> use extraMeta Y.Object m <- (`objMerge` meta) <$> use extraMeta
let l = map (\(k, v) -> (K.toText k, Mu.toMustache v)) $ KM.toList m let l = map (\(k, v) -> (K.toText k, Mu.toMustache v)) $ KM.toList m
pure . Mu.object pure . Mu.object
@ -220,7 +220,9 @@ addGlobalMeta meta = do
, ("pageLink", Mu.overText $ T.pack . rtp . T.unpack) , ("pageLink", Mu.overText $ T.pack . rtp . T.unpack)
, ("pageName", Mu.overText $ T.pack . pn . T.unpack) , ("pageName", Mu.overText $ T.pack . pn . T.unpack)
] ]
++ (if aui then [("indexFilename", Mu.toMustache $ T.pack ifname )] else []) ++ (if aui
then [("indexFile", Mu.toMustache $ T.pack ifi)]
else [])
-- | Get the expected timestamp file for a given filepath -- | Get the expected timestamp file for a given filepath
metadataFile :: FilePath -> Site FilePath metadataFile :: FilePath -> Site FilePath