diff --git a/pages/index.md b/pages/index.md index f44e915..38a87df 100644 --- a/pages/index.md +++ b/pages/index.md @@ -1,5 +1,7 @@ --- mount: / +redirects: + - also_index title: Home toc: off timestamp: null diff --git a/reploy.hs b/reploy.hs index e3ec004..7e475df 100644 --- a/reploy.hs +++ b/reploy.hs @@ -280,7 +280,8 @@ installPage mount pi = do {- | Install a simple redirect handler page. -} installRedirect :: FilePath -> FilePath -> Site () -installRedirect target from = do +installRedirect target' from = do + target <- rootPageUrl target' tname <- use redirectTemplate templ <- use $ templates . to (M.! fromString tname) file <- indexFilename from @@ -298,8 +299,7 @@ installPageRedirects :: FilePath -> PageInfo -> Site () installPageRedirects target pi = do traverse_ (installRedirect target) - (pi ^.. pageMeta . key "redirects" . values . _String . to T.unpack . - to unAbsolute) + (pi ^.. pageMeta . key "redirects" . values . _String . to T.unpack) -- | Find the path to the file of a given hash dataFilename :: String -> FilePath -> Site (FilePath, FilePath) diff --git a/templates/searchresults.html b/templates/searchresults.html index 115369e..5044d0b 100644 --- a/templates/searchresults.html +++ b/templates/searchresults.html @@ -19,7 +19,7 @@