aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/App/OutputSettings.hs5
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