fuck you

2024-04-23 11:20:30 -06:00
parent cf69c2ee90
commit 447c8ceebf
11 changed files with 1313 additions and 19 deletions
--- a/visualisers/gmvis/package-lock.json
+++ b/visualisers/gmvis/package-lock.json
--- a/visualisers/gmvis/package.json
+++ b/visualisers/gmvis/package.json
@@ -0,0 +1,12 @@
+{ "name": "gmvis"
+, "version": "0.0.1"
+, "private": true
+, "devDependencies":
+    { "shadow-cljs": "2.28.3"
+    }
+, "dependencies":
+    { "react": "16.13.0"
+    , "react-dom": "16.13.0"
+    }
+}
+
--- a/visualisers/gmvis/public/index.html
+++ b/visualisers/gmvis/public/index.html
@@ -0,0 +1,17 @@
+<!DOCTYPE html>
+<html lang="en">
+    <head>
+        <meta charset="UTF-8">
+        <meta http-equiv="X-UA-Compatible" content="IE=edge">
+        <meta name="viewport" content="width=device-width, initial-scale=1.0">
+        <link rel="stylesheet" href="/css/main.css">
+        <title>The G-Machine</title>
+
+        <style type="text/css" media="screen">
+        </style>
+    </head>
+    <body>
+        <script src="/js/main.js"></script>
+    </body>
+</html>
+
--- a/visualisers/gmvis/shadow-cljs.edn
+++ b/visualisers/gmvis/shadow-cljs.edn
@@ -0,0 +1,25 @@
+{:source-paths
+ ["src"]
+
+ :dependencies
+ [[cider/cider-nrepl "0.24.0"]
+  [nilenso/wscljs "0.2.0"]
+  [org.clojure/core.match "1.1.0"]
+  [reagent "0.10.0"]
+  [cljsjs/react "17.0.2-0"]
+  [cljsjs/react-dom "17.0.2-0"]
+  [cljsx "1.0.0"]]
+
+ :dev-http
+ {8020 "public"}
+
+ :builds
+ {:app
+  {:target :browser
+   :output-dir "public/js"
+   :asset-path "/js"
+
+   :modules
+   {:main ; becomes public/js/main.js
+    {:init-fn main/init}}}}}
+
--- a/visualisers/gmvis/src/main.cljs
+++ b/visualisers/gmvis/src/main.cljs
@@ -0,0 +1,17 @@
+(ns main)
+
+;; this is called before any code is reloaded
+(defn ^:dev/before-load stop []
+  (js/console.log "stop"))
+
+;; start is called by init and after code reloading finishes
+(defn ^:dev/after-load start []
+  (js/console.log "start"))
+
+;; init is called ONCE when the page loads
+;; this is called in the index.html and must be exported
+;; so it is available even in :advanced release builds
+(defn init []
+  (js/console.log "init")
+  (start))
+