Correctly implement capitalisation.

Using `map toUpper` to capitalise text is wrong, as e.g. “Straße” should be converted to “STRASSE”, which is 1 character longer. This commit adds a `capitalize` function to Text.Pandoc.Shared and replaces 2 identical implementations in different modules (`toCaps` and `capitalize`) with it.