svg-icons 2.1.0.3 → 2.2.0.0

raw patch · 3 files changed

+25/−21 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• src/SvgIcons/Core/Render.hs +9/−8
• src/SvgIcons/Icons/Computer.hs +15/−12
• svg-icons.cabal +1/−1

@@ -123,15 +123,16 @@   where
     render = T.unpack . adaptToReact . T.pack . renderSvg 
     adaptToReact =
-        (T.replace "xmlns:xlink"       "xmlnsXlink")
-      . (T.replace "stroke-width"      "strokeWidth")
+        (T.replace "dominant-baseline" "dominantBaseline")
+      . (T.replace "fill-rule"         "fillRule")
+      . (T.replace "font-family"       "fontFamily")
+      . (T.replace "font-size"         "fontSize")
+      . (T.replace "letter-spacing"    "letterSpacing")
       . (T.replace "stroke-dasharray"  "strokeDasharray")
       . (T.replace "stroke-dashoffset" "strokeDashoffset")
-      . (T.replace "stroke-linejoin"   "strokeLinejoin")
       . (T.replace "stroke-linecap"    "strokeLinecap")
-      . (T.replace "font-family"       "fontFamily")
-      . (T.replace "font-size"         "fontSize")
+      . (T.replace "stroke-linejoin"   "strokeLinejoin")
+      . (T.replace "stroke-miterlimit" "strokeMiterlimit")
+      . (T.replace "stroke-width"      "strokeWidth")
       . (T.replace "text-anchor"       "textAnchor")
-      . (T.replace "letter-spacing"    "letterSpacing")
-      . (T.replace "dominant-baseline" "dominantBaseline")
-      . (T.replace "stroke-miterlimit" "strokeMiterlimit")+      . (T.replace "xmlns:xlink"       "xmlnsXlink")

@@ -141,20 +141,23 @@ -}
 warning :: Svg
 warning = 
-    S.g $ do
-      S.path
-        ! d triangleDirs
-        ! strokeLinejoin "round"
-        ! fillRule "evenodd"
-      S.path
-        ! d stickPath
-      S.circle
-        ! (cx .: 0)
-        ! (cy .: 0.15)
-        ! (r  .: w)
+  S.g $ 
+    S.g 
+      ! A.transform (translate 0 0.2)
+      $ do
+        S.path
+          ! d triangleDirs
+          ! strokeLinejoin "round"
+          ! fillRule "evenodd"
+        S.path
+          ! d stickPath
+        S.circle
+          ! (cx .: 0)
+          ! (cy .: 0.15)
+          ! (r  .: w)
   where
     w  = 0.1
-    ap1 = 0.36
+    ap1 = 0.42
     ap2 = ap1 + w
     lm1 = (sqrt 3) * ap1
     lm2 = (sqrt 3) * ap2

@@ -1,6 +1,6 @@ cabal-version:      2.4
 name:               svg-icons
-version:            2.1.0.3
+version:            2.2.0.0
 homepage:           https://github.com/RamiroPastor/SvgIcons
 license:            BSD-3-Clause
 license-file:       LICENSE