svg-builder: DSL for building SVG.
Modules
[Index]
Downloads
- svg-builder-0.1.1.tar.gz [browse] (Cabal source package)
- Package description (revised from the package)
Note: This package has metadata revisions in the cabal description newer than included in the tarball. To unpack the package including the revisions, use 'cabal get'.
Maintainer's Corner
For package maintainers and hackage trustees
Candidates
- No Candidates
| Versions [RSS] | 0.1, 0.1.0.1, 0.1.0.2, 0.1.1 |
|---|---|
| Dependencies | base (>=4.5 && <4.21), blaze-builder (>=0.4 && <0.5), bytestring (>=0.10 && <0.13), hashable (>=1.1 && <1.6), semigroups (>=0.16.1 && <0.20), text (>=0.11 && <2.2), unordered-containers (>=0.2 && <0.3) [details] |
| Tested with | ghc ==8.4.4 || ==8.6.5 || ==8.8.4 || ==8.10.7 || ==9.0.2 || ==9.2.8 || ==9.4.8 || ==9.6.5 || ==9.8.2 || ==9.10.1 |
| License | BSD-3-Clause |
| Copyright | 2016 Jeffrey Rosenbluth |
| Author | Jeffrey Rosenbluth |
| Maintainer | jeffrey.rosenbluth@gmail.com |
| Revised | Revision 10 made by BrentYorgey at 2024-08-26T22:15:17Z |
| 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 2018-05-10T03:09:58Z |
| Distributions | Arch:0.1.1, Debian:0.1.1, LTSHaskell:0.1.1, NixOS:0.1.1, Stackage:0.1.1 |
| Reverse Dependencies | 10 direct, 73 indirect [details] |
| Downloads | 16140 total (85 in the last 30 days) |
| Rating | (no votes yet) [estimated by Bayesian average] |
| Your Rating | |
| Status | Docs available [build log] Last success reported on 2018-05-10 [all 1 reports] |
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
