nuttycom/aftok - Change QAC2QJ32ZLAK25KJ7SWT27WOZKD2MMDE7OZPHIRRFP2W2QZW7PBAC

Add project overview page to client.

Created by Kris Nuttycombe on January 24, 2021

QAC2QJ32ZLAK25KJ7SWT27WOZKD2MMDE7OZPHIRRFP2W2QZW7PBAC

Dependencies

In channels

main

Change contents

Replacement in client/src/Aftok/Api/Timeline.purs at line 34 [3.18]

B:BD[3.912] → [3.912:957]

B:BD[3.957] → [4.1906:2044]

import Aftok.Project (ProjectId(..), pidStr)
-- import Aftok.Types (APIError, JsonCompose, decompose, parseDatedResponse)
import Aftok.Types (APIError, decompose, parseDatedResponse)

[3.912]

[3.1031]

import Aftok.Types (APIError, decompose, parseDatedResponse, ProjectId(..), pidStr)

File addition: Overview.purs (----------)

[5.1]

module Aftok.Overview where
import Prelude
-- import Control.Alt ((<|>))
-- import Control.Monad.Rec.Class (forever)
-- import Control.Monad.State (State, put, get, evalState)
-- import Control.Monad.Trans.Class (lift)
-- import Control.Monad.Maybe.Trans (MaybeT(..), runMaybeT)
-- 
-- import Data.Array (reverse, cons)
-- import Data.Date (Date, year, month, day)
-- import Data.DateTime as DT
-- import Data.DateTime (DateTime(..), date)
-- import Data.DateTime.Instant (Instant, unInstant, fromDateTime, toDateTime)
-- import Data.Either (Either(..))
-- import Data.Enum (fromEnum)
import Data.Foldable (any)
-- import Data.Map as M
import Data.Maybe (Maybe(..), isNothing)
import Data.Newtype (unwrap)
import Data.Symbol (SProxy(..))
-- import Data.Time.Duration (Milliseconds(..), Hours(..), Days(..))
-- import Data.Traversable (traverse_, traverse)
-- import Data.Tuple (Tuple(..))
-- import Data.Unfoldable as U
-- -- import Text.Format as F -- (format, zeroFill, width)
-- import Effect.Aff as Aff
import Effect.Aff (Aff)
-- import Effect.Class (liftEffect)
-- import Effect.Exception (error)
-- import Effect.Now (now)
import Halogen as H
-- import Halogen.Query.EventSource (EventSource)
-- import Halogen.Query.EventSource as EventSource
import Halogen.HTML.Core (ClassName(..))
import Halogen.HTML as HH
-- import Halogen.HTML.CSS as CSS
-- import Halogen.HTML.Events as E
import Halogen.HTML.Properties as P
-- import CSS (backgroundColor, clear, clearBoth, border, rgb, solid, borderRadius, marginLeft)
-- import CSS.Display (display, flex)
-- import CSS.Geometry (width, height)
-- import CSS.Size (px, pct)
-- import Aftok.Api.Overview as TL
-- import Aftok.Api.Overview 
--   ( OverviewError, 
--     Event(..),
--     Interval(..), 
--     TimeInterval, 
--     KeyedEvent,
--     TimeSpan, 
--     start, end, interval,
--     event, eventTime, keyedEvent
--     )
import Aftok.Project as Project
-- import Aftok.Project (Project, Project'(..), ProjectId) --, pidStr)
import Aftok.Types (System, Project, ProjectEvent(..))
type OverviewInput = Maybe Project
type OverviewState =
  { selectedProject :: Maybe Project
  }
data Invitation
  = InviteByEmail String
  | InviteByZaddr String
data OverviewAction
  = Initialize
  | ProjectSelected Project
  | Invite Invitation
type Slot id = forall query. H.Slot query ProjectEvent id
type Slots =
  ( projectList :: Project.ProjectListSlot Unit
  )
_projectList = SProxy :: SProxy "projectList"
type Capability (m :: Type -> Type) =
  { 
  }
component
  :: forall query m
  .  Monad m
  => System m
  -> Capability m
  -> Project.Capability m
  -> H.Component HH.HTML query OverviewInput ProjectEvent m
component system caps pcaps = H.mkComponent
  { initialState
  , render
  , eval: H.mkEval $ H.defaultEval
      { handleAction = eval
      , initialize = Just Initialize
      }
  } where
    initialState :: OverviewInput -> OverviewState
    initialState input =
      { selectedProject: input
      }
    render :: OverviewState -> H.ComponentHTML OverviewAction Slots m
    render st =
      HH.section
        [P.classes (ClassName <$> ["section-border", "border-primary"])]
        [HH.div
          [P.classes (ClassName <$> ["container", "pt-6"])]
          [HH.h1
            [P.classes (ClassName <$> ["mb-0", "font-weight-bold", "text-center"])]
            [HH.text "Project Overview"]
          ,HH.p
            [P.classes (ClassName <$> ["col-md-5", "text-muted", "text-center", "mx-auto"])]
            [HH.text "Your project timeline"]
          ,HH.div_
            [HH.slot _projectList unit (Project.projectListComponent system pcaps) unit (Just <<< ProjectSelected)]
          ,HH.div
            [P.classes (ClassName <$> if isNothing st.selectedProject then ["collapse"] else [])]
            []
          ]
        ]
    eval :: OverviewAction -> H.HalogenM OverviewState OverviewAction Slots ProjectEvent m Unit
    eval action = do
      case action of
        Initialize -> do
          pure unit
        Invite _ -> do
          pure unit
        ProjectSelected p -> do
          currentProject <- H.gets (_.selectedProject)
          
          when (any (\p' -> (unwrap p').projectId /= (unwrap p).projectId) currentProject) $ do
            H.raise (ProjectChange p) 
            H.modify_ (_ { selectedProject = Just p })
