@@ -80,9 +80,9 @@ metaToMan options (Meta title authors date) = do
80 let head = (text ".TH") <+> title' <+> section <+>
80 let head = (text ".TH") <+> title' <+> section <+>
81 doubleQuotes (text date) <+> hsep extras
81 doubleQuotes (text date) <+> hsep extras
82 let foot = case length authors of
82 let foot = case length authors of
83− 0 -> text $ ""
83+ 0 -> empty
84− 1 -> text $ ".SH AUTHOR\n" ++ joinWithSep ", " authors
84+ 1 -> text ".SH AUTHOR" $$ (text $ joinWithSep ", " authors)
85− 2 -> text $ ".SH AUTHORS\n" ++ joinWithSep ", " authors
85+ 2 -> text ".SH AUTHORS" $$ (text $ joinWithSep ", " authors)
86 return $ if writerStandalone options
86 return $ if writerStandalone options
87 then (head, foot)
87 then (head, foot)
88 else (empty, empty)
88 else (empty, empty)
@@ -261,9 +261,12 @@ inlineToMan opts (Strong lst) = do
261inlineToMan opts (Strikeout lst) = do
261inlineToMan opts (Strikeout lst) = do
262 contents <- inlineListToMan opts lst
262 contents <- inlineListToMan opts lst
263 return $ text "[STRIKEOUT:" <> contents <> char ']'
263 return $ text "[STRIKEOUT:" <> contents <> char ']'
264−-- just treat superscripts and subscripts like normal text
265−inlineToMan opts (Superscript lst) = inlineListToMan opts lst
264+inlineToMan opts (Superscript lst) = do
265+ contents <- inlineListToMan opts lst
266+ return $ char '^' <> contents <> char '^'
266−inlineToMan opts (Subscript lst) = inlineListToMan opts lst
267+inlineToMan opts (Subscript lst) = do
268+ contents <- inlineListToMan opts lst
269+ return $ char '~' <> contents <> char '~'
267inlineToMan opts (Quoted SingleQuote lst) = do
270inlineToMan opts (Quoted SingleQuote lst) = do
268 contents <- inlineListToMan opts lst
271 contents <- inlineListToMan opts lst
269 return $ char '`' <> contents <> char '\''
272 return $ char '`' <> contents <> char '\''