Notable Fork: Elm version

.gitignore

@@ -21,3 +21,4 @@ erl_crash.dump
 
 *.log
 priv/static
+elm-stuff

.travis.yml

@@ -1,8 +1,8 @@
 language: elixir
 elixir:
-  - 1.2.1
+  - 1.3.1
 otp_release:
-  - 18.1
+  - 19.0
 addons:
   postgresql: '9.4'
 services:

elm-package.json

@@ -0,0 +1,15 @@
+{
+    "version": "1.0.0",
+    "summary": "helpful summary of your project, less than 80 characters",
+    "repository": "https://github.com/user/project.git",
+    "license": "BSD3",
+    "source-directories": [
+        "."
+    ],
+    "exposed-modules": [],
+    "dependencies": {
+        "elm-lang/core": "4.0.5 <= v < 5.0.0",
+        "elm-lang/html": "1.1.0 <= v < 2.0.0"
+    },
+    "elm-version": "0.17.1 <= v < 0.18.0"
+}

package.json

@@ -17,44 +17,23 @@
     "npm": "3.5.x"
   },
   "devDependencies": {
-    "babel-core": "^6.3.26",
-    "babel-loader": "^6.2.0",
-    "babel-plugin-transform-decorators-legacy": "^1.3.4",
-    "babel-preset-es2015": "^6.6.0",
-    "babel-preset-react": "^6.3.13",
-    "babel-preset-stage-0": "^6.3.13",
-    "babel-preset-stage-2": "^6.3.13",
-    "css-loader": "^0.23.1",
+    "babel-core": "^6.18.0",
+    "babel-loader": "^6.2.6",
+    "babel-preset-es2015": "^6.18.0",
+    "css-loader": "^0.25.0",
+    "elm-hot-loader": "^0.3.4",
+    "elm-webpack-loader": "^3.0.6",
     "extract-text-webpack-plugin": "^1.0.1",
     "node-libs-browser": "^1.0.0",
-    "node-sass": "^3.4.2",
-    "sass-loader": "^3.1.2",
+    "node-sass": "^3.10.1",
+    "sass-loader": "^4.0.2",
     "style-loader": "^0.13.0",
-    "webpack": "^1.12.11"
+    "webpack": "^1.13.3"
   },
   "dependencies": {
     "bourbon": "^4.2.6",
     "bourbon-neat": "^1.7.2",
-    "classnames": "^2.2.1",
-    "es6-promise": "^3.0.2",
-    "history": "^1.17.0",
-    "invariant": "^2.2.0",
-    "isomorphic-fetch": "^2.2.1",
-    "moment": "^2.11.1",
     "phoenix": "file:deps/phoenix",
-    "phoenix_html": "file:deps/phoenix_html",
-    "react": "^0.14.5",
-    "react-addons-css-transition-group": "^0.14.5",
-    "react-dnd": "^2.0.2",
-    "react-dnd-html5-backend": "^2.0.2",
-    "react-dom": "^0.14.5",
-    "react-gravatar": "^2.2.2",
-    "react-page-click": "^2.0.0",
-    "react-redux": "^4.0.4",
-    "react-router": "^2.0.1",
-    "react-router-redux": "^4.0.0",
-    "redux": "^3.3.1",
-    "redux-logger": "^2.3.2",
-    "redux-thunk": "^1.0.2"
+    "phoenix_html": "file:deps/phoenix_html"
   }
 }

web/channels/board_channel.ex

@@ -36,7 +36,7 @@ defmodule PhoenixTrello.BoardChannel do
         list = Repo.preload(list, [:board, :cards])
 
         broadcast! socket, "list:created", %{list: list}
-        {:noreply, socket}
+        {:reply, :ok, socket}
       {:error, _changeset} ->
         {:reply, {:error, %{error: "Error creating list"}}, socket}
     end
@@ -80,12 +80,12 @@ defmodule PhoenixTrello.BoardChannel do
 
           PhoenixTrello.Endpoint.broadcast_from! self(), "users:#{user.id}", "boards:add", %{board: board}
 
-          {:noreply, socket}
+          {:reply, :ok, socket}
         {:error, _changeset} ->
           {:reply, {:error, %{error: "Error adding new member"}}, socket}
       end
     catch
-      _, _-> {:reply, {:error, %{error: "User does not exist"}}, socket}
+      _, _ -> {:reply, {:error, %{error: "User does not exist"}}, socket}
     end
   end
 
@@ -122,7 +122,7 @@ defmodule PhoenixTrello.BoardChannel do
       {:ok, _list} ->
         board = get_current_board(socket)
         broadcast! socket, "list:updated", %{board: board}
-        {:noreply, socket}
+        {:reply, :ok, socket}
       {:error, _changeset} ->
         {:reply, {:error, %{error: "Error updating list"}}, socket}
     end
@@ -178,7 +178,7 @@ defmodule PhoenixTrello.BoardChannel do
           {:reply, {:error, %{error: "Error adding new member"}}, socket}
       end
     catch
-      _, _-> {:reply, {:error, %{error: "Member does not exist"}}, socket}
+      _, _ -> {:reply, {:error, %{error: "Member does not exist"}}, socket}
     end
   end
 