apiCapability :: Capability Aff
apiCapability = { }
mockCapability :: Capability Aff
mockCapability = { }

Replacement in client/src/Aftok/Project.purs at line 11 [6.532]

B:BD[6.761] → [6.761:826]

import Data.Argonaut.Decode (class DecodeJson, decodeJson, (.:))

[6.761]

[6.826]

import Data.Argonaut.Decode (decodeJson)

Replacement in client/src/Aftok/Project.purs at line 13 [6.532]
B:BD[6.855] → [6.855:887]
B:BD[6.916] → [6.916:954]
```
import Data.DateTime (DateTime)
import Data.Either (Either(..), note)
```
[6.855]
[6.996]
```
import Data.Either (Either(..))
```
Deletion in client/src/Aftok/Project.purs at line 15 [6.532]
B:BD[6.1026] → [7.34:70]
```
import Data.Newtype (class Newtype)
```
Deletion in client/src/Aftok/Project.purs at line 16 [6.532]
B:BD[8.154] → [9.214:259]
```
import Data.UUID (UUID, parseUUID, toString)
```

Replacement in client/src/Aftok/Project.purs at line 24 [6.532]

B:BD[6.1287] → [9.260:313]

import Aftok.Types (APIError(..), System, parseDate)

[6.1287]

[8.216]

import Aftok.Types 
  ( APIError(..)
  , System
  , parseDate
  , pidStr
  , Project'(..)
  , Project
  )

