@@ -41,7 +41,6 @@ import Data.Maybe (fromMaybe)
4141import Text.Pandoc.Pretty
4242import Text.Pandoc.Builder (deleteMeta)
4343import Control.Monad.State
44−import Data.Char ( isDigit )
4544
4645type Notes = [[Block]]
4746data WriterState = WriterState { stNotes :: Notes
@@ -62,10 +61,11 @@ pandocToMan opts (Pandoc meta blocks) = do
6261 let title' = render' titleText
6362 let setFieldsFromTitle =
6463 case break (== ' ') title' of
65− (cmdName, rest) -> case reverse cmdName of
66− (')':d:'(':xs) | isDigit d ->
67− defField "title" (reverse xs) .
68− defField "section" [d] .
64+ (cmdName, rest) -> case break (=='(') cmdName of
65+ (xs, '(':ys) | not (null ys) &&
66+ last ys == ')' ->
67+ defField "title" xs .
68+ defField "section" (init ys) .
6969 case splitBy (=='|') rest of
7070 (ft:hds) ->
7171 defField "footer" (trim ft) .