Skip to content

G
gargantext-ihaskell
Commit df7625e8 authored by Andrew Gibiansky's avatar Andrew Gibiansky
Browse files
Options

Replacing SVG with base64 encoded html+img tag for svg, closes #187

parent 4b4c233b
Hide whitespace changes
Inline Side-by-side
Showing with 85 additions and 334 deletions
ihaskell-display/ihaskell-charts/IHaskell/Display/Charts.hs
View file @ df7625e8
...@@ -43,4 +43,6 @@ chartData renderable format = do ...@@ -43,4 +43,6 @@ chartData renderable format = do
imgData <- readFile $ fpFromString filename imgData <- readFile $ fpFromString filename
return $ case format of return $ case format of
PNG -> png width height $ base64 imgData PNG -> png width height $ base64 imgData
SVG -> svg $ Char.unpack imgData SVG -> html $ makeSvgImg $ base64 imgData
where
makeSvgImg base64data = Char.unpack $ "<img src=\"data:image/svg+xml;base64," ++ base64data ++ "\"/>"
notebooks/Test.ipynb
View file @ df7625e8
This source diff could not be displayed because it is too large. You can view the blob instead.
src/IHaskell/Display.hs
View file @ df7625e8
...@@ -3,7 +3,7 @@ module IHaskell.Display ( ...@@ -3,7 +3,7 @@ module IHaskell.Display (
IHaskellDisplay(..), IHaskellDisplay(..),
plain, html, png, jpg, svg, latex, plain, html, png, jpg, svg, latex,
serializeDisplay, serializeDisplay,
Width, Height, Base64, Width, Height, Base64(..),
encode64, base64, encode64, base64,
Display(..), Display(..),
DisplayData(..), DisplayData(..),
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment