Compare commits
31 Commits
6c4c788b48
...
renovate/b
| Author | SHA1 | Date | |
|---|---|---|---|
| 1010f3e8a9 | |||
|
|
9937317c60 | ||
|
|
4a04840f95 | ||
|
|
1ca8637bee | ||
|
|
7890cf5c9c | ||
|
|
d5b441a48b | ||
|
|
f0d58aab82 | ||
|
|
a7c8719864 | ||
|
|
99b1c989e0 | ||
|
|
1dc28ce8c6 | ||
|
|
e182cc4811 | ||
|
|
e02e43e18c | ||
|
|
2c4861e0f9 | ||
|
|
c713151efd | ||
|
|
a68dc80658 | ||
|
|
aa5ebd4e06 | ||
|
|
3726a43e43 | ||
|
|
01aa5c6eab | ||
|
|
5a9beccad4 | ||
|
|
983e6f4539 | ||
|
|
840e82debc | ||
|
|
adf571fb73 | ||
|
|
72c76cc1af | ||
|
|
b4fd6d0760 | ||
|
|
51f01ce402 | ||
|
|
2206829f6c | ||
|
|
dbf5d00590 | ||
|
|
3e78121d26 | ||
| ffa23718a8 | |||
| 78a2d2dede | |||
| ff13e941e3 |
14
package.json
14
package.json
@@ -1,6 +1,6 @@
|
|||||||
{
|
{
|
||||||
"name": "@effect-fc/monorepo",
|
"name": "@effect-fc/monorepo",
|
||||||
"packageManager": "bun@1.3.6",
|
"packageManager": "bun@1.3.13",
|
||||||
"private": true,
|
"private": true,
|
||||||
"workspaces": [
|
"workspaces": [
|
||||||
"./packages/*"
|
"./packages/*"
|
||||||
@@ -15,12 +15,12 @@
|
|||||||
"clean:modules": "turbo clean:modules && rm -rf node_modules"
|
"clean:modules": "turbo clean:modules && rm -rf node_modules"
|
||||||
},
|
},
|
||||||
"devDependencies": {
|
"devDependencies": {
|
||||||
"@biomejs/biome": "^2.3.11",
|
"@biomejs/biome": "^2.4.13",
|
||||||
"@effect/language-service": "^0.75.0",
|
"@effect/language-service": "^0.85.1",
|
||||||
"@types/bun": "^1.3.6",
|
"@types/bun": "^1.3.13",
|
||||||
"npm-check-updates": "^19.3.1",
|
"npm-check-updates": "^22.0.1",
|
||||||
"npm-sort": "^0.0.4",
|
"npm-sort": "^0.0.4",
|
||||||
"turbo": "^2.7.5",
|
"turbo": "^2.9.6",
|
||||||
"typescript": "^5.9.3"
|
"typescript": "^6.0.3"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -15,8 +15,8 @@
|
|||||||
"typecheck": "tsc"
|
"typecheck": "tsc"
|
||||||
},
|
},
|
||||||
"dependencies": {
|
"dependencies": {
|
||||||
"@docusaurus/core": "3.9.2",
|
"@docusaurus/core": "3.10.1",
|
||||||
"@docusaurus/preset-classic": "3.9.2",
|
"@docusaurus/preset-classic": "3.10.1",
|
||||||
"@mdx-js/react": "^3.0.0",
|
"@mdx-js/react": "^3.0.0",
|
||||||
"clsx": "^2.0.0",
|
"clsx": "^2.0.0",
|
||||||
"prism-react-renderer": "^2.3.0",
|
"prism-react-renderer": "^2.3.0",
|
||||||
@@ -24,10 +24,10 @@
|
|||||||
"react-dom": "^19.0.0"
|
"react-dom": "^19.0.0"
|
||||||
},
|
},
|
||||||
"devDependencies": {
|
"devDependencies": {
|
||||||
"@docusaurus/module-type-aliases": "3.9.2",
|
"@docusaurus/module-type-aliases": "3.10.1",
|
||||||
"@docusaurus/tsconfig": "3.9.2",
|
"@docusaurus/tsconfig": "3.10.1",
|
||||||
"@docusaurus/types": "3.9.2",
|
"@docusaurus/types": "3.10.1",
|
||||||
"typescript": "~5.6.2"
|
"typescript": "~6.0.0"
|
||||||
},
|
},
|
||||||
"browserslist": {
|
"browserslist": {
|
||||||
"production": [
|
"production": [
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
{
|
{
|
||||||
"name": "effect-fc",
|
"name": "effect-fc",
|
||||||
"description": "Write React function components with Effect",
|
"description": "Write React function components with Effect",
|
||||||
"version": "0.2.4",
|
"version": "0.2.5",
|
||||||
"type": "module",
|
"type": "module",
|
||||||
"files": [
|
"files": [
|
||||||
"./README.md",
|
"./README.md",
|
||||||
@@ -38,11 +38,14 @@
|
|||||||
"clean:modules": "rm -rf node_modules"
|
"clean:modules": "rm -rf node_modules"
|
||||||
},
|
},
|
||||||
"devDependencies": {
|
"devDependencies": {
|
||||||
"@effect/platform-browser": "^0.74.0"
|
"@effect/platform-browser": "^0.76.0"
|
||||||
},
|
},
|
||||||
"peerDependencies": {
|
"peerDependencies": {
|
||||||
"@types/react": "^19.2.0",
|
"@types/react": "^19.2.0",
|
||||||
"effect": "^3.19.0",
|
"effect": "^3.21.0",
|
||||||
"react": "^19.2.0"
|
"react": "^19.2.0"
|
||||||
|
},
|
||||||
|
"dependencies": {
|
||||||
|
"effect-lens": "^0.1.5"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,293 +1,157 @@
|
|||||||
import { Array, Cause, Chunk, type Context, type Duration, Effect, Equal, Exit, Fiber, flow, Hash, HashMap, identity, Option, ParseResult, Pipeable, Predicate, Ref, Schema, type Scope, Stream } from "effect"
|
import { Array, type Cause, Chunk, type Duration, Effect, Equal, Function, identity, Option, type ParseResult, Pipeable, Predicate, type Scope, Stream, SubscriptionRef } from "effect"
|
||||||
import type * as React from "react"
|
import type * as React from "react"
|
||||||
import * as Component from "./Component.js"
|
import * as Component from "./Component.js"
|
||||||
import * as Mutation from "./Mutation.js"
|
import * as Lens from "./Lens.js"
|
||||||
import * as PropertyPath from "./PropertyPath.js"
|
|
||||||
import * as Result from "./Result.js"
|
|
||||||
import * as Subscribable from "./Subscribable.js"
|
import * as Subscribable from "./Subscribable.js"
|
||||||
import * as SubscriptionRef from "./SubscriptionRef.js"
|
|
||||||
import * as SubscriptionSubRef from "./SubscriptionSubRef.js"
|
|
||||||
|
|
||||||
|
|
||||||
export const FormTypeId: unique symbol = Symbol.for("@effect-fc/Form/Form")
|
export const FormTypeId: unique symbol = Symbol.for("@effect-fc/Form/Form")
|
||||||
export type FormTypeId = typeof FormTypeId
|
export type FormTypeId = typeof FormTypeId
|
||||||
|
|
||||||
export interface Form<in out A, in out I = A, in out R = never, in out MA = void, in out ME = never, in out MR = never, in out MP = never>
|
export interface Form<out P extends readonly PropertyKey[], in out A, in out I = A, in out ER = never, in out EW = never>
|
||||||
extends Pipeable.Pipeable {
|
extends Pipeable.Pipeable {
|
||||||
readonly [FormTypeId]: FormTypeId
|
readonly [FormTypeId]: FormTypeId
|
||||||
|
|
||||||
readonly schema: Schema.Schema<A, I, R>
|
readonly path: P
|
||||||
readonly context: Context.Context<Scope.Scope | R>
|
readonly value: Subscribable.Subscribable<Option.Option<A>, ER, never>
|
||||||
readonly mutation: Mutation.Mutation<
|
readonly encodedValue: Lens.Lens<I, ER, EW, never, never>
|
||||||
readonly [value: A, form: Form<A, I, R, unknown, unknown, unknown>],
|
readonly issues: Subscribable.Subscribable<readonly ParseResult.ArrayFormatterIssue[], never, never>
|
||||||
MA, ME, MR, MP
|
readonly isValidating: Subscribable.Subscribable<boolean, ER, never>
|
||||||
>
|
readonly canCommit: Subscribable.Subscribable<boolean, never, never>
|
||||||
readonly autosubmit: boolean
|
readonly isCommitting: Subscribable.Subscribable<boolean, never, never>
|
||||||
readonly debounce: Option.Option<Duration.DurationInput>
|
|
||||||
|
|
||||||
readonly value: Subscribable.Subscribable<Option.Option<A>>
|
|
||||||
readonly encodedValue: SubscriptionRef.SubscriptionRef<I>
|
|
||||||
readonly error: Subscribable.Subscribable<Option.Option<ParseResult.ParseError>>
|
|
||||||
readonly validationFiber: Subscribable.Subscribable<Option.Option<Fiber.Fiber<A, ParseResult.ParseError>>>
|
|
||||||
|
|
||||||
readonly canSubmit: Subscribable.Subscribable<boolean>
|
|
||||||
|
|
||||||
field<const P extends PropertyPath.Paths<I>>(
|
|
||||||
path: P
|
|
||||||
): Effect.Effect<FormField<PropertyPath.ValueFromPath<A, P>, PropertyPath.ValueFromPath<I, P>>>
|
|
||||||
|
|
||||||
readonly run: Effect.Effect<void>
|
|
||||||
readonly submit: Effect.Effect<Option.Option<Result.Final<MA, ME, MP>>, Cause.NoSuchElementException>
|
|
||||||
}
|
}
|
||||||
|
|
||||||
export class FormImpl<in out A, in out I = A, in out R = never, in out MA = void, in out ME = never, in out MR = never, in out MP = never>
|
export class FormImpl<out P extends readonly PropertyKey[], in out A, in out I = A, in out ER = never, in out EW = never>
|
||||||
extends Pipeable.Class() implements Form<A, I, R, MA, ME, MR, MP> {
|
extends Pipeable.Class() implements Form<P, A, I, ER, EW> {
|
||||||
readonly [FormTypeId]: FormTypeId = FormTypeId
|
readonly [FormTypeId]: FormTypeId = FormTypeId
|
||||||
|
|
||||||
constructor(
|
constructor(
|
||||||
readonly schema: Schema.Schema<A, I, R>,
|
readonly path: P,
|
||||||
readonly context: Context.Context<Scope.Scope | R>,
|
readonly value: Subscribable.Subscribable<Option.Option<A>, ER, never>,
|
||||||
readonly mutation: Mutation.Mutation<
|
readonly encodedValue: Lens.Lens<I, ER, EW, never, never>,
|
||||||
readonly [value: A, form: Form<A, I, R, unknown, unknown, unknown>],
|
readonly issues: Subscribable.Subscribable<readonly ParseResult.ArrayFormatterIssue[], never, never>,
|
||||||
MA, ME, MR, MP
|
readonly isValidating: Subscribable.Subscribable<boolean, never, never>,
|
||||||
>,
|
readonly canCommit: Subscribable.Subscribable<boolean, never, never>,
|
||||||
readonly autosubmit: boolean,
|
readonly isCommitting: Subscribable.Subscribable<boolean, never, never>,
|
||||||
readonly debounce: Option.Option<Duration.DurationInput>,
|
|
||||||
|
|
||||||
readonly value: SubscriptionRef.SubscriptionRef<Option.Option<A>>,
|
|
||||||
readonly encodedValue: SubscriptionRef.SubscriptionRef<I>,
|
|
||||||
readonly error: SubscriptionRef.SubscriptionRef<Option.Option<ParseResult.ParseError>>,
|
|
||||||
readonly validationFiber: SubscriptionRef.SubscriptionRef<Option.Option<Fiber.Fiber<A, ParseResult.ParseError>>>,
|
|
||||||
|
|
||||||
readonly runSemaphore: Effect.Semaphore,
|
|
||||||
readonly fieldCache: Ref.Ref<HashMap.HashMap<FormFieldKey, FormField<unknown, unknown>>>,
|
|
||||||
) {
|
) {
|
||||||
super()
|
super()
|
||||||
|
|
||||||
this.canSubmit = Subscribable.map(
|
|
||||||
Subscribable.zipLatestAll(this.value, this.error, this.validationFiber, this.mutation.result),
|
|
||||||
([value, error, validationFiber, result]) => (
|
|
||||||
Option.isSome(value) &&
|
|
||||||
Option.isNone(error) &&
|
|
||||||
Option.isNone(validationFiber) &&
|
|
||||||
!(Result.isRunning(result) || Result.hasRefreshingFlag(result))
|
|
||||||
),
|
|
||||||
)
|
|
||||||
}
|
|
||||||
|
|
||||||
field<const P extends PropertyPath.Paths<I>>(
|
|
||||||
path: P
|
|
||||||
): Effect.Effect<FormField<PropertyPath.ValueFromPath<A, P>, PropertyPath.ValueFromPath<I, P>>> {
|
|
||||||
const key = new FormFieldKey(path)
|
|
||||||
return this.fieldCache.pipe(
|
|
||||||
Effect.map(HashMap.get(key)),
|
|
||||||
Effect.flatMap(Option.match({
|
|
||||||
onSome: v => Effect.succeed(v as FormField<PropertyPath.ValueFromPath<A, P>, PropertyPath.ValueFromPath<I, P>>),
|
|
||||||
onNone: () => Effect.tap(
|
|
||||||
Effect.succeed(makeFormField(this as Form<A, I, R, MA, ME, MR, MP>, path)),
|
|
||||||
v => Ref.update(this.fieldCache, HashMap.set(key, v as FormField<unknown, unknown>)),
|
|
||||||
),
|
|
||||||
})),
|
|
||||||
)
|
|
||||||
}
|
|
||||||
|
|
||||||
readonly canSubmit: Subscribable.Subscribable<boolean>
|
|
||||||
|
|
||||||
get run(): Effect.Effect<void> {
|
|
||||||
return this.runSemaphore.withPermits(1)(Stream.runForEach(
|
|
||||||
this.encodedValue.changes.pipe(
|
|
||||||
Option.isSome(this.debounce) ? Stream.debounce(this.debounce.value) : identity
|
|
||||||
),
|
|
||||||
|
|
||||||
encodedValue => this.validationFiber.pipe(
|
|
||||||
Effect.andThen(Option.match({
|
|
||||||
onSome: Fiber.interrupt,
|
|
||||||
onNone: () => Effect.void,
|
|
||||||
})),
|
|
||||||
Effect.andThen(
|
|
||||||
Effect.forkScoped(Effect.onExit(
|
|
||||||
Schema.decode(this.schema, { errors: "all" })(encodedValue),
|
|
||||||
exit => Effect.andThen(
|
|
||||||
Exit.matchEffect(exit, {
|
|
||||||
onSuccess: v => Effect.andThen(
|
|
||||||
Ref.set(this.value, Option.some(v)),
|
|
||||||
Ref.set(this.error, Option.none()),
|
|
||||||
),
|
|
||||||
onFailure: c => Option.match(Chunk.findFirst(Cause.failures(c), e => e._tag === "ParseError"), {
|
|
||||||
onSome: e => Ref.set(this.error, Option.some(e)),
|
|
||||||
onNone: () => Effect.void,
|
|
||||||
}),
|
|
||||||
}),
|
|
||||||
Ref.set(this.validationFiber, Option.none()),
|
|
||||||
),
|
|
||||||
)).pipe(
|
|
||||||
Effect.tap(fiber => Ref.set(this.validationFiber, Option.some(fiber))),
|
|
||||||
Effect.andThen(Fiber.join),
|
|
||||||
Effect.andThen(value => this.autosubmit
|
|
||||||
? Effect.asVoid(Effect.forkScoped(this.submitValue(value)))
|
|
||||||
: Effect.void
|
|
||||||
),
|
|
||||||
Effect.forkScoped,
|
|
||||||
)
|
|
||||||
),
|
|
||||||
Effect.provide(this.context),
|
|
||||||
),
|
|
||||||
))
|
|
||||||
}
|
|
||||||
|
|
||||||
get submit(): Effect.Effect<Option.Option<Result.Final<MA, ME, MP>>, Cause.NoSuchElementException> {
|
|
||||||
return this.value.pipe(
|
|
||||||
Effect.andThen(identity),
|
|
||||||
Effect.andThen(value => this.submitValue(value)),
|
|
||||||
)
|
|
||||||
}
|
|
||||||
|
|
||||||
submitValue(value: A): Effect.Effect<Option.Option<Result.Final<MA, ME, MP>>> {
|
|
||||||
return Effect.whenEffect(
|
|
||||||
Effect.tap(
|
|
||||||
this.mutation.mutate([value, this as any]),
|
|
||||||
result => Result.isFailure(result)
|
|
||||||
? Option.match(
|
|
||||||
Chunk.findFirst(
|
|
||||||
Cause.failures(result.cause as Cause.Cause<ParseResult.ParseError>),
|
|
||||||
e => e._tag === "ParseError",
|
|
||||||
),
|
|
||||||
{
|
|
||||||
onSome: e => Ref.set(this.error, Option.some(e)),
|
|
||||||
onNone: () => Effect.void,
|
|
||||||
},
|
|
||||||
)
|
|
||||||
: Effect.void
|
|
||||||
),
|
|
||||||
this.canSubmit.get,
|
|
||||||
)
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
export const isForm = (u: unknown): u is Form<unknown, unknown, unknown, unknown, unknown, unknown> => Predicate.hasProperty(u, FormTypeId)
|
|
||||||
|
|
||||||
export declare namespace make {
|
export const isForm = (u: unknown): u is Form<readonly PropertyKey[], unknown, unknown> => Predicate.hasProperty(u, FormTypeId)
|
||||||
export interface Options<in out A, in out I = A, in out R = never, in out MA = void, in out ME = never, in out MR = never, in out MP = never>
|
|
||||||
extends Mutation.make.Options<
|
|
||||||
readonly [value: NoInfer<A>, form: Form<NoInfer<A>, NoInfer<I>, NoInfer<R>, unknown, unknown, unknown>],
|
const filterIssuesByPath = (
|
||||||
MA, ME, MR, MP
|
issues: readonly ParseResult.ArrayFormatterIssue[],
|
||||||
> {
|
path: readonly PropertyKey[],
|
||||||
readonly schema: Schema.Schema<A, I, R>
|
): readonly ParseResult.ArrayFormatterIssue[] => Array.filter(issues, issue =>
|
||||||
readonly initialEncodedValue: NoInfer<I>
|
issue.path.length >= path.length && Array.every(path, (p, i) => p === issue.path[i])
|
||||||
readonly autosubmit?: boolean
|
)
|
||||||
readonly debounce?: Duration.DurationInput
|
|
||||||
}
|
export const focusObjectOn: {
|
||||||
}
|
<P extends readonly PropertyKey[], A extends object, I extends object, ER, EW, K extends keyof A & keyof I>(
|
||||||
|
self: Form<P, A, I, ER, EW>,
|
||||||
|
key: K,
|
||||||
|
): Form<readonly [...P, K], A[K], I[K], ER, EW>
|
||||||
|
<P extends readonly PropertyKey[], A extends object, I extends object, ER, EW, K extends keyof A & keyof I>(
|
||||||
|
key: K,
|
||||||
|
): (self: Form<P, A, I, ER, EW>) => Form<readonly [...P, K], A[K], I[K], ER, EW>
|
||||||
|
} = Function.dual(2, <P extends readonly PropertyKey[], A extends object, I extends object, ER, EW, K extends keyof A & keyof I>(
|
||||||
|
self: Form<P, A, I, ER, EW>,
|
||||||
|
key: K,
|
||||||
|
): Form<readonly [...P, K], A[K], I[K], ER, EW> => {
|
||||||
|
const form = self as FormImpl<P, A, I, ER, EW>
|
||||||
|
const path = [...form.path, key] as const
|
||||||
|
|
||||||
export const make = Effect.fnUntraced(function* <A, I = A, R = never, MA = void, ME = never, MR = never, MP = never>(
|
|
||||||
options: make.Options<A, I, R, MA, ME, MR, MP>
|
|
||||||
): Effect.fn.Return<
|
|
||||||
Form<A, I, R, MA, ME, Result.forkEffect.OutputContext<MA, ME, MR, MP>, MP>,
|
|
||||||
never,
|
|
||||||
Scope.Scope | R | Result.forkEffect.OutputContext<MA, ME, MR, MP>
|
|
||||||
> {
|
|
||||||
return new FormImpl(
|
return new FormImpl(
|
||||||
options.schema,
|
path,
|
||||||
yield* Effect.context<Scope.Scope | R>(),
|
Subscribable.mapOption(form.value, a => a[key]),
|
||||||
yield* Mutation.make(options),
|
Lens.focusObjectOn(form.encodedValue, key),
|
||||||
options.autosubmit ?? false,
|
Subscribable.map(form.issues, issues => filterIssuesByPath(issues, path)),
|
||||||
Option.fromNullable(options.debounce),
|
form.isValidating,
|
||||||
|
form.canCommit,
|
||||||
yield* SubscriptionRef.make(Option.none<A>()),
|
form.isCommitting,
|
||||||
yield* SubscriptionRef.make(options.initialEncodedValue),
|
|
||||||
yield* SubscriptionRef.make(Option.none<ParseResult.ParseError>()),
|
|
||||||
yield* SubscriptionRef.make(Option.none<Fiber.Fiber<A, ParseResult.ParseError>>()),
|
|
||||||
|
|
||||||
yield* Effect.makeSemaphore(1),
|
|
||||||
yield* Ref.make(HashMap.empty<FormFieldKey, FormField<unknown, unknown>>()),
|
|
||||||
)
|
)
|
||||||
})
|
})
|
||||||
|
|
||||||
export declare namespace service {
|
export const focusArrayAt: {
|
||||||
export interface Options<in out A, in out I = A, in out R = never, in out MA = void, in out ME = never, in out MR = never, in out MP = never>
|
<P extends readonly PropertyKey[], A extends readonly any[], I extends readonly any[], ER, EW>(
|
||||||
extends make.Options<A, I, R, MA, ME, MR, MP> {}
|
self: Form<P, A, I, ER, EW>,
|
||||||
}
|
index: number,
|
||||||
|
): Form<readonly [...P, number], A[number], I[number], ER | Cause.NoSuchElementException, EW | Cause.NoSuchElementException>
|
||||||
|
<P extends readonly PropertyKey[], A extends readonly any[], I extends readonly any[], ER, EW>(
|
||||||
|
index: number,
|
||||||
|
): (self: Form<P, A, I, ER, EW>) => Form<readonly [...P, number], A[number], I[number], ER | Cause.NoSuchElementException, EW | Cause.NoSuchElementException>
|
||||||
|
} = Function.dual(2, <P extends readonly PropertyKey[], A extends readonly any[], I extends readonly any[], ER, EW>(
|
||||||
|
self: Form<P, A, I, ER, EW>,
|
||||||
|
index: number,
|
||||||
|
): Form<readonly [...P, number], A[number], I[number], ER | Cause.NoSuchElementException, EW | Cause.NoSuchElementException> => {
|
||||||
|
const form = self as FormImpl<P, A, I, ER, EW>
|
||||||
|
const path = [...form.path, index] as const
|
||||||
|
|
||||||
export const service = <A, I = A, R = never, MA = void, ME = never, MR = never, MP = never>(
|
return new FormImpl(
|
||||||
options: service.Options<A, I, R, MA, ME, MR, MP>
|
path,
|
||||||
): Effect.Effect<
|
Subscribable.mapOptionEffect(form.value, Array.get(index)),
|
||||||
Form<A, I, R, MA, ME, Result.forkEffect.OutputContext<MA, ME, MR, MP>, MP>,
|
Lens.focusArrayAt(form.encodedValue, index),
|
||||||
never,
|
Subscribable.map(form.issues, issues => filterIssuesByPath(issues, path)),
|
||||||
Scope.Scope | R | Result.forkEffect.OutputContext<MA, ME, MR, MP>
|
form.isValidating,
|
||||||
> => Effect.tap(
|
form.canCommit,
|
||||||
make(options),
|
form.isCommitting,
|
||||||
form => Effect.forkScoped(form.run),
|
|
||||||
)
|
|
||||||
|
|
||||||
|
|
||||||
export const FormFieldTypeId: unique symbol = Symbol.for("@effect-fc/Form/FormField")
|
|
||||||
export type FormFieldTypeId = typeof FormFieldTypeId
|
|
||||||
|
|
||||||
export interface FormField<in out A, in out I = A>
|
|
||||||
extends Pipeable.Pipeable {
|
|
||||||
readonly [FormFieldTypeId]: FormFieldTypeId
|
|
||||||
|
|
||||||
readonly value: Subscribable.Subscribable<Option.Option<A>, Cause.NoSuchElementException>
|
|
||||||
readonly encodedValue: SubscriptionRef.SubscriptionRef<I>
|
|
||||||
readonly issues: Subscribable.Subscribable<readonly ParseResult.ArrayFormatterIssue[]>
|
|
||||||
readonly isValidating: Subscribable.Subscribable<boolean>
|
|
||||||
readonly isSubmitting: Subscribable.Subscribable<boolean>
|
|
||||||
}
|
|
||||||
|
|
||||||
class FormFieldImpl<in out A, in out I = A>
|
|
||||||
extends Pipeable.Class() implements FormField<A, I> {
|
|
||||||
readonly [FormFieldTypeId]: FormFieldTypeId = FormFieldTypeId
|
|
||||||
|
|
||||||
constructor(
|
|
||||||
readonly value: Subscribable.Subscribable<Option.Option<A>, Cause.NoSuchElementException>,
|
|
||||||
readonly encodedValue: SubscriptionRef.SubscriptionRef<I>,
|
|
||||||
readonly issues: Subscribable.Subscribable<readonly ParseResult.ArrayFormatterIssue[]>,
|
|
||||||
readonly isValidating: Subscribable.Subscribable<boolean>,
|
|
||||||
readonly isSubmitting: Subscribable.Subscribable<boolean>,
|
|
||||||
) {
|
|
||||||
super()
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
const FormFieldKeyTypeId: unique symbol = Symbol.for("@effect-fc/Form/FormFieldKey")
|
|
||||||
type FormFieldKeyTypeId = typeof FormFieldKeyTypeId
|
|
||||||
|
|
||||||
class FormFieldKey implements Equal.Equal {
|
|
||||||
readonly [FormFieldKeyTypeId]: FormFieldKeyTypeId = FormFieldKeyTypeId
|
|
||||||
constructor(readonly path: PropertyPath.PropertyPath) {}
|
|
||||||
|
|
||||||
[Equal.symbol](that: Equal.Equal) {
|
|
||||||
return isFormFieldKey(that) && PropertyPath.equivalence(this.path, that.path)
|
|
||||||
}
|
|
||||||
[Hash.symbol]() {
|
|
||||||
return Hash.array(this.path)
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
export const isFormField = (u: unknown): u is FormField<unknown, unknown> => Predicate.hasProperty(u, FormFieldTypeId)
|
|
||||||
const isFormFieldKey = (u: unknown): u is FormFieldKey => Predicate.hasProperty(u, FormFieldKeyTypeId)
|
|
||||||
|
|
||||||
export const makeFormField = <A, I, R, MA, ME, MR, MP, const P extends PropertyPath.Paths<NoInfer<I>>>(
|
|
||||||
self: Form<A, I, R, MA, ME, MR, MP>,
|
|
||||||
path: P,
|
|
||||||
): FormField<PropertyPath.ValueFromPath<A, P>, PropertyPath.ValueFromPath<I, P>> => {
|
|
||||||
return new FormFieldImpl(
|
|
||||||
Subscribable.mapEffect(self.value, Option.match({
|
|
||||||
onSome: v => Option.map(PropertyPath.get(v, path), Option.some),
|
|
||||||
onNone: () => Option.some(Option.none()),
|
|
||||||
})),
|
|
||||||
SubscriptionSubRef.makeFromPath(self.encodedValue, path),
|
|
||||||
Subscribable.mapEffect(self.error, Option.match({
|
|
||||||
onSome: flow(
|
|
||||||
ParseResult.ArrayFormatter.formatError,
|
|
||||||
Effect.map(Array.filter(issue => PropertyPath.equivalence(issue.path, path))),
|
|
||||||
),
|
|
||||||
onNone: () => Effect.succeed([]),
|
|
||||||
})),
|
|
||||||
Subscribable.map(self.validationFiber, Option.isSome),
|
|
||||||
Subscribable.map(self.mutation.result, result => Result.isRunning(result) || Result.hasRefreshingFlag(result)),
|
|
||||||
)
|
)
|
||||||
}
|
})
|
||||||
|
|
||||||
|
export const focusTupleAt: {
|
||||||
|
<P extends readonly PropertyKey[], A extends readonly [any, ...any[]], I extends readonly [any, ...any[]], ER, EW, K extends number>(
|
||||||
|
self: Form<P, A, I, ER, EW>,
|
||||||
|
index: K,
|
||||||
|
): Form<readonly [...P, K], A[K], I[K], ER, EW>
|
||||||
|
<P extends readonly PropertyKey[], A extends readonly [any, ...any[]], I extends readonly [any, ...any[]], ER, EW, K extends number>(
|
||||||
|
index: K,
|
||||||
|
): (self: Form<P, A, I, ER, EW>) => Form<readonly [...P, K], A[K], I[K], ER, EW>
|
||||||
|
} = Function.dual(2, <P extends readonly PropertyKey[], A extends readonly [any, ...any[]], I extends readonly [any, ...any[]], ER, EW, K extends number>(
|
||||||
|
self: Form<P, A, I, ER, EW>,
|
||||||
|
index: K,
|
||||||
|
): Form<readonly [...P, K], A[K], I[K], ER, EW> => {
|
||||||
|
const form = self as FormImpl<P, A, I, ER, EW>
|
||||||
|
const path = [...form.path, index] as const
|
||||||
|
|
||||||
|
return new FormImpl(
|
||||||
|
path,
|
||||||
|
Subscribable.mapOption(form.value, Array.unsafeGet(index)),
|
||||||
|
Lens.focusTupleAt(form.encodedValue, index),
|
||||||
|
Subscribable.map(form.issues, issues => filterIssuesByPath(issues, path)),
|
||||||
|
form.isValidating,
|
||||||
|
form.canCommit,
|
||||||
|
form.isCommitting,
|
||||||
|
)
|
||||||
|
})
|
||||||
|
|
||||||
|
export const focusChunkAt: {
|
||||||
|
<P extends readonly PropertyKey[], A, I, ER, EW>(
|
||||||
|
self: Form<P, Chunk.Chunk<A>, Chunk.Chunk<I>, ER, EW>,
|
||||||
|
index: number,
|
||||||
|
): Form<readonly [...P, number], A, I, ER | Cause.NoSuchElementException, EW>
|
||||||
|
<P extends readonly PropertyKey[], A, I, ER, EW>(
|
||||||
|
index: number,
|
||||||
|
): (self: Form<P, Chunk.Chunk<A>, Chunk.Chunk<I>, ER, EW>) => Form<readonly [...P, number], A, I, ER | Cause.NoSuchElementException, EW>
|
||||||
|
} = Function.dual(2, <P extends readonly PropertyKey[], A, I, ER, EW>(
|
||||||
|
self: Form<P, Chunk.Chunk<A>, Chunk.Chunk<I>, ER, EW>,
|
||||||
|
index: number,
|
||||||
|
): Form<readonly [...P, number], A, I, ER | Cause.NoSuchElementException, EW> => {
|
||||||
|
const form = self as FormImpl<P, Chunk.Chunk<A>, Chunk.Chunk<I>, ER, EW>
|
||||||
|
const path = [...form.path, index] as const
|
||||||
|
|
||||||
|
return new FormImpl(
|
||||||
|
path,
|
||||||
|
Subscribable.mapOptionEffect(form.value, Chunk.get(index)),
|
||||||
|
Lens.focusChunkAt(form.encodedValue, index),
|
||||||
|
Subscribable.map(form.issues, issues => filterIssuesByPath(issues, path)),
|
||||||
|
form.isValidating,
|
||||||
|
form.canCommit,
|
||||||
|
form.isCommitting,
|
||||||
|
)
|
||||||
|
})
|
||||||
|
|
||||||
|
|
||||||
export namespace useInput {
|
export namespace useInput {
|
||||||
@@ -301,33 +165,39 @@ export namespace useInput {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
export const useInput = Effect.fnUntraced(function* <A, I>(
|
export const useInput = Effect.fnUntraced(function* <P extends readonly PropertyKey[], A, I, ER, EW>(
|
||||||
field: FormField<A, I>,
|
form: Form<P, A, I, ER, EW>,
|
||||||
options?: useInput.Options,
|
options?: useInput.Options,
|
||||||
): Effect.fn.Return<useInput.Success<I>, Cause.NoSuchElementException, Scope.Scope> {
|
): Effect.fn.Return<useInput.Success<I>, ER, Scope.Scope> {
|
||||||
const internalValueRef = yield* Component.useOnChange(() => Effect.tap(
|
const internalValueLens = yield* Component.useOnChange(() => Effect.gen(function*() {
|
||||||
Effect.andThen(field.encodedValue, SubscriptionRef.make),
|
const internalValueLens = yield* Lens.get(form.encodedValue).pipe(
|
||||||
internalValueRef => Effect.forkScoped(Effect.all([
|
Effect.flatMap(SubscriptionRef.make),
|
||||||
|
Effect.map(Lens.fromSubscriptionRef),
|
||||||
|
)
|
||||||
|
|
||||||
|
yield* Effect.forkScoped(Effect.all([
|
||||||
Stream.runForEach(
|
Stream.runForEach(
|
||||||
Stream.drop(field.encodedValue, 1),
|
Stream.drop(form.encodedValue.changes, 1),
|
||||||
upstreamEncodedValue => Effect.whenEffect(
|
upstreamEncodedValue => Effect.whenEffect(
|
||||||
Ref.set(internalValueRef, upstreamEncodedValue),
|
Lens.set(internalValueLens, upstreamEncodedValue),
|
||||||
Effect.andThen(internalValueRef, internalValue => !Equal.equals(upstreamEncodedValue, internalValue)),
|
Effect.andThen(Lens.get(internalValueLens), internalValue => !Equal.equals(upstreamEncodedValue, internalValue)),
|
||||||
),
|
),
|
||||||
),
|
),
|
||||||
|
|
||||||
Stream.runForEach(
|
Stream.runForEach(
|
||||||
internalValueRef.changes.pipe(
|
internalValueLens.changes.pipe(
|
||||||
Stream.drop(1),
|
Stream.drop(1),
|
||||||
Stream.changesWith(Equal.equivalence()),
|
Stream.changesWith(Equal.equivalence()),
|
||||||
options?.debounce ? Stream.debounce(options.debounce) : identity,
|
options?.debounce ? Stream.debounce(options.debounce) : identity,
|
||||||
),
|
),
|
||||||
internalValue => Ref.set(field.encodedValue, internalValue),
|
internalValue => Lens.set(form.encodedValue, internalValue),
|
||||||
),
|
),
|
||||||
], { concurrency: "unbounded" })),
|
], { concurrency: "unbounded", discard: true }))
|
||||||
), [field, options?.debounce])
|
|
||||||
|
|
||||||
const [value, setValue] = yield* SubscriptionRef.useSubscriptionRefState(internalValueRef)
|
return internalValueLens
|
||||||
|
}), [form, options?.debounce])
|
||||||
|
|
||||||
|
const [value, setValue] = yield* Lens.useState(internalValueLens)
|
||||||
return { value, setValue }
|
return { value, setValue }
|
||||||
})
|
})
|
||||||
|
|
||||||
@@ -342,55 +212,63 @@ export namespace useOptionalInput {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
export const useOptionalInput = Effect.fnUntraced(function* <A, I>(
|
export const useOptionalInput = Effect.fnUntraced(function* <P extends readonly PropertyKey[], A, I, ER, EW>(
|
||||||
field: FormField<A, Option.Option<I>>,
|
field: Form<P, A, Option.Option<I>, ER, EW>,
|
||||||
options: useOptionalInput.Options<I>,
|
options: useOptionalInput.Options<I>,
|
||||||
): Effect.fn.Return<useOptionalInput.Success<I>, Cause.NoSuchElementException, Scope.Scope> {
|
): Effect.fn.Return<useOptionalInput.Success<I>, ER, Scope.Scope> {
|
||||||
const [enabledRef, internalValueRef] = yield* Component.useOnChange(() => Effect.tap(
|
const [enabledLens, internalValueLens] = yield* Component.useOnChange(() => Effect.gen(function*() {
|
||||||
Effect.andThen(
|
const [enabledLens, internalValueLens] = yield* Effect.flatMap(
|
||||||
field.encodedValue,
|
Lens.get(field.encodedValue),
|
||||||
Option.match({
|
Option.match({
|
||||||
onSome: v => Effect.all([SubscriptionRef.make(true), SubscriptionRef.make(v)]),
|
onSome: v => Effect.all([
|
||||||
onNone: () => Effect.all([SubscriptionRef.make(false), SubscriptionRef.make(options.defaultValue)]),
|
Effect.map(SubscriptionRef.make(true), Lens.fromSubscriptionRef),
|
||||||
|
Effect.map(SubscriptionRef.make(v), Lens.fromSubscriptionRef),
|
||||||
|
]),
|
||||||
|
onNone: () => Effect.all([
|
||||||
|
Effect.map(SubscriptionRef.make(false), Lens.fromSubscriptionRef),
|
||||||
|
Effect.map(SubscriptionRef.make(options.defaultValue), Lens.fromSubscriptionRef),
|
||||||
|
]),
|
||||||
}),
|
}),
|
||||||
),
|
)
|
||||||
|
|
||||||
([enabledRef, internalValueRef]) => Effect.forkScoped(Effect.all([
|
yield* Effect.forkScoped(Effect.all([
|
||||||
Stream.runForEach(
|
Stream.runForEach(
|
||||||
Stream.drop(field.encodedValue, 1),
|
Stream.drop(field.encodedValue.changes, 1),
|
||||||
|
|
||||||
upstreamEncodedValue => Effect.whenEffect(
|
upstreamEncodedValue => Effect.whenEffect(
|
||||||
Option.match(upstreamEncodedValue, {
|
Option.match(upstreamEncodedValue, {
|
||||||
onSome: v => Effect.andThen(
|
onSome: v => Effect.andThen(
|
||||||
Ref.set(enabledRef, true),
|
Lens.set(enabledLens, true),
|
||||||
Ref.set(internalValueRef, v),
|
Lens.set(internalValueLens, v),
|
||||||
),
|
),
|
||||||
onNone: () => Effect.andThen(
|
onNone: () => Effect.andThen(
|
||||||
Ref.set(enabledRef, false),
|
Lens.set(enabledLens, false),
|
||||||
Ref.set(internalValueRef, options.defaultValue),
|
Lens.set(internalValueLens, options.defaultValue),
|
||||||
),
|
),
|
||||||
}),
|
}),
|
||||||
|
|
||||||
Effect.andThen(
|
Effect.andThen(
|
||||||
Effect.all([enabledRef, internalValueRef]),
|
Effect.all([Lens.get(enabledLens), Lens.get(internalValueLens)]),
|
||||||
([enabled, internalValue]) => !Equal.equals(upstreamEncodedValue, enabled ? Option.some(internalValue) : Option.none()),
|
([enabled, internalValue]) => !Equal.equals(upstreamEncodedValue, enabled ? Option.some(internalValue) : Option.none()),
|
||||||
),
|
),
|
||||||
),
|
),
|
||||||
),
|
),
|
||||||
|
|
||||||
Stream.runForEach(
|
Stream.runForEach(
|
||||||
enabledRef.changes.pipe(
|
enabledLens.changes.pipe(
|
||||||
Stream.zipLatest(internalValueRef.changes),
|
Stream.zipLatest(internalValueLens.changes),
|
||||||
Stream.drop(1),
|
Stream.drop(1),
|
||||||
Stream.changesWith(Equal.equivalence()),
|
Stream.changesWith(Equal.equivalence()),
|
||||||
options?.debounce ? Stream.debounce(options.debounce) : identity,
|
options?.debounce ? Stream.debounce(options.debounce) : identity,
|
||||||
),
|
),
|
||||||
([enabled, internalValue]) => Ref.set(field.encodedValue, enabled ? Option.some(internalValue) : Option.none()),
|
([enabled, internalValue]) => Lens.set(field.encodedValue, enabled ? Option.some(internalValue) : Option.none()),
|
||||||
),
|
),
|
||||||
], { concurrency: "unbounded" })),
|
], { concurrency: "unbounded" }))
|
||||||
), [field, options.debounce])
|
|
||||||
|
|
||||||
const [enabled, setEnabled] = yield* SubscriptionRef.useSubscriptionRefState(enabledRef)
|
return [enabledLens, internalValueLens] as const
|
||||||
const [value, setValue] = yield* SubscriptionRef.useSubscriptionRefState(internalValueRef)
|
}), [field, options.debounce])
|
||||||
|
|
||||||
|
const [enabled, setEnabled] = yield* Lens.useState(enabledLens)
|
||||||
|
const [value, setValue] = yield* Lens.useState(internalValueLens)
|
||||||
return { enabled, setEnabled, value, setValue }
|
return { enabled, setEnabled, value, setValue }
|
||||||
})
|
})
|
||||||
|
|||||||
62
packages/effect-fc/src/Lens.ts
Normal file
62
packages/effect-fc/src/Lens.ts
Normal file
@@ -0,0 +1,62 @@
|
|||||||
|
import { Effect, Equivalence, Stream, SubscriptionRef } from "effect"
|
||||||
|
import { Lens } from "effect-lens"
|
||||||
|
import * as React from "react"
|
||||||
|
import * as Component from "./Component.js"
|
||||||
|
import * as SetStateAction from "./SetStateAction.js"
|
||||||
|
|
||||||
|
|
||||||
|
export * from "effect-lens/Lens"
|
||||||
|
|
||||||
|
export declare namespace useState {
|
||||||
|
export interface Options<A> {
|
||||||
|
readonly equivalence?: Equivalence.Equivalence<A>
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
export const useState = Effect.fnUntraced(function* <A, ER, EW, RR, RW>(
|
||||||
|
lens: Lens.Lens<A, ER, EW, RR, RW>,
|
||||||
|
options?: useState.Options<NoInfer<A>>,
|
||||||
|
): Effect.fn.Return<readonly [A, React.Dispatch<React.SetStateAction<A>>], ER, RR | RW> {
|
||||||
|
const [reactStateValue, setReactStateValue] = React.useState(yield* Component.useOnMount(() => Lens.get(lens)))
|
||||||
|
|
||||||
|
yield* Component.useReactEffect(() => Effect.forkScoped(
|
||||||
|
Stream.runForEach(
|
||||||
|
Stream.changesWith(lens.changes, options?.equivalence ?? Equivalence.strict()),
|
||||||
|
v => Effect.sync(() => setReactStateValue(v)),
|
||||||
|
)
|
||||||
|
), [lens])
|
||||||
|
|
||||||
|
const setValue = yield* Component.useCallbackSync(
|
||||||
|
(setStateAction: React.SetStateAction<A>) => Effect.andThen(
|
||||||
|
Lens.updateAndGet(lens, prevState => SetStateAction.value(setStateAction, prevState)),
|
||||||
|
v => setReactStateValue(v),
|
||||||
|
),
|
||||||
|
[lens],
|
||||||
|
)
|
||||||
|
|
||||||
|
return [reactStateValue, setValue]
|
||||||
|
})
|
||||||
|
|
||||||
|
export declare namespace useFromReactState {
|
||||||
|
export interface Options<A> {
|
||||||
|
readonly equivalence?: Equivalence.Equivalence<A>
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
export const useFromReactState = Effect.fnUntraced(function* <A>(
|
||||||
|
[value, setValue]: readonly [A, React.Dispatch<React.SetStateAction<A>>],
|
||||||
|
options?: useFromReactState.Options<NoInfer<A>>,
|
||||||
|
): Effect.fn.Return<Lens.Lens<A, never, never, never, never>> {
|
||||||
|
const lens = yield* Component.useOnMount(() => Effect.map(
|
||||||
|
SubscriptionRef.make(value),
|
||||||
|
Lens.fromSubscriptionRef,
|
||||||
|
))
|
||||||
|
|
||||||
|
yield* Component.useReactEffect(() => Effect.forkScoped(Stream.runForEach(
|
||||||
|
Stream.changesWith(lens.changes, options?.equivalence ?? Equivalence.strict()),
|
||||||
|
v => Effect.sync(() => setValue(v)),
|
||||||
|
)), [setValue])
|
||||||
|
yield* Component.useReactEffect(() => Lens.set(lens, value), [value])
|
||||||
|
|
||||||
|
return lens
|
||||||
|
})
|
||||||
@@ -99,8 +99,10 @@ extends Pipeable.Class() implements Mutation<K, A, E, R, P> {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
export const isMutation = (u: unknown): u is Mutation<readonly unknown[], unknown, unknown, unknown, unknown> => Predicate.hasProperty(u, MutationTypeId)
|
export const isMutation = (u: unknown): u is Mutation<readonly unknown[], unknown, unknown, unknown, unknown> => Predicate.hasProperty(u, MutationTypeId)
|
||||||
|
|
||||||
|
|
||||||
export declare namespace make {
|
export declare namespace make {
|
||||||
export interface Options<K extends Mutation.AnyKey = never, A = void, E = never, R = never, P = never> {
|
export interface Options<K extends Mutation.AnyKey = never, A = void, E = never, R = never, P = never> {
|
||||||
readonly f: (key: K) => Effect.Effect<A, E, Result.forkEffect.InputContext<R, NoInfer<P>>>
|
readonly f: (key: K) => Effect.Effect<A, E, Result.forkEffect.InputContext<R, NoInfer<P>>>
|
||||||
@@ -111,12 +113,12 @@ export declare namespace make {
|
|||||||
export const make = Effect.fnUntraced(function* <const K extends Mutation.AnyKey = never, A = void, E = never, R = never, P = never>(
|
export const make = Effect.fnUntraced(function* <const K extends Mutation.AnyKey = never, A = void, E = never, R = never, P = never>(
|
||||||
options: make.Options<K, A, E, R, P>
|
options: make.Options<K, A, E, R, P>
|
||||||
): Effect.fn.Return<
|
): Effect.fn.Return<
|
||||||
Mutation<K, A, E, Result.forkEffect.OutputContext<A, E, R, P>, P>,
|
Mutation<K, A, E, Result.forkEffect.OutputContext<R, P>, P>,
|
||||||
never,
|
never,
|
||||||
Scope.Scope | Result.forkEffect.OutputContext<A, E, R, P>
|
Scope.Scope | Result.forkEffect.OutputContext<R, P>
|
||||||
> {
|
> {
|
||||||
return new MutationImpl(
|
return new MutationImpl(
|
||||||
yield* Effect.context<Scope.Scope | Result.forkEffect.OutputContext<A, E, R, P>>(),
|
yield* Effect.context<Scope.Scope | Result.forkEffect.OutputContext<R, P>>(),
|
||||||
options.f as any,
|
options.f as any,
|
||||||
options.initialProgress as P,
|
options.initialProgress as P,
|
||||||
|
|
||||||
|
|||||||
@@ -1,98 +0,0 @@
|
|||||||
import { Array, Equivalence, Function, Option, Predicate } from "effect"
|
|
||||||
|
|
||||||
|
|
||||||
export type PropertyPath = readonly PropertyKey[]
|
|
||||||
|
|
||||||
type Prev = readonly [never, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
|
|
||||||
|
|
||||||
export type Paths<T, D extends number = 5, Seen = never> = readonly [] | (
|
|
||||||
D extends never ? readonly [] :
|
|
||||||
T extends Seen ? readonly [] :
|
|
||||||
T extends readonly any[] ? {
|
|
||||||
[K in keyof T as K extends number ? K : never]:
|
|
||||||
| readonly [K]
|
|
||||||
| readonly [K, ...Paths<T[K], Prev[D], Seen | T>]
|
|
||||||
} extends infer O
|
|
||||||
? O[keyof O]
|
|
||||||
: never
|
|
||||||
:
|
|
||||||
T extends object ? {
|
|
||||||
[K in keyof T as K extends string | number | symbol ? K : never]-?:
|
|
||||||
NonNullable<T[K]> extends infer V
|
|
||||||
? readonly [K] | readonly [K, ...Paths<V, Prev[D], Seen>]
|
|
||||||
: never
|
|
||||||
} extends infer O
|
|
||||||
? O[keyof O]
|
|
||||||
: never
|
|
||||||
:
|
|
||||||
never
|
|
||||||
)
|
|
||||||
|
|
||||||
export type ValueFromPath<T, P extends readonly any[]> = P extends readonly [infer Head, ...infer Tail]
|
|
||||||
? Head extends keyof T
|
|
||||||
? ValueFromPath<T[Head], Tail>
|
|
||||||
: T extends readonly any[]
|
|
||||||
? Head extends number
|
|
||||||
? ValueFromPath<T[number], Tail>
|
|
||||||
: never
|
|
||||||
: never
|
|
||||||
: T
|
|
||||||
|
|
||||||
|
|
||||||
export const equivalence: Equivalence.Equivalence<PropertyPath> = Equivalence.array(Equivalence.strict())
|
|
||||||
|
|
||||||
export const unsafeGet: {
|
|
||||||
<T, const P extends Paths<T>>(path: P): (self: T) => ValueFromPath<T, P>
|
|
||||||
<T, const P extends Paths<T>>(self: T, path: P): ValueFromPath<T, P>
|
|
||||||
} = Function.dual(2, <T, const P extends Paths<T>>(self: T, path: P): ValueFromPath<T, P> =>
|
|
||||||
path.reduce((acc: any, key: any) => acc?.[key], self)
|
|
||||||
)
|
|
||||||
|
|
||||||
export const get: {
|
|
||||||
<T, const P extends Paths<T>>(path: P): (self: T) => Option.Option<ValueFromPath<T, P>>
|
|
||||||
<T, const P extends Paths<T>>(self: T, path: P): Option.Option<ValueFromPath<T, P>>
|
|
||||||
} = Function.dual(2, <T, const P extends Paths<T>>(self: T, path: P): Option.Option<ValueFromPath<T, P>> =>
|
|
||||||
path.reduce(
|
|
||||||
(acc: Option.Option<any>, key: any): Option.Option<any> => Option.isSome(acc)
|
|
||||||
? Predicate.hasProperty(acc.value, key)
|
|
||||||
? Option.some(acc.value[key])
|
|
||||||
: Option.none()
|
|
||||||
: acc,
|
|
||||||
|
|
||||||
Option.some(self),
|
|
||||||
)
|
|
||||||
)
|
|
||||||
|
|
||||||
export const immutableSet: {
|
|
||||||
<T, const P extends Paths<T>>(path: P, value: ValueFromPath<T, P>): (self: T) => Option.Option<T>
|
|
||||||
<T, const P extends Paths<T>>(self: T, path: P, value: ValueFromPath<T, P>): Option.Option<T>
|
|
||||||
} = Function.dual(3, <T, const P extends Paths<T>>(self: T, path: P, value: ValueFromPath<T, P>): Option.Option<T> => {
|
|
||||||
const key = Array.head(path as PropertyPath)
|
|
||||||
if (Option.isNone(key))
|
|
||||||
return Option.some(value as T)
|
|
||||||
if (!Predicate.hasProperty(self, key.value))
|
|
||||||
return Option.none()
|
|
||||||
|
|
||||||
const child = immutableSet<any, any>(self[key.value], Option.getOrThrow(Array.tail(path as PropertyPath)), value)
|
|
||||||
if (Option.isNone(child))
|
|
||||||
return child
|
|
||||||
|
|
||||||
if (Array.isArray(self))
|
|
||||||
return typeof key.value === "number"
|
|
||||||
? Option.some([
|
|
||||||
...self.slice(0, key.value),
|
|
||||||
child.value,
|
|
||||||
...self.slice(key.value + 1),
|
|
||||||
] as T)
|
|
||||||
: Option.none()
|
|
||||||
|
|
||||||
if (typeof self === "object")
|
|
||||||
return Option.some(
|
|
||||||
Object.assign(
|
|
||||||
Object.create(Object.getPrototypeOf(self)),
|
|
||||||
{ ...self, [key.value]: child.value },
|
|
||||||
)
|
|
||||||
)
|
|
||||||
|
|
||||||
return Option.none()
|
|
||||||
})
|
|
||||||
@@ -3,7 +3,7 @@ import type * as React from "react"
|
|||||||
import * as Component from "./Component.js"
|
import * as Component from "./Component.js"
|
||||||
|
|
||||||
|
|
||||||
export const usePubSubFromReactiveValues = Effect.fnUntraced(function* <const A extends React.DependencyList>(
|
export const useFromReactiveValues = Effect.fnUntraced(function* <const A extends React.DependencyList>(
|
||||||
values: A
|
values: A
|
||||||
): Effect.fn.Return<PubSub.PubSub<A>, never, Scope.Scope> {
|
): Effect.fn.Return<PubSub.PubSub<A>, never, Scope.Scope> {
|
||||||
const pubsub = yield* Component.useOnMount(() => Effect.acquireRelease(PubSub.unbounded<A>(), PubSub.shutdown))
|
const pubsub = yield* Component.useOnMount(() => Effect.acquireRelease(PubSub.unbounded<A>(), PubSub.shutdown))
|
||||||
|
|||||||
@@ -266,8 +266,10 @@ extends Pipeable.Class() implements Query<K, A, KE, KR, E, R, P> {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
export const isQuery = (u: unknown): u is Query<readonly unknown[], unknown> => Predicate.hasProperty(u, QueryTypeId)
|
export const isQuery = (u: unknown): u is Query<readonly unknown[], unknown> => Predicate.hasProperty(u, QueryTypeId)
|
||||||
|
|
||||||
|
|
||||||
export declare namespace make {
|
export declare namespace make {
|
||||||
export interface Options<K extends Query.AnyKey, A, KE = never, KR = never, E = never, R = never, P = never> {
|
export interface Options<K extends Query.AnyKey, A, KE = never, KR = never, E = never, R = never, P = never> {
|
||||||
readonly key: Stream.Stream<K, KE, KR>
|
readonly key: Stream.Stream<K, KE, KR>
|
||||||
@@ -281,14 +283,14 @@ export declare namespace make {
|
|||||||
export const make = Effect.fnUntraced(function* <K extends Query.AnyKey, A, KE = never, KR = never, E = never, R = never, P = never>(
|
export const make = Effect.fnUntraced(function* <K extends Query.AnyKey, A, KE = never, KR = never, E = never, R = never, P = never>(
|
||||||
options: make.Options<K, A, KE, KR, E, R, P>
|
options: make.Options<K, A, KE, KR, E, R, P>
|
||||||
): Effect.fn.Return<
|
): Effect.fn.Return<
|
||||||
Query<K, A, KE, KR, E, Result.forkEffect.OutputContext<A, E, R, P>, P>,
|
Query<K, A, KE, KR, E, Result.forkEffect.OutputContext<R, P>, P>,
|
||||||
never,
|
never,
|
||||||
Scope.Scope | QueryClient.QueryClient | KR | Result.forkEffect.OutputContext<A, E, R, P>
|
Scope.Scope | QueryClient.QueryClient | KR | Result.forkEffect.OutputContext<R, P>
|
||||||
> {
|
> {
|
||||||
const client = yield* QueryClient.QueryClient
|
const client = yield* QueryClient.QueryClient
|
||||||
|
|
||||||
return new QueryImpl<K, A, KE, KR, E, Result.forkEffect.OutputContext<A, E, R, P>, P>(
|
return new QueryImpl<K, A, KE, KR, E, Result.forkEffect.OutputContext<R, P>, P>(
|
||||||
yield* Effect.context<Scope.Scope | QueryClient.QueryClient | KR | Result.forkEffect.OutputContext<A, E, R, P>>(),
|
yield* Effect.context<Scope.Scope | QueryClient.QueryClient | KR | Result.forkEffect.OutputContext<R, P>>(),
|
||||||
options.key,
|
options.key,
|
||||||
options.f as any,
|
options.f as any,
|
||||||
options.initialProgress as P,
|
options.initialProgress as P,
|
||||||
@@ -308,9 +310,9 @@ export const make = Effect.fnUntraced(function* <K extends Query.AnyKey, A, KE =
|
|||||||
export const service = <K extends Query.AnyKey, A, KE = never, KR = never, E = never, R = never, P = never>(
|
export const service = <K extends Query.AnyKey, A, KE = never, KR = never, E = never, R = never, P = never>(
|
||||||
options: make.Options<K, A, KE, KR, E, R, P>
|
options: make.Options<K, A, KE, KR, E, R, P>
|
||||||
): Effect.Effect<
|
): Effect.Effect<
|
||||||
Query<K, A, KE, KR, E, Result.forkEffect.OutputContext<A, E, R, P>, P>,
|
Query<K, A, KE, KR, E, Result.forkEffect.OutputContext<R, P>, P>,
|
||||||
never,
|
never,
|
||||||
Scope.Scope | QueryClient.QueryClient | KR | Result.forkEffect.OutputContext<A, E, R, P>
|
Scope.Scope | QueryClient.QueryClient | KR | Result.forkEffect.OutputContext<R, P>
|
||||||
> => Effect.tap(
|
> => Effect.tap(
|
||||||
make(options),
|
make(options),
|
||||||
query => Effect.forkScoped(query.run),
|
query => Effect.forkScoped(query.run),
|
||||||
|
|||||||
@@ -1,4 +1,5 @@
|
|||||||
import { Cause, Context, Data, Effect, Equal, Exit, type Fiber, Hash, Layer, Match, Pipeable, Predicate, PubSub, pipe, Ref, type Scope, Stream, Subscribable } from "effect"
|
import { Cause, Context, Data, Effect, Equal, Exit, type Fiber, Hash, Layer, Match, Pipeable, Predicate, PubSub, pipe, Ref, type Scope, Stream, type Subscribable, SynchronizedRef } from "effect"
|
||||||
|
import { Lens } from "effect-lens"
|
||||||
|
|
||||||
|
|
||||||
export const ResultTypeId: unique symbol = Symbol.for("@effect-fc/Result/Result")
|
export const ResultTypeId: unique symbol = Symbol.for("@effect-fc/Result/Result")
|
||||||
@@ -15,10 +16,6 @@ export type Final<A, E = never, P = never> = (Success<A> | Failure<E>) & ({} | F
|
|||||||
export type Flags<P = never> = WillFetch | WillRefresh | Refreshing<P>
|
export type Flags<P = never> = WillFetch | WillRefresh | Refreshing<P>
|
||||||
|
|
||||||
export declare namespace Result {
|
export declare namespace Result {
|
||||||
export interface Prototype extends Pipeable.Pipeable, Equal.Equal {
|
|
||||||
readonly [ResultTypeId]: ResultTypeId
|
|
||||||
}
|
|
||||||
|
|
||||||
export type Success<R extends Result<any, any, any>> = [R] extends [Result<infer A, infer _E, infer _P>] ? A : never
|
export type Success<R extends Result<any, any, any>> = [R] extends [Result<infer A, infer _E, infer _P>] ? A : never
|
||||||
export type Failure<R extends Result<any, any, any>> = [R] extends [Result<infer _A, infer E, infer _P>] ? E : never
|
export type Failure<R extends Result<any, any, any>> = [R] extends [Result<infer _A, infer E, infer _P>] ? E : never
|
||||||
export type Progress<R extends Result<any, any, any>> = [R] extends [Result<infer _A, infer _E, infer P>] ? P : never
|
export type Progress<R extends Result<any, any, any>> = [R] extends [Result<infer _A, infer _E, infer P>] ? P : never
|
||||||
@@ -28,21 +25,21 @@ export declare namespace Flags {
|
|||||||
export type Keys = keyof WillFetch & WillRefresh & Refreshing<any>
|
export type Keys = keyof WillFetch & WillRefresh & Refreshing<any>
|
||||||
}
|
}
|
||||||
|
|
||||||
export interface Initial extends Result.Prototype {
|
export interface Initial extends ResultPrototype {
|
||||||
readonly _tag: "Initial"
|
readonly _tag: "Initial"
|
||||||
}
|
}
|
||||||
|
|
||||||
export interface Running<P = never> extends Result.Prototype {
|
export interface Running<P = never> extends ResultPrototype {
|
||||||
readonly _tag: "Running"
|
readonly _tag: "Running"
|
||||||
readonly progress: P
|
readonly progress: P
|
||||||
}
|
}
|
||||||
|
|
||||||
export interface Success<A> extends Result.Prototype {
|
export interface Success<A> extends ResultPrototype {
|
||||||
readonly _tag: "Success"
|
readonly _tag: "Success"
|
||||||
readonly value: A
|
readonly value: A
|
||||||
}
|
}
|
||||||
|
|
||||||
export interface Failure<E = never> extends Result.Prototype {
|
export interface Failure<E = never> extends ResultPrototype {
|
||||||
readonly _tag: "Failure"
|
readonly _tag: "Failure"
|
||||||
readonly cause: Cause.Cause<E>
|
readonly cause: Cause.Cause<E>
|
||||||
}
|
}
|
||||||
@@ -61,7 +58,11 @@ export interface Refreshing<P = never> {
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
const ResultPrototype = Object.freeze({
|
export interface ResultPrototype extends Pipeable.Pipeable, Equal.Equal {
|
||||||
|
readonly [ResultTypeId]: ResultTypeId
|
||||||
|
}
|
||||||
|
|
||||||
|
export const ResultPrototype: ResultPrototype = Object.freeze({
|
||||||
...Pipeable.Prototype,
|
...Pipeable.Prototype,
|
||||||
[ResultTypeId]: ResultTypeId,
|
[ResultTypeId]: ResultTypeId,
|
||||||
|
|
||||||
@@ -95,7 +96,7 @@ const ResultPrototype = Object.freeze({
|
|||||||
Hash.cached(this),
|
Hash.cached(this),
|
||||||
)
|
)
|
||||||
},
|
},
|
||||||
} as const satisfies Result.Prototype)
|
} as const)
|
||||||
|
|
||||||
|
|
||||||
export const isResult = (u: unknown): u is Result<unknown, unknown, unknown> => Predicate.hasProperty(u, ResultTypeId)
|
export const isResult = (u: unknown): u is Result<unknown, unknown, unknown> => Predicate.hasProperty(u, ResultTypeId)
|
||||||
@@ -162,52 +163,40 @@ export const toExit: {
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
export interface State<A, E = never, P = never> {
|
|
||||||
readonly get: Effect.Effect<Result<A, E, P>>
|
|
||||||
readonly set: (v: Result<A, E, P>) => Effect.Effect<void>
|
|
||||||
}
|
|
||||||
|
|
||||||
export const State = <A, E = never, P = never>(): Context.Tag<State<A, E, P>, State<A, E, P>> => Context.GenericTag("@effect-fc/Result/State")
|
|
||||||
|
|
||||||
export interface Progress<P = never> {
|
export interface Progress<P = never> {
|
||||||
readonly update: <E, R>(
|
readonly progress: Lens.Lens<P, PreviousResultNotRunningNorRefreshing, never, never, never>
|
||||||
f: (previous: P) => Effect.Effect<P, E, R>
|
|
||||||
) => Effect.Effect<void, PreviousResultNotRunningNorRefreshing | E, R>
|
|
||||||
}
|
}
|
||||||
|
export const Progress = <P = never>(): Context.Tag<Progress<P>, Progress<P>> => Context.GenericTag("@effect-fc/Result/Progress")
|
||||||
|
|
||||||
export class PreviousResultNotRunningNorRefreshing extends Data.TaggedError("@effect-fc/Result/PreviousResultNotRunningNorRefreshing")<{
|
export class PreviousResultNotRunningNorRefreshing extends Data.TaggedError("@effect-fc/Result/PreviousResultNotRunningNorRefreshing")<{
|
||||||
readonly previous: Result<unknown, unknown, unknown>
|
readonly previous: Result<unknown, unknown, unknown>
|
||||||
}> {}
|
}> {}
|
||||||
|
|
||||||
export const Progress = <P = never>(): Context.Tag<Progress<P>, Progress<P>> => Context.GenericTag("@effect-fc/Result/Progress")
|
export const makeProgressLayer = <A, E, P = never>(
|
||||||
|
state: Lens.Lens<Result<A, E, P>, never, never, never, never>
|
||||||
export const makeProgressLayer = <A, E, P = never>(): Layer.Layer<
|
): Layer.Layer<Progress<P> | Progress<never>, never, never> => Layer.succeed(
|
||||||
Progress<P>,
|
Progress<P>() as Context.Tag<Progress<P> | Progress<never>, Progress<P> | Progress<never>>,
|
||||||
never,
|
{
|
||||||
State<A, E, P>
|
progress: state.pipe(
|
||||||
> => Layer.effect(Progress<P>(), Effect.gen(function*() {
|
Lens.mapEffect(
|
||||||
const state = yield* State<A, E, P>()
|
a => (isRunning(a) || hasRefreshingFlag(a))
|
||||||
|
? Effect.succeed(a)
|
||||||
return {
|
: Effect.fail(new PreviousResultNotRunningNorRefreshing({ previous: a })),
|
||||||
update: <FE, FR>(f: (previous: P) => Effect.Effect<P, FE, FR>) => Effect.Do.pipe(
|
(_, b) => Effect.succeed(b),
|
||||||
Effect.bind("previous", () => Effect.andThen(state.get, previous =>
|
|
||||||
(isRunning(previous) || hasRefreshingFlag(previous))
|
|
||||||
? Effect.succeed(previous)
|
|
||||||
: Effect.fail(new PreviousResultNotRunningNorRefreshing({ previous })),
|
|
||||||
)),
|
|
||||||
Effect.bind("progress", ({ previous }) => f(previous.progress)),
|
|
||||||
Effect.let("next", ({ previous, progress }) => isRunning(previous)
|
|
||||||
? running(progress)
|
|
||||||
: refreshing(previous, progress) as Final<A, E, P> & Refreshing<P>
|
|
||||||
),
|
),
|
||||||
Effect.andThen(({ next }) => state.set(next)),
|
Lens.map(
|
||||||
),
|
a => a.progress,
|
||||||
}
|
(a, b) => isRunning(a)
|
||||||
}))
|
? running(b)
|
||||||
|
: refreshing(a, b) as Final<A, E, P> & Refreshing<P>,
|
||||||
|
),
|
||||||
|
)
|
||||||
|
},
|
||||||
|
)
|
||||||
|
|
||||||
|
|
||||||
export namespace unsafeForkEffect {
|
export namespace unsafeForkEffect {
|
||||||
export type OutputContext<A, E, R, P> = Exclude<R, State<A, E, P> | Progress<P> | Progress<never>>
|
export type OutputContext<R, P> = Exclude<R, Progress<P> | Progress<never>>
|
||||||
|
|
||||||
export interface Options<A, E, P> {
|
export interface Options<A, E, P> {
|
||||||
readonly initial?: Initial | Final<A, E, P>
|
readonly initial?: Initial | Final<A, E, P>
|
||||||
@@ -215,55 +204,56 @@ export namespace unsafeForkEffect {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
export const unsafeForkEffect = <A, E, R, P = never>(
|
export const unsafeForkEffect = Effect.fnUntraced(function* <A, E, R, P = never>(
|
||||||
effect: Effect.Effect<A, E, R>,
|
effect: Effect.Effect<A, E, R>,
|
||||||
options?: unsafeForkEffect.Options<NoInfer<A>, NoInfer<E>, P>,
|
options?: unsafeForkEffect.Options<NoInfer<A>, NoInfer<E>, P>,
|
||||||
): Effect.Effect<
|
): Effect.fn.Return<
|
||||||
readonly [result: Subscribable.Subscribable<Result<A, E, P>, never, never>, fiber: Fiber.Fiber<A, E>],
|
readonly [result: Subscribable.Subscribable<Result<A, E, P>, never, never>, fiber: Fiber.Fiber<A, E>],
|
||||||
never,
|
never,
|
||||||
Scope.Scope | unsafeForkEffect.OutputContext<A, E, R, P>
|
Scope.Scope | unsafeForkEffect.OutputContext<R, P>
|
||||||
> => Effect.Do.pipe(
|
> {
|
||||||
Effect.bind("ref", () => Ref.make(options?.initial ?? initial<A, E, P>())),
|
const ref = yield* SynchronizedRef.make<Result<A, E, P>>(options?.initial ?? initial<A, E, P>())
|
||||||
Effect.bind("pubsub", () => PubSub.unbounded<Result<A, E, P>>()),
|
const pubsub = yield* PubSub.unbounded<Result<A, E, P>>()
|
||||||
Effect.bind("fiber", ({ ref, pubsub }) => Effect.forkScoped(State<A, E, P>().pipe(
|
|
||||||
Effect.andThen(state => state.set(
|
const state = Lens.make<Result<A, E, P>, never, never, never, never>({
|
||||||
(isFinal(options?.initial) && hasWillRefreshFlag(options?.initial))
|
get get() { return Ref.get(ref) },
|
||||||
? refreshing(options.initial, options?.initialProgress) as Result<A, E, P>
|
get changes() {
|
||||||
: running(options?.initialProgress)
|
return Stream.unwrapScoped(Effect.map(
|
||||||
).pipe(
|
|
||||||
Effect.andThen(effect),
|
|
||||||
Effect.onExit(exit => Effect.andThen(
|
|
||||||
state.set(fromExit(exit)),
|
|
||||||
Effect.forkScoped(PubSub.shutdown(pubsub)),
|
|
||||||
)),
|
|
||||||
)),
|
|
||||||
Effect.provide(Layer.empty.pipe(
|
|
||||||
Layer.provideMerge(makeProgressLayer<A, E, P>()),
|
|
||||||
Layer.provideMerge(Layer.succeed(State<A, E, P>(), {
|
|
||||||
get: Ref.get(ref),
|
|
||||||
set: v => Effect.andThen(Ref.set(ref, v), PubSub.publish(pubsub, v))
|
|
||||||
})),
|
|
||||||
)),
|
|
||||||
))),
|
|
||||||
Effect.map(({ ref, pubsub, fiber }) => [
|
|
||||||
Subscribable.make({
|
|
||||||
get: Ref.get(ref),
|
|
||||||
changes: Stream.unwrapScoped(Effect.map(
|
|
||||||
Effect.all([Ref.get(ref), Stream.fromPubSub(pubsub, { scoped: true })]),
|
Effect.all([Ref.get(ref), Stream.fromPubSub(pubsub, { scoped: true })]),
|
||||||
([latest, stream]) => Stream.concat(Stream.make(latest), stream),
|
([latest, stream]) => Stream.concat(Stream.make(latest), stream),
|
||||||
|
))
|
||||||
|
},
|
||||||
|
modify: f => Ref.get(ref).pipe(
|
||||||
|
Effect.flatMap(f),
|
||||||
|
Effect.flatMap(([b, a]) => Ref.set(ref, a).pipe(
|
||||||
|
Effect.as(b),
|
||||||
|
Effect.zipLeft(PubSub.publish(pubsub, a))
|
||||||
)),
|
)),
|
||||||
}),
|
),
|
||||||
fiber,
|
})
|
||||||
]),
|
|
||||||
) as Effect.Effect<
|
const fiber = yield* Effect.gen(function*() {
|
||||||
readonly [result: Subscribable.Subscribable<Result<A, E, P>, never, never>, fiber: Fiber.Fiber<A, E>],
|
yield* Lens.set(
|
||||||
never,
|
state,
|
||||||
Scope.Scope | unsafeForkEffect.OutputContext<A, E, R, P>
|
(isFinal(options?.initial) && hasWillRefreshFlag(options?.initial))
|
||||||
>
|
? refreshing(options.initial, options?.initialProgress) as Result<A, E, P>
|
||||||
|
: running(options?.initialProgress),
|
||||||
|
)
|
||||||
|
return yield* Effect.onExit(effect, exit => Effect.andThen(
|
||||||
|
Lens.set(state, fromExit(exit)),
|
||||||
|
Effect.forkScoped(PubSub.shutdown(pubsub)),
|
||||||
|
))
|
||||||
|
}).pipe(
|
||||||
|
Effect.forkScoped,
|
||||||
|
Effect.provide(makeProgressLayer(state)),
|
||||||
|
)
|
||||||
|
|
||||||
|
return [state, fiber] as const
|
||||||
|
})
|
||||||
|
|
||||||
export namespace forkEffect {
|
export namespace forkEffect {
|
||||||
export type InputContext<R, P> = R extends Progress<infer X> ? [X] extends [P] ? R : never : R
|
export type InputContext<R, P> = R extends Progress<infer X> ? [X] extends [P] ? R : never : R
|
||||||
export type OutputContext<A, E, R, P> = unsafeForkEffect.OutputContext<A, E, R, P>
|
export type OutputContext<R, P> = unsafeForkEffect.OutputContext<R, P>
|
||||||
export interface Options<A, E, P> extends unsafeForkEffect.Options<A, E, P> {}
|
export interface Options<A, E, P> extends unsafeForkEffect.Options<A, E, P> {}
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -274,6 +264,6 @@ export const forkEffect: {
|
|||||||
): Effect.Effect<
|
): Effect.Effect<
|
||||||
readonly [result: Subscribable.Subscribable<Result<A, E, P>, never, never>, fiber: Fiber.Fiber<A, E>],
|
readonly [result: Subscribable.Subscribable<Result<A, E, P>, never, never>, fiber: Fiber.Fiber<A, E>],
|
||||||
never,
|
never,
|
||||||
Scope.Scope | forkEffect.OutputContext<A, E, R, P>
|
Scope.Scope | forkEffect.OutputContext<R, P>
|
||||||
>
|
>
|
||||||
} = unsafeForkEffect
|
} = unsafeForkEffect
|
||||||
|
|||||||
@@ -3,8 +3,8 @@ import type * as React from "react"
|
|||||||
|
|
||||||
|
|
||||||
export const value: {
|
export const value: {
|
||||||
<S>(prevState: S): (self: React.SetStateAction<S>) => S
|
|
||||||
<S>(self: React.SetStateAction<S>, prevState: S): S
|
<S>(self: React.SetStateAction<S>, prevState: S): S
|
||||||
|
<S>(prevState: S): (self: React.SetStateAction<S>) => S
|
||||||
} = Function.dual(2, <S>(self: React.SetStateAction<S>, prevState: S): S =>
|
} = Function.dual(2, <S>(self: React.SetStateAction<S>, prevState: S): S =>
|
||||||
typeof self === "function"
|
typeof self === "function"
|
||||||
? (self as (prevState: S) => S)(prevState)
|
? (self as (prevState: S) => S)(prevState)
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ import * as React from "react"
|
|||||||
import * as Component from "./Component.js"
|
import * as Component from "./Component.js"
|
||||||
|
|
||||||
|
|
||||||
export const useStream: {
|
export const use: {
|
||||||
<A, E, R>(
|
<A, E, R>(
|
||||||
stream: Stream.Stream<A, E, R>
|
stream: Stream.Stream<A, E, R>
|
||||||
): Effect.Effect<Option.Option<A>, never, R>
|
): Effect.Effect<Option.Option<A>, never, R>
|
||||||
|
|||||||
196
packages/effect-fc/src/SubmittableForm.ts
Normal file
196
packages/effect-fc/src/SubmittableForm.ts
Normal file
@@ -0,0 +1,196 @@
|
|||||||
|
import { Array, Cause, Chunk, type Context, Effect, Exit, Fiber, identity, Option, ParseResult, Pipeable, Predicate, Schema, type Scope, Stream, SubscriptionRef } from "effect"
|
||||||
|
import * as Form from "./Form.js"
|
||||||
|
import * as Lens from "./Lens.js"
|
||||||
|
import * as Mutation from "./Mutation.js"
|
||||||
|
import * as Result from "./Result.js"
|
||||||
|
import * as Subscribable from "./Subscribable.js"
|
||||||
|
|
||||||
|
|
||||||
|
export const SubmittableFormTypeId: unique symbol = Symbol.for("@effect-fc/Form/SubmittableForm")
|
||||||
|
export type SubmittableFormTypeId = typeof SubmittableFormTypeId
|
||||||
|
|
||||||
|
export interface SubmittableForm<in out A, in out I = A, in out R = never, in out MA = void, in out ME = never, in out MR = never, in out MP = never>
|
||||||
|
extends Form.Form<readonly [], A, I, never, never> {
|
||||||
|
readonly [SubmittableFormTypeId]: SubmittableFormTypeId
|
||||||
|
|
||||||
|
readonly schema: Schema.Schema<A, I, R>
|
||||||
|
readonly context: Context.Context<Scope.Scope | R>
|
||||||
|
readonly mutation: Mutation.Mutation<
|
||||||
|
readonly [value: A, form: SubmittableForm<A, I, R, unknown, unknown, unknown>],
|
||||||
|
MA, ME, MR, MP
|
||||||
|
>
|
||||||
|
readonly validationFiber: Subscribable.Subscribable<Option.Option<Fiber.Fiber<A, ParseResult.ParseError>>, never, never>
|
||||||
|
|
||||||
|
readonly run: Effect.Effect<void>
|
||||||
|
readonly submit: Effect.Effect<Option.Option<Result.Final<MA, ME, MP>>, Cause.NoSuchElementException>
|
||||||
|
}
|
||||||
|
|
||||||
|
export class SubmittableFormImpl<in out A, in out I = A, in out R = never, in out MA = void, in out ME = never, in out MR = never, in out MP = never>
|
||||||
|
extends Pipeable.Class() implements SubmittableForm<A, I, R, MA, ME, MR, MP> {
|
||||||
|
readonly [Form.FormTypeId]: Form.FormTypeId = Form.FormTypeId
|
||||||
|
readonly [SubmittableFormTypeId]: SubmittableFormTypeId = SubmittableFormTypeId
|
||||||
|
|
||||||
|
readonly path = [] as const
|
||||||
|
|
||||||
|
constructor(
|
||||||
|
readonly schema: Schema.Schema<A, I, R>,
|
||||||
|
readonly context: Context.Context<Scope.Scope | R>,
|
||||||
|
readonly mutation: Mutation.Mutation<
|
||||||
|
readonly [value: A, form: SubmittableForm<A, I, R, unknown, unknown, unknown>],
|
||||||
|
MA, ME, MR, MP
|
||||||
|
>,
|
||||||
|
readonly value: Lens.Lens<Option.Option<A>, never, never, never, never>,
|
||||||
|
readonly encodedValue: Lens.Lens<I, never, never, never, never>,
|
||||||
|
readonly issues: Lens.Lens<readonly ParseResult.ArrayFormatterIssue[], never, never, never, never>,
|
||||||
|
readonly validationFiber: Lens.Lens<Option.Option<Fiber.Fiber<A, ParseResult.ParseError>>, never, never, never, never>,
|
||||||
|
readonly isValidating: Subscribable.Subscribable<boolean, never, never>,
|
||||||
|
|
||||||
|
readonly canCommit: Subscribable.Subscribable<boolean, never, never>,
|
||||||
|
readonly isCommitting: Subscribable.Subscribable<boolean, never, never>,
|
||||||
|
|
||||||
|
readonly runSemaphore: Effect.Semaphore,
|
||||||
|
) {
|
||||||
|
super()
|
||||||
|
}
|
||||||
|
|
||||||
|
get run(): Effect.Effect<void> {
|
||||||
|
return this.runSemaphore.withPermits(1)(Effect.provide(
|
||||||
|
Stream.runForEach(
|
||||||
|
this.encodedValue.changes,
|
||||||
|
|
||||||
|
encodedValue => Lens.get(this.validationFiber).pipe(
|
||||||
|
Effect.andThen(Option.match({
|
||||||
|
onSome: Fiber.interrupt,
|
||||||
|
onNone: () => Effect.void,
|
||||||
|
})),
|
||||||
|
Effect.andThen(
|
||||||
|
Effect.forkScoped(Effect.onExit(
|
||||||
|
Schema.decode(this.schema, { errors: "all" })(encodedValue),
|
||||||
|
exit => Effect.andThen(
|
||||||
|
Exit.matchEffect(exit, {
|
||||||
|
onSuccess: v => Effect.andThen(
|
||||||
|
Lens.set(this.value, Option.some(v)),
|
||||||
|
Lens.set(this.issues, Array.empty()),
|
||||||
|
),
|
||||||
|
onFailure: c => Option.match(Chunk.findFirst(Cause.failures(c), e => e._tag === "ParseError"), {
|
||||||
|
onSome: e => Effect.flatMap(
|
||||||
|
ParseResult.ArrayFormatter.formatError(e),
|
||||||
|
v => Lens.set(this.issues, v),
|
||||||
|
),
|
||||||
|
onNone: () => Effect.void,
|
||||||
|
}),
|
||||||
|
}),
|
||||||
|
Lens.set(this.validationFiber, Option.none()),
|
||||||
|
),
|
||||||
|
))
|
||||||
|
),
|
||||||
|
Effect.tap(fiber => Lens.set(this.validationFiber, Option.some(fiber))),
|
||||||
|
Effect.andThen(Fiber.join),
|
||||||
|
Effect.ignore,
|
||||||
|
),
|
||||||
|
),
|
||||||
|
|
||||||
|
this.context,
|
||||||
|
))
|
||||||
|
}
|
||||||
|
|
||||||
|
get submit(): Effect.Effect<Option.Option<Result.Final<MA, ME, MP>>, Cause.NoSuchElementException> {
|
||||||
|
return Lens.get(this.value).pipe(
|
||||||
|
Effect.andThen(identity),
|
||||||
|
Effect.andThen(value => this.submitValue(value)),
|
||||||
|
)
|
||||||
|
}
|
||||||
|
|
||||||
|
submitValue(value: A): Effect.Effect<Option.Option<Result.Final<MA, ME, MP>>> {
|
||||||
|
return Effect.whenEffect(
|
||||||
|
Effect.tap(
|
||||||
|
this.mutation.mutate([value, this as any]),
|
||||||
|
result => Result.isFailure(result)
|
||||||
|
? Option.match(
|
||||||
|
Chunk.findFirst(
|
||||||
|
Cause.failures(result.cause as Cause.Cause<ParseResult.ParseError>),
|
||||||
|
e => e._tag === "ParseError",
|
||||||
|
),
|
||||||
|
{
|
||||||
|
onSome: e => Effect.flatMap(
|
||||||
|
ParseResult.ArrayFormatter.formatError(e),
|
||||||
|
v => Lens.set(this.issues, v),
|
||||||
|
),
|
||||||
|
onNone: () => Effect.void,
|
||||||
|
},
|
||||||
|
)
|
||||||
|
: Effect.void
|
||||||
|
),
|
||||||
|
this.canCommit.get,
|
||||||
|
)
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
export const isSubmittableForm = (u: unknown): u is SubmittableForm<unknown, unknown, unknown, unknown, unknown, unknown, unknown> => Predicate.hasProperty(u, SubmittableFormTypeId)
|
||||||
|
|
||||||
|
|
||||||
|
export declare namespace make {
|
||||||
|
export interface Options<in out A, in out I = A, in out R = never, in out MA = void, in out ME = never, in out MR = never, in out MP = never>
|
||||||
|
extends Mutation.make.Options<
|
||||||
|
readonly [value: NoInfer<A>, form: SubmittableForm<NoInfer<A>, NoInfer<I>, NoInfer<R>, unknown, unknown, unknown>],
|
||||||
|
MA, ME, MR, MP
|
||||||
|
> {
|
||||||
|
readonly schema: Schema.Schema<A, I, R>
|
||||||
|
readonly initialEncodedValue: NoInfer<I>
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
export const make = Effect.fnUntraced(function* <A, I = A, R = never, MA = void, ME = never, MR = never, MP = never>(
|
||||||
|
options: make.Options<A, I, R, MA, ME, MR, MP>
|
||||||
|
): Effect.fn.Return<
|
||||||
|
SubmittableForm<A, I, R, MA, ME, Result.forkEffect.OutputContext<MR, MP>, MP>,
|
||||||
|
never,
|
||||||
|
Scope.Scope | R | Result.forkEffect.OutputContext<MR, MP>
|
||||||
|
> {
|
||||||
|
const mutation = yield* Mutation.make(options)
|
||||||
|
const valueLens = Lens.fromSubscriptionRef(yield* SubscriptionRef.make(Option.none<A>()))
|
||||||
|
const issuesLens = Lens.fromSubscriptionRef(yield* SubscriptionRef.make<readonly ParseResult.ArrayFormatterIssue[]>(Array.empty()))
|
||||||
|
const validationFiberLens = Lens.fromSubscriptionRef(yield* SubscriptionRef.make(Option.none<Fiber.Fiber<A, ParseResult.ParseError>>()))
|
||||||
|
|
||||||
|
return new SubmittableFormImpl(
|
||||||
|
options.schema,
|
||||||
|
yield* Effect.context<Scope.Scope | R>(),
|
||||||
|
mutation,
|
||||||
|
|
||||||
|
valueLens,
|
||||||
|
Lens.fromSubscriptionRef(yield* SubscriptionRef.make(options.initialEncodedValue)),
|
||||||
|
issuesLens,
|
||||||
|
validationFiberLens,
|
||||||
|
Subscribable.map(validationFiberLens, Option.isSome),
|
||||||
|
|
||||||
|
Subscribable.map(
|
||||||
|
Subscribable.zipLatestAll(valueLens, issuesLens, validationFiberLens, mutation.result),
|
||||||
|
([value, issues, validationFiber, result]) => (
|
||||||
|
Option.isSome(value) &&
|
||||||
|
Array.isEmptyReadonlyArray(issues) &&
|
||||||
|
Option.isNone(validationFiber) &&
|
||||||
|
!(Result.isRunning(result) || Result.hasRefreshingFlag(result))
|
||||||
|
),
|
||||||
|
),
|
||||||
|
Subscribable.map(mutation.result, result => Result.isRunning(result) || Result.hasRefreshingFlag(result)),
|
||||||
|
|
||||||
|
yield* Effect.makeSemaphore(1),
|
||||||
|
)
|
||||||
|
})
|
||||||
|
|
||||||
|
export declare namespace service {
|
||||||
|
export interface Options<in out A, in out I = A, in out R = never, in out MA = void, in out ME = never, in out MR = never, in out MP = never>
|
||||||
|
extends make.Options<A, I, R, MA, ME, MR, MP> {}
|
||||||
|
}
|
||||||
|
|
||||||
|
export const service = <A, I = A, R = never, MA = void, ME = never, MR = never, MP = never>(
|
||||||
|
options: service.Options<A, I, R, MA, ME, MR, MP>
|
||||||
|
): Effect.Effect<
|
||||||
|
SubmittableForm<A, I, R, MA, ME, Result.forkEffect.OutputContext<MR, MP>, MP>,
|
||||||
|
never,
|
||||||
|
Scope.Scope | R | Result.forkEffect.OutputContext<MR, MP>
|
||||||
|
> => Effect.tap(
|
||||||
|
make(options),
|
||||||
|
form => Effect.forkScoped(form.run),
|
||||||
|
)
|
||||||
@@ -1,8 +1,11 @@
|
|||||||
import { Effect, Equivalence, Stream, Subscribable } from "effect"
|
import { Effect, Equivalence, Stream } from "effect"
|
||||||
|
import { Subscribable } from "effect-lens"
|
||||||
import * as React from "react"
|
import * as React from "react"
|
||||||
import * as Component from "./Component.js"
|
import * as Component from "./Component.js"
|
||||||
|
|
||||||
|
|
||||||
|
export * from "effect-lens/Subscribable"
|
||||||
|
|
||||||
export const zipLatestAll = <const T extends readonly Subscribable.Subscribable<any, any, any>[]>(
|
export const zipLatestAll = <const T extends readonly Subscribable.Subscribable<any, any, any>[]>(
|
||||||
...elements: T
|
...elements: T
|
||||||
): Subscribable.Subscribable<
|
): Subscribable.Subscribable<
|
||||||
@@ -16,7 +19,7 @@ export const zipLatestAll = <const T extends readonly Subscribable.Subscribable<
|
|||||||
changes: Stream.zipLatestAll(...elements.map(v => v.changes)),
|
changes: Stream.zipLatestAll(...elements.map(v => v.changes)),
|
||||||
}) as any
|
}) as any
|
||||||
|
|
||||||
export declare namespace useSubscribables {
|
export declare namespace useAll {
|
||||||
export type Success<T extends readonly Subscribable.Subscribable<any, any, any>[]> = [T[number]] extends [never]
|
export type Success<T extends readonly Subscribable.Subscribable<any, any, any>[]> = [T[number]] extends [never]
|
||||||
? never
|
? never
|
||||||
: { [K in keyof T]: T[K] extends Subscribable.Subscribable<infer A, infer _E, infer _R> ? A : never }
|
: { [K in keyof T]: T[K] extends Subscribable.Subscribable<infer A, infer _E, infer _R> ? A : never }
|
||||||
@@ -26,11 +29,11 @@ export declare namespace useSubscribables {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
export const useSubscribables = Effect.fnUntraced(function* <const T extends readonly Subscribable.Subscribable<any, any, any>[]>(
|
export const useAll = Effect.fnUntraced(function* <const T extends readonly Subscribable.Subscribable<any, any, any>[]>(
|
||||||
elements: T,
|
elements: T,
|
||||||
options?: useSubscribables.Options<useSubscribables.Success<NoInfer<T>>>,
|
options?: useAll.Options<useAll.Success<NoInfer<T>>>,
|
||||||
): Effect.fn.Return<
|
): Effect.fn.Return<
|
||||||
useSubscribables.Success<T>,
|
useAll.Success<T>,
|
||||||
[T[number]] extends [never] ? never : T[number] extends Subscribable.Subscribable<infer _A, infer E, infer _R> ? E : never,
|
[T[number]] extends [never] ? never : T[number] extends Subscribable.Subscribable<infer _A, infer E, infer _R> ? E : never,
|
||||||
[T[number]] extends [never] ? never : T[number] extends Subscribable.Subscribable<infer _A, infer _E, infer R> ? R : never
|
[T[number]] extends [never] ? never : T[number] extends Subscribable.Subscribable<infer _A, infer _E, infer R> ? R : never
|
||||||
> {
|
> {
|
||||||
@@ -48,5 +51,3 @@ export const useSubscribables = Effect.fnUntraced(function* <const T extends rea
|
|||||||
|
|
||||||
return reactStateValue as any
|
return reactStateValue as any
|
||||||
})
|
})
|
||||||
|
|
||||||
export * from "effect/Subscribable"
|
|
||||||
|
|||||||
@@ -1,61 +0,0 @@
|
|||||||
import { Effect, Equivalence, Ref, Stream, SubscriptionRef } from "effect"
|
|
||||||
import * as React from "react"
|
|
||||||
import * as Component from "./Component.js"
|
|
||||||
import * as SetStateAction from "./SetStateAction.js"
|
|
||||||
|
|
||||||
|
|
||||||
export declare namespace useSubscriptionRefState {
|
|
||||||
export interface Options<A> {
|
|
||||||
readonly equivalence?: Equivalence.Equivalence<A>
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
export const useSubscriptionRefState = Effect.fnUntraced(function* <A>(
|
|
||||||
ref: SubscriptionRef.SubscriptionRef<A>,
|
|
||||||
options?: useSubscriptionRefState.Options<NoInfer<A>>,
|
|
||||||
): Effect.fn.Return<readonly [A, React.Dispatch<React.SetStateAction<A>>]> {
|
|
||||||
const [reactStateValue, setReactStateValue] = React.useState(yield* Component.useOnMount(() => ref))
|
|
||||||
|
|
||||||
yield* Component.useReactEffect(() => Effect.forkScoped(
|
|
||||||
Stream.runForEach(
|
|
||||||
Stream.changesWith(ref.changes, options?.equivalence ?? Equivalence.strict()),
|
|
||||||
v => Effect.sync(() => setReactStateValue(v)),
|
|
||||||
)
|
|
||||||
), [ref])
|
|
||||||
|
|
||||||
const setValue = yield* Component.useCallbackSync(
|
|
||||||
(setStateAction: React.SetStateAction<A>) => Effect.andThen(
|
|
||||||
Ref.updateAndGet(ref, prevState => SetStateAction.value(setStateAction, prevState)),
|
|
||||||
v => setReactStateValue(v),
|
|
||||||
),
|
|
||||||
[ref],
|
|
||||||
)
|
|
||||||
|
|
||||||
return [reactStateValue, setValue]
|
|
||||||
})
|
|
||||||
|
|
||||||
export declare namespace useSubscriptionRefFromState {
|
|
||||||
export interface Options<A> {
|
|
||||||
readonly equivalence?: Equivalence.Equivalence<A>
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
export const useSubscriptionRefFromState = Effect.fnUntraced(function* <A>(
|
|
||||||
[value, setValue]: readonly [A, React.Dispatch<React.SetStateAction<A>>],
|
|
||||||
options?: useSubscriptionRefFromState.Options<NoInfer<A>>,
|
|
||||||
): Effect.fn.Return<SubscriptionRef.SubscriptionRef<A>> {
|
|
||||||
const ref = yield* Component.useOnChange(() => Effect.tap(
|
|
||||||
SubscriptionRef.make(value),
|
|
||||||
ref => Effect.forkScoped(
|
|
||||||
Stream.runForEach(
|
|
||||||
Stream.changesWith(ref.changes, options?.equivalence ?? Equivalence.strict()),
|
|
||||||
v => Effect.sync(() => setValue(v)),
|
|
||||||
)
|
|
||||||
),
|
|
||||||
), [setValue])
|
|
||||||
|
|
||||||
yield* Component.useReactEffect(() => Ref.set(ref, value), [value])
|
|
||||||
return ref
|
|
||||||
})
|
|
||||||
|
|
||||||
export * from "effect/SubscriptionRef"
|
|
||||||
@@ -1,186 +0,0 @@
|
|||||||
import { Chunk, Effect, Effectable, Option, Predicate, Readable, Ref, Stream, Subscribable, SubscriptionRef, SynchronizedRef, type Types, type Unify } from "effect"
|
|
||||||
import * as PropertyPath from "./PropertyPath.js"
|
|
||||||
|
|
||||||
|
|
||||||
export const SubscriptionSubRefTypeId: unique symbol = Symbol.for("@effect-fc/SubscriptionSubRef/SubscriptionSubRef")
|
|
||||||
export type SubscriptionSubRefTypeId = typeof SubscriptionSubRefTypeId
|
|
||||||
|
|
||||||
export interface SubscriptionSubRef<in out A, in out B extends SubscriptionRef.SubscriptionRef<any>>
|
|
||||||
extends SubscriptionSubRef.Variance<A, B>, SubscriptionRef.SubscriptionRef<A> {
|
|
||||||
readonly parent: B
|
|
||||||
|
|
||||||
readonly [Unify.typeSymbol]?: unknown
|
|
||||||
readonly [Unify.unifySymbol]?: SubscriptionSubRefUnify<this>
|
|
||||||
readonly [Unify.ignoreSymbol]?: SubscriptionSubRefUnifyIgnore
|
|
||||||
}
|
|
||||||
|
|
||||||
export declare namespace SubscriptionSubRef {
|
|
||||||
export interface Variance<in out A, in out B> {
|
|
||||||
readonly [SubscriptionSubRefTypeId]: {
|
|
||||||
readonly _A: Types.Invariant<A>
|
|
||||||
readonly _B: Types.Invariant<B>
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
export interface SubscriptionSubRefUnify<A extends { [Unify.typeSymbol]?: any }> extends SubscriptionRef.SubscriptionRefUnify<A> {
|
|
||||||
SubscriptionSubRef?: () => Extract<A[Unify.typeSymbol], SubscriptionSubRef<any, any>>
|
|
||||||
}
|
|
||||||
|
|
||||||
export interface SubscriptionSubRefUnifyIgnore extends SubscriptionRef.SubscriptionRefUnifyIgnore {
|
|
||||||
SubscriptionRef?: true
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
const refVariance = { _A: (_: any) => _ }
|
|
||||||
const synchronizedRefVariance = { _A: (_: any) => _ }
|
|
||||||
const subscriptionRefVariance = { _A: (_: any) => _ }
|
|
||||||
const subscriptionSubRefVariance = { _A: (_: any) => _, _B: (_: any) => _ }
|
|
||||||
|
|
||||||
class SubscriptionSubRefImpl<in out A, in out B extends SubscriptionRef.SubscriptionRef<any>>
|
|
||||||
extends Effectable.Class<A> implements SubscriptionSubRef<A, B> {
|
|
||||||
readonly [Readable.TypeId]: Readable.TypeId = Readable.TypeId
|
|
||||||
readonly [Subscribable.TypeId]: Subscribable.TypeId = Subscribable.TypeId
|
|
||||||
readonly [Ref.RefTypeId] = refVariance
|
|
||||||
readonly [SynchronizedRef.SynchronizedRefTypeId] = synchronizedRefVariance
|
|
||||||
readonly [SubscriptionRef.SubscriptionRefTypeId] = subscriptionRefVariance
|
|
||||||
readonly [SubscriptionSubRefTypeId] = subscriptionSubRefVariance
|
|
||||||
|
|
||||||
readonly get: Effect.Effect<A>
|
|
||||||
|
|
||||||
constructor(
|
|
||||||
readonly parent: B,
|
|
||||||
readonly getter: (parentValue: Effect.Effect.Success<B>) => A,
|
|
||||||
readonly setter: (parentValue: Effect.Effect.Success<B>, value: A) => Effect.Effect.Success<B>,
|
|
||||||
) {
|
|
||||||
super()
|
|
||||||
this.get = Effect.map(this.parent, this.getter)
|
|
||||||
}
|
|
||||||
|
|
||||||
commit() {
|
|
||||||
return this.get
|
|
||||||
}
|
|
||||||
|
|
||||||
get changes(): Stream.Stream<A> {
|
|
||||||
return Stream.unwrap(
|
|
||||||
Effect.map(this.get, a => Stream.concat(
|
|
||||||
Stream.make(a),
|
|
||||||
Stream.map(this.parent.changes, this.getter),
|
|
||||||
))
|
|
||||||
)
|
|
||||||
}
|
|
||||||
|
|
||||||
modify<C>(f: (a: A) => readonly [C, A]): Effect.Effect<C> {
|
|
||||||
return this.modifyEffect(a => Effect.succeed(f(a)))
|
|
||||||
}
|
|
||||||
|
|
||||||
modifyEffect<C, E, R>(f: (a: A) => Effect.Effect<readonly [C, A], E, R>): Effect.Effect<C, E, R> {
|
|
||||||
return Effect.Do.pipe(
|
|
||||||
Effect.bind("b", (): Effect.Effect<Effect.Effect.Success<B>> => this.parent),
|
|
||||||
Effect.bind("ca", ({ b }) => f(this.getter(b))),
|
|
||||||
Effect.tap(({ b, ca: [, a] }) => SubscriptionRef.set(this.parent, this.setter(b, a))),
|
|
||||||
Effect.map(({ ca: [c] }) => c),
|
|
||||||
)
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
export const isSubscriptionSubRef = (u: unknown): u is SubscriptionSubRef<unknown, SubscriptionRef.SubscriptionRef<unknown>> => Predicate.hasProperty(u, SubscriptionSubRefTypeId)
|
|
||||||
|
|
||||||
export const makeFromGetSet = <A, B extends SubscriptionRef.SubscriptionRef<any>>(
|
|
||||||
parent: B,
|
|
||||||
options: {
|
|
||||||
readonly get: (parentValue: Effect.Effect.Success<B>) => A
|
|
||||||
readonly set: (parentValue: Effect.Effect.Success<B>, value: A) => Effect.Effect.Success<B>
|
|
||||||
},
|
|
||||||
): SubscriptionSubRef<A, B> => new SubscriptionSubRefImpl(parent, options.get, options.set)
|
|
||||||
|
|
||||||
export const makeFromPath = <
|
|
||||||
B extends SubscriptionRef.SubscriptionRef<any>,
|
|
||||||
const P extends PropertyPath.Paths<Effect.Effect.Success<B>>,
|
|
||||||
>(
|
|
||||||
parent: B,
|
|
||||||
path: P,
|
|
||||||
): SubscriptionSubRef<PropertyPath.ValueFromPath<Effect.Effect.Success<B>, P>, B> => new SubscriptionSubRefImpl(
|
|
||||||
parent,
|
|
||||||
parentValue => Option.getOrThrow(PropertyPath.get(parentValue, path)),
|
|
||||||
(parentValue, value) => Option.getOrThrow(PropertyPath.immutableSet(parentValue, path, value)),
|
|
||||||
)
|
|
||||||
|
|
||||||
export const makeFromChunkIndex: {
|
|
||||||
<B extends SubscriptionRef.SubscriptionRef<Chunk.NonEmptyChunk<any>>>(
|
|
||||||
parent: B,
|
|
||||||
index: number,
|
|
||||||
): SubscriptionSubRef<
|
|
||||||
Effect.Effect.Success<B> extends Chunk.NonEmptyChunk<infer A> ? A : never,
|
|
||||||
B
|
|
||||||
>
|
|
||||||
<B extends SubscriptionRef.SubscriptionRef<Chunk.Chunk<any>>>(
|
|
||||||
parent: B,
|
|
||||||
index: number,
|
|
||||||
): SubscriptionSubRef<
|
|
||||||
Effect.Effect.Success<B> extends Chunk.Chunk<infer A> ? A : never,
|
|
||||||
B
|
|
||||||
>
|
|
||||||
} = (
|
|
||||||
parent: SubscriptionRef.SubscriptionRef<Chunk.Chunk<any>>,
|
|
||||||
index: number,
|
|
||||||
) => new SubscriptionSubRefImpl(
|
|
||||||
parent,
|
|
||||||
parentValue => Chunk.unsafeGet(parentValue, index),
|
|
||||||
(parentValue, value) => Chunk.replace(parentValue, index, value),
|
|
||||||
) as any
|
|
||||||
|
|
||||||
export const makeFromChunkFindFirst: {
|
|
||||||
<B extends SubscriptionRef.SubscriptionRef<Chunk.NonEmptyChunk<any>>>(
|
|
||||||
parent: B,
|
|
||||||
findFirstPredicate: Predicate.Predicate<Effect.Effect.Success<B> extends Chunk.NonEmptyChunk<infer A> ? A : never>,
|
|
||||||
): SubscriptionSubRef<
|
|
||||||
Effect.Effect.Success<B> extends Chunk.NonEmptyChunk<infer A> ? A : never,
|
|
||||||
B
|
|
||||||
>
|
|
||||||
<B extends SubscriptionRef.SubscriptionRef<Chunk.Chunk<any>>>(
|
|
||||||
parent: B,
|
|
||||||
findFirstPredicate: Predicate.Predicate<Effect.Effect.Success<B> extends Chunk.Chunk<infer A> ? A : never>,
|
|
||||||
): SubscriptionSubRef<
|
|
||||||
Effect.Effect.Success<B> extends Chunk.Chunk<infer A> ? A : never,
|
|
||||||
B
|
|
||||||
>
|
|
||||||
} = (
|
|
||||||
parent: SubscriptionRef.SubscriptionRef<Chunk.Chunk<never>>,
|
|
||||||
findFirstPredicate: Predicate.Predicate.Any,
|
|
||||||
) => new SubscriptionSubRefImpl(
|
|
||||||
parent,
|
|
||||||
parentValue => Option.getOrThrow(Chunk.findFirst(parentValue, findFirstPredicate)),
|
|
||||||
(parentValue, value) => Option.getOrThrow(Option.andThen(
|
|
||||||
Chunk.findFirstIndex(parentValue, findFirstPredicate),
|
|
||||||
index => Chunk.replace(parentValue, index, value),
|
|
||||||
)),
|
|
||||||
) as any
|
|
||||||
|
|
||||||
export const makeFromChunkFindLast: {
|
|
||||||
<B extends SubscriptionRef.SubscriptionRef<Chunk.NonEmptyChunk<any>>>(
|
|
||||||
parent: B,
|
|
||||||
findLastPredicate: Predicate.Predicate<Effect.Effect.Success<B> extends Chunk.NonEmptyChunk<infer A> ? A : never>,
|
|
||||||
): SubscriptionSubRef<
|
|
||||||
Effect.Effect.Success<B> extends Chunk.NonEmptyChunk<infer A> ? A : never,
|
|
||||||
B
|
|
||||||
>
|
|
||||||
<B extends SubscriptionRef.SubscriptionRef<Chunk.Chunk<any>>>(
|
|
||||||
parent: B,
|
|
||||||
findLastPredicate: Predicate.Predicate<Effect.Effect.Success<B> extends Chunk.Chunk<infer A> ? A : never>,
|
|
||||||
): SubscriptionSubRef<
|
|
||||||
Effect.Effect.Success<B> extends Chunk.Chunk<infer A> ? A : never,
|
|
||||||
B
|
|
||||||
>
|
|
||||||
} = (
|
|
||||||
parent: SubscriptionRef.SubscriptionRef<Chunk.Chunk<never>>,
|
|
||||||
findLastPredicate: Predicate.Predicate.Any,
|
|
||||||
) => new SubscriptionSubRefImpl(
|
|
||||||
parent,
|
|
||||||
parentValue => Option.getOrThrow(Chunk.findLast(parentValue, findLastPredicate)),
|
|
||||||
(parentValue, value) => Option.getOrThrow(Option.andThen(
|
|
||||||
Chunk.findLastIndex(parentValue, findLastPredicate),
|
|
||||||
index => Chunk.replace(parentValue, index, value),
|
|
||||||
)),
|
|
||||||
) as any
|
|
||||||
239
packages/effect-fc/src/SynchronizedForm.ts
Normal file
239
packages/effect-fc/src/SynchronizedForm.ts
Normal file
@@ -0,0 +1,239 @@
|
|||||||
|
import { Array, Cause, Chunk, type Context, Effect, Exit, Fiber, Option, ParseResult, Pipeable, Predicate, Schema, type Scope, SubscriptionRef } from "effect"
|
||||||
|
import * as Form from "./Form.js"
|
||||||
|
import * as Lens from "./Lens.js"
|
||||||
|
import * as Subscribable from "./Subscribable.js"
|
||||||
|
|
||||||
|
|
||||||
|
export const SynchronizedFormTypeId: unique symbol = Symbol.for("@effect-fc/Form/SynchronizedForm")
|
||||||
|
export type SynchronizedFormTypeId = typeof SynchronizedFormTypeId
|
||||||
|
|
||||||
|
export interface SynchronizedForm<
|
||||||
|
in out A,
|
||||||
|
in out I = A,
|
||||||
|
in out R = never,
|
||||||
|
in out TER = never,
|
||||||
|
in out TEW = never,
|
||||||
|
in out TRR = never,
|
||||||
|
in out TRW = never,
|
||||||
|
> extends Form.Form<readonly [], A, I, never, never> {
|
||||||
|
readonly [SynchronizedFormTypeId]: SynchronizedFormTypeId
|
||||||
|
|
||||||
|
readonly schema: Schema.Schema<A, I, R>
|
||||||
|
readonly context: Context.Context<Scope.Scope | R | TRR | TRW>
|
||||||
|
readonly target: Lens.Lens<A, TER, TEW, TRR, TRW>
|
||||||
|
readonly validationFiber: Subscribable.Subscribable<Option.Option<Fiber.Fiber<A, ParseResult.ParseError>>, never, never>
|
||||||
|
|
||||||
|
readonly run: Effect.Effect<void, TER>
|
||||||
|
}
|
||||||
|
|
||||||
|
export class SynchronizedFormImpl<
|
||||||
|
in out A,
|
||||||
|
in out I = A,
|
||||||
|
in out R = never,
|
||||||
|
in out TER = never,
|
||||||
|
in out TEW = never,
|
||||||
|
in out TRR = never,
|
||||||
|
in out TRW = never,
|
||||||
|
> extends Pipeable.Class() implements SynchronizedForm<A, I, R, TER, TEW, TRR, TRW> {
|
||||||
|
readonly [Form.FormTypeId]: Form.FormTypeId = Form.FormTypeId
|
||||||
|
readonly [SynchronizedFormTypeId]: SynchronizedFormTypeId = SynchronizedFormTypeId
|
||||||
|
|
||||||
|
readonly path = [] as const
|
||||||
|
readonly encodedValue: Lens.Lens<I, never, never, never, never>
|
||||||
|
|
||||||
|
constructor(
|
||||||
|
readonly schema: Schema.Schema<A, I, R>,
|
||||||
|
readonly context: Context.Context<Scope.Scope | R | TRR | TRW>,
|
||||||
|
readonly target: Lens.Lens<A, TER, TEW, TRR, TRW>,
|
||||||
|
|
||||||
|
readonly value: Lens.Lens<Option.Option<A>, never, never, never, never>,
|
||||||
|
readonly internalEncodedValue: Lens.Lens<I, never, never, never, never>,
|
||||||
|
readonly issues: Lens.Lens<readonly ParseResult.ArrayFormatterIssue[], never, never, never, never>,
|
||||||
|
readonly validationFiber: Lens.Lens<Option.Option<Fiber.Fiber<A, ParseResult.ParseError>>, never, never, never, never>,
|
||||||
|
readonly isValidating: Subscribable.Subscribable<boolean, never, never>,
|
||||||
|
|
||||||
|
readonly canCommit: Subscribable.Subscribable<boolean, never, never>,
|
||||||
|
readonly isCommitting: Lens.Lens<boolean, never, never>,
|
||||||
|
|
||||||
|
readonly runSemaphore: Effect.Semaphore,
|
||||||
|
) {
|
||||||
|
super()
|
||||||
|
this.encodedValue = makeEncodedValueLens(this)
|
||||||
|
}
|
||||||
|
|
||||||
|
synchronizeEncodedValue(encodedValue: I): Effect.Effect<void, never, never> {
|
||||||
|
return Lens.get(this.validationFiber).pipe(
|
||||||
|
Effect.andThen(Option.match({
|
||||||
|
onSome: Fiber.interrupt,
|
||||||
|
onNone: () => Effect.void,
|
||||||
|
})),
|
||||||
|
Effect.andThen(
|
||||||
|
Effect.forkScoped(Effect.onExit(
|
||||||
|
Schema.decode(this.schema, { errors: "all" })(encodedValue),
|
||||||
|
exit => Effect.andThen(
|
||||||
|
Exit.matchEffect(exit, {
|
||||||
|
onSuccess: v => Effect.andThen(
|
||||||
|
Lens.set(this.value, Option.some(v)),
|
||||||
|
Lens.set(this.issues, Array.empty()),
|
||||||
|
),
|
||||||
|
onFailure: c => Option.match(
|
||||||
|
Chunk.findFirst(Cause.failures(c), e => e._tag === "ParseError"),
|
||||||
|
{
|
||||||
|
onSome: e => Effect.flatMap(
|
||||||
|
ParseResult.ArrayFormatter.formatError(e),
|
||||||
|
v => Lens.set(this.issues, v),
|
||||||
|
),
|
||||||
|
onNone: () => Effect.void,
|
||||||
|
},
|
||||||
|
),
|
||||||
|
}),
|
||||||
|
Lens.set(this.validationFiber, Option.none()),
|
||||||
|
),
|
||||||
|
))
|
||||||
|
),
|
||||||
|
Effect.tap(fiber => Lens.set(this.validationFiber, Option.some(fiber))),
|
||||||
|
Effect.andThen(Fiber.join),
|
||||||
|
Effect.tap(value => Effect.onExit(
|
||||||
|
Effect.andThen(
|
||||||
|
Lens.set(this.isCommitting, true),
|
||||||
|
Lens.set(this.target, value),
|
||||||
|
),
|
||||||
|
() => Lens.set(this.isCommitting, false),
|
||||||
|
)),
|
||||||
|
|
||||||
|
Effect.ignore,
|
||||||
|
Effect.provide(this.context),
|
||||||
|
)
|
||||||
|
}
|
||||||
|
|
||||||
|
get run(): Effect.Effect<void, TER> {
|
||||||
|
return Effect.void
|
||||||
|
// return this.runSemaphore.withPermits(1)(Effect.provide(
|
||||||
|
// Effect.andThen(
|
||||||
|
// Effect.flatMap(
|
||||||
|
// Lens.get(this.internalEncodedValue),
|
||||||
|
// encodedValue => this.synchronizeEncodedValue(encodedValue),
|
||||||
|
// ),
|
||||||
|
// Stream.runForEach(
|
||||||
|
// Stream.drop(this.target.changes, 1),
|
||||||
|
|
||||||
|
// targetValue => Schema.encode(this.schema, { errors: "all" })(targetValue).pipe(
|
||||||
|
// Effect.flatMap(encodedValue => Effect.andThen(
|
||||||
|
// Effect.whenEffect(
|
||||||
|
// Lens.set(this.internalEncodedValue, encodedValue),
|
||||||
|
// Effect.map(
|
||||||
|
// Lens.get(this.internalEncodedValue),
|
||||||
|
// currentEncodedValue => !Equal.equals(encodedValue, currentEncodedValue),
|
||||||
|
// ),
|
||||||
|
// ),
|
||||||
|
// Effect.andThen(
|
||||||
|
// Lens.set(this.value, Option.some(targetValue)),
|
||||||
|
// Lens.set(this.issues, Array.empty()),
|
||||||
|
// ),
|
||||||
|
// )),
|
||||||
|
// Effect.ignore,
|
||||||
|
// ),
|
||||||
|
// ),
|
||||||
|
// ),
|
||||||
|
|
||||||
|
// this.context,
|
||||||
|
// ))
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
const makeEncodedValueLens = <A, I, R, TER, TEW, TRR, TRW>(
|
||||||
|
self: SynchronizedFormImpl<A, I, R, TER, TEW, TRR, TRW>
|
||||||
|
): Lens.Lens<I, never, never, never, never> => Lens.make({
|
||||||
|
get get() { return self.internalEncodedValue.get },
|
||||||
|
get changes() { return self.internalEncodedValue.changes },
|
||||||
|
modify: f => self.internalEncodedValue.modify(
|
||||||
|
encodedValue => Effect.map(
|
||||||
|
f(encodedValue),
|
||||||
|
([b, nextEncodedValue]) => [
|
||||||
|
[b, nextEncodedValue] as const,
|
||||||
|
nextEncodedValue,
|
||||||
|
] as const
|
||||||
|
)
|
||||||
|
).pipe(
|
||||||
|
Effect.tap(([, nextEncodedValue]) =>
|
||||||
|
self.synchronizeEncodedValue(nextEncodedValue).pipe(
|
||||||
|
Effect.forkScoped,
|
||||||
|
Effect.provide(self.context),
|
||||||
|
)
|
||||||
|
),
|
||||||
|
Effect.map(([b]) => b),
|
||||||
|
),
|
||||||
|
})
|
||||||
|
|
||||||
|
|
||||||
|
export const isSynchronizedForm = (u: unknown): u is SynchronizedForm<unknown, unknown, unknown, unknown, unknown, unknown, unknown> => Predicate.hasProperty(u, SynchronizedFormTypeId)
|
||||||
|
|
||||||
|
|
||||||
|
export declare namespace make {
|
||||||
|
export interface Options<in out A, in out I = A, in out R = never, in out TER = never, in out TEW = never, in out TRR = never, in out TRW = never> {
|
||||||
|
readonly schema: Schema.Schema<A, I, R>
|
||||||
|
readonly target: Lens.Lens<A, TER, TEW, TRR, TRW>
|
||||||
|
readonly initialEncodedValue?: NoInfer<I>
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
export const make = Effect.fnUntraced(function* <A, I = A, R = never, TER = never, TEW = never, TRR = never, TRW = never>(
|
||||||
|
options: make.Options<A, I, R, TER, TEW, TRR, TRW>
|
||||||
|
): Effect.fn.Return<
|
||||||
|
SynchronizedForm<A, I, R, TER, TEW, TRR, TRW>,
|
||||||
|
ParseResult.ParseError | TER,
|
||||||
|
Scope.Scope | R | TRR | TRW
|
||||||
|
> {
|
||||||
|
const valueLens = Lens.fromSubscriptionRef(yield* SubscriptionRef.make(Option.none<A>()))
|
||||||
|
const issuesLens = Lens.fromSubscriptionRef(yield* SubscriptionRef.make<readonly ParseResult.ArrayFormatterIssue[]>(Array.empty()))
|
||||||
|
const validationFiberLens = Lens.fromSubscriptionRef(yield* SubscriptionRef.make(Option.none<Fiber.Fiber<A, ParseResult.ParseError>>()))
|
||||||
|
const isCommittingLens = Lens.fromSubscriptionRef(yield* SubscriptionRef.make(false))
|
||||||
|
|
||||||
|
const initialEncodedValue = options.initialEncodedValue !== undefined
|
||||||
|
? options.initialEncodedValue
|
||||||
|
: yield* Effect.flatMap(
|
||||||
|
Lens.get(options.target),
|
||||||
|
Schema.encode(options.schema, { errors: "all" }),
|
||||||
|
)
|
||||||
|
|
||||||
|
return new SynchronizedFormImpl(
|
||||||
|
options.schema,
|
||||||
|
yield* Effect.context<Scope.Scope | R | TRR | TRW>(),
|
||||||
|
options.target,
|
||||||
|
|
||||||
|
valueLens,
|
||||||
|
Lens.fromSubscriptionRef(yield* SubscriptionRef.make(initialEncodedValue)),
|
||||||
|
issuesLens,
|
||||||
|
validationFiberLens,
|
||||||
|
Subscribable.map(validationFiberLens, Option.isSome),
|
||||||
|
|
||||||
|
Subscribable.map(
|
||||||
|
Subscribable.zipLatestAll(valueLens, issuesLens, validationFiberLens, isCommittingLens),
|
||||||
|
([value, issues, validationFiber, isCommitting]) => (
|
||||||
|
Option.isSome(value) &&
|
||||||
|
Array.isEmptyReadonlyArray(issues) &&
|
||||||
|
Option.isNone(validationFiber) &&
|
||||||
|
!isCommitting
|
||||||
|
),
|
||||||
|
),
|
||||||
|
isCommittingLens,
|
||||||
|
|
||||||
|
yield* Effect.makeSemaphore(1),
|
||||||
|
)
|
||||||
|
})
|
||||||
|
|
||||||
|
export declare namespace service {
|
||||||
|
export interface Options<in out A, in out I = A, in out R = never, in out TER = never, in out TEW = never, in out TRR = never, in out TRW = never>
|
||||||
|
extends make.Options<A, I, R, TER, TEW, TRR, TRW> {}
|
||||||
|
}
|
||||||
|
|
||||||
|
export const service = <A, I = A, R = never, TER = never, TEW = never, TRR = never, TRW = never>(
|
||||||
|
options: service.Options<A, I, R, TER, TEW, TRR, TRW>
|
||||||
|
): Effect.Effect<
|
||||||
|
SynchronizedForm<A, I, R, TER, TEW, TRR, TRW>,
|
||||||
|
ParseResult.ParseError | TER,
|
||||||
|
Scope.Scope | R | TRR | TRW
|
||||||
|
> => Effect.tap(
|
||||||
|
make(options),
|
||||||
|
form => Effect.forkScoped(form.run),
|
||||||
|
)
|
||||||
@@ -2,9 +2,9 @@ export * as Async from "./Async.js"
|
|||||||
export * as Component from "./Component.js"
|
export * as Component from "./Component.js"
|
||||||
export * as ErrorObserver from "./ErrorObserver.js"
|
export * as ErrorObserver from "./ErrorObserver.js"
|
||||||
export * as Form from "./Form.js"
|
export * as Form from "./Form.js"
|
||||||
|
export * as Lens from "./Lens.js"
|
||||||
export * as Memoized from "./Memoized.js"
|
export * as Memoized from "./Memoized.js"
|
||||||
export * as Mutation from "./Mutation.js"
|
export * as Mutation from "./Mutation.js"
|
||||||
export * as PropertyPath from "./PropertyPath.js"
|
|
||||||
export * as PubSub from "./PubSub.js"
|
export * as PubSub from "./PubSub.js"
|
||||||
export * as Query from "./Query.js"
|
export * as Query from "./Query.js"
|
||||||
export * as QueryClient from "./QueryClient.js"
|
export * as QueryClient from "./QueryClient.js"
|
||||||
@@ -12,6 +12,6 @@ export * as ReactRuntime from "./ReactRuntime.js"
|
|||||||
export * as Result from "./Result.js"
|
export * as Result from "./Result.js"
|
||||||
export * as SetStateAction from "./SetStateAction.js"
|
export * as SetStateAction from "./SetStateAction.js"
|
||||||
export * as Stream from "./Stream.js"
|
export * as Stream from "./Stream.js"
|
||||||
|
export * as SubmittableForm from "./SubmittableForm.js"
|
||||||
export * as Subscribable from "./Subscribable.js"
|
export * as Subscribable from "./Subscribable.js"
|
||||||
export * as SubscriptionRef from "./SubscriptionRef.js"
|
export * as SynchronizedForm from "./SynchronizedForm.js"
|
||||||
export * as SubscriptionSubRef from "./SubscriptionSubRef.js"
|
|
||||||
|
|||||||
@@ -25,6 +25,7 @@
|
|||||||
"noPropertyAccessFromIndexSignature": false,
|
"noPropertyAccessFromIndexSignature": false,
|
||||||
|
|
||||||
// Build
|
// Build
|
||||||
|
"rootDir": "./src",
|
||||||
"outDir": "./dist",
|
"outDir": "./dist",
|
||||||
"declaration": true,
|
"declaration": true,
|
||||||
"sourceMap": true,
|
"sourceMap": true,
|
||||||
@@ -34,5 +35,6 @@
|
|||||||
]
|
]
|
||||||
},
|
},
|
||||||
|
|
||||||
"include": ["./src"]
|
"include": ["./src"],
|
||||||
|
"exclude": ["**/*.test.ts", "**/*.spec.ts"]
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -13,30 +13,30 @@
|
|||||||
"clean:modules": "rm -rf node_modules"
|
"clean:modules": "rm -rf node_modules"
|
||||||
},
|
},
|
||||||
"devDependencies": {
|
"devDependencies": {
|
||||||
"@tanstack/react-router": "^1.154.12",
|
"@tanstack/react-router": "^1.168.26",
|
||||||
"@tanstack/react-router-devtools": "^1.154.12",
|
"@tanstack/react-router-devtools": "^1.166.13",
|
||||||
"@tanstack/router-plugin": "^1.154.12",
|
"@tanstack/router-plugin": "^1.167.29",
|
||||||
"@types/react": "^19.2.9",
|
"@types/react": "^19.2.14",
|
||||||
"@types/react-dom": "^19.2.3",
|
"@types/react-dom": "^19.2.3",
|
||||||
"@vitejs/plugin-react": "^5.1.2",
|
"@vitejs/plugin-react": "^6.0.1",
|
||||||
"globals": "^17.0.0",
|
"globals": "^17.5.0",
|
||||||
"react": "^19.2.3",
|
"react": "^19.2.5",
|
||||||
"react-dom": "^19.2.3",
|
"react-dom": "^19.2.5",
|
||||||
"type-fest": "^5.4.1",
|
"type-fest": "^5.6.0",
|
||||||
"vite": "^7.3.1"
|
"vite": "^8.0.10"
|
||||||
},
|
},
|
||||||
"dependencies": {
|
"dependencies": {
|
||||||
"@effect/platform": "^0.94.2",
|
"@effect/platform": "^0.96.1",
|
||||||
"@effect/platform-browser": "^0.74.0",
|
"@effect/platform-browser": "^0.76.0",
|
||||||
"@radix-ui/themes": "^3.2.1",
|
"@radix-ui/themes": "^3.3.0",
|
||||||
"@typed/id": "^0.17.2",
|
"@typed/id": "^0.17.2",
|
||||||
"effect": "^3.19.15",
|
"effect": "^3.21.2",
|
||||||
"effect-fc": "workspace:*",
|
"effect-fc": "workspace:*",
|
||||||
"react-icons": "^5.5.0"
|
"react-icons": "^5.6.0"
|
||||||
},
|
},
|
||||||
"overrides": {
|
"overrides": {
|
||||||
"@types/react": "^19.2.9",
|
"@types/react": "^19.2.14",
|
||||||
"effect": "^3.19.15",
|
"effect": "^3.21.2",
|
||||||
"react": "^19.2.3"
|
"react": "^19.2.5"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,24 +1,22 @@
|
|||||||
import { Callout, Flex, Spinner, TextField } from "@radix-ui/themes"
|
import { Callout, Flex, Spinner, TextField } from "@radix-ui/themes"
|
||||||
import { Array, Option } from "effect"
|
import { Array, Option, Struct } from "effect"
|
||||||
import { Component, Form, Subscribable } from "effect-fc"
|
import { Component, Form, Subscribable } from "effect-fc"
|
||||||
|
|
||||||
|
|
||||||
export declare namespace TextFieldFormInputView {
|
export declare namespace TextFieldFormInputView {
|
||||||
export interface Props
|
export interface Props extends Omit<TextField.RootProps, "form">, Form.useInput.Options {
|
||||||
extends TextField.RootProps, Form.useInput.Options {
|
readonly form: Form.Form<readonly PropertyKey[], any, string>
|
||||||
readonly field: Form.FormField<any, string>
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
export class TextFieldFormInputView extends Component.make("TextFieldFormInputView")(function*(
|
export class TextFieldFormInputView extends Component.make("TextFieldFormInputView")(function*(
|
||||||
props: TextFieldFormInputView.Props
|
props: TextFieldFormInputView.Props
|
||||||
) {
|
) {
|
||||||
const input = yield* Form.useInput(props.field, props)
|
const input = yield* Form.useInput(props.form, props)
|
||||||
const [issues, isValidating, isSubmitting] = yield* Subscribable.useSubscribables([
|
const [issues, isValidating, isCommitting] = yield* Subscribable.useAll([
|
||||||
props.field.issues,
|
props.form.issues,
|
||||||
props.field.isValidating,
|
props.form.isValidating,
|
||||||
props.field.isSubmitting,
|
props.form.isCommitting,
|
||||||
])
|
])
|
||||||
|
|
||||||
return (
|
return (
|
||||||
@@ -26,8 +24,8 @@ export class TextFieldFormInputView extends Component.make("TextFieldFormInputVi
|
|||||||
<TextField.Root
|
<TextField.Root
|
||||||
value={input.value}
|
value={input.value}
|
||||||
onChange={e => input.setValue(e.target.value)}
|
onChange={e => input.setValue(e.target.value)}
|
||||||
disabled={isSubmitting}
|
disabled={isCommitting}
|
||||||
{...props}
|
{...Struct.omit(props, "form")}
|
||||||
>
|
>
|
||||||
{isValidating &&
|
{isValidating &&
|
||||||
<TextField.Slot side="right">
|
<TextField.Slot side="right">
|
||||||
|
|||||||
@@ -4,21 +4,19 @@ import { Component, Form, Subscribable } from "effect-fc"
|
|||||||
|
|
||||||
|
|
||||||
export declare namespace TextFieldOptionalFormInputView {
|
export declare namespace TextFieldOptionalFormInputView {
|
||||||
export interface Props
|
export interface Props extends Omit<TextField.RootProps, "form" | "defaultValue">, Form.useOptionalInput.Options<string> {
|
||||||
extends Omit<TextField.RootProps, "defaultValue">, Form.useOptionalInput.Options<string> {
|
readonly form: Form.Form<readonly PropertyKey[], any, Option.Option<string>>
|
||||||
readonly field: Form.FormField<any, Option.Option<string>>
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
export class TextFieldOptionalFormInputView extends Component.make("TextFieldOptionalFormInputView")(function*(
|
export class TextFieldOptionalFormInputView extends Component.make("TextFieldOptionalFormInputView")(function*(
|
||||||
props: TextFieldOptionalFormInputView.Props
|
props: TextFieldOptionalFormInputView.Props
|
||||||
) {
|
) {
|
||||||
const input = yield* Form.useOptionalInput(props.field, props)
|
const input = yield* Form.useOptionalInput(props.form, props)
|
||||||
const [issues, isValidating, isSubmitting] = yield* Subscribable.useSubscribables([
|
const [issues, isValidating, isCommitting] = yield* Subscribable.useAll([
|
||||||
props.field.issues,
|
props.form.issues,
|
||||||
props.field.isValidating,
|
props.form.isValidating,
|
||||||
props.field.isSubmitting,
|
props.form.isCommitting,
|
||||||
])
|
])
|
||||||
|
|
||||||
return (
|
return (
|
||||||
@@ -26,8 +24,8 @@ export class TextFieldOptionalFormInputView extends Component.make("TextFieldOpt
|
|||||||
<TextField.Root
|
<TextField.Root
|
||||||
value={input.value}
|
value={input.value}
|
||||||
onChange={e => input.setValue(e.target.value)}
|
onChange={e => input.setValue(e.target.value)}
|
||||||
disabled={!input.enabled || isSubmitting}
|
disabled={!input.enabled || isCommitting}
|
||||||
{...Struct.omit(props, "defaultValue")}
|
{...Struct.omit(props, "form", "defaultValue")}
|
||||||
>
|
>
|
||||||
<TextField.Slot side="left">
|
<TextField.Slot side="left">
|
||||||
<Switch
|
<Switch
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
import { Button, Container, Flex, Text } from "@radix-ui/themes"
|
import { Button, Container, Flex, Text } from "@radix-ui/themes"
|
||||||
import { createFileRoute } from "@tanstack/react-router"
|
import { createFileRoute } from "@tanstack/react-router"
|
||||||
import { Console, Effect, Match, Option, ParseResult, Schema } from "effect"
|
import { Console, Effect, Match, Option, ParseResult, Schema } from "effect"
|
||||||
import { Component, Form, Subscribable } from "effect-fc"
|
import { Component, Form, SubmittableForm, Subscribable } from "effect-fc"
|
||||||
import { TextFieldFormInputView } from "@/lib/form/TextFieldFormInputView"
|
import { TextFieldFormInputView } from "@/lib/form/TextFieldFormInputView"
|
||||||
import { TextFieldOptionalFormInputView } from "@/lib/form/TextFieldOptionalFormInputView"
|
import { TextFieldOptionalFormInputView } from "@/lib/form/TextFieldOptionalFormInputView"
|
||||||
import { DateTimeUtcFromZonedInput } from "@/lib/schema"
|
import { DateTimeUtcFromZonedInput } from "@/lib/schema"
|
||||||
@@ -40,34 +40,42 @@ const RegisterFormSubmitSchema = Schema.Struct({
|
|||||||
})
|
})
|
||||||
|
|
||||||
class RegisterFormService extends Effect.Service<RegisterFormService>()("RegisterFormService", {
|
class RegisterFormService extends Effect.Service<RegisterFormService>()("RegisterFormService", {
|
||||||
scoped: Form.service({
|
scoped: Effect.gen(function*() {
|
||||||
schema: RegisterFormSchema.pipe(
|
const form = yield* SubmittableForm.service({
|
||||||
Schema.compose(
|
schema: RegisterFormSchema.pipe(
|
||||||
Schema.transformOrFail(
|
Schema.compose(
|
||||||
Schema.typeSchema(RegisterFormSchema),
|
Schema.transformOrFail(
|
||||||
Schema.typeSchema(RegisterFormSchema),
|
Schema.typeSchema(RegisterFormSchema),
|
||||||
{
|
Schema.typeSchema(RegisterFormSchema),
|
||||||
decode: v => Effect.andThen(Effect.sleep("500 millis"), ParseResult.succeed(v)),
|
{
|
||||||
encode: ParseResult.succeed,
|
decode: v => Effect.andThen(Effect.sleep("500 millis"), ParseResult.succeed(v)),
|
||||||
},
|
encode: ParseResult.succeed,
|
||||||
|
},
|
||||||
|
),
|
||||||
),
|
),
|
||||||
),
|
),
|
||||||
),
|
|
||||||
|
|
||||||
initialEncodedValue: { email: "", password: "", birth: Option.none() },
|
initialEncodedValue: { email: "", password: "", birth: Option.none() },
|
||||||
f: Effect.fnUntraced(function*([value]) {
|
f: Effect.fnUntraced(function*([value]) {
|
||||||
yield* Effect.sleep("500 millis")
|
yield* Effect.sleep("500 millis")
|
||||||
return yield* Schema.decode(RegisterFormSubmitSchema)(value)
|
return yield* Schema.decode(RegisterFormSubmitSchema)(value)
|
||||||
}),
|
}),
|
||||||
debounce: "500 millis",
|
})
|
||||||
|
|
||||||
|
return {
|
||||||
|
form,
|
||||||
|
emailField: Form.focusObjectOn(form, "email"),
|
||||||
|
passwordField: Form.focusObjectOn(form, "password"),
|
||||||
|
birthField: Form.focusObjectOn(form, "birth"),
|
||||||
|
} as const
|
||||||
})
|
})
|
||||||
}) {}
|
}) {}
|
||||||
|
|
||||||
class RegisterFormView extends Component.make("RegisterFormView")(function*() {
|
class RegisterFormView extends Component.make("RegisterFormView")(function*() {
|
||||||
const form = yield* RegisterFormService
|
const form = yield* RegisterFormService
|
||||||
const [canSubmit, submitResult] = yield* Subscribable.useSubscribables([
|
const [canCommit, submitResult] = yield* Subscribable.useAll([
|
||||||
form.canSubmit,
|
form.form.canCommit,
|
||||||
form.mutation.result,
|
form.form.mutation.result,
|
||||||
])
|
])
|
||||||
|
|
||||||
const runPromise = yield* Component.useRunPromise()
|
const runPromise = yield* Component.useRunPromise()
|
||||||
@@ -84,24 +92,26 @@ class RegisterFormView extends Component.make("RegisterFormView")(function*() {
|
|||||||
<Container width="300">
|
<Container width="300">
|
||||||
<form onSubmit={e => {
|
<form onSubmit={e => {
|
||||||
e.preventDefault()
|
e.preventDefault()
|
||||||
void runPromise(form.submit)
|
void runPromise(form.form.submit)
|
||||||
}}>
|
}}>
|
||||||
<Flex direction="column" gap="2">
|
<Flex direction="column" gap="2">
|
||||||
<TextFieldFormInput
|
<TextFieldFormInput
|
||||||
field={yield* form.field(["email"])}
|
form={form.emailField}
|
||||||
|
debounce="250 millis"
|
||||||
/>
|
/>
|
||||||
|
|
||||||
<TextFieldFormInput
|
<TextFieldFormInput
|
||||||
field={yield* form.field(["password"])}
|
form={form.passwordField}
|
||||||
|
debounce="250 millis"
|
||||||
/>
|
/>
|
||||||
|
|
||||||
<TextFieldOptionalFormInput
|
<TextFieldOptionalFormInput
|
||||||
type="datetime-local"
|
type="datetime-local"
|
||||||
field={yield* form.field(["birth"])}
|
form={form.birthField}
|
||||||
defaultValue=""
|
defaultValue=""
|
||||||
/>
|
/>
|
||||||
|
|
||||||
<Button disabled={!canSubmit}>Submit</Button>
|
<Button disabled={!canCommit}>Submit</Button>
|
||||||
</Flex>
|
</Flex>
|
||||||
</form>
|
</form>
|
||||||
|
|
||||||
|
|||||||
@@ -1,8 +1,8 @@
|
|||||||
import { HttpClient, type HttpClientError } from "@effect/platform"
|
import { HttpClient, type HttpClientError } from "@effect/platform"
|
||||||
import { Button, Container, Flex, Heading, Slider, Text } from "@radix-ui/themes"
|
import { Button, Container, Flex, Heading, Slider, Text } from "@radix-ui/themes"
|
||||||
import { createFileRoute } from "@tanstack/react-router"
|
import { createFileRoute } from "@tanstack/react-router"
|
||||||
import { Array, Cause, Chunk, Console, Effect, flow, Match, Option, Schema, Stream } from "effect"
|
import { Array, Cause, Chunk, Console, Effect, flow, Match, Option, Schema, Stream, SubscriptionRef } from "effect"
|
||||||
import { Component, ErrorObserver, Mutation, Query, Result, Subscribable, SubscriptionRef } from "effect-fc"
|
import { Component, ErrorObserver, Lens, Mutation, Query, Result, Subscribable } from "effect-fc"
|
||||||
import { runtime } from "@/runtime"
|
import { runtime } from "@/runtime"
|
||||||
|
|
||||||
|
|
||||||
@@ -16,9 +16,9 @@ const Post = Schema.Struct({
|
|||||||
const ResultView = Component.make("ResultView")(function*() {
|
const ResultView = Component.make("ResultView")(function*() {
|
||||||
const runPromise = yield* Component.useRunPromise()
|
const runPromise = yield* Component.useRunPromise()
|
||||||
|
|
||||||
const [idRef, query, mutation] = yield* Component.useOnMount(() => Effect.gen(function*() {
|
const [idLens, query, mutation] = yield* Component.useOnMount(() => Effect.gen(function*() {
|
||||||
const idRef = yield* SubscriptionRef.make(1)
|
const idLens = Lens.fromSubscriptionRef(yield* SubscriptionRef.make(1))
|
||||||
const key = Stream.map(idRef.changes, id => [id] as const)
|
const key = Stream.map(idLens.changes, id => [id] as const)
|
||||||
|
|
||||||
const query = yield* Query.service({
|
const query = yield* Query.service({
|
||||||
key,
|
key,
|
||||||
@@ -40,11 +40,11 @@ const ResultView = Component.make("ResultView")(function*() {
|
|||||||
),
|
),
|
||||||
})
|
})
|
||||||
|
|
||||||
return [idRef, query, mutation] as const
|
return [idLens, query, mutation] as const
|
||||||
}))
|
}))
|
||||||
|
|
||||||
const [id, setId] = yield* SubscriptionRef.useSubscriptionRefState(idRef)
|
const [id, setId] = yield* Lens.useState(idLens)
|
||||||
const [queryResult, mutationResult] = yield* Subscribable.useSubscribables([query.result, mutation.result])
|
const [queryResult, mutationResult] = yield* Subscribable.useAll([query.result, mutation.result])
|
||||||
|
|
||||||
yield* Component.useOnMount(() => ErrorObserver.ErrorObserver<HttpClientError.HttpClientError>().pipe(
|
yield* Component.useOnMount(() => ErrorObserver.ErrorObserver<HttpClientError.HttpClientError>().pipe(
|
||||||
Effect.andThen(observer => observer.subscribe),
|
Effect.andThen(observer => observer.subscribe),
|
||||||
@@ -105,7 +105,7 @@ const ResultView = Component.make("ResultView")(function*() {
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
<Flex direction="row" justify="center" align="center" gap="1">
|
<Flex direction="row" justify="center" align="center" gap="1">
|
||||||
<Button onClick={() => runPromise(Effect.andThen(idRef, id => mutation.mutate([id])))}>Mutate</Button>
|
<Button onClick={() => runPromise(Effect.andThen(Lens.get(idLens), id => mutation.mutate([id])))}>Mutate</Button>
|
||||||
</Flex>
|
</Flex>
|
||||||
</Flex>
|
</Flex>
|
||||||
</Container>
|
</Container>
|
||||||
|
|||||||
@@ -21,7 +21,7 @@ const ResultView = Component.makeUntraced("Result")(function*() {
|
|||||||
Effect.tap(Effect.sleep("250 millis")),
|
Effect.tap(Effect.sleep("250 millis")),
|
||||||
Result.forkEffect,
|
Result.forkEffect,
|
||||||
))
|
))
|
||||||
const [result] = yield* Subscribable.useSubscribables([resultSubscribable])
|
const [result] = yield* Subscribable.useAll([resultSubscribable])
|
||||||
|
|
||||||
yield* Component.useOnMount(() => ErrorObserver.ErrorObserver<HttpClientError.HttpClientError>().pipe(
|
yield* Component.useOnMount(() => ErrorObserver.ErrorObserver<HttpClientError.HttpClientError>().pipe(
|
||||||
Effect.andThen(observer => observer.subscribe),
|
Effect.andThen(observer => observer.subscribe),
|
||||||
|
|||||||
88
packages/example/src/todo/EditTodoView.tsx
Normal file
88
packages/example/src/todo/EditTodoView.tsx
Normal file
@@ -0,0 +1,88 @@
|
|||||||
|
import { Box, Flex, IconButton } from "@radix-ui/themes"
|
||||||
|
import { Effect } from "effect"
|
||||||
|
import { Component, Form, Subscribable, SynchronizedForm } from "effect-fc"
|
||||||
|
import { FaArrowDown, FaArrowUp } from "react-icons/fa"
|
||||||
|
import { FaDeleteLeft } from "react-icons/fa6"
|
||||||
|
import { TextFieldFormInputView } from "@/lib/form/TextFieldFormInputView"
|
||||||
|
import { TextFieldOptionalFormInputView } from "@/lib/form/TextFieldOptionalFormInputView"
|
||||||
|
import { TodoFormSchema } from "./TodoFormSchema"
|
||||||
|
import { TodosState } from "./TodosState"
|
||||||
|
|
||||||
|
|
||||||
|
export interface EditTodoViewProps {
|
||||||
|
readonly id: string
|
||||||
|
}
|
||||||
|
|
||||||
|
export class EditTodoView extends Component.make("TodoView")(function*(props: EditTodoViewProps) {
|
||||||
|
const state = yield* TodosState
|
||||||
|
|
||||||
|
const [
|
||||||
|
indexSubscribable,
|
||||||
|
contentField,
|
||||||
|
completedAtField,
|
||||||
|
] = yield* Component.useOnChange(() => Effect.gen(function*() {
|
||||||
|
const indexSubscribable = state.getIndexSubscribable(props.id)
|
||||||
|
|
||||||
|
const form = yield* SynchronizedForm.service({
|
||||||
|
schema: TodoFormSchema,
|
||||||
|
target: state.getElementLens(props.id),
|
||||||
|
})
|
||||||
|
|
||||||
|
return [
|
||||||
|
indexSubscribable,
|
||||||
|
Form.focusObjectOn(form, "content"),
|
||||||
|
Form.focusObjectOn(form, "completedAt"),
|
||||||
|
] as const
|
||||||
|
}), [props.id])
|
||||||
|
|
||||||
|
const [index, size] = yield* Subscribable.useAll([
|
||||||
|
indexSubscribable,
|
||||||
|
state.sizeSubscribable,
|
||||||
|
])
|
||||||
|
|
||||||
|
const runSync = yield* Component.useRunSync()
|
||||||
|
const TextFieldFormInput = yield* TextFieldFormInputView.use
|
||||||
|
const TextFieldOptionalFormInput = yield* TextFieldOptionalFormInputView.use
|
||||||
|
|
||||||
|
|
||||||
|
return (
|
||||||
|
<Flex direction="row" align="center" gap="2">
|
||||||
|
<Box flexGrow="1">
|
||||||
|
<Flex direction="column" align="stretch" gap="2">
|
||||||
|
<TextFieldFormInput
|
||||||
|
form={contentField}
|
||||||
|
debounce="250 millis"
|
||||||
|
/>
|
||||||
|
|
||||||
|
<Flex direction="row" justify="center" align="center" gap="2">
|
||||||
|
<TextFieldOptionalFormInput
|
||||||
|
form={completedAtField}
|
||||||
|
type="datetime-local"
|
||||||
|
defaultValue=""
|
||||||
|
/>
|
||||||
|
</Flex>
|
||||||
|
</Flex>
|
||||||
|
</Box>
|
||||||
|
|
||||||
|
<Flex direction="column" justify="center" align="center" gap="1">
|
||||||
|
<IconButton
|
||||||
|
disabled={index <= 0}
|
||||||
|
onClick={() => runSync(state.moveLeft(props.id))}
|
||||||
|
>
|
||||||
|
<FaArrowUp />
|
||||||
|
</IconButton>
|
||||||
|
|
||||||
|
<IconButton
|
||||||
|
disabled={index >= size - 1}
|
||||||
|
onClick={() => runSync(state.moveRight(props.id))}
|
||||||
|
>
|
||||||
|
<FaArrowDown />
|
||||||
|
</IconButton>
|
||||||
|
|
||||||
|
<IconButton onClick={() => runSync(state.remove(props.id))}>
|
||||||
|
<FaDeleteLeft />
|
||||||
|
</IconButton>
|
||||||
|
</Flex>
|
||||||
|
</Flex>
|
||||||
|
)
|
||||||
|
}) {}
|
||||||
78
packages/example/src/todo/NewTodoView.tsx
Normal file
78
packages/example/src/todo/NewTodoView.tsx
Normal file
@@ -0,0 +1,78 @@
|
|||||||
|
import { Box, Button, Flex } from "@radix-ui/themes"
|
||||||
|
import { GetRandomValues, makeUuid4 } from "@typed/id"
|
||||||
|
import { Chunk, type DateTime, Effect, Option, Schema } from "effect"
|
||||||
|
import { Component, Form, Lens, SubmittableForm, Subscribable } from "effect-fc"
|
||||||
|
import * as Domain from "@/domain"
|
||||||
|
import { TextFieldFormInputView } from "@/lib/form/TextFieldFormInputView"
|
||||||
|
import { TextFieldOptionalFormInputView } from "@/lib/form/TextFieldOptionalFormInputView"
|
||||||
|
import { TodoFormSchema } from "./TodoFormSchema"
|
||||||
|
import { TodosState } from "./TodosState"
|
||||||
|
|
||||||
|
|
||||||
|
const makeTodo = makeUuid4.pipe(
|
||||||
|
Effect.map(id => Domain.Todo.Todo.make({
|
||||||
|
id,
|
||||||
|
content: "",
|
||||||
|
completedAt: Option.none(),
|
||||||
|
})),
|
||||||
|
Effect.provide(GetRandomValues.CryptoRandom),
|
||||||
|
)
|
||||||
|
|
||||||
|
|
||||||
|
export class NewTodoView extends Component.make("NewTodoView")(function*() {
|
||||||
|
const state = yield* TodosState
|
||||||
|
|
||||||
|
const [
|
||||||
|
form,
|
||||||
|
contentField,
|
||||||
|
completedAtField,
|
||||||
|
] = yield* Component.useOnMount(() => Effect.gen(function*() {
|
||||||
|
const form = yield* SubmittableForm.service({
|
||||||
|
schema: TodoFormSchema,
|
||||||
|
initialEncodedValue: yield* Schema.encode(TodoFormSchema)(yield* makeTodo),
|
||||||
|
f: ([todo, form]) => Lens.update(state.lens, Chunk.prepend(todo)).pipe(
|
||||||
|
Effect.andThen(makeTodo),
|
||||||
|
Effect.andThen(Schema.encode(TodoFormSchema)),
|
||||||
|
Effect.andThen(v => Lens.set(form.encodedValue, v)),
|
||||||
|
),
|
||||||
|
})
|
||||||
|
|
||||||
|
return [
|
||||||
|
form,
|
||||||
|
Form.focusObjectOn(form, "content"),
|
||||||
|
Form.focusObjectOn(form, "completedAt"),
|
||||||
|
] as const
|
||||||
|
}))
|
||||||
|
|
||||||
|
const [canCommit] = yield* Subscribable.useAll([form.canCommit])
|
||||||
|
|
||||||
|
const runPromise = yield* Component.useRunPromise<DateTime.CurrentTimeZone>()
|
||||||
|
const TextFieldFormInput = yield* TextFieldFormInputView.use
|
||||||
|
const TextFieldOptionalFormInput = yield* TextFieldOptionalFormInputView.use
|
||||||
|
|
||||||
|
|
||||||
|
return (
|
||||||
|
<Flex direction="row" align="center" gap="2">
|
||||||
|
<Box flexGrow="1">
|
||||||
|
<Flex direction="column" align="stretch" gap="2">
|
||||||
|
<TextFieldFormInput
|
||||||
|
form={contentField}
|
||||||
|
debounce="250 millis"
|
||||||
|
/>
|
||||||
|
|
||||||
|
<Flex direction="row" justify="center" align="center" gap="2">
|
||||||
|
<TextFieldOptionalFormInput
|
||||||
|
form={completedAtField}
|
||||||
|
type="datetime-local"
|
||||||
|
defaultValue=""
|
||||||
|
/>
|
||||||
|
|
||||||
|
<Button disabled={!canCommit} onClick={() => void runPromise(form.submit)}>
|
||||||
|
Add
|
||||||
|
</Button>
|
||||||
|
</Flex>
|
||||||
|
</Flex>
|
||||||
|
</Box>
|
||||||
|
</Flex>
|
||||||
|
)
|
||||||
|
}) {}
|
||||||
9
packages/example/src/todo/TodoFormSchema.ts
Normal file
9
packages/example/src/todo/TodoFormSchema.ts
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
import { Schema } from "effect"
|
||||||
|
import * as Domain from "@/domain"
|
||||||
|
import { DateTimeUtcFromZonedInput } from "@/lib/schema"
|
||||||
|
|
||||||
|
|
||||||
|
export const TodoFormSchema = Schema.compose(Schema.Struct({
|
||||||
|
...Domain.Todo.Todo.fields,
|
||||||
|
completedAt: Schema.OptionFromSelf(DateTimeUtcFromZonedInput),
|
||||||
|
}), Domain.Todo.Todo)
|
||||||
@@ -1,136 +0,0 @@
|
|||||||
import { Box, Button, Flex, IconButton } from "@radix-ui/themes"
|
|
||||||
import { GetRandomValues, makeUuid4 } from "@typed/id"
|
|
||||||
import { Chunk, type DateTime, Effect, Match, Option, Ref, Schema, Stream } from "effect"
|
|
||||||
import { Component, Form, Subscribable } from "effect-fc"
|
|
||||||
import { FaArrowDown, FaArrowUp } from "react-icons/fa"
|
|
||||||
import { FaDeleteLeft } from "react-icons/fa6"
|
|
||||||
import * as Domain from "@/domain"
|
|
||||||
import { TextFieldFormInputView } from "@/lib/form/TextFieldFormInputView"
|
|
||||||
import { TextFieldOptionalFormInputView } from "@/lib/form/TextFieldOptionalFormInputView"
|
|
||||||
import { DateTimeUtcFromZonedInput } from "@/lib/schema"
|
|
||||||
import { TodosState } from "./TodosState"
|
|
||||||
|
|
||||||
|
|
||||||
const TodoFormSchema = Schema.compose(Schema.Struct({
|
|
||||||
...Domain.Todo.Todo.fields,
|
|
||||||
completedAt: Schema.OptionFromSelf(DateTimeUtcFromZonedInput),
|
|
||||||
}), Domain.Todo.Todo)
|
|
||||||
|
|
||||||
const makeTodo = makeUuid4.pipe(
|
|
||||||
Effect.map(id => Domain.Todo.Todo.make({
|
|
||||||
id,
|
|
||||||
content: "",
|
|
||||||
completedAt: Option.none(),
|
|
||||||
})),
|
|
||||||
Effect.provide(GetRandomValues.CryptoRandom),
|
|
||||||
)
|
|
||||||
|
|
||||||
|
|
||||||
export type TodoProps = (
|
|
||||||
| { readonly _tag: "new" }
|
|
||||||
| { readonly _tag: "edit", readonly id: string }
|
|
||||||
)
|
|
||||||
|
|
||||||
export class TodoView extends Component.make("TodoView")(function*(props: TodoProps) {
|
|
||||||
const state = yield* TodosState
|
|
||||||
|
|
||||||
const [
|
|
||||||
indexRef,
|
|
||||||
form,
|
|
||||||
contentField,
|
|
||||||
completedAtField,
|
|
||||||
] = yield* Component.useOnChange(() => Effect.gen(function*() {
|
|
||||||
const indexRef = Match.value(props).pipe(
|
|
||||||
Match.tag("new", () => Subscribable.make({ get: Effect.succeed(-1), changes: Stream.make(-1) })),
|
|
||||||
Match.tag("edit", ({ id }) => state.getIndexSubscribable(id)),
|
|
||||||
Match.exhaustive,
|
|
||||||
)
|
|
||||||
|
|
||||||
const form = yield* Form.service({
|
|
||||||
schema: TodoFormSchema,
|
|
||||||
initialEncodedValue: yield* Schema.encode(TodoFormSchema)(
|
|
||||||
yield* Match.value(props).pipe(
|
|
||||||
Match.tag("new", () => makeTodo),
|
|
||||||
Match.tag("edit", ({ id }) => state.getElementRef(id)),
|
|
||||||
Match.exhaustive,
|
|
||||||
)
|
|
||||||
),
|
|
||||||
f: ([todo, form]) => Match.value(props).pipe(
|
|
||||||
Match.tag("new", () => Ref.update(state.ref, Chunk.prepend(todo)).pipe(
|
|
||||||
Effect.andThen(makeTodo),
|
|
||||||
Effect.andThen(Schema.encode(TodoFormSchema)),
|
|
||||||
Effect.andThen(v => Ref.set(form.encodedValue, v)),
|
|
||||||
)),
|
|
||||||
Match.tag("edit", ({ id }) => Ref.set(state.getElementRef(id), todo)),
|
|
||||||
Match.exhaustive,
|
|
||||||
),
|
|
||||||
autosubmit: props._tag === "edit",
|
|
||||||
debounce: "250 millis",
|
|
||||||
})
|
|
||||||
|
|
||||||
return [
|
|
||||||
indexRef,
|
|
||||||
form,
|
|
||||||
yield* form.field(["content"]),
|
|
||||||
yield* form.field(["completedAt"]),
|
|
||||||
] as const
|
|
||||||
}), [props._tag, props._tag === "edit" ? props.id : undefined])
|
|
||||||
|
|
||||||
const [index, size, canSubmit] = yield* Subscribable.useSubscribables([
|
|
||||||
indexRef,
|
|
||||||
state.sizeSubscribable,
|
|
||||||
form.canSubmit,
|
|
||||||
])
|
|
||||||
|
|
||||||
const runSync = yield* Component.useRunSync()
|
|
||||||
const runPromise = yield* Component.useRunPromise<DateTime.CurrentTimeZone>()
|
|
||||||
const TextFieldFormInput = yield* TextFieldFormInputView.use
|
|
||||||
const TextFieldOptionalFormInput = yield* TextFieldOptionalFormInputView.use
|
|
||||||
|
|
||||||
|
|
||||||
return (
|
|
||||||
<Flex direction="row" align="center" gap="2">
|
|
||||||
<Box flexGrow="1">
|
|
||||||
<Flex direction="column" align="stretch" gap="2">
|
|
||||||
<TextFieldFormInput field={contentField} />
|
|
||||||
|
|
||||||
<Flex direction="row" justify="center" align="center" gap="2">
|
|
||||||
<TextFieldOptionalFormInput
|
|
||||||
field={completedAtField}
|
|
||||||
type="datetime-local"
|
|
||||||
defaultValue=""
|
|
||||||
/>
|
|
||||||
|
|
||||||
{props._tag === "new" &&
|
|
||||||
<Button disabled={!canSubmit} onClick={() => void runPromise(form.submit)}>
|
|
||||||
Add
|
|
||||||
</Button>
|
|
||||||
}
|
|
||||||
</Flex>
|
|
||||||
</Flex>
|
|
||||||
</Box>
|
|
||||||
|
|
||||||
{props._tag === "edit" &&
|
|
||||||
<Flex direction="column" justify="center" align="center" gap="1">
|
|
||||||
<IconButton
|
|
||||||
disabled={index <= 0}
|
|
||||||
onClick={() => runSync(state.moveLeft(props.id))}
|
|
||||||
>
|
|
||||||
<FaArrowUp />
|
|
||||||
</IconButton>
|
|
||||||
|
|
||||||
<IconButton
|
|
||||||
disabled={index >= size - 1}
|
|
||||||
onClick={() => runSync(state.moveRight(props.id))}
|
|
||||||
>
|
|
||||||
<FaArrowDown />
|
|
||||||
</IconButton>
|
|
||||||
|
|
||||||
<IconButton onClick={() => runSync(state.remove(props.id))}>
|
|
||||||
<FaDeleteLeft />
|
|
||||||
</IconButton>
|
|
||||||
</Flex>
|
|
||||||
}
|
|
||||||
</Flex>
|
|
||||||
)
|
|
||||||
}) {}
|
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
import { KeyValueStore } from "@effect/platform"
|
import { KeyValueStore } from "@effect/platform"
|
||||||
import { BrowserKeyValueStore } from "@effect/platform-browser"
|
import { BrowserKeyValueStore } from "@effect/platform-browser"
|
||||||
import { Chunk, Console, Effect, Option, Schema, Stream, SubscriptionRef } from "effect"
|
import { Chunk, Console, Effect, Option, Schema, Stream, SubscriptionRef } from "effect"
|
||||||
import { Subscribable, SubscriptionSubRef } from "effect-fc"
|
import { Lens, Subscribable } from "effect-fc"
|
||||||
import { Todo } from "@/domain"
|
import { Todo } from "@/domain"
|
||||||
|
|
||||||
|
|
||||||
@@ -30,27 +30,29 @@ export class TodosState extends Effect.Service<TodosState>()("TodosState", {
|
|||||||
: kv.remove(key)
|
: kv.remove(key)
|
||||||
)
|
)
|
||||||
|
|
||||||
const ref = yield* SubscriptionRef.make(yield* readFromLocalStorage)
|
const lens = Lens.fromSubscriptionRef(yield* SubscriptionRef.make(yield* readFromLocalStorage))
|
||||||
yield* Effect.forkScoped(ref.changes.pipe(
|
yield* Effect.forkScoped(lens.changes.pipe(
|
||||||
Stream.debounce("500 millis"),
|
Stream.debounce("500 millis"),
|
||||||
Stream.runForEach(saveToLocalStorage),
|
Stream.runForEach(saveToLocalStorage),
|
||||||
))
|
))
|
||||||
yield* Effect.addFinalizer(() => ref.pipe(
|
yield* Effect.addFinalizer(() => Lens.get(lens).pipe(
|
||||||
Effect.andThen(saveToLocalStorage),
|
Effect.andThen(saveToLocalStorage),
|
||||||
Effect.ignore,
|
Effect.ignore,
|
||||||
))
|
))
|
||||||
|
|
||||||
const sizeSubscribable = Subscribable.make({
|
const sizeSubscribable = Subscribable.map(lens, Chunk.size)
|
||||||
get: Effect.andThen(ref, Chunk.size),
|
|
||||||
get changes() { return Stream.map(ref.changes, Chunk.size) },
|
|
||||||
})
|
|
||||||
const getElementRef = (id: string) => SubscriptionSubRef.makeFromChunkFindFirst(ref, v => v.id === id)
|
|
||||||
const getIndexSubscribable = (id: string) => Subscribable.make({
|
|
||||||
get: Effect.flatMap(ref, Chunk.findFirstIndex(v => v.id === id)),
|
|
||||||
get changes() { return Stream.flatMap(ref.changes, Chunk.findFirstIndex(v => v.id === id)) },
|
|
||||||
})
|
|
||||||
|
|
||||||
const moveLeft = (id: string) => SubscriptionRef.updateEffect(ref, todos => Effect.Do.pipe(
|
const getElementLens = (id: string) => Lens.mapEffect(
|
||||||
|
lens,
|
||||||
|
Chunk.findFirst(v => v.id === id),
|
||||||
|
(a, b) => Effect.flatMap(
|
||||||
|
Chunk.findFirstIndex(a, v => v.id === id),
|
||||||
|
i => Chunk.replaceOption(a, i, b),
|
||||||
|
)
|
||||||
|
)
|
||||||
|
const getIndexSubscribable = (id: string) => Subscribable.mapEffect(lens, Chunk.findFirstIndex(v => v.id === id))
|
||||||
|
|
||||||
|
const moveLeft = (id: string) => Lens.updateEffect(lens, todos => Effect.Do.pipe(
|
||||||
Effect.bind("index", () => Chunk.findFirstIndex(todos, v => v.id === id)),
|
Effect.bind("index", () => Chunk.findFirstIndex(todos, v => v.id === id)),
|
||||||
Effect.bind("todo", ({ index }) => Chunk.get(todos, index)),
|
Effect.bind("todo", ({ index }) => Chunk.get(todos, index)),
|
||||||
Effect.bind("previous", ({ index }) => Chunk.get(todos, index - 1)),
|
Effect.bind("previous", ({ index }) => Chunk.get(todos, index - 1)),
|
||||||
@@ -62,7 +64,7 @@ export class TodosState extends Effect.Service<TodosState>()("TodosState", {
|
|||||||
: todos
|
: todos
|
||||||
),
|
),
|
||||||
))
|
))
|
||||||
const moveRight = (id: string) => SubscriptionRef.updateEffect(ref, todos => Effect.Do.pipe(
|
const moveRight = (id: string) => Lens.updateEffect(lens, todos => Effect.Do.pipe(
|
||||||
Effect.bind("index", () => Chunk.findFirstIndex(todos, v => v.id === id)),
|
Effect.bind("index", () => Chunk.findFirstIndex(todos, v => v.id === id)),
|
||||||
Effect.bind("todo", ({ index }) => Chunk.get(todos, index)),
|
Effect.bind("todo", ({ index }) => Chunk.get(todos, index)),
|
||||||
Effect.bind("next", ({ index }) => Chunk.get(todos, index + 1)),
|
Effect.bind("next", ({ index }) => Chunk.get(todos, index + 1)),
|
||||||
@@ -74,15 +76,15 @@ export class TodosState extends Effect.Service<TodosState>()("TodosState", {
|
|||||||
: todos
|
: todos
|
||||||
),
|
),
|
||||||
))
|
))
|
||||||
const remove = (id: string) => SubscriptionRef.updateEffect(ref, todos => Effect.andThen(
|
const remove = (id: string) => Lens.updateEffect(lens, todos => Effect.andThen(
|
||||||
Chunk.findFirstIndex(todos, v => v.id === id),
|
Chunk.findFirstIndex(todos, v => v.id === id),
|
||||||
index => Chunk.remove(todos, index),
|
index => Chunk.remove(todos, index),
|
||||||
))
|
))
|
||||||
|
|
||||||
return {
|
return {
|
||||||
ref,
|
lens,
|
||||||
sizeSubscribable,
|
sizeSubscribable,
|
||||||
getElementRef,
|
getElementLens,
|
||||||
getIndexSubscribable,
|
getIndexSubscribable,
|
||||||
moveLeft,
|
moveLeft,
|
||||||
moveRight,
|
moveRight,
|
||||||
|
|||||||
@@ -1,30 +1,32 @@
|
|||||||
import { Container, Flex, Heading } from "@radix-ui/themes"
|
import { Container, Flex, Heading } from "@radix-ui/themes"
|
||||||
import { Chunk, Console, Effect } from "effect"
|
import { Chunk, Console, Effect } from "effect"
|
||||||
import { Component, Subscribable } from "effect-fc"
|
import { Component, Subscribable } from "effect-fc"
|
||||||
|
import { EditTodoView } from "./EditTodoView"
|
||||||
|
import { NewTodoView } from "./NewTodoView"
|
||||||
import { TodosState } from "./TodosState"
|
import { TodosState } from "./TodosState"
|
||||||
import { TodoView } from "./TodoView"
|
|
||||||
|
|
||||||
|
|
||||||
export class TodosView extends Component.make("TodosView")(function*() {
|
export class TodosView extends Component.make("TodosView")(function*() {
|
||||||
const state = yield* TodosState
|
const state = yield* TodosState
|
||||||
const [todos] = yield* Subscribable.useSubscribables([state.ref])
|
const [todos] = yield* Subscribable.useAll([state.lens])
|
||||||
|
|
||||||
yield* Component.useOnMount(() => Effect.andThen(
|
yield* Component.useOnMount(() => Effect.andThen(
|
||||||
Console.log("Todos mounted"),
|
Console.log("Todos mounted"),
|
||||||
Effect.addFinalizer(() => Console.log("Todos unmounted")),
|
Effect.addFinalizer(() => Console.log("Todos unmounted")),
|
||||||
))
|
))
|
||||||
|
|
||||||
const Todo = yield* TodoView.use
|
const NewTodo = yield* NewTodoView.use
|
||||||
|
const EditTodo = yield* EditTodoView.use
|
||||||
|
|
||||||
return (
|
return (
|
||||||
<Container>
|
<Container>
|
||||||
<Heading align="center">Todos</Heading>
|
<Heading align="center">Todos</Heading>
|
||||||
|
|
||||||
<Flex direction="column" align="stretch" gap="2" mt="2">
|
<Flex direction="column" align="stretch" gap="2" mt="2">
|
||||||
<Todo _tag="new" />
|
<NewTodo />
|
||||||
|
|
||||||
{Chunk.map(todos, todo =>
|
{Chunk.map(todos, todo =>
|
||||||
<Todo key={todo.id} _tag="edit" id={todo.id} />
|
<EditTodo key={todo.id} id={todo.id} />
|
||||||
)}
|
)}
|
||||||
</Flex>
|
</Flex>
|
||||||
</Container>
|
</Container>
|
||||||
|
|||||||
Reference in New Issue
Block a user