Org writer: prefix code language of ipynb code blocks with `jupyter-`.

This is the convention used by the *emacs-jupyter* package.

1 files changed, 3 insertions, 1 deletions

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"]]