@athrio/loom 0.0.6 → 0.0.8

package/dist/{LoomStore-DOjrkJaQ.js → LoomStore-C2tWuEsJ.js}

@@ -148449,13 +148449,19 @@ var buildSection = (index, defaultLang, modulePath, pkg, variables) => (section)
 	};
 };
 var tangleFilePath = (pkg, sink) => pkg.endsWith("/") ? pkg + getOrElse$2(map$29(sink, (s) => s.file.value), () => "") : pkg;
+var filePath = (pkg, sink) => match$13(pkg, {
+	onSome: (p) => some$13(tangleFilePath(p, sink)),
+	onNone: () => map$29(sink, (s) => s.file.value)
+});
 var tangleFile = (section, pkg, code) => {
-	const { specifier, sink } = section.heading;
-	if (specifier !== void 0 && specifier.label.value.toLowerCase() === "tangle") return map$29(pkg, (p) => FileSchema.make({
-		path: tangleFilePath(p, fromNullishOr$4(sink)),
+	const sink = fromNullishOr$4(section.heading.sink);
+	return map$29(match$13(fromNullishOr$4(section.heading.specifier), {
+		onNone: () => flatMap$13(sink, () => filePath(pkg, sink)),
+		onSome: (spec) => value$1(spec.label.value.toLowerCase()).pipe(when("tangle", () => filePath(pkg, sink)), orElse(() => none$1()))
+	}), (path) => FileSchema.make({
+		path,
 		code
 	}));
-	return none$1();
 };
 var buildCode = (section, values, index, origin, languageId) => {
 	const bind = bindAnchor(index, values, languageId, origin.path);
@@ -149141,13 +149147,15 @@ var VariablesSchema = Record$1(String$1, Union([
 	Number$1,
 	Boolean$2
 ]));
+var HeaderSchema = Struct({ ascii: optional(Boolean$2) });
 var WorkspaceManifestSchema = Struct({
 	languages: optional(Record$1(String$1, LanguageSchema)),
 	corpus: optional(String$1),
 	primary: optional(String$1),
 	anchor: optional(AnchorSchema),
 	settings: optional(SettingsSchema),
-	variables: optional(VariablesSchema)
+	variables: optional(VariablesSchema),
+	header: optional(HeaderSchema)
 });
 var empty = {
 	anchor: void 0,
@@ -149155,6 +149163,7 @@ var empty = {
 	languages: [],
 	settings: {},
 	variables: {},
+	header: void 0,
 	services: {},
 	packageRoot: void 0,
 	workspaceRoot: void 0,
@@ -149200,6 +149209,7 @@ var resolveFromManifest = (manifest, workspace, fromPath) => {
 		languages: Object.keys(manifest.languages ?? {}),
 		settings: manifest.settings ?? {},
 		variables: variablesOf(manifest.variables),
+		header: manifest.header === void 0 ? void 0 : { ascii: manifest.header.ascii ?? false },
 		services: servicesOf(manifest.languages),
 		packageRoot: containerRoot(dirname(fromPath), container, workspace),
 		workspaceRoot: workspace,
@@ -149240,6 +149250,7 @@ var PackageConfig = class extends Service$1()("PackageConfig", { make: gen$1(fun
 		delims: anchorDelimsOf(c.anchor),
 		primaryLanguage: c.primary,
 		variables: c.variables,
+		header: c.header,
 		packageRoot: c.packageRoot,
 		workspaceRoot: c.workspaceRoot,
 		corpusDir: c.corpusDir
@@ -149621,12 +149632,12 @@ var outputPath = (packageRoot, entry, sink) => match$13(packageRoot, {
 	onNone: () => resolve(dirname(entry), sink),
 	onSome: (root) => resolve(root, sink)
 });
-var resolveSinks = (modules, entry, packageRoot) => pipe(fromNullishOr$4(modules.get(entry)), match$13({
+var resolveSinks = (modules, entry, packageRoot, header) => pipe(fromNullishOr$4(modules.get(entry)), match$13({
 	onNone: () => [],
 	onSome: (module) => map$24(module.product.files, (file) => ({
 		section: file.code.origin.name,
 		path: outputPath(packageRoot, entry, file.path),
-		content: fromProduct(modules, file.code.origin).code
+		content: stamped(header, file.code.languageId, basename(entry), fromProduct(modules, file.code.origin).code)
 	}))
 }));
 var TangleError = class extends TaggedError("TangleError") {
@@ -149636,6 +149647,72 @@ var TangleError = class extends TaggedError("TangleError") {
 		return `loom: refusing to tangle ${this.entry} — ${count} error(s) across the corpus:\n${lines.join("\n")}`;
 	}
 };
+var cStyle = {
+	kind: "block",
+	open: "/*",
+	mid: " * ",
+	close: " */"
+};
+var markupStyle = {
+	kind: "block",
+	open: "<!--",
+	mid: "  ",
+	close: "-->"
+};
+var hashStyle = {
+	kind: "line",
+	prefix: "# "
+};
+var commentStyles = /* @__PURE__ */ new Map([
+	["typescript", cStyle],
+	["tsx", cStyle],
+	["javascript", cStyle],
+	["jsx", cStyle],
+	["css", cStyle],
+	["scss", cStyle],
+	["less", cStyle],
+	["html", markupStyle],
+	["xml", markupStyle],
+	["vue", markupStyle],
+	["svelte", markupStyle],
+	["bash", hashStyle],
+	["sh", hashStyle],
+	["shell", hashStyle],
+	["yaml", hashStyle],
+	["yml", hashStyle],
+	["toml", hashStyle],
+	["python", hashStyle],
+	["ruby", hashStyle]
+]);
+var loomLogo = [
+	"L    OOOO OOOO M   M",
+	"L    O  O O  O MM MM",
+	"L    O  O O  O M M M",
+	"LLLL OOOO OOOO M   M"
+];
+var bannerLines = (ascii, loom) => [
+	...ascii ? [...loomLogo, ""] : [],
+	`Tangled by Loom from ${loom} — composed from that`,
+	`loom's code sections. Edit the loom and re-tangle;`,
+	`changes made here are overwritten.`
+];
+var commentBlock = (style, lines) => value$1(style).pipe(when({ kind: "block" }, (s) => [
+	s.open,
+	...map$24(lines, (text) => `${s.mid}${text}`.trimEnd()),
+	s.close
+].join("\n")), when({ kind: "line" }, (s) => map$24(lines, (text) => `${s.prefix}${text}`.trimEnd()).join("\n")), exhaustive);
+var belowShebang = (content, banner) => {
+	const newline = content.indexOf("\n");
+	const cut = content.startsWith("#!") && newline !== -1 ? newline + 1 : 0;
+	return `${content.slice(0, cut)}${banner}\n\n${content.slice(cut)}`;
+};
+var stamped = (header, languageId, loom, content) => match$13(header, {
+	onNone: () => content,
+	onSome: ({ ascii }) => match$13(fromNullishOr$4(commentStyles.get(languageId)), {
+		onNone: () => content,
+		onSome: (style) => belowShebang(content, commentBlock(style, bannerLines(ascii, loom)))
+	})
+});
 var lineCharAt = (text, offset) => {
 	const before = text.slice(0, offset);
 	return {
@@ -149758,7 +149835,7 @@ var LoomCompiler = class extends Service$1()("LoomCompiler", { make: gen$1(funct
 			return failures.length > 0 ? fail$8(new TangleError({
 				entry: path,
 				failures
-			})) : config.resolve(path).pipe(map$19(({ packageRoot }) => resolveSinks(scoped, path, fromNullishOr$4(packageRoot))));
+			})) : config.resolve(path).pipe(map$19(({ packageRoot, header }) => resolveSinks(scoped, path, fromNullishOr$4(packageRoot), fromNullishOr$4(header))));
 		})),
 		composition: (path) => buildCorpus(documents, path).pipe(flatMap$7((modules) => forEach$8(fromIterable$15(modules.values()), (module) => config.resolve(module.path).pipe(map$19(({ packageRoot }) => map$24(module.product.files, (file) => ({
 			path: outputPath(fromNullishOr$4(packageRoot), module.path, file.path),
@@ -149855,4 +149932,4 @@ var removeService = (id, dir) => sync$3(() => rmSync(join(storeDir(dir), "node_m
 //#endregion
 export { mkString as $, done$2 as $n, ensuring$3 as $t, log as A, timeoutOrElse$1 as An, none$1 as Ar, mapDone as At, WatchBackend as B, provide$5 as Bn, dual as Br, acquireRelease$1 as Bt, errorExitCode as C, runFork as Cn, fromUndefinedOr as Cr, is$2 as Ct, Crypto as D, suspend$4 as Dn, isSome as Dr, fromIterable$10 as Dt, make$22 as E, succeed$6 as En, isNone as Er, toCodecStringTree as Et, TypeId$33 as F, catchDone as Fn, hasProperty as Fr, offerUnsafe as Ft, empty$9 as G, _await$1 as Gn, callback$2 as Gt, callback as H, succeed$8 as Hn, pipe as Hr, andThen as Ht, FileDescriptor as I, TaggedError as In, isNotNull as Ir, take$7 as It, fromEffect$1 as J, makeUnsafe$16 as Jn, catchTag$2 as Jt, filter$5 as K, doneUnsafe as Kn, catchCause$3 as Kt, FileSystem as L, taggedEnum as Ln, isNotUndefined as Lr, make$50 as Lt, FalseValues as M, try_ as Mn, String$5 as Mr, failCauseUnsafe as Mt, TrueValues as N, uninterruptible as Nn, BaseProto as Nr, make$48 as Nt, make$30 as O, sync$3 as On, map$29 as Or, get$21 as Ot, Path as P, void_$1 as Pn, format$5 as Pr, offer$2 as Pt, merge$1 as Q, UnknownError as Qn, effectify as Qt, FileTypeId as R, effect as Rn, isNullish as Rr, makeUnsafe$12 as Rt, make$13 as S, result$3 as Sn, fromNullishOr$4 as Sr, decodeUnknownEffect as St, makeRunMain as T, serviceOption$1 as Tn, getOrUndefined$2 as Tr, tag$2 as Tt, concat$2 as U, addFinalizer$1 as Un, pipeArguments as Ur, as$1 as Ut, make$33 as V, provideMerge as Vn, identity$1 as Vr, addFinalizer as Vt, decodeText as W, MinimumLogLevel as Wn, asVoid as Wt, isStream as X, succeed$10 as Xn, catch_$3 as Xt, groupedWithin as Y, fail$11 as Yn, catchTags$1 as Yt, mapEffect as Z, Done as Zn, die$3 as Zt, QuitError as _, orElseSucceed$1 as _n, fail$14 as _r, ErrorClass as _t, storeDir as a, forkScoped as an, make$69 as ar, transduce as at, make$11 as b, provideService$3 as bn, contains$3 as br, Struct as bt, LoomCompiler as c, interrupt$3 as cn, filter$15 as cr, make$35 as ct, stringSnapshot as d, map$19 as dn, groupBy$1 as dr, isSink as dt, fail$8 as en, fail$12 as er, orDie as et, PackageConfig as f, mapError$3 as fn, map$24 as fr, BadArgument as ft, dist_exports as g, orDie$2 as gn, sort$1 as gr, Defect as gt, ReadError as h, option$4 as hn, reduce$10 as hr, ArraySchema as ht, servicePackage as i, forever$2 as in, getUnsafe$11 as ir, splitLines$1 as it, Boolean$1 as j, tryPromise as jn, some$13 as jr, endUnsafe as jt, error$1 as k, tap$2 as kn, match$13 as kr, fromTransform$1 as kt, ignoredDirs as l, isEffect as ln, fromIterable$15 as lr, drain$1 as lt, SemanticTokenSchema as m, matchEffect as mn, of$2 as mr, systemError as mt, installedServices as n, fnUntraced as nn, Service$1 as nr, runCollect as nt, workspaceRoot as o, gen$1 as on, Prototype as or, unwrap$1 as ot, LoomConfig as p, match$3 as pn, match$11 as pr, badArgument as pt, fromChannel as q, isDone$1 as qn, catchFilter$2 as qt, removeService as r, forEach$8 as rn, empty$20 as rr, runForEach as rt, DocumentSource as s, ignore$3 as sn, dedupe$1 as sr, get$16 as st, addService as t, flatMap$7 as tn, Reference as tr, run$4 as tt, loomsUnder as u, logWarning as un, getSomes as ur, fromChannel$1 as ut, Terminal as v, provide$3 as vn, match$12 as vr, Literal as vt, errorReported as w, scoped$2 as wn, getOrElse$2 as wr, optional as wt, Stdio as x, raceFirst as xn, flatMap$13 as xr, Union as xt, isQuitError as y, provideContext$3 as yn, succeed$12 as yr, String$1 as yt, Size as z, mergeAll$2 as zn, isUndefined$1 as zr, nominal as zt };
 
-//# sourceMappingURL=LoomStore-DOjrkJaQ.js.map
+//# sourceMappingURL=LoomStore-C2tWuEsJ.js.map