summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJaehwang Jung <tomtomjhj@gmail.com>2022-05-15 07:17:41 +0900
committerGitHub <noreply@github.com>2022-05-14 15:17:41 -0700
commit9c85933b384c94d97af66dc913b5f2b75f0c6386 (patch)
tree46e37fff857fc6d6c49da4743f4ae75914adb203 /src
parentb888a8c77e35cc028725aff0f581475ec0481af9 (diff)
Allow environment variable interpolation in highlight-style in defaults files (#8073)
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/App/Opt.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Text/Pandoc/App/Opt.hs b/src/Text/Pandoc/App/Opt.hs
index e110b1c6f..ae1248833 100644
--- a/src/Text/Pandoc/App/Opt.hs
+++ b/src/Text/Pandoc/App/Opt.hs
@@ -215,6 +215,7 @@ resolveVarsInOpt
, optBibliography = oBibliography
, optCitationAbbreviations = oCitationAbbreviations
, optPdfEngine = oPdfEngine
+ , optHighlightStyle = oHighlightStyle
}
= do
oTemplate' <- mapM resolveVars oTemplate
@@ -240,6 +241,7 @@ resolveVarsInOpt
oBibliography' <- mapM resolveVars oBibliography
oCitationAbbreviations' <- mapM resolveVars oCitationAbbreviations
oPdfEngine' <- mapM resolveVars oPdfEngine
+ oHighlightStyle' <- mapM (fmap T.pack . resolveVars . T.unpack) oHighlightStyle
return opt{ optTemplate = oTemplate'
, optMetadataFiles = oMetadataFiles'
, optOutputFile = oOutputFile'
@@ -263,6 +265,7 @@ resolveVarsInOpt
, optBibliography = oBibliography'
, optCitationAbbreviations = oCitationAbbreviations'
, optPdfEngine = oPdfEngine'
+ , optHighlightStyle = oHighlightStyle'
}
where