summaryrefslogtreecommitdiffstats
path: root/src/Zettel/Render.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Zettel/Render.hs')
-rw-r--r--src/Zettel/Render.hs16
1 files changed, 9 insertions, 7 deletions
diff --git a/src/Zettel/Render.hs b/src/Zettel/Render.hs
index 276ea9b..28d6923 100644
--- a/src/Zettel/Render.hs
+++ b/src/Zettel/Render.hs
@@ -2,21 +2,20 @@
module Zettel.Render where
-import Control.Monad as M (when)
import Data.Default (def)
import qualified Data.Map.Strict as Map
import qualified Data.Text as T
import Paths_org_zk (getDataFileName)
import Text.Pandoc.App (applyFilters)
-import Text.Pandoc.Builder (HasMeta (..), ToMetaValue (..))
+import Text.Pandoc.Builder (HasMeta (..))
import Text.Pandoc.Class (runIOorExplode)
import Text.Pandoc.Definition (Block (..), Inline (..))
-import Text.Pandoc.Extensions (Extension (..), disableExtension, enableExtension)
+import Text.Pandoc.Extensions (Extension (..), disableExtension)
import Text.Pandoc.Filter (Environment (..), Filter (..))
-import Text.Pandoc.Options (CiteMethod (..), ReaderOptions (..), WriterOptions (..), getDefaultExtensions, multimarkdownExtensions)
+import Text.Pandoc.Options (ReaderOptions (..), WriterOptions (..), getDefaultExtensions, multimarkdownExtensions)
import Text.Pandoc.Scripting (noEngine)
import Text.Pandoc.Templates (WithDefaultPartials (..), compileTemplate)
-import Text.Pandoc.Walk (query, walk)
+import Text.Pandoc.Walk (query)
import Text.Pandoc.Writers (writeMarkdown)
import Zettel.Types
@@ -62,10 +61,10 @@ renderZettel _ zettel = do
if unMB $ query checkCitation zettel.zettelBody
then
let pandoc =
- setMeta "csl" ("/Users/ymherklotz/Dropbox/zk/assets/ieee.csl" :: FilePath) $
+ setMeta "csl" ("/home/ymherklotz/Dropbox/zk/assets/ieee.csl" :: FilePath) $
setMeta
"bibliography"
- (["/Users/ymherklotz/bibliography/references.bib"] :: [FilePath])
+ (["/home/ymherklotz/bibliography/references.bib"] :: [FilePath])
zettel.zettelBody
in applyFilters
noEngine
@@ -73,6 +72,9 @@ renderZettel _ zettel = do
def {readerExtensions = getDefaultExtensions "org"}
writeOpts
{ writerExtensions =
+ -- Counter-intuitively, you need to disable citation
+ -- support so that the citations are inserted in the
+ -- markdown directly, instead of just referenced.
disableExtension Ext_citations writeOpts.writerExtensions
}
)