nuttycom/aftok - Change B4MTB6UOH5VPZQ7KDQ23TZSR3CIFGVGVBEFL26LMFAQ5RL7CXPRQC

Persist project across pages.

Created by Kris Nuttycombe on January 24, 2021

B4MTB6UOH5VPZQ7KDQ23TZSR3CIFGVGVBEFL26LMFAQ5RL7CXPRQC

Dependencies

In channels

main

Change contents

Replacement in client/src/Aftok/Overview.purs at line 18 [2.91]
B:BD[2.679] → [2.679:706]
```
import Data.Foldable (any)
```
[2.679]
[2.706]
```
import Data.Foldable (all)
```

Replacement in client/src/Aftok/Overview.purs at line 126 [2.91]

B:BD[2.3651] → [2.3651:3767]

            [HH.slot _projectList unit (Project.projectListComponent system pcaps) unit (Just <<< ProjectSelected)]

[2.3651]

[2.3767]

            [HH.slot _projectList unit (Project.projectListComponent system pcaps) st.selectedProject (Just <<< ProjectSelected)]

Replacement in client/src/Aftok/Overview.purs at line 145 [2.91]

B:BD[2.4247] → [2.4247:4343]

          when (any (\p' -> (unwrap p').projectId /= (unwrap p).projectId) currentProject) $ do

[2.4247]

[2.4343]

          when (all (\p' -> (unwrap p').projectId /= (unwrap p).projectId) currentProject) $ do

Replacement in client/src/Aftok/Project.purs at line 14 [4.532]
∅:D[3.33] → [4.996:1026]
∅:D[2.4659] → [4.996:1026]
B:BD[4.996] → [4.996:1026]
```
import Data.Maybe (Maybe(..))
```
[2.4659]
[5.108]
```
import Data.Foldable (any)
import Data.Maybe (Maybe(..), isNothing)
```
Insertion in client/src/Aftok/Project.purs at line 40 [4.532]
[4.1524]
[5.527]
```
type ProjectInput = Maybe Project
```
Replacement in client/src/Aftok/Project.purs at line 43 [4.532]
B:BD[5.548] → [5.548:578]
```
  { projects :: Array Project
```
[5.548]
[5.578]
```
  { selectedProject :: Maybe Project
  , projects :: Array Project
```
Replacement in client/src/Aftok/Project.purs at line 62 [4.532]
∅:D[6.458] → [5.787:834]
B:BD[5.787] → [5.787:834]
```
  -> H.Component HH.HTML query input Project m
```
[6.458]
[6.459]
```
  -> H.Component HH.HTML query ProjectInput Project m
```

Replacement in client/src/Aftok/Project.purs at line 72 [4.532]

B:BD[5.1025] → [5.1025:1106]

    initialState :: input -> ProjectCState
    initialState _ = { projects: [] }

[5.1025]

[5.1106]

    initialState :: ProjectInput -> ProjectCState
    initialState input = { selectedProject: input, projects: [] }

Replacement in client/src/Aftok/Project.purs at line 77 [4.532]

B:BD[5.1207] → [5.1207:1320]

