Add editor frontend HTML response with GET /

lem-project · Oct 20, 2024 · 00ae72c · 00ae72c
1 parent 20b6cfc
commit 00ae72c
Show file tree

Hide file tree

Showing 4 changed files with 38 additions and 2 deletions.
diff --git a/frontends/server/frontend/.gitignore b/frontends/server/frontend/.gitignore
@@ -8,7 +8,7 @@ pnpm-debug.log*
 lerna-debug.log*
 
 node_modules
-dist
+#dist
 dist-ssr
 *.local
 

diff --git a/frontends/server/frontend/dist/assets/index-BqmNs24i.js b/frontends/server/frontend/dist/assets/index-BqmNs24i.js
diff --git a/frontends/server/frontend/dist/index.html b/frontends/server/frontend/dist/index.html
@@ -0,0 +1,23 @@
+<!doctype html>
+<html lang="en">
+  <head>
+    <meta charset="UTF-8" />
+    <meta name="viewport" content="width=device-width, initial-scale=1.0" />
+    <title>Lem</title>
+
+    <link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/[email protected]/destyle.css" />
+    <style rel="stylesheet">
+html, body {
+    margin: 0;
+    padding: 0;
+    height: 100%;
+    overflow: hidden;
+}
+
+    </style>
+    <script type="module" crossorigin src="/assets/index-BqmNs24i.js"></script>
+  </head>
+  <body>
+    <div id='lem-editor'></div>
+  </body>
+</html>
diff --git a/frontends/server/main.lisp b/frontends/server/main.lisp
@@ -32,7 +32,19 @@
 
 (defun clack-handler (env)
   (unless (wsd:websocket-p env)
-    '(200 () ("ok"))))
+    (let ((path (getf env :path-info)))
+      (cond ((string= "/" path)
+             `(200 (:content-type "text/html")
+                   ,(asdf:system-relative-pathname :lem-server
+                                                    #p"frontend/dist/index.html")))
+            ((alexandria:starts-with-subseq "/assets/" path)
+             `(200 (:content-type "application/javascript")
+                   ,(asdf:system-relative-pathname :lem-server
+                                                   (format nil
+                                                           "frontend/dist/~A"
+                                                           (string-left-trim "/" path)))))
+            (t
+             '(200 () ("ok")))))))
 
 ;;;
 (defclass stdio-server-runner (server-runner)
-Original file line number
+Diff line change
@@ Expand Up / @@ -8,7 +8,7 @@ pnpm-debug.log* @@
     lerna-debug.log*
     node_modules
-    dist
+    #dist
     dist-ssr
     *.local
@@ Expand Down @@