purescript_linked_in/src/LinkedIn/Profile/Skill.purs

module LinkedIn.Profile.Skill where

import Prelude

import Data.Either (Either, note)
import Data.Foldable (findMap)
import Data.Generic.Rep (class Generic)
import Data.Maybe (Maybe(..))
import Data.Show.Generic (genericShow)
import LinkedIn.ArtDecoTab (ArtDecoTabElement, toHeaderBold)
import LinkedIn.DetachedNode (DetachedNode)
import LinkedIn.Profile.Utils (toUIElement)
import LinkedIn.UIElements.Types (UIElement(..), UIString(..))

data Skill = Skill {
  name :: String
}

derive instance Generic Skill _
instance Show Skill where
  show = genericShow

fromUI ∷ ArtDecoTabElement DetachedNode → Either String Skill
fromUI (tab) = ado
    name <- note "No position found" $ findMap extractName bold
  in
    Skill { name }
  where
    asUI = toUIElement <$> tab
    bold = toHeaderBold asUI

extractName :: UIElement -> Maybe String
extractName = case _ of
  UIElement (UIStringPlain str) -> Just str
  _ -> Nothing