Immediate pause/resume button toggling

config/dev.exs

@@ -7,13 +7,13 @@ use Mix.Config
 # watchers to your application. For example, we use it
 # with brunch.io to recompile .js and .css sources.
 config :ev3, Ev3.Endpoint,
-  url: [host: "192.168.1.100"],
+#  url: [host: "192.168.1.100"],
   http: [port: 4000],
   debug_errors: true,
   code_reloader: true,
   cache_static_lookup: false,
-  watchers: []
-#  watchers: [node: ["node_modules/brunch/bin/brunch", "watch", "--stdin"]]
+#  watchers: []
+  watchers: [node: ["node_modules/brunch/bin/brunch", "watch", "--stdin"]]
 
 # Watch static and templates for browser reloading.
 config :ev3, Ev3.Endpoint,

mix.exs

@@ -18,8 +18,8 @@ defmodule Ev3.Mixfile do
   def application do
     [mod: {Ev3, []},
      applications: [:phoenix, :phoenix_html, :cowboy, :logger],
-#		 env: [{:mock, true}, {:platform, :dev}] # platform in [:brickpi, :ev3, :dev]
-		 env: [{:mock, false}, {:platform, :ev3}] # platform in [:brickpi, :ev3, :dev]
+		 env: [{:mock, true}, {:platform, :dev}] # platform in [:brickpi, :ev3, :dev]
+#		 env: [{:mock, false}, {:platform, :ev3}] # platform in [:brickpi, :ev3, :dev]
 #		 env: [{:mock, false}, {:platform, :brickpi}] # platform in [:brickpi, :ev3, :dev]
 		]
   end

web/elm/src/RobotConfig.elm

@@ -2,6 +2,6 @@ module RobotConfig where
 
 hostname: String
 hostname =
- --  "localhost"
-   "192.168.1.100"
+   "localhost"
+ --  "192.168.1.100"
   -- Also update /mix.exs and /config/dev.exs

web/elm/src/Status/Update.elm

@@ -11,6 +11,7 @@ import Status.Model as Model exposing (Model, RuntimeStats, ActiveState)
 type Action =
   NoOp (Maybe String)
     | SetPaused (Maybe Bool)
+    | SwitchPaused
     | SetActive ActiveState
     | TogglePaused
     | SetRuntimeStats RuntimeStats
@@ -28,6 +29,8 @@ update action model =
           Maybe.withDefault model.paused maybePaused
       in
       ({model | paused = result}, Effects.none)
+    SwitchPaused ->
+      ({model | paused = not model.paused}, Effects.none)
     SetActive activeState ->
       ({model | active = activeState.active}, Effects.none)
     TogglePaused ->
@@ -47,7 +50,7 @@ togglePaused =
                 |> Task.map NoOp
                 |> Effects.task)
   in
-    Effects.batch [togglePausedEffect, fetchPaused]
+    Effects.batch [togglePausedEffect, switchPaused]
 
 fetchPaused: Effects Action
 fetchPaused =
@@ -56,6 +59,11 @@ fetchPaused =
       |> Task.map SetPaused
       |> Effects.task
 
+switchPaused: Effects Action
+switchPaused =
+  Task.succeed SwitchPaused
+  |> Effects.task
+
 decodePaused: Json.Decoder Bool
 decodePaused =
   "paused" := Json.bool