Deletion in client/src/Aftok/Project.purs at line 38 [6.532]
B:BD[8.331] → [8.331:332]
B:BD[8.369] → [8.369:404]
B:BD[8.404] → [7.155:199]
B:BD[7.199] → [9.314:370]
∅:D[7.255] → [8.404:435]
∅:D[9.370] → [8.404:435]
B:BD[8.404] → [8.404:435]
B:BD[8.435] → [9.371:411]
```
newtype ProjectId = ProjectId UUID
derive instance projectIdEq :: Eq ProjectId
derive instance projectIdNewtype :: Newtype ProjectId _
pidStr :: ProjectId -> String
pidStr (ProjectId uuid) = toString uuid
```
Deletion in client/src/Aftok/Project.purs at line 39 [6.532]
B:BD[6.1524] → [6.1524:1557]
B:BD[6.1557] → [8.472:525]
∅:D[8.525] → [6.1583:1635]
B:BD[6.1583] → [6.1583:1635]
B:BD[6.1635] → [7.256:313]
∅:D[7.313] → [6.1635:1669]
B:BD[6.1635] → [6.1635:1669]
B:BD[6.1669] → [8.526:527]
```
newtype Project' date = Project'
  { projectId :: ProjectId
  , projectName :: String
  , inceptionDate :: date
  , initiator :: UUID
  }
derive instance newtypeProject :: Newtype (Project' a) _
type Project = Project' DateTime
```

Deletion in client/src/Aftok/Project.purs at line 104 [6.532]

B:BD[6.1870] → [6.1870:1983]

B:BD[6.1983] → [8.1948:2114]

∅:D[8.2114] → [6.2246:2247]

B:BD[6.2246] → [6.2246:2247]

B:BD[6.2247] → [8.2115:2411]

∅:D[8.2411] → [6.2247:2248]

B:BD[6.2247] → [6.2247:2248]

instance decodeJsonProject :: DecodeJson (Project' String) where
  decodeJson json = do
    x <- decodeJson json
    project <- x .: "project"
    projectIdStr <- x .: "projectId"
    projectId    <- ProjectId <$> (note "Failed to decode project UUID" $ parseUUID projectIdStr)
    projectName   <- project .: "projectName"
    inceptionDate <- project .: "inceptionDate"
    initiatorStr  <- project .: "initiator"
    initiator     <- note "Failed to decode initiator UUID" $ parseUUID initiatorStr
    pure $ Project' { projectId, projectName, inceptionDate, initiator }

Replacement in client/src/Aftok/Timeline.purs at line 62 [11.2287]

B:BD[8.2907] → [10.536:604]

∅:D[10.604] → [3.6844:6872]

∅:D[12.989] → [3.6844:6872]

B:BD[3.6844] → [3.6844:6872]

import Aftok.Project (Project, Project'(..), ProjectId) --, pidStr)
import Aftok.Types (System)

[8.2907]

[9.3080]

import Aftok.Types 
  ( System, 
    ProjectEvent(..), 
    Project, 
    Project'(..), 
    ProjectId
    )

Replacement in client/src/Aftok/Timeline.purs at line 105 [11.2287]
B:BD[13.302073] → [8.3075:3111]
```
  | ProjectSelected Project.Project
```
[13.302073]
[13.302073]
```
  | ProjectSelected Project
```
Replacement in client/src/Aftok/Timeline.purs at line 110 [11.2287]
∅:D[8.3158] → [13.302105:302155]
B:BD[11.3626] → [13.302105:302155]
```
type Slot id = forall query. H.Slot query Void id
```
[11.3626]
[11.3687]
```
type Slot id = forall query. H.Slot query ProjectEvent id
```
Replacement in client/src/Aftok/Timeline.purs at line 127 [11.2287]
B:BD[7.1170] → [9.4297:4330]
```
  :: forall query input output m
```
[7.1170]
[9.4330]
```
  :: forall query input m
```
Replacement in client/src/Aftok/Timeline.purs at line 132 [11.2287]
B:BD[9.4401] → [9.4401:4447]
```
  -> H.Component HH.HTML query input output m
```
[9.4401]
[9.4447]
```
  -> H.Component HH.HTML query input ProjectEvent m
```

Replacement in client/src/Aftok/Timeline.purs at line 184 [11.2287]

B:BD[11.4813] → [9.5189:5279]

    eval :: TimelineAction -> H.HalogenM TimelineState TimelineAction Slots output m Unit

[11.4813]

[12.1431]

    eval :: TimelineAction -> H.HalogenM TimelineState TimelineAction Slots ProjectEvent m Unit

Replacement in client/src/Aftok/Timeline.purs at line 195 [11.2287]

B:BD[10.810] → [10.810:914]

∅:D[10.914] → [12.1776:1825]

B:BD[12.1776] → [12.1776:1825]

          when (oldActive && any (\p' -> (unwrap p').projectId /= (unwrap p).projectId) currentProject)
               (traverse_ logEnd currentProject)

[10.810]

[10.915]

          when (oldActive && any (\p' -> (unwrap p').projectId /= (unwrap p).projectId) currentProject) $ do
            H.raise (ProjectChange p) 
            (traverse_ logEnd currentProject)

