svg-icons 2.0.1.0 → 2.0.2.0

raw patch · 5 files changed

+123/−4 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• src/Main.hs +4/−0
• src/SvgIcons/Icons/Office.hs +3/−3
• src/SvgIcons/Images.hs +2/−0
• src/SvgIcons/Images/Logos.hs +111/−0
• svg-icons.cabal +3/−1

@@ -26,6 +26,7 @@ import SvgIcons.Icons.Textarea (svgTextarea)
 import SvgIcons.Icons.Tools    (svgTools)
 import SvgIcons.Images.CountryFlags (countryFlags)
+import SvgIcons.Images.Logos        (logos)
 import SvgIcons.Images.Mosaics      (mosaicSample)
 
 
@@ -149,11 +150,14 @@ renderImages path = do
     createDirectory path
     createDirectory countryFlagsPath
+    createDirectory logosPath
     createDirectory mosaicsPath
     renderSvgFiles countryFlagsPath countryFlags
+    renderSvgFiles logosPath        logos
     renderSvgFiles mosaicsPath      mosaicSample
   where
     countryFlagsPath = path ++ "countryFlags/"
+    logosPath        = path ++ "logos/"
     mosaicsPath      = path ++ "mosaics/"
 
 

@@ -534,10 +534,10 @@     y2 = -0.7
     y3 = -0.54
     y4 =  0
-    y5 =  0.06
+    y5 =  0.1
     y6 =  0.8
-    rx1 = 0.12
-    ry1 = 0.18
+    rx1 = 0.16
+    ry1 = 0.22
     rx2 = 0.07
     ry2 = 0.135
     top = mkPath $ do

@@ -14,9 +14,11 @@ -}
 module SvgIcons.Images 
   ( module SvgIcons.Images.CountryFlags
+  , module SvgIcons.Images.Logos
   , module SvgIcons.Images.Mosaics
   ) where
 
 
 import SvgIcons.Images.CountryFlags
+import SvgIcons.Images.Logos
 import SvgIcons.Images.Mosaics

@@ -0,0 +1,111 @@+{-# LANGUAGE     OverloadedStrings       #-}
+
+
+{- |
+Module for logos.
+-}
+module SvgIcons.Images.Logos 
+  ( logos
+  , haskell
+  ) where
+
+import           Text.Blaze.Svg11 ((!))
+import           Text.Blaze.Svg11 as S
+import           Text.Blaze.Svg11.Attributes as A
+
+import SvgIcons.Core.Geometry
+import SvgIcons.Core.Utils
+
+
+{- |
+A list with all the logos from this module,
+together with appropriate names.
+
+>logos :: [ (String , S.Svg) ]
+>logos =
+>  [ (,) "haskell" haskell
+>  ]
+-}
+logos :: [ (String , S.Svg) ]
+logos =
+  [ (,) "haskell" haskell
+  ]
+
+
+{- |
+Haskell logo
+
+viewbox is "0 0 17 12"
+
+![Haskell logo](https://raw.githubusercontent.com/RamiroPastor/SvgIcons/main/svg/images/logos/haskell.svg)
+-}
+haskell :: Svg
+haskell =
+    svg
+      ! A.viewbox "0 0 17 12"
+      ! A.height "120px"
+      ! A.width  "170px"
+      $ do
+        S.path
+          ! A.fill "#453a62"
+          ! A.d leftDirs
+          ! A.id_ "HaskellSvgIcons-haskellLogo-left"
+        S.path
+          ! A.fill "#5e5086"
+          ! A.d midDirs
+          ! A.id_ "HaskellSvgIcons-haskellLogo-mid"
+        S.path
+          ! A.fill "#8f4e8b"
+          ! A.d rightDirs
+          ! A.id_ "HaskellSvgIcons-haskellLogo-right"
+  where
+    x1  = 0
+    x2  = 3
+    x3  = 4
+    x4  = 7
+    x5  = 8
+    x6  = 9.5
+    x7  = 10.33
+    x8  = 11.66
+    x9  = 12
+    x10 = 12.33
+    x11 = 13.66
+    x12 = 15
+    x13 = 17
+    y1  = 0
+    y2  = 3.5
+    y3  = 5.5
+    y4  = 6
+    y5  = 6.5
+    y6  = 8.25
+    y7  = 8.5
+    y8  = 12
+    leftDirs = mkPath $ do
+      m   x1   y1
+      l   x2   y1
+      l   x4   y4
+      l   x2   y8
+      l   x1   y8
+      l   x3   y4
+      S.z
+    midDirs = mkPath $ do
+      m   x3   y1
+      l   x4   y1
+      l   x12  y8
+      l   x9   y8
+      l   x6   y6
+      l   x4   y8
+      l   x3   y8
+      l   x5   y4
+      S.z
+    rightDirs = mkPath $ do
+      m   x8   y3
+      l   x7   y2
+      l   x13  y2
+      l   x13  y3
+      S.z
+      m   x11  y7
+      l   x10  y5
+      l   x13  y5
+      l   x13  y7
+      S.z

@@ -1,6 +1,6 @@ cabal-version:      2.4
 name:               svg-icons
-version:            2.0.1.0
+version:            2.0.2.0
 homepage:           https://github.com/RamiroPastor/SvgIcons
 license:            BSD-3-Clause
 license-file:       LICENSE
@@ -45,6 +45,7 @@     SvgIcons.Images,
     SvgIcons.Images.CountryFlags,
     SvgIcons.Images.CountryFlagsCoAs,
+    SvgIcons.Images.Logos,
     SvgIcons.Images.Mosaics,
     Main
 
@@ -90,6 +91,7 @@     SvgIcons.Images,
     SvgIcons.Images.CountryFlags,
     SvgIcons.Images.CountryFlagsCoAs,
+    SvgIcons.Images.Logos,
     SvgIcons.Images.Mosaics