Merge pull request theam#115 from mdibaiee/save-every-x-seconds

(111) save code every x seconds

Author: NickSeagull

client-stack.yaml

@@ -29,7 +29,8 @@ packages:
     commit: ee39119817ff05ed7385ced4c8c0e7ee0ed7f682
 
 
-extra-deps: []
+extra-deps:
+  - datetime-0.3.1
 
 flags: {}
 

package.yaml

@@ -23,6 +23,7 @@ dependencies:
   - directory
   - filepath
   - system-fileio
+  - datetime
 
 ghc-options:
   - -Wall

src/common/HaskellDo/CodeMirror/State.hs

@@ -17,10 +17,12 @@ module HaskellDo.CodeMirror.State where
 
 import Transient.Move
 import HaskellDo.CodeMirror.Types
+import Data.DateTime
 
 initialState :: State
 initialState = State
-    { content = ""
+    { content  = ""
+    , lastSave = startOfTime
     }
 
 update :: Action -> State -> Cloud State

src/common/HaskellDo/CodeMirror/Types.hs

@@ -14,11 +14,13 @@
  - limitations under the License.
  -}
 module HaskellDo.CodeMirror.Types where
+import Data.DateTime
 
 data Action
     = NewContent String
     deriving (Read, Show)
 
 data State = State
-    { content :: String
+    { content  :: String
+    , lastSave :: DateTime
     } deriving (Read, Show)

src/common/HaskellDo/State.hs

@@ -18,6 +18,7 @@ module HaskellDo.State where
 
 import Control.Exception (try, SomeException)
 import Control.Monad (when)
+import Data.DateTime
 
 import Transient.Move
 
@@ -52,19 +53,40 @@ _preUpdate _ appState = do
 _postUpdate :: Action -> AppState -> Cloud AppState
 _postUpdate _ = return
 
+saveEvery :: Integer
+saveEvery = 3 -- seconds
+
 _update :: Action -> AppState -> Cloud AppState
 _update (CodeMirrorAction action) appState = do
     newCodeMirrorState <- CodeMirror.update action (codeMirrorState appState)
     let newContent = CodeMirror.content newCodeMirrorState
-    _ <- atRemote $ Compilation.update
-        (Compilation.WriteWorkingFile newContent)
-        (compilationState appState)
+
     compileShortcutPressed <- localIO CodeMirror.cmdOrCtrlReturnPressed
-    let newState = appState
-            { codeMirrorState = newCodeMirrorState
-            }
+
+    currentTime <- localIO getCurrentTime
+    let lastSave = CodeMirror.lastSave $ codeMirrorState appState
+
+    newState <- if diffSeconds currentTime lastSave > saveEvery
+                  then do
+                    _ <- atRemote $ Compilation.update
+                        (Compilation.WriteWorkingFile newContent)
+                        (compilationState appState)
+
+                    return appState {
+                      codeMirrorState = newCodeMirrorState { CodeMirror.lastSave = currentTime }
+                    }
+                  else
+                    return appState {
+                      codeMirrorState = newCodeMirrorState
+                    }
+
     if compileShortcutPressed
-        then update (ToolbarAction Toolbar.Compile) newState
+        then do
+          _ <- atRemote $ Compilation.update
+              (Compilation.WriteWorkingFile newContent)
+              (compilationState appState)
+
+          update (ToolbarAction Toolbar.Compile) newState
         else return newState
 
 _update (ToolbarAction Toolbar.Compile) appState = do

stack.yaml

@@ -18,7 +18,8 @@ packages:
     git: https://github.com/transient-haskell/axiom
     commit: ee39119817ff05ed7385ced4c8c0e7ee0ed7f682
 
-extra-deps: []
+extra-deps:
+  - datetime-0.3.1
 
 flags: {}