svg-icons 2.9.3.0 → 2.10.0

raw patch · 5 files changed

+116/−1 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• src/Main.hs +6/−0
• src/SvgIcons/Icons.hs +2/−0
• src/SvgIcons/Icons/Outdoors.hs +71/−0
• src/SvgIcons/Icons/Tools.hs +34/−0
• svg-icons.cabal +3/−1

@@ -25,6 +25,7 @@ import SvgIcons.Icons.Human    (svgHuman)
 import SvgIcons.Icons.Math     (svgMath)
 import SvgIcons.Icons.Office   (svgOffice)
+import SvgIcons.Icons.Outdoors (svgOutdoors)
 import SvgIcons.Icons.Religion (svgReligion)
 import SvgIcons.Icons.Textarea (svgTextarea)
 import SvgIcons.Icons.Tools    (svgTools)
@@ -118,6 +119,7 @@     createDirectory humanPath
     createDirectory mathPath
     createDirectory officePath
+    createDirectory outdoorsPath
     createDirectory religionPath
     createDirectory textareaPath
     createDirectory toolsPath
@@ -145,6 +147,9 @@     renderSvgFiles officePath (map fillIcons svgOffice)
     renderSvgFiles officePath (map fullIcons svgOffice)
     renderSvgFiles officePath (map strkIcons svgOffice)
+    renderSvgFiles outdoorsPath (map fillIcons svgOutdoors)
+    renderSvgFiles outdoorsPath (map fullIcons svgOutdoors)
+    renderSvgFiles outdoorsPath (map strkIcons svgOutdoors)
     renderSvgFiles religionPath (map fillIcons svgReligion)
     renderSvgFiles religionPath (map fullIcons svgReligion)
     renderSvgFiles religionPath (map strkIcons svgReligion)
@@ -167,6 +172,7 @@     humanPath    = path ++ "human/"
     mathPath     = path ++ "math/"
     officePath   = path ++ "office/"
+    outdoorsPath = path ++ "outdoors/"
     religionPath = path ++ "religion/"
     textareaPath = path ++ "textarea/"
     toolsPath    = path ++ "tools/"

@@ -154,6 +154,7 @@   , module SvgIcons.Icons.Human
   , module SvgIcons.Icons.Math
   , module SvgIcons.Icons.Office
+  , module SvgIcons.Icons.Outdoors
   , module SvgIcons.Icons.Religion
   , module SvgIcons.Icons.Textarea
   , module SvgIcons.Icons.Tools
@@ -172,6 +173,7 @@ import SvgIcons.Icons.Human
 import SvgIcons.Icons.Math
 import SvgIcons.Icons.Office
+import SvgIcons.Icons.Outdoors
 import SvgIcons.Icons.Religion
 import SvgIcons.Icons.Textarea
 import SvgIcons.Icons.Tools

