Org reader: treat *emacs-jupyter* src blocks as code cells.

This improves support for notebook-like org files that are intended to be used
with emacs-jupyter package.

Closes: #8236

2 files changed, 20 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs
index dd79cc289..baf244d81 100644
--- a/src/Text/Pandoc/Readers/Org/Blocks.hs
+++ b/src/Text/Pandoc/Readers/Org/Blocks.hs
@@ -311,7 +311,11 @@ codeBlock blockAttrs blockType = do
   content        <- rawBlockContent blockType
   resultsContent <- option mempty babelResultsBlock
   let identifier = fromMaybe mempty $ blockAttrName blockAttrs
-  let codeBlk    = B.codeBlockWith (identifier, classes, kv) content
+  let classes'   = case classes of
+                     c:cs | Just c' <- T.stripPrefix "jupyter-" c ->
+                            c' : "code" : cs
+                     _ -> classes
+  let codeBlk    = B.codeBlockWith (identifier, classes', kv) content
   let wrap       = maybe pure addCaption (blockAttrCaption blockAttrs)
   return $
     (if exportsCode kv    then wrap codeBlk   else mempty) <>
diff --git a/test/command/8236.md b/test/command/8236.md
new file mode 100644
index 000000000..f8c70a715
--- /dev/null
+++ b/test/command/8236.md
@@ -0,0 +1,15 @@
+```
+% pandoc -f org -t native
+  #+begin_src jupyter-python :session py :display plain
+  import pandas as pd
+  df = pd.read_csv('weight.csv', parse_dates=['Date'], index_col=0)
+  #+end_src
+^D
+[ CodeBlock
+    ( ""
+    , [ "python" , "code" ]
+    , [ ( "session" , "py" ) , ( "display" , "plain" ) ]
+    )
+    "import pandas as pd\ndf = pd.read_csv('weight.csv', parse_dates=['Date'], index_col=0)\n"
+]
+```