svg-builder: DSL for building SVG.
| Versions | 0.1, 0.1.0.1, 0.1.0.2, 0.1.1 |
|---|---|
| Dependencies | base (>=4.5 && <4.12), blaze-builder (==0.4.*), bytestring (==0.10.*), hashable (>=1.1 && <1.3), semigroups (>=0.16.1 && <0.19), text (>=0.11 && <1.3), unordered-containers (==0.2.*) [details] |
| License | BSD-3-Clause |
| Copyright | 2016 Jeffrey Rosenbluth |
| Author | Jeffrey Rosenbluth |
| Maintainer | jeffrey.rosenbluth@gmail.com |
| Category | Graphics |
| Home page | https://github.com/diagrams/svg-builder.git |
| Source repo | head: git clone https://github.com/diagrams/svg-builder.git |
| Uploaded | by BrentYorgey at Thu May 10 03:09:58 UTC 2018 |
| Distributions | LTSHaskell:0.1.1, NixOS:0.1.1, Stackage:0.1.1, openSUSE:0.1.0.2 |
| Downloads | 4876 total (95 in the last 30 days) |
| Rating | (no votes yet) [estimated by rule of succession] |
| Your Rating | |
| Status | Docs available [build log] Last success reported on 2018-05-10 [all 1 reports] Hackage Matrix CI |
Modules
[Index]
Downloads
- svg-builder-0.1.1.tar.gz [browse] (Cabal source package)
- Package description (as included in the package)
Readme for svg-builder-0.1.1
[back to package description]svg-builder 
Simple DSL for writing fast SVG.
Example
{-# LANGUAGE OverloadedStrings #-}
import Graphics.Svg
svg :: Element -> Element
svg content =
doctype
<> with (svg11_ content) [Version_ <<- "1.1", Width_ <<- "300", Height_ <<- "200"]
contents :: Element
contents =
rect_ [ Width_ <<- "100%", Height_ <<- "100%", "red" ->> Fill_]
<> 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
Haskell logo
{-# LANGUAGE OverloadedStrings #-}
import Graphics.Svg
svg :: Element -> Element
svg content =
doctype
<> with (svg11_ content) [Version_ <<- "1.1", Width_ <<- "482", Height_ <<- "340"]
logo :: Element
logo =
path_ [ Fill_ <<- "#352950"
, D_ <<- ( mA 0 340 <> lA 113 170 <> lA 0 0 <> lA 85 0
<> lA 198 170 <> lA 85 340 <> lA 0 340 <> z <> mA 0 340 ) ]
<> path_ [ Fill_ <<- "#4A3A74"
, D_ <<- ( mA 113 340 <> lA 226 170 <> lA 113 0 <> lA 198 0
<> lA 425 340 <> lA 340 340 <> lA 269 234 <> lA 198 340
<> lA 113 340 <> z <> mA 113 340 ) ]
<> path_ [ Fill_ <<- "#7C3679"
, D_ <<- ( mA 387 241 <> lA 350 184 <> lA 482 184 <> lA 482 241
<> lA 387 241 <> z <> mA 387 241 ) ]
<> path_ [ Fill_ <<- "#7C3679"
, D_ <<- ( mA 331 156 <> lA 293 99 <> lA 482 99 <> lA 482 156
<> lA 331 156 <> z <> mA 331 156 ) ]
main :: IO ()
main = do
print $ svg logo
