@@ -193,10 +193,16 @@ expression (A region expr) =
193 fields = zipWith (\n e -> (prop ("_" ++ show n), e)) [0..]
193 fields = zipWith (\n e -> (prop ("_" ++ show n), e)) [0..]
195 Markdown uid doc ->
195 Markdown uid doc ->
196− return $ Var.value ["Text"] "markdown" `call` [ string md, string uid ]
196+ let text =
197− where
197+ obj ["Elm","Text","make"] <| ref localRuntime
198− pad = "<div style=\"height:0;width:0;\"> </div>"
200+ "<div style=\"height:0;width:0;\"> </div>"
199− md = pad ++ MD.toHtml doc ++ pad
203+ pad ++ MD.toHtml doc ++ pad
205+ return (DotRef () text (var "markdown") `call` [ string md, string uid ])
201 GLShader _uid src _tipe ->
207 GLShader _uid src _tipe ->
202 return $ ObjectLit () [(PropString () "src", literal (Str src))]
208 return $ ObjectLit () [(PropString () "src", literal (Str src))]