add: storage primitives

Signed-off-by: shayanhabibi <[email protected]>

Author: shayanhabibi

Partas.Solid.Primitives.Storage/Partas.Solid.Primitives.Storage.fsproj

@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project Sdk="Microsoft.NET.Sdk">
+
+    <PropertyGroup>
+        <FablePackageType>library</FablePackageType>
+        <TargetFramework>net9.0</TargetFramework>
+        <PackageId>Partas.Solid.Primitives.Storage</PackageId>
+        <Title>Partas.Solid.Primitives.Storage</Title>
+        <Company>F# Community</Company>
+        <Description>Bindings for Solid-js primitives</Description>
+        <PackageLicenseExpression>MIT</PackageLicenseExpression>
+        <RepositoryUrl>https://github.com/shayanhabibi/Partas.Solid.Primitives</RepositoryUrl>
+        <RepositoryType>git</RepositoryType>
+        <PackageTags>Partas;Oxpecker;F#;FSharp;Fable;fable-javascript;Web;Framework;Solid;Solidjs;Bindings;Primitives</PackageTags>
+        <Authors>Shayan Habibi</Authors>
+        <Copyright>Copyright (c) Shayan Habibi 2025</Copyright>
+        <Version>0.1.0</Version>
+        <PackageVersion>0.1.0</PackageVersion>
+        <GitNetInitialVersion>0.1.0</GitNetInitialVersion>
+        <NpmDependencies>
+            <NpmPackage Name="@solid-primitives/storage" Version="&gt;= 4.3.2" />
+        </NpmDependencies>
+    </PropertyGroup>
+
+
+    <ItemGroup>
+        <Compile Include="Program.fs" />
+    </ItemGroup>
+
+    <ItemGroup>
+        <PackageReference Include="Fable.Core" Version="4.5.0" />
+        <PackageReference Include="Fable.Package.SDK" Version="1.3.1">
+            <IncludeAssets>runtime; build; native; analyzers; buildtransitive</IncludeAssets>
+            <PrivateAssets>all</PrivateAssets>
+        </PackageReference>
+        <PackageReference Include="Partas.Solid" Version="2.*" />
+    </ItemGroup>
+
+
+    <ItemGroup>
+      <ProjectReference Include="..\Partas.Solid.Primitives.Common\Partas.Solid.Primitives.Common.fsproj" />
+    </ItemGroup>
+
+</Project>

Partas.Solid.Primitives.Storage/Program.fs

@@ -0,0 +1,89 @@
+namespace Partas.Solid.Primitives
+
+open System
+open Fable.Core
+open Fable.Core.JS
+open Fable.Core.JsInterop
+open Partas.Solid
+[<Erase; AutoOpen>]
+module StorageSpec =
+    [<Erase>]
+    module Spec =
+        [<Literal>]
+        let path = "@solid-primitives/storage"
+        [<Literal>]
+        let version = "4.3.2"
+
+type SyncStorage =
+    abstract getItem: key: string -> string option
+    abstract setItem: key: string * value: string -> unit
+    abstract removeItem: key: string -> unit
+    [<EmitIndexer>]
+    abstract Item: string -> obj
+type AsyncStorage =
+    abstract getItem: key: string -> Promise<string option>
+    abstract setItem: key: string * value: string -> Promise<obj>
+    abstract removeItem: key: string -> Promise<unit>
+    [<EmitIndexer>]
+    abstract Item: string -> obj
+type SyncStorageWithOptions<'Options> =
+    abstract getItem: key: string * ?options: 'Options -> string option
+    abstract setItem: key: string * value: string * ?options: 'Options -> unit
+    abstract removeItem: key: string * ?options: 'Options -> unit
+    [<EmitIndexer>]
+    abstract Item: string -> obj
+type AsyncStorageWithOptions<'Options> =
+    abstract getItem: key: string * ?options: 'Options -> Promise<string option>
+    abstract setItem: key: string * value: string * ?options: 'Options -> Promise<obj>
+    abstract removeItem: key: string * ?options: 'Options -> Promise<unit>
+    [<EmitIndexer>]
+    abstract Item: string -> obj
+
+type PersistenceSyncData =
+    abstract key: string with get,set
+    abstract newValue: string option with get,set
+    abstract timeStamp: float with get,set
+    abstract url: string option with get,set
+type PersistenceSyncCallback = PersistenceSyncData -> unit
+type PersistenceSyncSubscribe = PersistenceSyncCallback -> unit
+type PersistenceSyncUpdate = string * string option -> unit
+type PersistenceSyncAPI = PersistenceSyncSubscribe * PersistenceSyncUpdate
+[<Pojo>]
+type PersistenceOptions<'T, 'Options>(
+    ?name: string
+    ,?serialize: 'T -> string
+    ,?deserialize: string -> 'T
+    ,?sync: PersistenceSyncAPI
+    ,?storage: U4<SyncStorage, AsyncStorage, SyncStorageWithOptions<'Options>, AsyncStorageWithOptions<'Options>>
+    ,?storageOptions: 'Options
+    ) =
+    [<DefaultValue>]
+    val mutable name: string
+    [<DefaultValue>]
+    val mutable serialize: 'T -> string
+    [<DefaultValue>]
+    val mutable deserialize: string -> 'T
+    [<DefaultValue>]
+    val mutable sync: PersistenceSyncAPI
+    [<DefaultValue>]
+    val mutable storage: U4<SyncStorage, AsyncStorage, SyncStorageWithOptions<'Options>, AsyncStorageWithOptions<'Options>>
+    [<DefaultValue>]
+    val mutable storageOptions: 'Options
+
+type PersistedState<'T> = Accessor<'T> * Setter<'T> * obj
+
+
+[<Erase; AutoOpen>]
+type Storage =
+    [<ImportMember(Spec.path)>]
+    static member makePersisted<'T>(signal: Signal<'T>, ?options: PersistenceOptions<'T, _>): PersistedState<'T> = jsNative
+    [<ImportMember(Spec.path)>]
+    static member storageSync: PersistenceSyncAPI = jsNative
+    // TODO broadcast channel overload
+    [<ImportMember(Spec.path)>]
+    static member messageSync(?channel: Browser.Types.Window): PersistenceSyncAPI = jsNative
+    // TODO
+    // [<ImportMember(Spec.path)>]
+    // static member wsSync(ws: WebSocket, ?warnOnError: bool): PersistenceSyncAPI = jsNative
+    [<ImportMember(Spec.path)>]
+    static member multiplexSync([<ParamArray>] syncAPIs: PersistenceSyncAPI[]): PersistenceSyncAPI = jsNative