Skip to content

Instantly share code, notes, and snippets.

@crappygraphix

crappygraphix/Main.hs

Created September 6, 2019 19:56
Show Gist options
  • Save crappygraphix/437ed82c7ff268943109efc1bd388591 to your computer and use it in GitHub Desktop.
Save crappygraphix/437ed82c7ff268943109efc1bd388591 to your computer and use it in GitHub Desktop.
Download ZIP
SVG Widget Snippet
Raw
Main.hs
linkedinWidget :: MonadWidget t m => m ()
linkedinWidget =
elSvgNS "svg" svg $
elSvgNS "path" p blank
where
elSvgNS t attr guts = do
(_, a) <- elDynAttrNS' (Just "http://www.w3.org/2000/svg") t (constDyn attr) guts
return a
svg = "class" =: "svg" <> "viewBox" =: "0 0 32 32"
p = "d" =: "M29.627 0h-27.267c-0.008-0-0.017-0-0.027-0-1.279 0-2.318 1.030-2.333 2.305v27.388c0.015 1.277 1.054 2.307 2.333 2.307 0.009 0 0.019-0 0.028-0h27.265c0.008 0 0.017 0 0.027 0 1.282 0 2.324-1.028 2.346-2.305l0-27.389c-0.015-1.277-1.054-2.307-2.333-2.307-0.014 0-0.028 0-0.042 0zM9.493 27.267h-4.747v-15.267h4.747zM7.12 9.933c-1.517-0-2.747-1.23-2.747-2.747s1.23-2.747 2.747-2.747c1.508 0 2.731 1.215 2.747 2.719 0 1.518-1.23 2.748-2.747 2.748zM27.267 27.267h-4.747v-7.427c0-1.773 0-4-2.467-4s-2.84 1.933-2.84 3.92v7.547h-4.747v-15.307h4.547v2.093c0.881-1.488 2.479-2.47 4.305-2.47 0.066 0 0.132 0.001 0.198 0.004 4.791-0 5.684 3.16 5.684 7.28z"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment