diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2023-06-18 22:11:01 +0200 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2023-06-18 22:11:01 +0200 |
| commit | 6cd0b9f6631d14f66c4b994771dee60ef74b270c (patch) | |
| tree | 68b144c0b2b13543dad8d40df1a62f9e06b6c0b1 /Utils.hs | |
| parent | 8fd47d38bb4c3dead49600f93f5345c0b06a6fec (diff) | |
| download | reploy-6cd0b9f6631d14f66c4b994771dee60ef74b270c.tar.gz reploy-6cd0b9f6631d14f66c4b994771dee60ef74b270c.tar.bz2 | |
configurable tocs
Diffstat (limited to 'Utils.hs')
| -rw-r--r-- | Utils.hs | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -62,3 +62,6 @@ hasUriScheme x = all id . zipWith (==) x . (++ ":") unAbsolute :: String -> String unAbsolute = dropWhile (== '/') + +withPandocBlocks :: ([Block] -> [Block]) -> Pandoc -> Pandoc +withPandocBlocks f (Pandoc meta blocks) = Pandoc meta (f blocks) |