Rename more stuff

intro/part5/src/Page/Article/Editor.elm

@@ -0,0 +1,244 @@
+module Page.Article.Editor exposing (Model, Msg, initEdit, initNew, update, view)
+
+import Data.Article as Article exposing (Article, Body)
+import Data.Session exposing (Session)
+import Data.User exposing (User)
+import Html exposing (..)
+import Html.Attributes exposing (attribute, class, disabled, href, id, placeholder, type_, value)
+import Html.Events exposing (onInput, onSubmit)
+import Http
+import Page.Errored exposing (PageLoadError, pageLoadError)
+import Request.Article
+import Route
+import Task exposing (Task)
+import Util exposing (pair, viewIf)
+import Validate exposing (Validator, ifBlank, validate)
+import Views.Form as Form
+import Views.Page as Page
+
+
+-- MODEL --
+
+
+type alias Model =
+    { errors : List Error
+    , editingArticle : Maybe Article.Slug
+    , title : String
+    , body : String
+    , description : String
+    , tags : List String
+    , isSaving : Bool
+    }
+
+
+initNew : Model
+initNew =
+    { errors = []
+    , editingArticle = Nothing
+    , title = ""
+    , body = ""
+    , description = ""
+    , tags = []
+    , isSaving = False
+    }
+
+
+initEdit : Session -> Article.Slug -> Task PageLoadError Model
+initEdit session slug =
+    let
+        maybeAuthToken =
+            session.user
+                |> Maybe.map .token
+    in
+    Request.Article.get maybeAuthToken slug
+        |> Http.toTask
+        |> Task.mapError (\_ -> pageLoadError Page.Other "Article is currently unavailable.")
+        |> Task.map
+            (\article ->
+                { errors = []
+                , editingArticle = Just slug
+                , title = article.title
+                , body = Article.bodyToMarkdownString article.body
+                , description = article.description
+                , tags = article.tags
+                , isSaving = False
+                }
+            )
+
+
+
+-- VIEW --
+
+
+view : Model -> Html Msg
+view model =
+    div [ class "editor-page" ]
+        [ div [ class "container page" ]
+            [ div [ class "row" ]
+                [ div [ class "col-md-10 offset-md-1 col-xs-12" ]
+                    [ Form.viewErrors model.errors
+                    , viewForm model
+                    ]
+                ]
+            ]
+        ]
+
+
+viewForm : Model -> Html Msg
+viewForm model =
+    let
+        isEditing =
+            model.editingArticle /= Nothing
+
+        saveButtonText =
+            if isEditing then
+                "Update Article"
+            else
+                "Publish Article"
+    in
+    Html.form [ onSubmit Save ]
+        [ fieldset []
+            [ Form.input
+                [ class "form-control-lg"
+                , placeholder "Article Title"
+                , onInput SetTitle
+                , value model.title
+                ]
+                []
+            , Form.input
+                [ placeholder "What's this article about?"
+                , onInput SetDescription
+                , value model.description
+                ]
+                []
+            , Form.textarea
+                [ placeholder "Write your article (in markdown)"
+                , attribute "rows" "8"
+                , onInput SetBody
+                , value model.body
+                ]
+                []
+            , Form.input
+                [ placeholder "Enter tags"
+                , onInput SetTags
+                , value (String.join " " model.tags)
+                ]
+                []
+            , button [ class "btn btn-lg pull-xs-right btn-primary", disabled model.isSaving ]
+                [ text saveButtonText ]
+            ]
+        ]
+
+
+
+-- UPDATE --
+
+
+type Msg
+    = Save
+    | SetDescription String
+    | SetTitle String
+    | SetBody String
+    | SetTags String
+    | CreateCompleted (Result Http.Error (Article Body))
+    | EditCompleted (Result Http.Error (Article Body))
+
+
+update : User -> Msg -> Model -> ( Model, Cmd Msg )
+update user msg model =
+    case msg of
+        Save ->
+            case validate modelValidator model of
+                [] ->
+                    case model.editingArticle of
+                        Nothing ->
+                            user.token
+                                |> Request.Article.create model
+                                |> Http.send CreateCompleted
+                                |> pair { model | errors = [], isSaving = True }
+
+                        Just slug ->
+                            user.token
+                                |> Request.Article.update slug model
+                                |> Http.send EditCompleted
+                                |> pair { model | errors = [], isSaving = True }
+
+                errors ->
+                    ( { model | errors = errors }, Cmd.none )
+
+        SetTitle title ->
+            ( { model | title = title }, Cmd.none )
+
+        SetDescription description ->
+            ( { model | description = description }, Cmd.none )
+
+        SetBody body ->
+            ( { model | body = body }, Cmd.none )
+
+        SetTags tagsStr ->
+            ( { model | tags = tagsFromString tagsStr }, Cmd.none )
+
+        CreateCompleted (Ok article) ->
+            Route.Article article.slug
+                |> Route.modifyUrl
+                |> pair model
+
+        CreateCompleted (Err error) ->
+            ( { model
+                | errors = model.errors ++ [ ( Form, "Server error while attempting to publish article" ) ]
+                , isSaving = False
+              }
+            , Cmd.none
+            )
+
+        EditCompleted (Ok article) ->
+            Route.Article article.slug
+                |> Route.modifyUrl
+                |> pair model
+
+        EditCompleted (Err error) ->
+            ( { model
+                | errors = model.errors ++ [ ( Form, "Server error while attempting to save article" ) ]
+                , isSaving = False
+              }
+            , Cmd.none
+            )
+
+
+
+-- VALIDATION --
+
+
+type Field
+    = Form
+    | Title
+    | Body
+
+
+type alias Error =
+    ( Field, String )
+
+
+modelValidator : Validator Error Model
+modelValidator =
+    Validate.all
+        [ ifBlank .title ( Title, "title can't be blank." )
+        , ifBlank .body ( Body, "body can't be blank." )
+        ]
+
+
+
+-- INTERNAL --
+
+
+tagsFromString : String -> List String
+tagsFromString str =
+    str
+        |> String.split " "
+        |> List.map String.trim
+        |> List.filter (not << String.isEmpty)
+
+
+redirectToArticle : Article.Slug -> Cmd msg
+redirectToArticle =
+    Route.modifyUrl << Route.Article