test python repl using pyodide

Author: sprocketc

package-lock.json

@@ -125,6 +125,7 @@
     "electron-window-state": "5.0.3",
     "font-scanner": "0.2.1",
     "mdn-data": "2.8.0",
-    "opentype.js": "1.3.4"
+    "opentype.js": "1.3.4",
+    "pyodide": "0.26.1"
   }
 }

package.json

@@ -7,8 +7,11 @@
    ["mdn-data" :as mdn] ;; deprecating in favor of w3c/webref
    ["opentype.js" :as opentype]
    ["os" :as os]
+   ["pyodide" :refer [loadPyodide]]
    [config]))
 
+(def pyodide (atom nil))
+
 (defn text->path
   "https://github.com/opentypejs/opentype.js#loading-a-font-synchronously-nodejs"
   [text {:keys [font-url x y font-size]}]
@@ -21,6 +24,7 @@
    :receive (fn [channel f]
               ;; Strip event (_) as it includes `sender`
               (.on ipcRenderer channel (fn [_ args] (f args))))
+   :runPython #(.runPython ^js @pyodide %)
    :mdn mdn
    :webrefCss css
    :platform (.platform os)
@@ -33,7 +37,8 @@
 (defn ^:export init []
   ;; https://docs.sentry.io/platforms/javascript/guides/electron/#configuring-the-client
   #_(.init Sentry (clj->js config/sentry-options))
-  ;; Expose protected methods that allow the renderer process to use the 
+  (.then (loadPyodide) #(reset! pyodide %))
+  ;; Expose protected methods that allow the renderer process to use the
   ;; ipcRenderer without exposing the entire object
   ;; https://www.electronjs.org/docs/api/context-bridge
   (.exposeInMainWorld contextBridge "api" (clj->js api)))

src/electron/preload.cljs

@@ -8,6 +8,7 @@
    ["codemirror/addon/runmode/runmode.js"]
    ["codemirror/mode/clojure/clojure.js"]
    ["codemirror/mode/javascript/javascript.js"]
+   ["codemirror/mode/python/python.js"]
    ["react" :as react]
    [clojure.string :as str]
    [reagent.core :as r]))

src/renderer/reepl/codemirror.cljs

@@ -3,6 +3,7 @@
    ["react-resizable-panels" :refer [Panel PanelResizeHandle]]
    [cljs.reader]
    [cljs.tools.reader]
+   [platform]
    [re-frame.core :as rf]
    [reagent.core :as ra]
    [renderer.components :as comp]
@@ -91,7 +92,8 @@
        cm-opts)]
      [:div.self-start.h-full.flex.items-center
       (repl-mode-button :cljs)
-      (repl-mode-button :js)]
+      (repl-mode-button :js)
+      (when platform/electron? (repl-mode-button :py))]
      [comp/toggle-icon-button
       {:active? repl-history?
        :active-icon "chevron-down"

src/renderer/reepl/core.cljs

@@ -237,10 +237,10 @@ cljs.js/*load-fn*
                 (js-attrs proto))))))
 
 (defn js-completion
-  [text]
+  [mode text]
   (let [parts (vec (.split text "."))
         completing (or (last parts) "")
-        prefix #(str "js/" (str/join "." (conj (vec (butlast parts)) %)))
+        prefix #(str (when (= mode :cljs) "js/") (str/join "." (conj (vec (butlast parts)) %)))
         possibles (js-attrs (reduce aget js/window (butlast parts)))]
     (->> possibles
          (filter #(not= -1 (.indexOf % completing)))
@@ -289,10 +289,13 @@ cljs.js/*load-fn*
            (filter matches? names))))))
 
 (defn process-apropos
-  [text]
-  (if (zero? (.indexOf text "js/"))
-    (js-completion (.slice text 3))
-    (cljs-completion text)))
+  [mode text]
+  (case mode
+    :js (js-completion mode text)
+    :cljs (if (zero? (.indexOf text "js/"))
+            (js-completion mode (.slice text 3))
+            (cljs-completion text))
+    :py []))
 
 (defn get-forms
   [m]

src/renderer/reepl/replumb.cljs

@@ -21,13 +21,20 @@
 (defn root
   []
   [reepl/repl
-   :execute #(replumb/run-repl (if (= @(rf/subscribe [:repl-mode]) :cljs) %1 (str "(js/eval \"" %1 "\")")) {:warning-as-error true} %2)
-   :complete-word replumb/process-apropos
-   :get-docs replumb/process-doc
+   :execute #(replumb/run-repl (case @(rf/subscribe [:repl-mode])
+                                 :cljs %1
+                                 :js (str "(js/eval \"" %1 "\")")
+                                 :py (str "(js/window.api.runPython \"" %1 "\")"))
+                               {:warning-as-error true} %2)
+   :complete-word (fn [text] (replumb/process-apropos @(rf/subscribe [:repl-mode]) text))
+   :get-docs (if (= @(rf/subscribe [:repl-mode]) :cljs) replumb/process-doc #())
    :state repl-state
    :show-value-opts
    {:showers [show-devtools/show-devtools
               (partial show-function/show-fn-with-docs maybe-fn-docs)]}
-   :js-cm-opts {:mode (if (= @(rf/subscribe [:repl-mode]) :cljs) "clojure" "javascript")
+   :js-cm-opts {:mode (case
+                       :cljs "clojure"
+                       :js "javascript"
+                       :py "python")
                 :keyMap "default"
                 :showCursorWhenSelecting true}])