Finish TimeTracker migration, add clock ticks

Erudition · Nov 12, 2023 · ee09760 · ee09760
1 parent 51dd160
commit ee09760
Show file tree

Hide file tree

Showing 5 changed files with 33 additions and 310 deletions.
diff --git a/elm-to-be-migrated/TimeTracker.elm b/elm-to-be-migrated/TimeTracker.elm
diff --git a/elm/Layouts/AppFrame.elm b/elm/Layouts/AppFrame.elm
@@ -55,6 +55,7 @@ import Replicated.Reducer.RepList as RepList exposing (RepList)
 import Route exposing (Route)
 import Route.Path
 import Shared
+import Shared.Model
 import Shared.Msg exposing (..)
 import Shared.PopupType as PopupType
 import SmartTime.Duration as Duration
@@ -84,7 +85,7 @@ layout props shared route =
         { init = init
         , update = update
         , view = view shared route
-        , subscriptions = subscriptions
+        , subscriptions = subscriptions shared
         }
 
 
@@ -113,7 +114,8 @@ init _ =
 
 
 type Msg
-    = JustRunEffects (List (Effect Shared.Msg))
+    = NoOp
+    | JustRunEffects (List (Effect Shared.Msg))
     | EffectsAndLogError (List (Effect Shared.Msg)) String
     | SendSharedMsg Shared.Msg
     | AskAModel
@@ -123,6 +125,9 @@ type Msg
 update : Msg -> Model -> ( Model, Effect Msg )
 update msg model =
     case msg of
+        NoOp ->
+            ( model, Effect.none )
+
         JustRunEffects effects ->
             ( model
             , Effect.batch effects
@@ -177,8 +182,8 @@ update msg model =
             )
 
 
-subscriptions : Model -> Sub Msg
-subscriptions model =
+subscriptions : Shared.Model.Model -> Model -> Sub Msg
+subscriptions shared model =
     Sub.none
 
 

diff --git a/elm/Pages/TimeTracker.elm b/elm/Pages/TimeTracker.elm
@@ -53,7 +53,7 @@ import VitePluginHelper
 page : Shared.Model -> Route () -> Page Model Msg
 page shared route =
     Page.new
-        { init = init
+        { init = init route
         , update = update shared
         , subscriptions = subscriptions
         , view = view shared route
@@ -77,13 +77,28 @@ type alias Model =
     {}
 
 
-init : () -> ( Model, Effect Msg )
-init () =
+init : Route () -> () -> ( Model, Effect Msg )
+init route () =
     ( {}
     , Effect.none
     )
 
 
+urlTriggers : Profile -> List ( String, Dict.Dict String Msg )
+urlTriggers app =
+    let
+        activitiesWithNames =
+            List.concat <| List.map entriesPerActivity (Activity.allUnhidden app.activities)
+
+        entriesPerActivity activity =
+            List.map (\nm -> ( nm, StartTracking (Activity.getID activity) )) (Activity.getNames activity)
+                ++ List.map (\nm -> ( String.toLower nm, StartTracking (Activity.getID activity) )) (Activity.getNames activity)
+    in
+    [ ( "start", Dict.fromList activitiesWithNames )
+    , ( "stop", Dict.fromList [ ( "stop", StartTracking Activity.unknown ) ] )
+    ]
+
+
 
 -- UPDATE
 
@@ -138,9 +153,6 @@ view shared route model =
             [ class "activity-screen" ]
             [ lazy2 viewActivities ( shared.time, shared.timeZone ) shared.replica
             ]
-        , section [ css [ opacity (num 0.1) ] ]
-            [ text "Quite Ambitious."
-            ]
         ]
     }