lucid-svg

DSL for SVG using lucid for HTML

http://github.com/jeffreyrosenbluth/lucid-svg.git

Version on this page:0.6.0.1
LTS Haskell 9.21:0.7.0.0
Stackage Nightly 2017-07-25:0.7.0.0
Latest on Hackage:0.7.1.1

See all snapshots lucid-svg appears in

BSD-3-Clause licensed by Jeffrey Rosenbluth
Maintained by [email protected]
This version can be pinned in stack with:lucid-svg-0.6.0.1@sha256:e9b872cc44e3d97ddc71b14f99143e5ac61899b4ad7e528dd043f7eacab7d367,1105

Module documentation for 0.6.0.1

Used by 2 packages in lts-5.18(full list with versions):
diagrams-haddock, diagrams-svg

lucid-svg Hackage

Simple DSL for writing SVG, based on lucid

Example

{-# LANGUAGE OverloadedStrings #-}

import Lucid.Svg
 
svg :: Svg () -> Svg ()
svg content = do
  doctype_
  with (svg11_ content) [width_ "300" , height_ "200"]

contents :: Svg ()
contents = do
  rect_   [width_ "100%", height_ "100%", fill_ "red"]
  circle_ [cx_ "150", cy_ "100", r_ "80", fill_ "green"]
  text_   [x_ "150", y_ "125", font_size_ "60", text_anchor_ "middle", fill_ "white"] "SVG"


main :: IO ()
main = do
  print $ svg contents

SVG