fix now on web

Author: kaikalii

site/src/backend.rs

@@ -7,7 +7,7 @@ use std::{
     sync::Mutex,
 };
 
-use crate::{editor::get_ast_time, weewuh};
+use crate::{editor::get_ast_time, weewuh, START_TIME};
 use leptos::*;
 use uiua::{GitTarget, Handle, Report, SysBackend, EXAMPLE_TXT, EXAMPLE_UA};
 use wasm_bindgen::prelude::*;
@@ -337,6 +337,9 @@ impl SysBackend for WebBackend {
         )?;
         self.play_audio(bytes)
     }
+    fn now(&self) -> f64 {
+        *START_TIME.get().unwrap() + instant::now() / 1000.0
+    }
     fn set_clipboard(&self, contents: &str) -> Result<(), String> {
         _ = window()
             .navigator()

site/src/main.rs

@@ -13,6 +13,8 @@ mod tour;
 mod tutorial;
 mod uiuisms;
 
+use std::sync::OnceLock;
+
 use base64::engine::{general_purpose::URL_SAFE, Engine};
 use instant::Duration;
 use js_sys::Date;
@@ -40,10 +42,13 @@ pub fn main() {
     mount_to_body(|| view!( <Site/>));
 }
 
+static START_TIME: OnceLock<f64> = OnceLock::new();
+
 #[component]
 pub fn Site() -> impl IntoView {
     use Primitive::*;
     provide_meta_context();
+    START_TIME.get_or_init(|| Date::now() / 1000.0);
 
     // Choose a subtitle
     let subtitles_common = [

src/primitive/mod.rs

@@ -786,7 +786,7 @@ impl Primitive {
                 let id = env.pop(1)?;
                 env.try_recv(id)?;
             }
-            Primitive::Now => env.push(instant::now() / 1000.0),
+            Primitive::Now => env.push(env.rt.backend.now()),
             Primitive::SetInverse => {
                 let f = env.pop_function()?;
                 let _inv = env.pop_function()?;

src/sys.rs

@@ -919,6 +919,12 @@ pub trait SysBackend: Any + Send + Sync + 'static {
     fn stream_audio(&self, f: AudioStreamFn) -> Result<(), String> {
         Err("Streaming audio not supported in this environment".into())
     }
+    /// The result of the `now` function
+    ///
+    /// Should be in seconds
+    fn now(&self) -> f64 {
+        instant::now() / 1000.0
+    }
     /// Create a TCP listener and bind it to an address
     fn tcp_listen(&self, addr: &str) -> Result<Handle, String> {
         Err("TCP listeners are not supported in this environment".into())

todo.md

@@ -1,6 +1,7 @@
 # Uiua Todo
 
 - 0.12
+  - Fix `fill`ed `windows` on list
   - Deprecate swizzles
   - Stabilize labels
   - `orient` boxed