add option to load code via POST request

fmidue · Oct 18, 2024 · d2305a7 · d2305a7
1 parent fb1a373
commit d2305a7
Show file tree

Hide file tree

Showing 4 changed files with 17 additions and 1 deletion.
diff --git a/codeworld-server/codeworld-server.cabal b/codeworld-server/codeworld-server.cabal
@@ -36,6 +36,7 @@ Executable codeworld-server
     cryptonite,
     data-default,
     directory,
+    extra,
     fast-logger,
     filelock,
     filepath,

diff --git a/codeworld-server/src/Main.hs b/codeworld-server/src/Main.hs
@@ -49,6 +49,7 @@ import Data.ByteString.Builder (toLazyByteString)
 import qualified Data.ByteString.Lazy as LB
 import Data.Char (isSpace)
 import Data.List
+import Data.List.Extra (replace)
 import Data.Maybe
 import Data.Monoid
 import Data.Text (Text)
@@ -168,7 +169,8 @@ site ctx =
           ("runJS", runHandler ctx),
           ("runBaseJS", runBaseHandler ctx),
           ("runMsg", runMessageHandler ctx),
-          ("haskell", serveFile "web/env.html"),
+          -- ("haskell", serveFile "web/env.html"),
+          ("haskell", serveEditor ctx),
           -- ("blocks", serveFile "web/blocks.html"),
           -- ("funblocks", serveFile "web/blocks.html"),
           ("indent", indentHandler ctx),
@@ -494,6 +496,14 @@ runMessageHandler = public $ \ctx -> do
   modifyResponse $ setContentType "text/plain"
   serveFile (buildRootDir mode </> resultFile programId)
 
+serveEditor :: CodeWorldHandler
+serveEditor = public $ \ctx -> do
+  msource <- getParam "source"
+  modifyResponse $ setContentType "text/html"
+  template <- liftIO $ readFile "web/env.html"
+  let content = replace "/*CODE_TO_BE_LOADED_BY_DEFAULT*/" (maybe "" (T.unpack . T.decodeUtf8) msource) template 
+  writeBS $ T.encodeUtf8 $ T.pack content
+
 indentHandler :: CodeWorldHandler
 indentHandler = public $ \ctx -> do
   mode <- getBuildMode

diff --git a/web/env.html b/web/env.html
@@ -38,6 +38,9 @@
       rel="stylesheet"
       href="mirrored/ajax.googleapis.com/ajax/libs/jqueryui/1.12.1/themes/smoothness/jquery-ui.css"
     />
+    <script>
+      window.preloadCode = `/*CODE_TO_BE_LOADED_BY_DEFAULT*/`;
+    </script>
   </head>
 
   <body>

diff --git a/web/js/codeworld.js b/web/js/codeworld.js
@@ -361,6 +361,8 @@ picture = ...
       );
     }
   }
+
+  if(window.preloadCode && window.buildMode === 'haskell')setCode(window.preloadCode);
 }
 
 function initCodeworld() {
-Original file line number
+Diff line change
@@ Expand Up / @@ -361,6 +361,8 @@ picture = ... @@
           );
         }
       }
+      if(window.preloadCode && window.buildMode === 'haskell')setCode(window.preloadCode);
     }
     function initCodeworld() {
@@ Expand Down @@