feat: Add default modules

Automatically patch programs that are missing a witness module or a
parameter module.

Author: uncomputable

src/components/program_window/program_tab.rs

@@ -79,6 +79,20 @@ impl Program {
             self.lazy_satisfied.set(satisfied);
         });
     }
+
+    pub fn add_default_modules(self) {
+        let (contains_witness, contains_param) = self
+            .text
+            .with_untracked(|text| (text.contains("mod witness"), text.contains("mod param")));
+        if !contains_param {
+            self.text
+                .update(|text| text.insert_str(0, "mod param {}\n\n"));
+        }
+        if !contains_witness {
+            self.text
+                .update(|text| text.insert_str(0, "mod witness {}\n\n"));
+        }
+    }
 }
 
 #[derive(Copy, Clone)]

src/components/program_window/run_button.rs

@@ -1,14 +1,16 @@
 use leptos::{component, ev, use_context, view, IntoView, SignalGet};
 
-use crate::components::program_window::Runtime;
+use crate::components::program_window::{Program, Runtime};
 use crate::components::state::update_local_storage;
 
 #[component]
 pub fn RunButton() -> impl IntoView {
+    let program = use_context::<Program>().expect("program should exist in context");
     let runtime = use_context::<Runtime>().expect("runtime should exist in context");
     let audio_ref = runtime.alarm_audio_ref;
 
     let run_program = move |_event: ev::MouseEvent| {
+        program.add_default_modules();
         update_local_storage();
         runtime.run();
     };