Fix ActivePage in viewPage function

LICENSE

@@ -1,6 +1,6 @@
 MIT License
 
-Copyright (c) 2017 Richard Feldman
+Copyright (c) 2017-2018 Richard Feldman and contributors
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

src/Main.elm

@@ -114,7 +114,7 @@ viewPage session isLoading page =
 
         Settings subModel ->
             Settings.view session subModel
-                |> frame Page.Other
+                |> frame Page.Settings
                 |> Html.map SettingsMsg
 
         Home subModel ->
@@ -124,12 +124,12 @@ viewPage session isLoading page =
 
         Login subModel ->
             Login.view session subModel
-                |> frame Page.Other
+                |> frame Page.Login
                 |> Html.map LoginMsg
 
         Register subModel ->
             Register.view session subModel
-                |> frame Page.Other
+                |> frame Page.Register
                 |> Html.map RegisterMsg
 
         Profile username subModel ->

src/Page/Article/Editor.elm

@@ -27,6 +27,7 @@ type alias Model =
     , body : String
     , description : String
     , tags : List String
+    , isSaving : Bool
     }
 
 
@@ -38,6 +39,7 @@ initNew =
     , body = ""
     , description = ""
     , tags = []
+    , isSaving = False
     }
 
 
@@ -59,6 +61,7 @@ initEdit session slug =
                 , body = Article.bodyToMarkdownString article.body
                 , description = article.description
                 , tags = article.tags
+                , isSaving = False
                 }
             )
 
@@ -121,7 +124,7 @@ viewForm model =
                 , defaultValue (String.join " " model.tags)
                 ]
                 []
-            , button [ class "btn btn-lg pull-xs-right btn-primary" ]
+            , button [ class "btn btn-lg pull-xs-right btn-primary", disabled model.isSaving ]
                 [ text saveButtonText ]
             ]
         ]
@@ -152,13 +155,13 @@ update user msg model =
                             user.token
                                 |> Request.Article.create model
                                 |> Http.send CreateCompleted
-                                |> pair { model | errors = [] }
+                                |> pair { model | errors = [], isSaving = True }
 
                         Just slug ->
                             user.token
                                 |> Request.Article.update slug model
                                 |> Http.send EditCompleted
-                                |> pair { model | errors = [] }
+                                |> pair { model | errors = [], isSaving = True }
 
                 errors ->
                     { model | errors = errors } => Cmd.none
@@ -181,7 +184,10 @@ update user msg model =
                 |> pair model
 
         CreateCompleted (Err error) ->
-            { model | errors = model.errors ++ [ Form => "Server error while attempting to publish article" ] }
+            { model
+                | errors = model.errors ++ [ Form => "Server error while attempting to publish article" ]
+                , isSaving = False
+            }
                 => Cmd.none
 
         EditCompleted (Ok article) ->
@@ -190,7 +196,10 @@ update user msg model =
                 |> pair model
 
         EditCompleted (Err error) ->
-            { model | errors = model.errors ++ [ Form => "Server error while attempting to save article" ] }
+            { model
+                | errors = model.errors ++ [ Form => "Server error while attempting to save article" ]
+                , isSaving = False
+            }
                 => Cmd.none
 
 

src/Views/Article.elm

@@ -35,7 +35,7 @@ view toggleFavorite article =
                 [ img [ UserPhoto.src author.image ] [] ]
             , div [ class "info" ]
                 [ Views.Author.view author.username
-                , span [ class "date" ] [ text (formattedTimestamp article) ]
+                , viewTimestamp article
                 ]
             , Favorite.button
                 toggleFavorite