Replacement in client/src/Aftok/Timeline.purs at line 248 [11.2287]

B:BD[13.304478] → [9.5953:6040]

    logStart :: Project -> H.HalogenM TimelineState TimelineAction Slots output m Unit

[13.304478]

[7.2872]

    logStart :: Project -> H.HalogenM TimelineState TimelineAction Slots ProjectEvent m Unit

Replacement in client/src/Aftok/Timeline.purs at line 255 [11.2287]

B:BD[7.3060] → [9.6122:6207]

    logEnd :: Project -> H.HalogenM TimelineState TimelineAction Slots output m Unit

[7.3060]

[7.3147]

    logEnd :: Project -> H.HalogenM TimelineState TimelineAction Slots ProjectEvent m Unit

Replacement in client/src/Aftok/Types.purs at line 10 [8.7400]

B:BD[14.3396] → [9.10862:10921]

import Data.Argonaut.Decode (class DecodeJson, decodeJson)

[14.3396]

[12.7181]

import Data.Argonaut.Decode (class DecodeJson, decodeJson, (.:))

Insertion in client/src/Aftok/Types.purs at line 22 [8.7400]
[12.7262]
[14.3525]
```
import Data.UUID (UUID, toString, parseUUID)
```

Insertion in client/src/Aftok/Types.purs at line 104 [8.7400]

[14.3815]

[9.11908]


newtype ProjectId = ProjectId UUID
derive instance projectIdEq :: Eq ProjectId
derive instance projectIdNewtype :: Newtype ProjectId _

Insertion in client/src/Aftok/Types.purs at line 109 [8.7400]

[9.11909]

pidStr :: ProjectId -> String
pidStr (ProjectId uuid) = toString uuid
newtype Project' date = Project'
  { projectId :: ProjectId
  , projectName :: String
  , inceptionDate :: date
  , initiator :: UUID
  }
