create edit page for capture, /capture/idCapture/edit

src/Capture.elm

@@ -10,6 +10,7 @@ type alias Capture =
     , text : String
     , timers : List Timer
     , status : CaptureStatus
+    , tags : List String
     }
 
 
@@ -27,6 +28,7 @@ initCapture =
     , text = ""
     , timers = []
     , status = ToDo
+    , tags = []
     }
 
 
@@ -47,11 +49,12 @@ savedCaptureDecoder =
 
 captureDecoder : JD.Decoder Capture
 captureDecoder =
-    JD.map4 Capture
+    JD.map5 Capture
         (JD.field "capture_id" JD.int)
         (JD.field "text" JD.string)
         (JD.field "timers" (JD.list timerDecoder))
         (JD.field "completed" JD.bool |> JD.andThen captureStatusDecoder)
+        (JD.field "tags" (JD.list (JD.field "text" JD.string)))
 
 
 captureStatusDecoder : Bool -> JD.Decoder CaptureStatus
@@ -92,6 +95,7 @@ captureEncode capture =
     JE.object
         [ ( "text", JE.string capture.text )
         , ( "completed", JE.bool (capture.status == Completed) )
+        , ( "tags", JE.string (String.join ", " capture.tags) )
         ]
 
 

src/Main.elm

@@ -8,6 +8,7 @@ import Html.Attributes exposing (..)
 import Page
 import Pages.Auth as Auth
 import Pages.Capture as Capture
+import Pages.CaptureEdit as CaptureEdit
 import Pages.CaptureTimers as CaptureTimers
 import Pages.Login as Login
 import Pages.Session as PagesSession
@@ -39,6 +40,7 @@ type Model
     | Logout Session.Session
     | Login Session.Session
     | Capture Capture.Model
+    | CaptureEdit CaptureEdit.Model
     | CaptureTimers CaptureTimers.Model
 
 
@@ -71,6 +73,7 @@ type Msg
     | GotAuthMsg Auth.Msg
     | GotPagesSessionMsg PagesSession.Msg
     | GotCaptureMsg Capture.Msg
+    | GotCaptureEditMsg CaptureEdit.Msg
     | GotCaptureTimersMsg CaptureTimers.Msg
     | GotLoginMsg Login.Msg
 
@@ -110,6 +113,13 @@ update msg model =
             in
             ( Capture subModel, Cmd.map GotCaptureMsg subMsg )
 
+        ( GotCaptureEditMsg captureEditMsg, CaptureEdit captureEditModel ) ->
+            let
+                ( subModel, subMsg ) =
+                    CaptureEdit.update captureEditMsg captureEditModel
+            in
+            ( CaptureEdit subModel, Cmd.map GotCaptureEditMsg subMsg )
+
         ( GotCaptureTimersMsg captureTimersMsg, CaptureTimers captureTimersModel ) ->
             let
                 ( subModel, subMsg ) =
@@ -194,6 +204,13 @@ loadRoute maybeRoute model =
                 in
                 ( CaptureTimers subModel, Cmd.map GotCaptureTimersMsg subMsg )
 
+            Just (Route.CaptureEdit idCapture) ->
+                let
+                    ( subModel, subMsg ) =
+                        CaptureEdit.init session idCapture
+                in
+                ( CaptureEdit subModel, Cmd.map GotCaptureEditMsg subMsg )
+
 
 subscriptions : Model -> Sub Msg
 subscriptions model =
@@ -213,6 +230,9 @@ subscriptions model =
         Capture captureModel ->
             Sub.map GotCaptureMsg (Capture.subscriptions captureModel)
 
+        CaptureEdit captureEditModel ->
+            Sub.map GotCaptureEditMsg (CaptureEdit.subscriptions captureEditModel)
+
         CaptureTimers captureTimersModel ->
             Sub.map GotCaptureTimersMsg (CaptureTimers.subscriptions captureTimersModel)
 
@@ -251,6 +271,9 @@ view model =
         Capture captureModel ->
             Page.view GotCaptureMsg (Capture.view captureModel)
 
+        CaptureEdit captureEditModel ->
+            Page.view GotCaptureEditMsg (CaptureEdit.view captureEditModel)
+
         CaptureTimers captureTimersModel ->
             Page.view GotCaptureTimersMsg (CaptureTimers.view captureTimersModel)
 
@@ -276,6 +299,9 @@ toSession page =
         Capture m ->
             Capture.toSession m
 
+        CaptureEdit m ->
+            CaptureEdit.toSession m
+
         CaptureTimers m ->
             CaptureTimers.toSession m
 

src/Pages/Capture.elm

@@ -481,6 +481,12 @@ showCapture clock capture =
                 Error e ->
                     showTimerButton [] e None
             ]
+        , el [ padding 5 ] (text <| String.join ", " capture.tags)
+        , link
+            [ color UI.teal ]
+            { url = Route.routeToString (Route.CaptureEdit capture.idCapture)
+            , label = text "edit"
+            }
         , el [ width (fill |> maximum 1000), centerX, EltBackground.color UI.lightGrey, height (px 1) ] none
         ]