@@ -0,0 +1,71 @@+{-# LANGUAGE     OverloadedStrings       #-}
+
+
+
+module SvgIcons.Icons.Outdoors
+  ( svgOutdoors
+  , flag
+  ) where
+
+import           Text.Blaze.Svg11 ((!))
+import           Text.Blaze.Svg11 as S
+import           Text.Blaze.Svg11.Attributes as A
+
+import SvgIcons.Core.Utils
+
+
+{- |
+A list with all the icons of this module, 
+together with appropriate names.
+
+>svgOutdoors :: [ (String , S.Svg) ]
+>svgOutdoors =
+>  [ (,) "flag" flag
+>  ]
+-}
+svgOutdoors :: [ (String , S.Svg) ]
+svgOutdoors =
+  [ (,) "flag" flag
+  ]
+
+
+--------------------------------------------------------------------------------
+
+
+{- |
+![fill style](https://raw.githubusercontent.com/RamiroPastor/SvgIcons/main/svg/icons/outdoors/flag_fill.svg)
+
+![fill and stroke](https://raw.githubusercontent.com/RamiroPastor/SvgIcons/main/svg/icons/outdoors/flag_full.svg)
+
+![stroke style](https://raw.githubusercontent.com/RamiroPastor/SvgIcons/main/svg/icons/outdoors/flag_strk.svg)
+-}
+flag :: Svg
+flag =
+    S.g $ do
+      S.path 
+        ! A.d staff
+      S.path
+        ! A.d field
+  where
+    x1  = -0.85
+    x2  = -0.7
+    y1  = -0.9
+    y2  = -y1
+    x3  =  0.75
+    x13 =  x2 +     (x3 - x2) / 3
+    x23 =  x2 + 2 * (x3 - x2) / 3
+    y3  = -0.7
+    y4  =  0.2
+    ky  =  0.3
+    staff = mkPath $ do
+      m   x1   y1
+      l   x1   y2
+      l   x2   y2
+      l   x2   y1
+      S.z
+    field = mkPath $ do
+      m   x2    y3
+      c   x13  (y3 - ky)  x23  (y3 + ky)  x3   y3
+      l   x3    y4
+      c   x23  (y4 + ky)  x13  (y4 - ky)  x2   y4
+      S.z

@@ -11,6 +11,7 @@   , keyWithArc
   , lock
   , key1
+  , bell
   ) where
 
 import           Text.Blaze.Svg11 ((!))
@@ -33,6 +34,7 @@ >  , (,) "keyWithArc" keyWithArc
 >  , (,) "lock"       lock
 >  , (,) "key1"       key1
+>  , (,) "bell"       bell
 >  ]
 -}
 svgTools :: [ (String , S.Svg) ]
@@ -43,6 +45,7 @@   , (,) "keyWithArc" keyWithArc
   , (,) "lock"       lock
   , (,) "key1"       key1
+  , (,) "bell"       bell
   ]
 
 
@@ -280,4 +283,35 @@       S.z
       m   x0    0
       aa  r0   r0   0   True   False   x0   0.001
+      S.z
+    
+  
+
+{- |
+![fill style](https://raw.githubusercontent.com/RamiroPastor/SvgIcons/main/svg/icons/tools/bell_fill.svg)
+
+![fill and stroke](https://raw.githubusercontent.com/RamiroPastor/SvgIcons/main/svg/icons/tools/bell_full.svg)
+
+![stroke style](https://raw.githubusercontent.com/RamiroPastor/SvgIcons/main/svg/icons/tools/bell_strk.svg)
+-}
+bell :: S.Svg
+bell =
+    S.path
+      ! A.d dirs
+  where
+    r1 =  0.5
+    x1 =  r1 + 0.25
+    y0 = -0.3
+    y1 =  0.5
+    y01 = (y1 + y0) / 2
+    x2 =  0.1
+    r2 =  0.17
+    dirs = mkPath $ do
+      m    x1   y1
+      c    x1   y01   r1   y01   r1   y0
+      aa   r1   r1    0   True   False  (-r1)  y0
+      c  (-r1)  y01 (-x1)  y01 (-x1)  y1
+      S.z
+      m  (-x2)  y1
+      aa   r2   r2    0   True   False    x2   y1
       S.z

@@ -1,6 +1,6 @@ cabal-version:      2.4
 name:               svg-icons
-version:            2.9.3.0
+version:            2.10.0
 homepage:           https://github.com/RamiroPastor/SvgIcons
 license:            BSD-3-Clause
 license-file:       LICENSE
@@ -41,6 +41,7 @@     SvgIcons.Icons.Human,
     SvgIcons.Icons.Math,
     SvgIcons.Icons.Office,
+    SvgIcons.Icons.Outdoors,
     SvgIcons.Icons.Religion,
     SvgIcons.Icons.Textarea,
     SvgIcons.Icons.Tools,
@@ -88,6 +89,7 @@     SvgIcons.Icons.Human,
     SvgIcons.Icons.Math,
     SvgIcons.Icons.Office,
+    SvgIcons.Icons.Outdoors,
     SvgIcons.Icons.Religion,
     SvgIcons.Icons.Textarea,
     SvgIcons.Icons.Tools,