From 90610eb78c3fcd9b943fd2e4d7730149248250d8 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Mon, 22 Aug 2022 09:37:37 +0200
Subject: [PATCH] Org writer: prefix code language of ipynb code blocks with
`jupyter-`.
This is the convention used by the *emacs-jupyter* package.
---
src/Text/Pandoc/Writers/Org.hs | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs
index 772e13d5c..a749e48af 100644
--- a/src/Text/Pandoc/Writers/Org.hs
+++ b/src/Text/Pandoc/Writers/Org.hs
@@ -161,7 +161,9 @@ blockToOrg (CodeBlock (ident,classes,kvs) str) = do
let at = map pandocLangToOrg classes `intersect` orgLangIdentifiers
let lang = case at of
[] -> Nothing
- l:_ -> Just l
+ l:_ -> if "code" `elem` classes -- check for ipynb code cell
+ then Just ("jupyter-" <> l)
+ else Just l
let args = mconcat $
[ " :" <> k <> " " <> v
| (k, v) <- kvs, k `notElem` ["startFrom", "org-language"]]