siteRelativize
  :: String
     -- ^ Identifier path
  -> Text
     -- ^ HTML to relativize
  -> Text
     -- ^ Resulting HTML
siteRelativize path = T.pack . withUrls f . T.unpack
  where
    f ('.':'/':xs) = path </> xs
    f xs           = xs
siteRelativize
  :: String
     -- ^ Identifier path
  -> Text
     -- ^ HTML to relativize
  -> Text
siteRelativize path = T.pack . withUrls f . T.unpack
  where
    f ('.':'/':xs) = path </> xs
    f xs           = xs
siteRelativize path = T.pack . withUrls f . T.unpack
  where
    f ('.':'/':xs) = path </> xs
    f xs           = xs