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

fixup links again

Browse source
This commit is contained in:
Mirek Kratochvil 2023-06-08 16:03:31 +02:00
parent dc128cbe0e
commit 3d805c5d80
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
site.hs
View file

@ -127,7 +127,7 @@ checkTarget fp = do
-- | Prepend the root path to the given link -- | Prepend the root path to the given link
rootUrl :: FilePath -> Site FilePath rootUrl :: FilePath -> Site FilePath
rootUrl fp = (</> fp) <$> use urlBase rootUrl fp = (</> dropWhile (=='/') fp) <$> use urlBase
-- | Process a single link pointing out from a page. -- | Process a single link pointing out from a page.
processLink :: FilePath -> FilePath -> Site String processLink :: FilePath -> FilePath -> Site String
@ -280,6 +280,7 @@ makeHTagLinkMeta tag = do
pure $ pure $
Y.object [("href", fromString link), ("tags", Y.array $ map fromString tag)] Y.object [("href", fromString link), ("tags", Y.array $ map fromString tag)]
-- | Make metadata for printing out a link to a page
makePageLinkMeta :: FilePath -> Site Y.Value makePageLinkMeta :: FilePath -> Site Y.Value
makePageLinkMeta mount = do makePageLinkMeta mount = do
link <- rootUrl mount link <- rootUrl mount