如何在 Haskell 中使用 Pandoc 的 Citeproc 处理引用？

发布于 2025-01-12 06:10:39 字数 1279 浏览 2 评论 0原文

从 Pandoc 文档中的“一个简单示例”开始，我想添加引文处理功能。 Text.Pandoc.Citeproc 的文档显示一个处理引用的函数processCitations。然而，给定简单的组织模式输入和引用[@test2022]，它似乎不起作用。它编译并运行得很好，但下面代码的输出是：

testing< ;/跨度> [@test2022]

，即引文实际上并未被处理。我做错了什么？我怎样才能让它处理我的引文？

import Text.Pandoc
import qualified Data.Text as T
import qualified Data.Text.IO as TIO
import Text.Pandoc.Filter
import Text.Pandoc.Citeproc

main :: IO ()
main = do
  result <- runIO $ do
    doc <- readOrg def (T.pack "#+bibliography: test.bib\n [[url][testing]]\n[@test2022]")
    processed <- processCitations doc
    writeHtml5String def processed
  html <- handleError result
  TIO.putStrLn html

作为参考，这是我的 test.bib bibtex 文件：

@Book{test2022,
  author =    {Barus, Foobius},
  title =        {The Very Persistent Foo or Bar},
  publisher =    {Foobar Publications, Inc},
  year =         {2022}
}

原文

Starting with "A Simple Example" from the Pandoc documentation, I want to add citation processing functionality. The docs for Text.Pandoc.Citeproc show a function processCitations which supposedly processes citations. Yet given simple org-mode input, and a citation [@test2022], it doesn't seem to work. It compiles and runs just fine, but the output of the code below is: testing [@test2022], i.e., the citation isn't actually processed. What am I doing wrong? And how can I get this to process my citation?

import Text.Pandoc
import qualified Data.Text as T
import qualified Data.Text.IO as TIO
import Text.Pandoc.Filter
import Text.Pandoc.Citeproc

main :: IO ()
main = do
  result <- runIO $ do
    doc <- readOrg def (T.pack "#+bibliography: test.bib\n [[url][testing]]\n[@test2022]")
    processed <- processCitations doc
    writeHtml5String def processed
  html <- handleError result
  TIO.putStrLn html

For reference, here's my test.bib bibtex file:

@Book{test2022,
  author =    {Barus, Foobius},
  title =        {The Very Persistent Foo or Bar},
  publisher =    {Foobar Publications, Inc},
  year =         {2022}
}

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

可爱暴击 2025-01-19 06:10:39

最终我自己弄清楚了这一点。结果您必须设置一些扩展名和一些选项，并设置文档的元数据：

{-# LANGUAGE OverloadedStrings #-}

import Text.Pandoc
import qualified Data.Text as T
import qualified Data.Text.IO as TIO
import Text.Pandoc.Filter
import Text.Pandoc.Citeproc
import qualified Data.Map as M
import Text.Pandoc.Builder (setMeta)

main :: IO ()
main = do
  let exts = extensionsFromList [ Ext_citations ]
  let readerOptions = def{ readerExtensions = exts}
  let writerOptions = def{ writerExtensions = exts}
  result <- runIO $ do
    doc <- readMarkdown readerOptions (T.pack "Testing testing\n[@test2022]\n")
    let doc' = setMeta (T.pack "bibliography") (T.pack "test.bib") doc :: Pandoc
    processed <- processCitations doc'
    writeHtml5String writerOptions processed
  html <- handleError result
  TIO.putStrLn html

I figured this out myself, eventually. Turns out you have to set some extensions, and some options, and set the metadata for the document:

{-# LANGUAGE OverloadedStrings #-}

import Text.Pandoc
import qualified Data.Text as T
import qualified Data.Text.IO as TIO
import Text.Pandoc.Filter
import Text.Pandoc.Citeproc
import qualified Data.Map as M
import Text.Pandoc.Builder (setMeta)

main :: IO ()
main = do
  let exts = extensionsFromList [ Ext_citations ]
  let readerOptions = def{ readerExtensions = exts}
  let writerOptions = def{ writerExtensions = exts}
  result <- runIO $ do
    doc <- readMarkdown readerOptions (T.pack "Testing testing\n[@test2022]\n")
    let doc' = setMeta (T.pack "bibliography") (T.pack "test.bib") doc :: Pandoc
    processed <- processCitations doc'
    writeHtml5String writerOptions processed
  html <- handleError result
  TIO.putStrLn html

回复收藏 0 原文

~没有更多了~