bundle css with novella

stdlib/crochet.novella/crochet.json

@@ -35,5 +35,11 @@
     "requires": [],
     "provides": [],
     "optional": []
-  }
+  },
+  "assets": [
+    {
+      "path": "assets/novella.css",
+      "mime": "text/css"
+    }
+  ]
 }

stdlib/crochet.novella/native/dom.ts

@@ -162,6 +162,15 @@ export default (ffi: ForeignInterface) => {
     return ffi.box(element);
   });
 
+  ffi.defun("dom.make-css", (css0) => {
+    const css = ffi.text_to_string(css0);
+    const node = document.createElement("style");
+    node.setAttribute("type", "text/css");
+    node.setAttribute("media", "screen");
+    node.appendChild(document.createTextNode(css));
+    return ffi.box(node);
+  });
+
   ffi.defun("dom.text", (text) => {
     const node = document.createTextNode(ffi.text_to_string(text));
     return ffi.box(node);

stdlib/crochet.novella/source/rendering/dom/core.crochet

@@ -36,6 +36,11 @@ command nvl-web-renderer-config setup do
   };
   self.root add-class: "novella-root";
   self.root append: Screen;
+
+  let Css = package assets at: "assets/novella.css" | read-as-text;
+  let Css-node = nvl-dom make-css: Css;
+  Screen append: Css-node;
+
   let Renderer = new nvl-web-renderer(
     config -> self,
     screen -> Screen,

stdlib/crochet.novella/source/rendering/dom/dom-api.crochet

@@ -4,6 +4,9 @@ singleton nvl-dom;
 type nvl-dom-node(box is unknown);
 
 
+command nvl-dom make-css: (Css is text) =
+  new nvl-dom-node(foreign dom.make-css(Css));
+
 command nvl-dom make: (Tag is text) class: (Class is text) =
   new nvl-dom-node(foreign dom.make(Tag, Class));