From 9e28ea8e6c657749555b88c476e9530c4f3b3e8c Mon Sep 17 00:00:00 2001
From: Keith Bauson <kwbauson@gmail.com>
Date: Mon, 12 Apr 2021 18:31:46 -0400
Subject: [PATCH] basic optic

---
 .envrc     |  1 +
 .gitignore |  2 +-
 src/app.ts | 89 +++++++++++++++++++++++++++++++++++++++++++++++++++++-
 3 files changed, 90 insertions(+), 2 deletions(-)
 create mode 100644 .envrc

diff --git a/.envrc b/.envrc
new file mode 100644
index 0000000..0e1c5c2
--- /dev/null
+++ b/.envrc
@@ -0,0 +1 @@
+eval "$(nle direnv)"
diff --git a/.gitignore b/.gitignore
index ae8f1bf..f2260d7 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,4 +1,4 @@
-node_modules/
+node_modules
 dist/
 cache/
 .cache/
diff --git a/src/app.ts b/src/app.ts
index a5b9709..6762a65 100644
--- a/src/app.ts
+++ b/src/app.ts
@@ -1 +1,88 @@
-console.log('foo')
+export declare class Optic<S, A> {
+  static identity: Optic<unknown, unknown>
+
+  get: Fn<[S], A>
+  put: Fn<[S, A], S>
+
+  to<B>(get: Fn<[A], B>, put: Fn<[A, B], A>): Optic<S, B>
+  to<B>(optical: Optical<A, B>): Optic<S, B>
+
+  of<T>(get: Fn<[T], S>, put: Fn<[T, S], T>): Optic<T, A>
+  of<T>(optical: Optical<T, S>): Optic<T, A>
+
+  pick<KS extends (keyof A)[]>(keys: KS): Optic<S, Pick<A, KS[number]>>
+  omit<KS extends (keyof A)[]>(keys: KS): Optic<S, Omit<A, KS[number]>>
+
+  map<B>(optical: Optical<ValueType<A>, B>): Optic<S, B>
+
+  at<K extends keyof Record<A>>(key: K): Optic<S, Maybe<Record<A>[K]>>
+
+  choices: { [K in keyof Choice<S>]: Optic<Choice<S>[K], A> }
+}
+
+export type Optical<S, A> =
+  | Optic<S, A>
+  | Exclude<A, object | Function | Optic<any, any>>
+  | ((attrs: { [K in keyof A]: Optic<S, A[K]> }) => Optical<S, A>)
+  | { [K in keyof A]: Optical<S, A> }
+
+export declare function optic<S>(): Optic<S, S>
+
+export type Record<T> = keyof T extends never
+  ? never
+  : Exclude<Extract<T, object>, Function>
+export type Choice<T> = NotUnknown<Intersect<T extends any ? Single<T> : never>>
+type Single<T> = ChoiceType<T> extends never
+  ? Intersect<keyof T> extends never
+    ? unknown
+    : T
+  : { [K in ChoiceType<T>]: undefined }
+type ChoiceType<T> = string extends T
+  ? never
+  : number extends T
+  ? never
+  : symbol extends T
+  ? never
+  : T extends keyof any
+  ? T
+  : T extends true
+  ? 'true'
+  : T extends false
+  ? 'false'
+  : never
+
+export type Fn<Args extends unknown[], Result> = (...args: Args) => Result
+export type Maybe<T> = 'nothing' | { just: T }
+export type Intersect<T> = (T extends any ? Fn<[T], void> : never) extends Fn<
+  [infer I],
+  void
+>
+  ? I
+  : never
+export type ValueOf<T> = T[keyof T]
+export type ValueType<T> = [T] extends [(infer U)[]]
+  ? U
+  : [T] extends [{ [_ in any]: infer U }]
+  ? U
+  : never
+type NotUnknown<T> = [unknown] extends [T] ? never : T
+export type Diff<T, U> = IfEq<keyof T, keyof U, {}, Omit<T, keyof U>>
+export type Common<T, U> = Pick<T, Extract<keyof T, keyof U>>
+type IfEq<T, U, A, B> = [T] extends [U] ? ([U] extends [T] ? A : B) : B
+
+export type VNode =
+  | { Div: VNode[] }
+  | { Text: string }
+  | { Input: string }
+  | { Button: { label: string; clicked: boolean } }
+  | 'Break'
+  | 'Divider'
+
+export const {
+  Div,
+  Text,
+  Input,
+  Button,
+  Break,
+  Divider,
+} = optic<VNode>().choices