web/elm/elm-package.json

@@ -0,0 +1,22 @@
+{
+    "version": "1.0.0",
+    "summary": "helpful summary of your project, less than 80 characters",
+    "repository": "https://github.com/user/project.git",
+    "license": "BSD3",
+    "source-directories": [
+        "./src",
+        "./vendor"
+
+    ],
+    "exposed-modules": [],
+    "dependencies": {
+        "elm-community/json-extra": "1.0.0 <= v < 2.0.0",
+        "elm-lang/core": "4.0.5 <= v < 5.0.0",
+        "elm-lang/html": "1.1.0 <= v < 2.0.0",
+        "elm-lang/navigation": "1.0.0 <= v < 2.0.0",
+        "elm-lang/websocket": "1.0.1 <= v < 2.0.0",
+        "evancz/elm-http": "3.0.1 <= v < 4.0.0",
+        "evancz/url-parser": "1.0.0 <= v < 2.0.0"
+    },
+    "elm-version": "0.17.1 <= v < 0.18.0"
+}

web/elm/src/Boards/Decoder.elm

@@ -0,0 +1,37 @@
+module Boards.Decoder exposing (..)
+
+import Json.Decode as Decode exposing (..)
+import Json.Decode.Extra exposing ((|:))
+import Model exposing (ErrorModel)
+import Boards.Model exposing (..)
+import Session.Decoder exposing (..)
+import Lists.Decoder exposing (..)
+
+
+boardModelDecoder : Decode.Decoder BoardModel
+boardModelDecoder =
+    succeed BoardModel
+        |: ("id" := string)
+        |: (maybe ("user_id" := int))
+        |: ("name" := string)
+        |: (maybe ("user" := userDecoder))
+        |: (maybe ("lists" := (list listModelDecoder)))
+        |: (maybe ("members" := (list userDecoder)))
+
+
+boardResponseDecoder : Decode.Decoder BoardResponseModel
+boardResponseDecoder =
+    succeed BoardResponseModel
+        |: ("board" := boardModelDecoder)
+
+
+connectedUsersResponseDecoder : Decode.Decoder ConnectedUsersListResponseModel
+connectedUsersResponseDecoder =
+    succeed ConnectedUsersListResponseModel
+        |: ("users" := list int)
+
+
+errorResponseDecoder : Decode.Decoder ErrorModel
+errorResponseDecoder =
+    succeed ErrorModel
+        |: ("error" := string)

web/elm/src/Boards/Model.elm

@@ -0,0 +1,75 @@
+module Boards.Model exposing (..)
+
+import Session.Model exposing (User)
+import Lists.Model as Lists
+
+
+type alias Model =
+    { id : Maybe String
+    , state : State
+    , fetching : Bool
+    , board : Maybe BoardModel
+    , connectedUsers : List Int
+    , membersForm : MembersFormModel
+    , listForm : Lists.ListForm
+    }
+
+
+type alias BoardModel =
+    { id : String
+    , user_id : Maybe Int
+    , name : String
+    , user : Maybe User
+    , lists : Maybe (List Lists.Model)
+    , members : Maybe (List User)
+    }
+
+
+type alias MembersFormModel =
+    { show : Bool
+    , email : String
+    , error : Maybe String
+    }
+
+
+type State
+    = JoiningBoard
+    | JoinedBoard
+    | LeavingBoard
+    | LeftBoard
+
+
+type alias BoardResponseModel =
+    { board : BoardModel }
+
+
+type alias ConnectedUsersListResponseModel =
+    { users : List Int }
+
+
+initialMembersFormModel : MembersFormModel
+initialMembersFormModel =
+    MembersFormModel False "" Nothing
+
+
+initialModel : Model
+initialModel =
+    { id = Nothing
+    , state = LeftBoard
+    , fetching = True
+    , board = Nothing
+    , connectedUsers = []
+    , membersForm = initialMembersFormModel
+    , listForm = Lists.initialListForm Nothing
+    }
+
+
+initialBoard : BoardModel
+initialBoard =
+    { id = ""
+    , user_id = Nothing
+    , name = ""
+    , user = Nothing
+    , lists = Nothing
+    , members = Nothing
+    }

web/elm/src/Boards/Types.elm

@@ -0,0 +1,24 @@
+module Boards.Types exposing (..)
+
+import Json.Encode as JE
+import Lists.Model as ListsModel
+
+
+type Msg
+    = JoinChannelSuccess JE.Value
+    | ConnectedUsers JE.Value
+    | ShowMembersForm Bool
+    | HandleMembersFormEmailInput String
+    | AddMemberStart
+    | AddMemberSuccess JE.Value
+    | AddMemberError JE.Value
+    | MemberAdded JE.Value
+    | ShowListForm
+    | HideListForm
+    | HandleListFormNameInput String
+    | SaveListStart
+    | SaveListSuccess JE.Value
+    | SaveListError JE.Value
+    | ListCreated JE.Value
+    | EditList ListsModel.Model
+    | UpdateBoard JE.Value