diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 01:55:47 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 01:55:47 +0100 |
commit | 8d1403b13e75b5eda672af64fb52afe5a0b1f633 (patch) | |
tree | 819f91586478def7c9ac18b3597f353f2e0591ee /src/Zettel/Math.hs | |
parent | 42edc02d4770b389d500e338a0e3e47bdc4c4de8 (diff) | |
download | zk-visual-8d1403b13e75b5eda672af64fb52afe5a0b1f633.tar.gz zk-visual-8d1403b13e75b5eda672af64fb52afe5a0b1f633.zip |
Add entry for bib file in graph
Diffstat (limited to 'src/Zettel/Math.hs')
-rw-r--r-- | src/Zettel/Math.hs | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/src/Zettel/Math.hs b/src/Zettel/Math.hs index 226f515..3e51437 100644 --- a/src/Zettel/Math.hs +++ b/src/Zettel/Math.hs @@ -1,8 +1,6 @@ -{-# LANGUAGE OverloadedRecordDot #-} - module Zettel.Math where -import Text.Pandoc.Definition (Inline (..), Pandoc (..)) +import Text.Pandoc.Definition (Inline (..)) import Text.Pandoc.Walk (walk) import Zettel.Types @@ -13,11 +11,5 @@ wrapMath = concatMap f f m@(Math _ _) = [RawInline "markdown" "{{< math >}}", m, RawInline "markdown" "{{< /math >}}"] f a = [a] -wrapMathPandoc :: Pandoc -> Pandoc -wrapMathPandoc = walk wrapMath - -wrapZettel :: Zettel -> Zettel -wrapZettel z = z {zettelBody = wrapMathPandoc z.zettelBody} - wrapZettelGraph :: ZettelGraph -> ZettelGraph -wrapZettelGraph = ZettelGraph . fmap wrapZettel . unZettelGraph +wrapZettelGraph = walk wrapMath |