@qotaq/lalphgram 0.1.0

package/src/services/PlanOverviewUploader.ts

@@ -0,0 +1,160 @@
+/**
+ * Service for uploading plan overview files to a hosting backend.
+ * Two implementations: GitHub Gist and Telegraph (default).
+ * @since 1.0.0
+ */
+import { HttpClient, HttpClientRequest } from "@effect/platform"
+import { Context, Data, Effect, Layer, Schema } from "effect"
+import * as Crypto from "node:crypto"
+import type { SpecFile } from "../lib/SpecHtmlGenerator.js"
+import { generateSpecHtml } from "../lib/SpecHtmlGenerator.js"
+import { specFilesToTelegraphNodes } from "../lib/TelegraphMarkdown.js"
+import { OctokitClient } from "./OctokitClient.js"
+
+/**
+ * @since 1.0.0
+ * @category errors
+ */
+export class PlanOverviewUploaderError extends Data.TaggedError("PlanOverviewUploaderError")<{
+  message: string
+  cause: unknown
+}> {}
+
+/**
+ * @since 1.0.0
+ * @category services
+ */
+export interface PlanOverviewUploaderService {
+  readonly upload: (params: {
+    readonly files: ReadonlyArray<SpecFile>
+    readonly description: string
+  }) => Effect.Effect<{ readonly url: string }, PlanOverviewUploaderError>
+}
+
+/**
+ * @since 1.0.0
+ * @category context
+ */
+export class PlanOverviewUploader extends Context.Tag("PlanOverviewUploader")<
+  PlanOverviewUploader,
+  PlanOverviewUploaderService
+>() {}
+
+/**
+ * GitHub Gist implementation — wraps existing OctokitClient.createGist.
+ * @since 1.0.0
+ * @category layers
+ */
+export const GistPlanOverviewUploaderLive = Layer.effect(
+  PlanOverviewUploader,
+  Effect.gen(function*() {
+    const octokitClient = yield* OctokitClient
+
+    return PlanOverviewUploader.of({
+      upload: ({ description, files }) =>
+        Effect.gen(function*() {
+          const html = generateSpecHtml(files)
+          const gist = yield* octokitClient.createGist({
+            description,
+            files: { "spec.html": { content: html } },
+            isPublic: false
+          }).pipe(
+            Effect.mapError((err) =>
+              new PlanOverviewUploaderError({
+                message: `Gist upload failed: ${err.message}`,
+                cause: err
+              })
+            )
+          )
+
+          const rawUrl = gist.files["spec.html"]?.rawUrl ?? gist.htmlUrl
+          const viewUrl = `https://htmlpreview.github.io/?${rawUrl}`
+          return { url: viewUrl }
+        })
+    })
+  })
+)
+
+const TelegraphSuccess = Schema.Struct({
+  ok: Schema.Literal(true),
+  result: Schema.Record({ key: Schema.String, value: Schema.Unknown })
+})
+
+const TelegraphError = Schema.Struct({
+  ok: Schema.Literal(false),
+  error: Schema.String
+})
+
+const TelegraphResponse = Schema.Union(TelegraphSuccess, TelegraphError)
+
+/**
+ * Telegraph implementation — creates anonymous account, uploads pages via Telegraph API.
+ * No account or tokens required. Requires HttpClient.
+ * @since 1.0.0
+ * @category layers
+ */
+export const TelegraphPlanOverviewUploaderLive = Layer.effect(
+  PlanOverviewUploader,
+  Effect.gen(function*() {
+    const client = yield* HttpClient.HttpClient
+
+    const telegraphPost = (url: string, body: Record<string, unknown>, label: string) => {
+      const req = HttpClientRequest.post(url).pipe(
+        HttpClientRequest.bodyUnsafeJson(body)
+      )
+      return client.execute(req).pipe(
+        Effect.flatMap((res) => res.json),
+        Effect.scoped,
+        Effect.flatMap(Schema.decodeUnknown(TelegraphResponse)),
+        Effect.flatMap((parsed) =>
+          parsed.ok
+            ? Effect.succeed(parsed.result)
+            : Effect.fail(
+              new PlanOverviewUploaderError({
+                message: `Telegraph ${label} failed: ${parsed.error}`,
+                cause: null
+              })
+            )
+        ),
+        Effect.mapError((err) =>
+          err instanceof PlanOverviewUploaderError
+            ? err
+            : new PlanOverviewUploaderError({
+              message: `Telegraph ${label} request failed: ${String(err)}`,
+              cause: err
+            })
+        )
+      )
+    }
+
+    const accountResult = yield* telegraphPost(
+      "https://api.telegra.ph/createAccount",
+      { short_name: "lalph" },
+      "createAccount"
+    )
+
+    const accessToken = String(accountResult.access_token)
+
+    return PlanOverviewUploader.of({
+      upload: ({ description, files }) =>
+        Effect.gen(function*() {
+          const content = specFilesToTelegraphNodes(files)
+          const title = Crypto.randomUUID()
+
+          const pageResult = yield* telegraphPost(
+            "https://api.telegra.ph/createPage",
+            {
+              access_token: accessToken,
+              title,
+              author_name: "lalph",
+              content,
+              return_content: false
+            },
+            "createPage"
+          )
+
+          return { url: String(pageResult.url) }
+        }).pipe(Effect.annotateLogs("description", description))
+    })
+  })
+)

package/src/services/PlanOverviewUploaderMap.ts

@@ -0,0 +1,17 @@
+/**
+ * Dynamic layer map for selecting PlanOverviewUploader implementation at runtime
+ * @since 1.0.0
+ */
+import { LayerMap } from "effect"
+import { GistPlanOverviewUploaderLive, TelegraphPlanOverviewUploaderLive } from "./PlanOverviewUploader.js"
+
+/**
+ * @since 1.0.0
+ * @category layer-map
+ */
+export class PlanOverviewUploaderMap extends LayerMap.Service<PlanOverviewUploaderMap>()("PlanOverviewUploaderMap", {
+  layers: {
+    gist: GistPlanOverviewUploaderLive,
+    telegraph: TelegraphPlanOverviewUploaderLive
+  }
+}) {}