Get basic stuff working

7 files changed, 198 insertions, 27 deletions

diff --git a/src/App.module.css b/src/App.module.css
index 0bf5f42..3b75e8c 100644
--- a/src/App.module.css
+++ b/src/App.module.css
@@ -32,4 +32,14 @@
 
 .error {
   color: var(--red)
-}
\ No newline at end of file
+}
+
+.examples {
+  margin-bottom: 20px;
+}
+
+.editor {
+  margin-bottom: 40px;
+}
+
+.tutorial {}
diff --git a/src/App.tsx b/src/App.tsx
index 5645dcc..905149e 100644
--- a/src/App.tsx
+++ b/src/App.tsx
@@ -1,24 +1,26 @@
-import { useSnippets } from "./api"
+import { useExamples } from "./api"
 import styles from "./App.module.css"
+import Editor from "./Editor"
+import Tutorial from "./Tutorial"
 import icon from "./favicon.png"
 
 const App = () => {
-  const snippets = useSnippets()
+  const examples = useExamples()
 
-  const renderSnippets = () => {
-    if (snippets.type === "failed") {
-      return <div className={styles.error}>
-        Unexpected error loading snippets. See console for details.
-      </div>
-    }
-
-    if (snippets.type === "loading") {
-      return <div>Loading snippets...</div>
+  const renderExamples = () => {
+    switch (examples.type) {
+      case "not_yet_requested":
+      case "loading":
+        return <div>Loading examples...</div>
+      case "failed":
+        return <div className={styles.error}>
+          An unexpected error occurred while loading examples. See console for details.
+        </div>
+      case "success":
+        return examples.data.map((example) =>
+          <div key={example.id}>{example.title}</div>,
+        )
     }
-
-    return snippets.data.map((snippet) =>
-      <div key={snippet.id}>{snippet.title}</div>,
-    )
   }
 
   return (
@@ -32,9 +34,11 @@ const App = () => {
           <small>A Mere Stack Language</small>
         </div>
       </header>
-      <div>
-        {renderSnippets()}
+      <div className={styles.examples}>
+        {renderExamples()}
       </div>
+      <div className={styles.editor}><Editor /></div>
+      <div className={styles.tutorial}><Tutorial /></div>
     </div>
   )
 }
diff --git a/src/Editor.module.css b/src/Editor.module.css
new file mode 100644
index 0000000..2116903
--- /dev/null
+++ b/src/Editor.module.css
@@ -0,0 +1,7 @@
+.runButton {
+  margin-top: 10px;
+}
+
+.error {
+  color: var(--red)
+}
diff --git a/src/Editor.tsx b/src/Editor.tsx
new file mode 100644
index 0000000..d179b83
--- /dev/null
+++ b/src/Editor.tsx
@@ -0,0 +1,68 @@
+import AceEditor from "react-ace"
+import "ace-builds/src-noconflict/mode-java"
+import "ace-builds/src-noconflict/theme-github"
+import { useState } from "react"
+import styles from "./Editor.module.css"
+import { APIResult, submitSource } from "./api"
+
+const Editor = () => {
+  const [sourceText, setSourceText] = useState("")
+  const [result, setResult] = useState<APIResult<string, Error>>({ type: "not_yet_requested" })
+  const onChange = setSourceText
+
+  const executeCode = async (text: string) => {
+    const result = await submitSource(text)
+    setResult(result)
+  }
+
+  const renderResults = () => {
+    switch (result.type) {
+      case "not_yet_requested":
+      case "loading":
+        return null
+      case "failed":
+        return (
+          <div className={styles.error}>
+            Failed to run code on the server. See console for details.
+          </div>
+        )
+      case "success":
+        return (
+          <AceEditor
+            mode=""
+            theme="github"
+            onChange={() => undefined}
+            value={result.data}
+            name="results"
+            editorProps={{ $blockScrolling: true }}
+            width="100%"
+            fontSize={16}
+            readOnly
+          />
+        )
+    }
+  }
+
+  return (
+    <>
+      <AceEditor
+        mode=""
+        theme="github"
+        onChange={onChange}
+        value={sourceText}
+        name="editor"
+        editorProps={{ $blockScrolling: true }}
+        width="100%"
+        fontSize={16}
+      />
+      <button className={styles.runButton} onClick={() => executeCode(sourceText)}>
+        ▶️ Run code on server
+      </button>
+      <div className={styles.results}>
+        {renderResults()}
+      </div>
+    </>
+  )
+}
+
+export default Editor
diff --git a/src/Tutorial.tsx b/src/Tutorial.tsx
new file mode 100644
index 0000000..917142b
--- /dev/null
+++ b/src/Tutorial.tsx
@@ -0,0 +1,37 @@
+import { useState } from "react"
+
+const Tutorial = () => {
+  const [collapsed, setCollapsed] = useState(true)
+
+  if (collapsed) {
+    return <button onClick={() => setCollapsed(false)}>SLAM tutorial ▼</button>
+  }
+
+  return (
+    <>
+      <button onClick={() => setCollapsed(true)}>SLAM tutorial ▲</button>
+
+      <h3>
+        <strong>SLAM</strong> is a procedural, stack-based programming language
+        inspired by Forth and Lisp.
+      </h3>
+
+      <p>
+        In the core of every SLAM program, there is an implied, global stack of
+        strongly and dynamically typed values. A SLAM program consists of a sequence
+        of <i>words</i> that when evaluated, can consume and produce values from/to
+        the stack.
+      </p>
+
+      <p>
+        <i>Phrases</i>, roughly equal to Lisp&apos;s quoted S-expressions, are a sequence
+        of words that are not immediately evaluated when encountered, but instead put on the stack for later
+        manipulation. Phrases can be used to implement strings or homogenous list structures. Phrases
+        are also the core of conditional expressions, where branches of code are only evaluated
+        when a condition is met.
+      </p>
+    </>
+  )
+}
+
+export default Tutorial
\ No newline at end of file
diff --git a/src/api.ts b/src/api.ts
index 7fd9e64..725f0d8 100644
--- a/src/api.ts
+++ b/src/api.ts
@@ -10,27 +10,31 @@ const fetcher = (path: string) => fetch(`${API_URL}${path}`)
     throw err
   })
 
-interface Snippet {
+interface Example {
   id: string
   title: string
   content: string
 }
 
-interface APISuccess<D> {
+export interface APISuccess<D> {
   readonly type: "success"
   data: D
 }
 
-interface APILoading {
+export interface APILoading {
   readonly type: "loading"
 }
 
-interface APIFailed<E> {
+export interface APIFailed<E> {
   readonly type: "failed"
   error: E
 }
 
-type APIResult<D, E> = APISuccess<D> | APILoading | APIFailed<E>
+export interface APINotYetRequested {
+  readonly type: "not_yet_requested"
+}
+
+export type APIResult<D, E> = APISuccess<D> | APILoading | APIFailed<E> | APINotYetRequested
 
 const mapSWRResult = <D, E>({ data, error }: SWRResponse<D, E>): APIResult<D, E> => {
   if (error !== undefined) {
@@ -45,6 +49,31 @@ const mapSWRResult = <D, E>({ data, error }: SWRResponse<D, E>): APIResult<D, E>
   return { type: "success", data }
 }
 
-export const useSnippets = () => mapSWRResult<Snippet[], Error>(
-  useSWR("/snippets", fetcher),
+const postRequest = async <D, E>(path: string, body: any, opts?: any): Promise<APIResult<D, E>> => {
+  const url = `${API_URL}${path}`
+  const body_ = typeof body === "string" ? body : JSON.stringify(body)
+  try {
+    const resp = await fetch(url, { method: "POST", body: body_, headers: {
+      "Content-Type": "application/json",
+    }, ...opts })
+
+    if (resp.status >= 400) {
+      throw new Error(`${url} responded with ${resp.status}: ${resp.text}`)
+    }
+    const data = await resp.json()
+    return { type: "success", data }
+  } catch (err: any) {
+    console.error(`An error occurred when POSTing to API path ${path}`)
+    console.error(err)
+    return { type: "failed", error: err }
+  }
+}
+
+export const useExamples = () => mapSWRResult<Example[], Error>(
+  useSWR("/examples", fetcher),
+)
+
+export const submitSource = async (text: string) => postRequest<string, Error>(
+  "/submit",
+  text,
 )
diff --git a/src/index.css b/src/index.css
index 910f8af..6f181ab 100644
--- a/src/index.css
+++ b/src/index.css
@@ -23,8 +23,24 @@ body {
   padding: 0 10px;
   max-width: 900px;
   text-align: left;
+  font-size: var(--font-s);
 }
 
-code {
-  font-family: source-code-pro, Menlo, Monaco, Consolas, 'Courier New', monospace;
+button {
+  border-radius: 0;
+  border: none;
+  outline: none;
+  padding: 5px;
+  margin: 0 -5px;
+  background: var(--dark-grey);
+  color: var(--white);
+  font-size: var(--font-s);
+  cursor: pointer;
+  display: flex;
+  flex-flow: row nowrap;
+  align-items: center;
+}
+
+button:hover {
+  text-decoration: underline;
 }
\ No newline at end of file