pandoc Включить фильтр файлов в haskell

Поскольку фильтр include сохраняет все classes блока кода, вы можете включить содержимое файла и применить к нему форматирование кода, просто выполнив следующее:

~~~~ {.javascript include="tasks/mdbook.js"}
~~~~

Я предполагаю, что проблема, которую вы пытаетесь решить, состоит в том, чтобы иметь документ уценки, который ссылается на некоторый фрагмент кода, и вы хотели бы избежать копирования и вставки кода в документ и кошмара синхронизации двух версий с помощью рука. Итак, вы попытались решить проблему, включив исходные файлы в документ уценки через фильтр.

Я решил ту же проблему другим способом. Я сохранил весь (соответствующий) исходный код в документе уценки и написал инструмент, который извлекает весь исходный код. Мой конкретный вариант использования заключался в том, что я писал слайды для лекций, и каждый раз, когда я компилировал свои слайды, я также извлекал код и следил за его компиляцией. Я также собрал весь код в zip-архив для удобства моих студентов.

Мой инструмент доступен здесь: https://github.com/josefs/CodeExtract

Вы можете написать такие блоки кода:

~~~ {.haskell file="Hello.hs"}
main = putStrLn "Hello World!"
~~~

При запуске документа, содержащего такие блоки кода, через мой маленький инструмент будет создан файл Hello.hs, содержащий код в блоке.

Существует также более продвинутая функция, поддерживающая несколько фрагментов кода, которые могут оказаться в одном документе. Например, у вас может быть два таких блока кода:

~~~ {.haskell template="Hello.hs.tmpl" var="mainfkn"}
main = putStrLn str
~~~

~~~ {.haskell template="Hello.hs.tmpl" var="misc"}
str = "Hello World!"
~~~

И затем файл шаблона, Hello.hs.tmpl подобный следующему (он использует тот же формат шаблона, что и pandoc):

~~~
module Main where
$mainfkn$
$misc$
~~~

Он сгенерирует файл Hello.hs, содержащий файл шаблона, но с заменой переменной соответствующим блоком кода в файле уценки. Это очень удобно.

Я надеюсь, что вы найдете мой инструмент полезным, хотя я понимаю, что он может не решить вашу конкретную проблему.

Кажется, вы хотите обновить атрибуты блока кода. Вот что вы можете сделать:

#!/usr/bin/env runhaskell
-- includes.hs
import Text.Pandoc.JSON

doInclude :: Block -> IO Block
doInclude cb@(CodeBlock (id, classes, namevals) contents) =
  case lookup "include" namevals of
       Just f     -> do
         let newAttrs = filter ((/= "include") . fst) namevals ++ [("code",f), ("format","js")]
         return . (CodeBlock (id, classes, newAttrs)) =<< readFile f
       Nothing    -> return cb
doInclude x = return x

main :: IO ()
main = toJSONFilter doInclude

Измените код для newAttr по своему усмотрению.