Embed editor state in URL; remove session storage

Author: pete-murphy

client/package.json

@@ -23,6 +23,7 @@
   },
   "dependencies": {
     "ace-builds": "^1.5.0",
-    "jquery": "^1.12.4"
+    "jquery": "^1.12.4",
+    "lz-string": "^1.4.4"
   }
 }

client/src/Try/Container.purs

@@ -30,8 +30,7 @@ import Try.Editor (MarkerType(..), toStringMarkerType)
 import Try.Editor as Editor
 import Try.Gist (getGistById, tryLoadFileFromGist)
 import Try.GitHub (getRawGitHubFile)
-import Try.QueryString (getQueryStringMaybe)
-import Try.Session (createSessionIdIfNecessary, storeSession, tryRetrieveSession)
+import Try.QueryString (compressToEncodedURIComponent, decompressFromEncodedURIComponent, getQueryStringMaybe, setQueryString)
 import Try.SharedConfig as SharedConfig
 import Type.Proxy (Proxy(..))
 import Web.HTML (window)
@@ -109,8 +108,7 @@ component = H.mkComponent
   handleAction :: Action -> H.HalogenM State Action Slots o Aff Unit
   handleAction = case _ of
     Initialize -> do
-      sessionId <- H.liftEffect $ createSessionIdIfNecessary
-      { code, sourceFile } <- H.liftAff $ withSession sessionId
+      { code, sourceFile } <- H.liftAff withSession
 
       -- Load parameters
       mbViewModeParam <- H.liftEffect $ getQueryStringMaybe "view"
@@ -141,12 +139,7 @@ component = H.mkComponent
           handleAction $ Compile Nothing
 
     Cache text -> H.liftEffect do
-      sessionId <- getQueryStringMaybe "session"
-      case sessionId of
-        Just sessionId_ -> do
-          storeSession sessionId_ { code: text }
-        Nothing ->
-          error "No session ID"
+      setQueryString "purs" $ compressToEncodedURIComponent text
 
     Compile mbCode -> do
       H.modify_ _ { compiled = Nothing }
@@ -505,13 +498,13 @@ toAnnotation markerType { position, message } =
     , text: message
     }
 
-withSession :: String -> Aff { sourceFile :: Maybe SourceFile, code :: String }
-withSession sessionId = do
-  state <- H.liftEffect $ tryRetrieveSession sessionId
-  githubId <- H.liftEffect $ getQueryStringMaybe "github"
+withSession :: Aff { sourceFile :: Maybe SourceFile, code :: String }
+withSession = do
+  state <- H.liftEffect $ getQueryStringMaybe "purs" 
+  githubId <- H.liftEffect $ getQueryStringMaybe "github" 
   gistId <- H.liftEffect $ getQueryStringMaybe "gist"
-  code <- case state of
-    Just { code } -> pure code
+  code <- case state >>= decompressFromEncodedURIComponent of
+    Just code -> pure code
     Nothing -> do
       let
         action = oneOf

client/src/Try/QueryString.js

@@ -1,3 +1,8 @@
+export {
+  compressToEncodedURIComponent,
+  decompressFromEncodedURIComponent as decompressFromEncodedURIComponent_,
+} from 'lz-string';
+
 export function getQueryString() {
   return window.location.search;
 }

client/src/Try/QueryString.purs

@@ -3,13 +3,16 @@ module Try.QueryString
   , getQueryStringMaybe
   , setQueryString
   , setQueryStrings
+  , compressToEncodedURIComponent
+  , decompressFromEncodedURIComponent
   ) where
 
 import Prelude
 
 import Data.Array as Array
 import Data.Maybe (Maybe(..))
 import Data.Newtype (wrap)
+import Data.Nullable (Nullable, toMaybe)
 import Data.String as String
 import Data.Tuple (Tuple(..))
 import Effect (Effect)
@@ -58,3 +61,12 @@ setQueryStrings :: Object.Object String -> Effect Unit
 setQueryStrings ss = do
   params <- getQueryParams
   runEffectFn1 setQueryParameters (Object.union ss params)
+
+-- | Compress a string to a URI-encoded string using LZ-based compression algorithm
+foreign import compressToEncodedURIComponent :: String -> String
+
+foreign import decompressFromEncodedURIComponent_ :: String -> Nullable String
+
+-- | Decompress a string from a URI-encoded string using LZ-based compression algorithm
+decompressFromEncodedURIComponent :: String -> Maybe String
+decompressFromEncodedURIComponent = toMaybe <$> decompressFromEncodedURIComponent_