@@ -49,7 +49,7 @@ import System.Exit ( exitWith, ExitCode (..) )
4949import System.FilePath
5050import System.Console.GetOpt
5151import Data.Char ( toLower )
52−import Data.List ( intercalate, isPrefixOf, isSuffixOf, sort )
52+import Data.List ( delete, intercalate, isPrefixOf, isSuffixOf, sort )
5353import System.Directory ( getAppUserDataDirectory, findExecutable,
5454 doesFileExist, Permissions(..), getPermissions )
5555import System.IO ( stdout, stderr )
@@ -915,13 +915,15 @@ readMetaValue s = case decode (UTF8.fromString s) of
915915usageMessage :: String -> [OptDescr (Opt -> IO Opt)] -> String
916916usageMessage programName = usageInfo
917917 (programName ++ " [OPTIONS] [FILES]" ++ "\nInput formats: " ++
918− (wrapWords 16 78 $ readers'names) ++ "\nOutput formats: " ++
918+ (wrapWords 16 78 $ readers'names) ++
919+ '\n' : replicate 16 ' ' ++
920+ "[ *only Pandoc's JSON version of native AST]" ++ "\nOutput formats: " ++
919921 (wrapWords 16 78 $ writers'names) ++
920922 '\n' : replicate 16 ' ' ++
921− "[*for pdf output, use latex or beamer and -o FILENAME.pdf]\nOptions:")
923+ "[**for pdf output, use latex or beamer and -o FILENAME.pdf]\nOptions:")
922924 where
923− writers'names = sort $ "pdf*" : map fst writers
924− readers'names = sort $ map fst readers
925+ writers'names = sort $ "json*" : "pdf**" : delete "json" (map fst writers)
926+ readers'names = sort $ "json*" : delete "json" (map fst readers)
925927
926928-- Determine default reader based on source file extensions
927929defaultReaderName :: String -> [FilePath] -> String