diff options
Diffstat (limited to 'pandoc-server')
| -rw-r--r-- | pandoc-server/src/Text/Pandoc/Server.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/pandoc-server/src/Text/Pandoc/Server.hs b/pandoc-server/src/Text/Pandoc/Server.hs index e5f8dee90..bfa2efb32 100644 --- a/pandoc-server/src/Text/Pandoc/Server.hs +++ b/pandoc-server/src/Text/Pandoc/Server.hs @@ -275,8 +275,11 @@ server = convertBytes let isStandalone = optStandalone opts let toformat = formatName writerFormat - hlStyle <- traverse (lookupHighlightingStyle . T.unpack) - $ optHighlightStyle opts + hlStyle <- case optSyntaxHighlighting opts of + "none" -> pure NoHighlighting + "idiomatic" -> pure IdiomaticHighlighting + "default" -> pure DefaultHighlighting + s -> Skylighting <$> lookupHighlightingStyle (T.unpack s) mbTemplate <- if isStandalone then case optTemplate opts of @@ -327,8 +330,7 @@ server = convertBytes , writerHtmlQTags = optHtmlQTags opts , writerSlideLevel = optSlideLevel opts , writerTopLevelDivision = optTopLevelDivision opts - , writerListings = optListings opts - , writerHighlightStyle = hlStyle + , writerHighlightMethod = hlStyle , writerSetextHeaders = optSetextHeaders opts , writerListTables = optListTables opts , writerEpubSubdirectory = T.pack $ optEpubSubdirectory opts |