11 lines
237 B
Haskell
11 lines
237 B
Haskell
import FixFigures
|
|
import LangFilter
|
|
import NiceDate
|
|
import SlugTags
|
|
import Text.Pandoc.JSON
|
|
import Text.Pandoc.Walk
|
|
|
|
main :: IO ()
|
|
main = toJSONFilter $
|
|
fmap (walk (niceDate . slugTags) . walk fixFigures) .
|
|
langFilter "currentcolor"
|