pandoc.js.hs

{-# Language ForeignFunctionInterface #-}
{-# Language OverloadedStrings #-}

module Main where

import Text.Pandoc

import GHCJS.Marshal
import GHCJS.Foreign.Callback
import JavaScript.Object
import JavaScript.Object.Internal (Object(..))

convert :: String -> String
convert s = do
  let readerOpts = def { readerSmart = True }

  let Right doc = readMarkdown readerOpts s

  let writerOptions = def { writerHtml5 = True }
  writeHtmlString writerOptions doc

foreign import javascript unsafe "convert_ = $1"
    js_set_convert :: Callback a -> IO ()

main :: IO ()
main = do
    putStrLn "Haskell convert core starting..."

    callback <- syncCallback1 ThrowWouldBlock $ \jsval -> do
        let o = Object jsval
        getProp "in" o
          >>= fromJSValUnchecked
          >>= pure . convert
          >>= toJSVal
          >>= \v -> setProp "out" v o

    js_set_convert callback

    putStr "Haskell convert callback initialized."

convert = function(s) {
  x = {};
  x.in = s;
  convert_(x);
  console.log(x.out);
}