purescript_linked_in/src/Content.purs

module ExampleWebExt.Content where

import LinkedIn
import Prelude

import Browser.DOM (getBrowserDom)
import Data.Either (Either(..))
import Data.List.NonEmpty (NonEmptyList)
import Data.List.NonEmpty as NEL
import Data.Maybe (Maybe(..))
import Data.Traversable (traverse)
import Effect (Effect)
import Effect.Class.Console (logShow)
import Effect.Console (log)
import LinkedIn.ArtDecoCard (parseArtDecoCard)
import LinkedIn.ArtDecoCardAlt (ArtDecoCardAltElement, queryArtDecoCardAlt)
import LinkedIn.ArtDecoTab (parseArtDecoTab)
import LinkedIn.JobsUnifiedTopCard (parseJobsUnifiedTopCardElement)
import LinkedIn.Profile.Project as PP
import LinkedIn.Profile.Skill as PS
import LinkedIn.Profile.Utils (toUIElement)
import LinkedIn.Profile.WorkExperience as PWE
import Web.DOM (Node)
import Yoga.Tree (Tree, showTree)

main :: Effect Unit
main = do
  dom <- getBrowserDom
  artDecoCards <- getArtDecoCards dom
  artDecoTabs <- getArtDecoTabs dom
  jobsUnifiedTopCard <- getJobsUnifiedTopCard dom

  log "[content] starting up"

  maybeShowTree artDecoCards >>= log

  maybeShowPruned "no card found" artDecoCards >>= log
  maybeShowPruned "no tabs found" artDecoTabs >>= log
  maybeShowPruned "no top card found" jobsUnifiedTopCard >>= log

  case artDecoCards of
    Nothing -> log "nothing"
    Just l -> do
      parsed <- (\(LinkedInUIElement _ n) -> parseArtDecoCard n) $ NEL.head l
      logShow parsed
      case parsed of
        Left l -> logShow l
        Right p -> do
          logShow $ toUIElement <$> p
          logShow $ PWE.fromUI p
          logShow $ PP.fromUI p

  case artDecoCards of
    Nothing -> log "nothing"
    Just l -> do
      queried <- (\(LinkedInUIElement _ n) -> queryArtDecoCardAlt n) $ NEL.head l
      case queried of
        Left l -> logShow l
        Right p -> do
          detached <- traverse toDetached p :: Effect (ArtDecoCardAltElement DetachedNode)
          logShow detached

  case artDecoTabs of
    Nothing -> log "nothing"
    Just l -> do
      parsed <- (\(LinkedInUIElement _ n) -> parseArtDecoTab n) $ NEL.head l
      logShow parsed
      case parsed of
        Left l -> logShow l
        Right p -> do
          logShow $ PS.fromUI p

  case jobsUnifiedTopCard of
    Nothing -> log "nothing"
    Just l -> do
      parsed <- (\(LinkedInUIElement _ n) -> parseJobsUnifiedTopCardElement n) $ NEL.head l
      logShow parsed

maybeShowTree ∷ Maybe (NonEmptyList LinkedInUIElement) → Effect String
maybeShowTree Nothing = pure "nope"
maybeShowTree (Just nel) = do
  tree <- asTree $ NEL.head nel
  pure $ showTree tree

maybeShowPruned ∷ String → Maybe (NonEmptyList LinkedInUIElement) → Effect String
maybeShowPruned errorMsg els = do
  trees <- asPrunedTrees els
  case trees of
    Nothing -> pure errorMsg
    Just ts -> do
      pure $ showTree $ NEL.head ts
      --pure $ showMaybeTree $ zipperTest $ head ts

showMaybeTree ∷ ∀ (a ∷ Type). Show a ⇒ Maybe (Tree a) → String
showMaybeTree Nothing = "No tree"
showMaybeTree (Just t) = showTree t