diff options
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc/App/OutputSettings.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc/App/OutputSettings.hs b/src/Text/Pandoc/App/OutputSettings.hs index babec8745..343287a4b 100644 --- a/src/Text/Pandoc/App/OutputSettings.hs +++ b/src/Text/Pandoc/App/OutputSettings.hs @@ -28,6 +28,7 @@ import Data.List (find, isPrefixOf, isSuffixOf) import Data.Maybe (fromMaybe) import Skylighting (defaultSyntaxMap) import Skylighting.Parser (addSyntaxDefinition, parseSyntaxDefinition) +import System.Directory (getCurrentDirectory) import System.Exit (exitSuccess) import System.FilePath import System.IO (stdout) @@ -113,6 +114,8 @@ optToOutputSettings opts = do s <- UTF8.toString . fst <$> fetchItem fp return $ (varname, s) : vars + curdir <- liftIO getCurrentDirectory + variables <- withList (addStringAsVariable "sourcefile") (reverse $ optInputFiles opts) @@ -140,6 +143,8 @@ optToOutputSettings opts = do maybe return (addStringAsVariable "epub-cover-image") (optEpubCoverImage opts) >>= + addStringAsVariable "curdir" curdir + >>= (\vars -> if format == "dzslides" then do dztempl <- UTF8.toString <$> readDataFile |