B:BD[5.1320] → [3.314:867]

     let renderOption (Project' p) =
           HH.option [P.value $ pidStr p.projectId] [HH.text p.projectName]
      in HH.div
           [P.classes (ClassName <$> ["form-group"])]
           [HH.label
             [ P.classes (ClassName <$> ["sr-only"])
             , P.for "projectSelect"
             ]
             [ HH.text "Project" ]
           ,HH.select
             [P.classes (ClassName <$> ["form-control"])
             ,P.id_ "projectSelect"
             ,E.onSelectedIndexChange (Just <<< Select)
             ]
             ([HH.option [P.selected true, P.disabled true] [HH.text "Select a project"]] <> map renderOption st.projects)
           ]

[5.1207]

[5.1518]

      HH.div
        [P.classes (ClassName <$> ["form-group"])]
        [ HH.label
          [ P.classes (ClassName <$> ["sr-only"])
          , P.for "projectSelect"
          ]
          [ HH.text "Project" ]
        , HH.select
          [P.classes (ClassName <$> ["form-control"])
          ,P.id_ "projectSelect"
          ,E.onSelectedIndexChange (Just <<< Select)
          ]
          ( [HH.option [P.selected (isNothing st.selectedProject), P.disabled true] [HH.text "Select a project"]] 
            <> map renderOption st.projects
          )
        ]
      where
        renderOption (Project' p) =
          HH.option 
            [ P.selected (any (\(Project' p') -> p'.projectId == p.projectId) st.selectedProject)
            , P.value $ pidStr p.projectId
            ]
            [HH.text p.projectName]

Insertion in client/src/Aftok/Timeline.purs at line 95 [8.2287]
[7.1119]
[7.1119]
```
type TimelineInput = Maybe Project
```
Replacement in client/src/Aftok/Timeline.purs at line 129 [8.2287]
B:BD[3.1170] → [2.4966:4992]
```
  :: forall query input m
```
[3.1170]
[6.4330]
```
  :: forall query m
```

Replacement in client/src/Aftok/Timeline.purs at line 134 [8.2287]

B:BD[6.4401] → [2.4993:5045]

  -> H.Component HH.HTML query input ProjectEvent m

[6.4401]

[6.4447]

  -> H.Component HH.HTML query TimelineInput ProjectEvent m

Replacement in client/src/Aftok/Timeline.purs at line 143 [8.2287]

B:BD[8.4429] → [9.302418:302461]

B:BD[9.302461] → [3.1315:1336]

B:BD[3.1336] → [7.1244:1277]

    initialState :: input -> TimelineState
    initialState _ =
      { selectedProject: Nothing

[8.4429]

[6.4560]

    initialState :: TimelineInput -> TimelineState
    initialState input =
      { selectedProject: input

Replacement in client/src/Aftok/Timeline.purs at line 164 [8.2287]

B:BD[3.1834] → [6.4704:4820]

            [HH.slot _projectList unit (Project.projectListComponent system pcaps) unit (Just <<< ProjectSelected)]

[3.1834]

[3.1955]

            [HH.slot _projectList unit (Project.projectListComponent system pcaps) st.selectedProject (Just <<< ProjectSelected)]

Insertion in client/src/Aftok/Timeline.purs at line 191 [8.2287]

[7.1538]

[8.5214]

          currentProject <- H.gets (_.selectedProject)
          traverse_ setStateForProject currentProject

Deletion in client/src/Aftok/Timeline.purs at line 200 [8.2287]
B:BD[2.5252] → [2.5252:5291]
```
            H.raise (ProjectChange p) 
```

Replacement in client/src/Aftok/Timeline.purs at line 202 [8.2287]

∅:D[10.916] → [7.1825:2085]

B:BD[7.1825] → [7.1825:2085]

B:BD[7.2085] → [10.917:1001]

∅:D[10.1001] → [7.2156:2215]

B:BD[7.2156] → [7.2156:2215]

B:BD[7.2215] → [11.6869:6922]

          timeSpan <- TL.Before <$> lift system.nowDateTime -- FIXME, should come from a form control
          intervals' <- lift $ caps.listIntervals (unwrap p).projectId timeSpan
          intervals <- lift $ case intervals' of
                Left err -> 
                  (system.log $ "Error occurred listing intervals" <> show err ) *>
                  pure [] 
                Right ivals -> 
                  pure $ map (map LoggedEvent) ivals

[10.916]

[10.1138]

          H.raise (ProjectChange p) 
          setStateForProject p

Deletion in client/src/Aftok/Timeline.purs at line 205 [8.2287]

∅:D[10.1139] → [7.2377:2601]

B:BD[7.2377] → [7.2377:2601]

B:BD[7.2601] → [10.1140:1499]

B:BD[10.1499] → [11.6923:7078]

∅:D[11.7078] → [10.1619:1761]

B:BD[10.1619] → [10.1619:1761]

B:BD[10.1761] → [11.7079:7172]

∅:D[11.7172] → [10.1822:1963]

B:BD[10.1822] → [10.1822:1963]

∅:D[12.802] → [5.5264:5265]

∅:D[10.1963] → [5.5264:5265]

∅:D[7.2670] → [5.5264:5265]

∅:D[6.5920] → [5.5264:5265]

B:BD[5.5264] → [5.5264:5265]

B:BD[5.5265] → [10.1964:2051]

          history' <- lift <<< runMaybeT $ toHistory system intervals
          hist <- case history' of
              Nothing -> lift $ system.log "Project history was empty." *> pure M.empty
              Just h -> pure h
          latestEventResponse <- lift $ caps.getLatestEvent (unwrap p).projectId
          now <- lift $ system.now
          active <- lift $ case latestEventResponse of
              Left err -> 
                (system.log $ "Error occurred retrieving the latest event: " <> show err) *>
                pure Nothing
              Right latestEvent -> do
                let activeInterval :: TL.KeyedEvent Instant -> m (Maybe (Interval TimelineEvent))
                    activeInterval ev = case event ev of
                      TL.StartEvent i -> 
                        (system.log $ "Project has an open active interval starting " <> show i) *>
                        (Just <<< interval (LoggedEvent ev) <<< PhantomEvent <$> system.now)
                      TL.StopEvent _  -> 
                        pure Nothing
                join <$> traverse activeInterval latestEvent 
          H.modify_ (_ { selectedProject = Just p, history = hist, active = active })

Insertion in client/src/Aftok/Timeline.purs at line 238 [8.2287]

[7.3429]

[6.6288]


    setStateForProject :: Project -> H.HalogenM TimelineState TimelineAction Slots ProjectEvent m Unit
    setStateForProject p = do
      timeSpan <- TL.Before <$> lift system.nowDateTime -- FIXME, should come from a form control
      intervals' <- lift $ caps.listIntervals (unwrap p).projectId timeSpan
      intervals <- lift $ case intervals' of
            Left err -> 
              (system.log $ "Error occurred listing intervals" <> show err ) *>
              pure [] 
            Right ivals -> 
              pure $ map (map LoggedEvent) ivals
      history' <- lift <<< runMaybeT $ toHistory system intervals
      hist <- case history' of
          Nothing -> lift $ system.log "Project history was empty." *> pure M.empty
          Just h -> pure h

Insertion in client/src/Aftok/Timeline.purs at line 255 [8.2287]

[6.6289]

[7.3430]

      latestEventResponse <- lift $ caps.getLatestEvent (unwrap p).projectId
      now <- lift $ system.now
      active <- lift $ case latestEventResponse of
          Left err -> 
            (system.log $ "Error occurred retrieving the latest event: " <> show err) *>
            pure Nothing
          Right latestEvent -> do
            let activeInterval :: TL.KeyedEvent Instant -> m (Maybe (Interval TimelineEvent))
                activeInterval ev = case event ev of
                  TL.StartEvent i -> 
                    (system.log $ "Project has an open active interval starting " <> show i) *>
                    (Just <<< interval (LoggedEvent ev) <<< PhantomEvent <$> system.now)
                  TL.StopEvent _  -> 
                    pure Nothing
            join <$> traverse activeInterval latestEvent 
      H.modify_ (_ { selectedProject = Just p, history = hist, active = active })

Replacement in client/src/Main.purs at line 147 [13.410]
B:BD[2.7391] → [2.7391:7408]
```
        HH.div_ 
```
[2.7391]
[2.7408]
```
        withNavBar $ HH.div_ 
```

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

B:BD[14.1844] → [2.7530:7636]

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

[14.1844]

[9.308924]

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

Persist project across pages.

Dependencies

In channels

Change contents

Replacement in client/src/Aftok/Overview.purs at line 18 [2.91]

Replacement in client/src/Aftok/Overview.purs at line 126 [2.91]

Replacement in client/src/Aftok/Overview.purs at line 145 [2.91]

Replacement in client/src/Aftok/Project.purs at line 14 [4.532]

Insertion in client/src/Aftok/Project.purs at line 40 [4.532]

Replacement in client/src/Aftok/Project.purs at line 43 [4.532]

Replacement in client/src/Aftok/Project.purs at line 62 [4.532]