@@ -27,7 +27,8 @@ import Data.Text (Text)
2727import qualified Data.Text as T
2828import Text.Pandoc.Builder (Blocks, Inlines, fromList, setMeta, trimInlines)
2929import qualified Text.Pandoc.Builder as B
30−import Text.Pandoc.Class.PandocMonad (PandocMonad, fetchItem, readFileFromDirs)
30+import Text.Pandoc.Class.PandocMonad (PandocMonad, fetchItem,
31+ readFileFromDirs, getCurrentTime)
3132import Text.Pandoc.CSV (CSVOptions (..), defaultCSVOptions, parseCSV)
3233import Text.Pandoc.Definition
3334import Text.Pandoc.Error
@@ -38,6 +39,7 @@ import Text.Pandoc.Parsing
3839import Text.Pandoc.Shared
3940import qualified Text.Pandoc.UTF8 as UTF8
4041import Text.Printf (printf)
42+import Data.Time.Format
4143
4244-- TODO:
4345-- [ ] .. parsed-literal
@@ -682,6 +684,13 @@ directive' = do
682684 parseFromString' parseBlocks body'
683685 "replace" -> B.para <$> -- consumed by substKey
684686 parseInlineFromText (trim top)
687+ "date" -> B.para <$> do -- consumed by substKey
688+ t <- getCurrentTime
689+ let format = case T.unpack (T.strip top) of
690+ [] -> "%Y-%m-%d"
691+ x -> x
692+ return $ B.text $
693+ T.pack $ formatTime defaultTimeLocale format t
685694 "unicode" -> B.para <$> -- consumed by substKey
686695 parseInlineFromText (trim $ unicodeTransform top)
687696 "compound" -> parseFromString' parseBlocks body'