Replacing all "/index.html" identifiers with "/" for urls

[Bram Neijt]

I use a directory for every blog post like the example, but I would like to replace the urls which point to "something/index.html" to point to just plain "something/" as the index.html is implied by my webserver configuration.

I'm currently working with Hakyll 4 (source [1])

Greets,

Bram

[1] https://github.com/bneijt/bneijt.nl

[Jasper Van der Jeugt]

You can write something like this:

import Data.List (isSuffixOf)
import Hakyll

cleanIndexUrls :: Item String -> Compiler (Item String)
cleanIndexUrls = return . fmap (withUrls clean)
where
idx = "index.html"
clean url
| idx `isSuffixOf` url = take (length url - length idx) url
| otherwise = url

And use it pretty much in the same way as `relativizeUrls`.

Hope this helps,
Peace,
Jasper

> --
> You received this message because you are subscribed to the Google Groups
> "hakyll" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to hakyll+un...@googlegroups.com.
> For more options, visit https://groups.google.com/groups/opt_out.
>
>

[Bram Neijt]

Cool! I tried working with relativizeUrls but got lost somewhere, your code works really well.

Thank you!

Bram

[DarkFox]

System Filepath has splitFileName, very nice for this.

import Control.Applicative ((<$>))
import Data.List           (isInfixOf)
import System.FilePath     (splitFileName)
import Hakyll

{- ... -}

removeIndexHtml :: Item String -> Compiler (Item String)
removeIndexHtml = return . (withUrls removeIndexStr <$>)
  where removeIndexStr :: String -> String
        removeIndexStr u = case splitFileName u of
            (d, "index.html") | isLocal d -> d
            _                             -> u
        isLocal :: String -> Bool
        isLocal = not . (isInfixOf "://")

--

Cheers,
DarkFox