Merge pull request #131 from levelhq/digest-settings

Enable/disable digest

assets/elm/src/DigestSettings.elm

@@ -0,0 +1,54 @@
+module DigestSettings exposing (DigestSettings, decoder, fragment, isEnabled, toggle)
+
+import GraphQL exposing (Fragment)
+import Json.Decode as Decode exposing (Decoder)
+
+
+type DigestSettings
+    = DigestSettings Data
+
+
+type alias Data =
+    { isEnabled : Bool
+    }
+
+
+
+-- PROPERTIES
+
+
+isEnabled : DigestSettings -> Bool
+isEnabled (DigestSettings data) =
+    data.isEnabled
+
+
+toggle : DigestSettings -> DigestSettings
+toggle (DigestSettings data) =
+    DigestSettings { data | isEnabled = not data.isEnabled }
+
+
+
+-- GRAPHQL
+
+
+fragment : Fragment
+fragment =
+    let
+        queryBody =
+            """
+            fragment DigestSettingsFields on DigestSettings {
+              isEnabled
+            }
+            """
+    in
+    GraphQL.toFragment queryBody []
+
+
+
+-- DECODERS
+
+
+decoder : Decoder DigestSettings
+decoder =
+    Decode.map DigestSettings <|
+        Decode.map Data (Decode.field "isEnabled" Decode.bool)

assets/elm/src/Mutation/UpdateDigestSettings.elm

@@ -0,0 +1,85 @@
+module Mutation.UpdateDigestSettings exposing (Response(..), request, variables)
+
+import DigestSettings exposing (DigestSettings)
+import GraphQL exposing (Document)
+import Id exposing (Id)
+import Json.Decode as Decode exposing (Decoder)
+import Json.Encode as Encode
+import Session exposing (Session)
+import Task exposing (Task)
+import User exposing (User)
+import ValidationError exposing (ValidationError)
+import ValidationFields
+
+
+type Response
+    = Success DigestSettings
+    | Invalid (List ValidationError)
+
+
+document : Document
+document =
+    GraphQL.toDocument
+        """
+        mutation UpdateDigestSettings(
+          $spaceId: ID!,
+          $isEnabled: Boolean
+        ) {
+          updateDigestSettings(
+            spaceId: $spaceId,
+            isEnabled: $isEnabled
+          ) {
+            ...ValidationFields
+            digestSettings {
+              ...DigestSettingsFields
+            }
+          }
+        }
+        """
+        [ User.fragment
+        , DigestSettings.fragment
+        , ValidationFields.fragment
+        ]
+
+
+variables : Id -> Bool -> Maybe Encode.Value
+variables spaceId isEnabled =
+    Just <|
+        Encode.object
+            [ ( "spaceId", Id.encoder spaceId )
+            , ( "isEnabled", Encode.bool isEnabled )
+            ]
+
+
+successDecoder : Decoder Response
+successDecoder =
+    Decode.map Success <|
+        Decode.at [ "data", "updateDigestSettings", "digestSettings" ] DigestSettings.decoder
+
+
+failureDecoder : Decoder Response
+failureDecoder =
+    Decode.map Invalid <|
+        Decode.at [ "data", "updateDigestSettings", "errors" ] (Decode.list ValidationError.decoder)
+
+
+decoder : Decoder Response
+decoder =
+    let
+        conditionalDecoder : Bool -> Decoder Response
+        conditionalDecoder success =
+            case success of
+                True ->
+                    successDecoder
+
+                False ->
+                    failureDecoder
+    in
+    Decode.at [ "data", "updateDigestSettings", "success" ] Decode.bool
+        |> Decode.andThen conditionalDecoder
+
+
+request : Id -> Bool -> Session -> Task Session.Error ( Session, Response )
+request spaceId isEnabled session =
+    Session.request session <|
+        GraphQL.request document (variables spaceId isEnabled) decoder

assets/elm/src/Page/Inbox.elm

@@ -431,7 +431,7 @@ resolvedView repo maybeCurrentRoute pushStatus spaceUsers model data =
         maybeCurrentRoute
         [ div [ class "mx-auto max-w-90 leading-normal" ]
             [ div [ class "sticky pin-t mb-3 pt-4 bg-white z-50" ]
-                [ div [ class "border-b" ]
+                [ div [ class "trans-border-b-grey" ]
                     [ div [ class "flex items-center" ]
                         [ h2 [ class "flex-no-shrink font-extrabold text-2xl" ] [ text "Inbox" ]
                         , controlsView model data

assets/elm/src/Page/Posts.elm

@@ -314,7 +314,7 @@ resolvedView repo maybeCurrentRoute spaceUsers model data =
         data.bookmarks
         maybeCurrentRoute
         [ div [ class "mx-auto max-w-90 leading-normal" ]
-            [ div [ class "sticky pin-t border-b mb-3 pt-4 bg-white z-50" ]
+            [ div [ class "sticky pin-t trans-border-b-grey mb-3 pt-4 bg-white z-50" ]
                 [ div [ class "flex items-center" ]
                     [ h2 [ class "flex-no-shrink font-extrabold text-2xl" ] [ text "Activity" ]
                     , controlsView model