derive instance newtypeProject :: Newtype (Project' a) _
type Project = Project' DateTime
data ProjectEvent
  = ProjectChange Project
instance decodeJsonProject :: DecodeJson (Project' String) where
  decodeJson json = do
    x <- decodeJson json
    project <- x .: "project"
    projectIdStr <- x .: "projectId"
    projectId    <- ProjectId <$> (note "Failed to decode project UUID" $ parseUUID projectIdStr)
    projectName   <- project .: "projectName"
    inceptionDate <- project .: "inceptionDate"
    initiatorStr  <- project .: "initiator"
    initiator     <- note "Failed to decode initiator UUID" $ parseUUID initiatorStr
    pure $ Project' { projectId, projectName, inceptionDate, initiator }

Replacement in client/src/Main.purs at line 16 [15.410]
B:BD[13.307634] → [13.307634:307659]
```
import Halogen.Aff as HA
```
[13.307634]
[16.1305]
```
import Halogen.Aff (runHalogenAff, awaitBody)
```
Replacement in client/src/Main.purs at line 28 [15.410]
B:BD[17.1095] → [9.13580:13620]
```
import Aftok.Types (System, liveSystem)
```
[17.1095]
[13.307686]
```
import Aftok.Types (System, Project, ProjectEvent(..), liveSystem)
```
Insertion in client/src/Main.purs at line 33 [15.410]
[13.307748]
[6.3755]
```
import Aftok.Overview as Overview
```
Replacement in client/src/Main.purs at line 37 [15.410]
B:BD[13.307845] → [13.307845:307895]
```
main = HA.runHalogenAff do
  body <- HA.awaitBody
```
[13.307845]
[18.1546]
```
main = runHalogenAff do
  body <- awaitBody
```

Replacement in client/src/Main.purs at line 44 [15.410]

B:BD[6.3826] → [19.1610:1683]

      mainComponent = component liveSystem login signup timeline project

[6.3826]

[2.401]

      overview = Overview.apiCapability
      mainComponent = component liveSystem login signup timeline project overview

Insertion in client/src/Main.purs at line 56 [15.410]
[19.1736]
[19.1736]
```
  | VOverview
```
Insertion in client/src/Main.purs at line 63 [15.410]
[2.721]
[2.721]
```
  , VOverview <$ lit "overview"
```
Insertion in client/src/Main.purs at line 72 [15.410]
[2.876]
[2.876]
```
  VOverview -> "overview"
```
Insertion in client/src/Main.purs at line 84 [15.410]
[19.1818]
[19.1818]
```
  , selectedProject :: Maybe Project
```
Insertion in client/src/Main.purs at line 91 [15.410]
[19.1894]
[19.1894]
```
  | ProjectAction ProjectEvent
```
Insertion in client/src/Main.purs at line 97 [15.410]
[19.1943]
[18.1723]
```
  , overview :: Overview.Slot Unit
```
Insertion in client/src/Main.purs at line 103 [15.410]
[19.1980]
[13.308236]
```
_overview = SProxy :: SProxy "overview"
```
Insertion in client/src/Main.purs at line 114 [15.410]
[9.13825]
[2.1097]
```
  -> Overview.Capability m
```
Replacement in client/src/Main.purs at line 116 [15.410]
∅:D[2.1147] → [19.2007:2071]
B:BD[9.13871] → [19.2007:2071]
```
component system loginCap signupCap tlCap pCap = H.mkComponent 
```
[2.1147]
[13.308429]
```
component system loginCap signupCap tlCap pCap ovCap = H.mkComponent 
```
Insertion in client/src/Main.purs at line 130 [15.410]
[20.9389]
[20.9389]
```
      , selectedProject: Nothing
```

Insertion in client/src/Main.purs at line 146 [15.410]

[19.2455]

      VOverview ->
        HH.div_ 
          [ HH.slot _overview unit (Overview.component system ovCap pCap) st.selectedProject (Just <<< ProjectAction) ]

Replacement in client/src/Main.purs at line 152 [15.410]

B:BD[16.1844] → [9.14088:14176]

          [ HH.slot _timeline unit (Timeline.component system tlCap pCap) unit absurd ]

[16.1844]

[13.308924]

          [ HH.slot _timeline unit (Timeline.component system tlCap pCap) unit (Just <<< ProjectAction) ]

Deletion in client/src/Main.purs at line 168 [15.410]
∅:D[2.1375] → [6.4407:4408]
∅:D[16.2080] → [6.4407:4408]
∅:D[19.2872] → [6.4407:4408]
B:BD[6.4407] → [6.4407:4408]
B:BD[6.4408] → [19.2873:2919]
B:BD[19.2919] → [2.1376:1403]
```
      LoginAction (Login.LoginComplete _) -> 
        navigate VTimeline
```

Insertion in client/src/Main.purs at line 174 [15.410]

[2.1456]

[20.9578]


      LoginAction (Login.LoginComplete _) -> 
        navigate VTimeline

Insertion in client/src/Main.purs at line 182 [15.410]

[2.1482]

      ProjectAction (ProjectChange p) ->
        H.modify_ (_ { selectedProject = Just p })

Replacement in client/src/Main.purs at line 205 [15.410]

B:BD[16.2450] → [16.2450:2474]

        [brand, logout]

[16.2450]

[16.2474]

        [ brand
        , HH.ul [P.classes (ClassName <$> ["navbar-nav", "ml-auto"])] (map navItem nav)
        , logout
        ]

Insertion in client/src/Main.purs at line 213 [15.410]

[16.2506]

nav :: Array NavItem
nav = [ { label: "Overview", path: "overview" }
      , { label: "Timeline", path: "timeline" }
      ]

Insertion in client/src/Main.purs at line 232 [15.410]

[16.2926]


type NavTop = 
  { label :: String
  , items :: Array NavItem
  }

Insertion in client/src/Main.purs at line 238 [15.410]

[16.2927]

type NavItem = 
  { label :: String
  , path :: String 
  }
navItem :: forall a s m. NavItem -> H.ComponentHTML a s m
navItem ni = 
  HH.li
    [P.classes (ClassName <$> ["nav-item"]) ]
    [ HH.a
      [ P.classes (ClassName <$> ["nav-link"])
      , P.href ("#" <> ni.path)
      ]
      [ HH.text ni.label ]
    ]

Add project overview page to client.

Dependencies

In channels

Change contents

Replacement in client/src/Aftok/Api/Timeline.purs at line 34 [3.18]

File addition: Overview.purs (----------)

Replacement in client/src/Aftok/Project.purs at line 11 [6.532]

Replacement in client/src/Aftok/Project.purs at line 13 [6.532]

Deletion in client/src/Aftok/Project.purs at line 15 [6.532]

Deletion in client/src/Aftok/Project.purs at line 16 [6.532]

Replacement in client/src/Aftok/Project.purs at line 24 [6.532]

Deletion in client/src/Aftok/Project.purs at line 38 [6.532]

Deletion in client/src/Aftok/Project.purs at line 39 [6.532]

Deletion in client/src/Aftok/Project.purs at line 104 [6.532]

Replacement in client/src/Aftok/Timeline.purs at line 62 [11.2287]

Replacement in client/src/Aftok/Timeline.purs at line 105 [11.2287]

Replacement in client/src/Aftok/Timeline.purs at line 110 [11.2287]

Replacement in client/src/Aftok/Timeline.purs at line 127 [11.2287]

Replacement in client/src/Aftok/Timeline.purs at line 132 [11.2287]

Replacement in client/src/Aftok/Timeline.purs at line 184 [11.2287]

Replacement in client/src/Aftok/Timeline.purs at line 195 [11.2287]

Replacement in client/src/Aftok/Timeline.purs at line 248 [11.2287]

Replacement in client/src/Aftok/Timeline.purs at line 255 [11.2287]

Replacement in client/src/Aftok/Types.purs at line 10 [8.7400]

Insertion in client/src/Aftok/Types.purs at line 22 [8.7400]

Insertion in client/src/Aftok/Types.purs at line 104 [8.7400]

Insertion in client/src/Aftok/Types.purs at line 109 [8.7400]

Replacement in client/src/Main.purs at line 16 [15.410]

Replacement in client/src/Main.purs at line 28 [15.410]

Insertion in client/src/Main.purs at line 33 [15.410]

Replacement in client/src/Main.purs at line 37 [15.410]

Replacement in client/src/Main.purs at line 44 [15.410]

Insertion in client/src/Main.purs at line 56 [15.410]

Insertion in client/src/Main.purs at line 63 [15.410]

Insertion in client/src/Main.purs at line 72 [15.410]

Insertion in client/src/Main.purs at line 84 [15.410]

Insertion in client/src/Main.purs at line 91 [15.410]

Insertion in client/src/Main.purs at line 97 [15.410]

Insertion in client/src/Main.purs at line 103 [15.410]

Insertion in client/src/Main.purs at line 114 [15.410]

Replacement in client/src/Main.purs at line 116 [15.410]

Insertion in client/src/Main.purs at line 130 [15.410]