Heroicons in Haskell - Haskell

Welcome to the Functional Programming Zulip Chat Archive. You can join the chat here.

Home#Haskell
Heroicons in Haskell
Sridhar Ratnakumar
2021-04-21 21:47:38

Here's a cool project idea.

Write a code generator that gives us blaze-html markup for all the icons here (taking a custom class as argument): https://heroicons.com/

Manually writing it looks like this,

star :: Text -> H.Html
star cls =
  raw
    [text|
    <svg xmlns="http://www.w3.org/2000/svg" class="${cls}" fill="none" viewBox="0 0 24 24" stroke="currentColor">
      <path stroke-linecap="round" stroke-linejoin="round" stroke-width="2" d="M11.049 2.927c.3-.921 1.603-.921 1.902 0l1.519 4.674a1 1 0 00.95.69h4.915c.969 0 1.371 1.24.588 1.81l-3.976 2.888a1 1 0 00-.363 1.118l1.518 4.674c.3.922-.755 1.688-1.538 1.118l-3.976-2.888a1 1 0 00-1.176 0l-3.976 2.888c-.783.57-1.838-.197-1.538-1.118l1.518-4.674a1 1 0 00-.363-1.118l-3.976-2.888c-.784-.57-.38-1.81.588-1.81h4.914a1 1 0 00.951-.69l1.519-4.674z" />
    </svg>
    |]

starSolid :: Text -> H.Html
starSolid cls =
  raw
    [text|
    <svg xmlns="http://www.w3.org/2000/svg" class="${cls}" viewBox="0 0 20 20" fill="currentColor">
      <path d="M9.049 2.927c.3-.921 1.603-.921 1.902 0l1.07 3.292a1 1 0 00.95.69h3.462c.969 0 1.371 1.24.588 1.81l-2.8 2.034a1 1 0 00-.364 1.118l1.07 3.292c.3.921-.755 1.688-1.54 1.118l-2.8-2.034a1 1 0 00-1.175 0l-2.8 2.034c-.784.57-1.838-.197-1.539-1.118l1.07-3.292a1 1 0 00-.364-1.118L2.98 8.72c-.783-.57-.38-1.81.588-1.81h3.461a1 1 0 00.951-.69l1.07-3.292z" />
    </svg>
    |]
Heroicons
Beautiful hand-crafted SVG icons, by the makers of Tailwind CSS.
Powered by Haskell | Questions? Contact srid