[WIP] Text Input

.gitignore

@@ -6,3 +6,4 @@ _build
 *.log
 *.install
 default.profraw
+.vscode

renderer-macos/lib/Brisk_macos.re

@@ -12,6 +12,7 @@ module Cocoa = {
   module BriskButton = BriskButton;
   module BriskImage = BriskImage;
   module BriskTextView = BriskTextView;
+  module BriskTextInput = BriskTextInput;
   module GCD = GCD;
 
   module BriskEffectView = BriskEffectView;
@@ -24,3 +25,4 @@ module Text = Text;
 module Image = Image;
 module Button = Button;
 module EffectView = EffectView;
+module TextInput = TextInput;

renderer-macos/lib/bindings/BriskTextInput.re

@@ -0,0 +1,21 @@
+type t = CocoaTypes.view;
+
+[@noalloc] external make: unit => t = "ml_BriskTextInput_make";
+
+[@noalloc]
+external setCallback: (t, unit => unit) => unit = "ml_BriskTextInput_setCallback";
+
+let make = (~onChange=?, ()) => {
+  let input = make();
+
+  switch (onChange) {
+  | Some(callback) =>
+    setCallback(
+      input,
+      UIEventCallback.make(callback),
+    )
+  | None => ()
+  };
+
+  input;
+};

renderer-macos/lib/components/TextInput.re

@@ -0,0 +1,37 @@
+open Brisk;
+
+type attribute = [ Layout.style ];
+
+type style = list(attribute);
+
+let component = nativeComponent("TextInput");
+let make = (~style= [], ~callback=() => (), children) =>
+  component((_: Hooks.empty) =>
+    {
+     make: () => {
+       let input =
+         BriskTextInput.(
+           make(~onChange=callback, ())
+         );
+     },
+     configureInstance: (~isFirstRender as _, {view} as node) => {
+       style
+       |> List.iter(attribute =>
+             switch (attribute) {
+             | #Layout.style => ()
+             }
+           );
+        node;
+     },
+     children,
+    }
+  );
+
+let createElement = (~style=[], ~callback=?, ~children, ()) =>
+  element(
+    make(
+     ~style,
+     ~callback?,
+     listToElement(children)
+    )
+  );

renderer-macos/lib/dune

@@ -25,6 +25,7 @@
           BriskButton
           GCD
           BriskEffectView
+          BriskTextInput
           )
  (c_flags (:standard
           -Wextra -Wall -Werror -O -g -std=c99 -pedantic-errors -Wsign-compare -Wshadow

renderer-macos/lib/stubs/BriskTextInput.c

@@ -0,0 +1,15 @@
+@interface BriskTextInput : NSTextInputContext <NSTextInputClient>
+
+@end
+
+@implementation BriskTextInput
+
+@end
+
+NSTextInputContext *ml_BriskTextInput_make() {
+  BriskTextInput *input = [BriskTextInput new];
+  retainView(input);
+
+  return input;
+}
+