Generate purescript file from fontawesome

main.hs

{-# LANGUAGE OverloadedStrings #-}

module Lib
    ( someFunc
    ) where

import System.IO
import Data.Char
import Data.Text (Text)
import qualified Data.Text as T
import Data.List


functionName :: Text -> Text
functionName class_ = join $ T.splitOn "-" class_
  where
    join (x:xs) = x <> foldMap T.toTitle xs


appendHeader :: [Text] -> [Text]
appendHeader body = [ "-- | Font awesome icons"
                    , "-- | Generated by a tool"
                    , "module Control.FontAwesome where"
                    , ""
                    , "import Prelude"
                    , "import Halogen as H"
                    , "import Halogen.HTML as HH"
                    , "import Halogen.HTML.Properties as HP"
                    , "" ] <> body


makeClass :: Text -> Text
makeClass class_ = 
  let
    name = functionName class_
  in
    name <> " ∷ ∀ p i. H.HTML p i\n" <>
    name <> " = HH.i [ HP.class_ $ HH.ClassName \"fa " <> class_ <> "\" ] []\n"


isClassLine :: Text -> Bool
isClassLine line = 
  ".fa-" `T.isPrefixOf` line &&
  ":before" `T.isInfixOf` line
 

extractClassNames :: [Text] -> [Text]
extractClassNames lines =
  getName <$> filter isClassLine lines
  where
    getName :: Text -> Text
    getName class_ = T.takeWhile (/= ':') $ T.drop 1 class_
 

main :: IO ()
main = do
  contents <- readFile "./font-awesome.css" 
  writeFile "./FontAwesome.purs" $
    T.unpack $
    T.unlines $
    appendHeader $
    map makeClass $
    extractClassNames $
    T.lines $
    T.pack $
    contents