svelte-preprocess-org 0.3.2 → 0.3.3

package/dist/index.d.ts

@@ -0,0 +1,140 @@
+import { PreprocessorGroup } from "svelte/compiler";
+
+//#region src/emacs.d.ts
+/**
+ * An S-expression.
+ */
+type Sexp = Value | Cell;
+/**
+ * A value in an S-expression.
+ */
+type Value = Atom | Keyword | Quote | string | number | boolean | null;
+/**
+ * A cons cell.
+ */
+type Cell = {
+  car: Sexp;
+  cdr: Sexp;
+};
+/**
+ * An atom in an S-expression.
+ */
+type Atom = {
+  atom: string;
+};
+/**
+ * A keyword in an S-expression.
+ */
+type Keyword = {
+  keyword: string;
+};
+/**
+ * A quoted S-expression.
+ */
+type Quote = {
+  quote: Sexp;
+};
+/**
+ * Check if a value is a cons cell.
+ */
+//#endregion
+//#region src/org-export.d.ts
+/**
+ * Customization options for Org export engine.
+ *
+ * See the documentation for `ox` for more details.
+ */
+type OrgExportCustomization = Partial<{
+  withSmartQuotes: boolean;
+  withEmphasize: boolean;
+  withSpecialStrings: boolean;
+  withFixedWidth: boolean;
+  withTimestamps: boolean;
+  preserveBreaks: boolean;
+  withSubSuperscripts: boolean | Atom;
+  withArchivedTrees: boolean | Atom;
+  expandLinks: boolean;
+  withBrokenLinks: boolean | Atom;
+  withClocks: boolean;
+  withCreator: boolean;
+  withDrawers: boolean;
+  withDate: boolean;
+  withEntities: boolean;
+  withEmail: boolean;
+  withFootnotes: boolean;
+  headlineLevels: number;
+  withInlinetasks: boolean;
+  withSectionNumbers: boolean | number;
+  withPlanning: boolean;
+  withPriority: boolean;
+  withProperties: boolean | Atom[];
+  withStatisticsCookies: boolean;
+  withTags: boolean | Atom;
+  withTasks: boolean | Atom;
+  withLatex: boolean | Atom;
+  timestampFile: boolean;
+  withTitle: boolean;
+  withToc: boolean;
+  todoKeywords: boolean;
+  withTables: boolean;
+}>;
+/**
+ * Generate Emacs Lisp code to customize the Org export engine.
+ */
+//#endregion
+//#region src/org-svelte.d.ts
+/**
+ * Customization options for exporting Org documents as Svelte components.
+ *
+ * See the documentation for `ox-svelte` for more details.
+ */
+type OrgSvelteCustomization = Partial<{
+  anchorFormat: `${string}%s${string}%s${string}`;
+  brokenLinkFormat: string;
+  componentImportAlist: Record<string, string | string[] | null>;
+  metadataExportList: string[];
+  imageFormat: `${string}%s${string}%s${string}`;
+  latexEnvironmentFormat: `${string}%s${string}`;
+  latexDisplayFragmentFormat: `${string}%s${string}`;
+  latexInlineFragmentFormat: `${string}%s${string}`;
+  linkOrgFileAsSvelte: boolean;
+  rawScriptContent: string;
+  srcBlockFormat: `${string}%s${string}%s${string}`;
+  textMarkupAlist: Record<"bold" | "code" | "italic" | "strike-through" | "underline" | "verbatim", `${string}%s${string}`>;
+  verbose: boolean;
+}>;
+/**
+ * Generate Emacs Lisp code to customize the Org to Svelte export engine.
+ */
+//#endregion
+//#region src/index.d.ts
+/**
+ * Options for preprocessing Org documents to Svelte components.
+ *
+ * See the documentation for `ox` and `ox-svelte` for more details.
+ */
+type OrgPreprocessOptions = Partial<{
+  /**
+   * List of file extensions to process as Org documents.
+   */
+  extensions: string[];
+  /**
+   * List of glob patterns to locate Org files for updating ID locations.
+   */
+  idLocations: string[];
+  /**
+   * Directory to use as Emacs `user-emacs-directory`.
+   */
+  initDirectory: string;
+  /**
+   * List of extra S-expressions to evaluate during initialization.
+   */
+  initSexps: Sexp[];
+}> & OrgExportCustomization & OrgSvelteCustomization;
+/**
+ * Preprocess Org documents to Svelte components.
+ */
+declare function orgPreprocess(options?: OrgPreprocessOptions): PreprocessorGroup;
+//#endregion
+export { OrgPreprocessOptions, orgPreprocess as default, orgPreprocess };
+//# sourceMappingURL=index.d.ts.map

package/dist/index.js

@@ -0,0 +1,329 @@
+import { mkdtempSync } from "node:fs";
+import { tmpdir } from "node:os";
+import { join } from "node:path";
+import fullpath from "ox-svelte";
+import { globSync } from "tinyglobby";
+import { spawnSync } from "node:child_process";
+
+//#region src/emacs.ts
+/**
+* Check if a value is a cons cell.
+*/
+function isCell(x) {
+	return x instanceof Object && "car" in x && "cdr" in x;
+}
+/**
+* Check if a value is an atom.
+*/
+function isAtom(x) {
+	return x instanceof Object && "atom" in x;
+}
+/**
+* Check if a value is a keyword.
+*/
+function isKeyword(x) {
+	return x instanceof Object && "keyword" in x;
+}
+/**
+* Check if a value is a quoted S-expression.
+*/
+function isQuote(x) {
+	return x instanceof Object && "quote" in x;
+}
+/**
+* Check if a value is a nil value
+*/
+function isNil(x) {
+	return x === null;
+}
+/**
+* Check if a value is a string.
+*/
+function isString(x) {
+	return typeof x === "string";
+}
+/**
+* Check if a value is a number.
+*/
+function isNumber(x) {
+	return typeof x === "number";
+}
+/**
+* Check if a value is a boolean.
+*/
+function isBoolean(x) {
+	return typeof x === "boolean";
+}
+/**
+* Create a cons cell.
+*/
+function cons(car, cdr) {
+	return {
+		car,
+		cdr
+	};
+}
+/**
+* Create a quoted S-expression.
+*/
+function quote(sexp) {
+	if (isKeyword(sexp)) return k`${sexp.keyword}`;
+	else return { quote: sexp };
+}
+/**
+* Create a list from a sequence of S-expressions.
+*/
+function list(...args) {
+	if (args.length === 0) return null;
+	const [car, ...rest] = args;
+	return cons(car, list(...rest));
+}
+/**
+* Create an atom from a tagged template string.
+*/
+function a(raw, ...substitutions) {
+	return { atom: String.raw({ raw }, ...substitutions) };
+}
+/**
+* Create a keyword from a tagged template string.
+*/
+function k(raw, ...substitutions) {
+	return { keyword: String.raw({ raw }, ...substitutions) };
+}
+/**
+* Convert an S-expression to a string.
+*/
+function stringify(sexp) {
+	switch (true) {
+		case isCell(sexp): return `(${stringifyList(sexp)})`;
+		case isNil(sexp): return "nil";
+		case isString(sexp): return `"${sexp}"`;
+		case isNumber(sexp): return sexp.toString();
+		case isBoolean(sexp): return sexp ? "t" : "nil";
+		case isAtom(sexp): return sexp.atom;
+		case isKeyword(sexp): return `:${sexp.keyword}`;
+		case isQuote(sexp): return `'${stringify(sexp.quote)}`;
+		default: throw new TypeError(`Unknown type of S-expression: ${typeof sexp}`);
+	}
+}
+/**
+* Convert a list to a string.
+*/
+function stringifyList(list$1) {
+	let result = "";
+	if (isCell(list$1.car)) result += `(${stringifyList(list$1.car)})`;
+	else result += stringify(list$1.car);
+	if (isCell(list$1.cdr)) result += ` ${stringifyList(list$1.cdr)}`;
+	else if (isNil(list$1.cdr)) return result;
+	else result += ` . ${stringify(list$1.cdr)}`;
+	return result;
+}
+/**
+* An Emacs instance for evaluating S-expressions.
+*
+* Since each Emacs instance constructetd from this class is assigned their own
+* temporary directory as their init directory, any persistent state that needs
+* to be preserved between evaluations can be stored in that directory (e.g. in
+* the .eld files).
+*/
+var Emacs = class {
+	/**
+	* S-expression to evaluate when `run` method is called.
+	*/
+	sexps = [];
+	/**
+	* String value to be piped into the standard input.
+	*/
+	stdin;
+	/**
+	* Initialize a new Emacs instance.
+	*
+	* Internally, this will request a temporary directory to be created, which
+	* will be used as the Emacs init directory when `Emacs.run` is called.
+	*
+	* @param initDirectory - Directory that will be used as the `user-emacs-directory`.
+	*/
+	constructor(initDirectory) {
+		this.initDirectory = initDirectory;
+		this.stdin = "";
+	}
+	/**
+	* Register the features/packages to require.
+	*
+	* This function will append to the previous value.
+	* The `run` call will not reset this value.
+	*/
+	require(feature, filename) {
+		this.sexps.push(filename ? list(a`require`, quote(a`${feature}`), filename) : list(a`require`, quote(a`${feature}`)));
+		return this;
+	}
+	/**
+	* Register S-expressions to evaluate.
+	*
+	* This function will append to the previous value.
+	* The `run` call will reset this value.
+	*/
+	progn(...sexps) {
+		this.sexps.push(...sexps);
+		return this;
+	}
+	/**
+	* Register the string to be fed into the standard input.
+	*
+	* This function will replace the previous value.
+	* The `run` call will reset this value.
+	*/
+	minibuffer(content) {
+		this.stdin = content;
+		return this;
+	}
+	/**
+	* Run the registered S-expressions in Emacs.
+	*
+	* @rehturns The standard output of the Emacs process.
+	*/
+	run() {
+		const { stdout, stderr, error } = spawnSync("emacs", [
+			`--init-directory=${this.initDirectory}`,
+			"--batch",
+			"--eval",
+			stringify(list(a`progn`, ...this.sexps))
+		], { input: this.stdin });
+		if (error) throw new Error(`Error running Emacs: ${stderr}`, { cause: error });
+		this.sexps = [];
+		this.stdin = "";
+		return stdout.toString();
+	}
+};
+
+//#endregion
+//#region src/utilities.ts
+/**
+* Convert a lowerCamelCase string to kebab case.
+*
+* @param s The string to convert.
+* @returns The kebab-cased string.
+*/
+function toKebabCase(s) {
+	return s.replace(/[A-Z]+(?!a-z)|[A-Z]/g, (match, offset) => (offset > 0 ? "-" : "") + match.toLowerCase());
+}
+
+//#endregion
+//#region src/org-export.ts
+/**
+* Generate Emacs Lisp code to customize the Org export engine.
+*/
+function customize(options = {}) {
+	const transformed = Object.entries(options).flatMap(([key, val]) => {
+		switch (key) {
+			case "withProperties": return [a`org-export-with-properties`, Array.isArray(val) ? quote(list(...val)) : val];
+			case "withSmartQuotes":
+			case "withEmphasize":
+			case "withSpecialStrings":
+			case "withFixedWidth":
+			case "withTimestamps":
+			case "preserveBreaks":
+			case "withSubSuperscripts":
+			case "withArchivedTrees":
+			case "expandLinks":
+			case "withBrokenLinks":
+			case "withClocks":
+			case "withCreator":
+			case "withDrawers":
+			case "withDate":
+			case "withEntities":
+			case "withEmail":
+			case "withFootnotes":
+			case "headlineLevels":
+			case "withInlinetasks":
+			case "withSectionNumbers":
+			case "withPlanning":
+			case "withPriority":
+			case "withStatisticsCookies":
+			case "withTags":
+			case "withTasks":
+			case "withLatex":
+			case "timestampFile":
+			case "withTitle":
+			case "withToc":
+			case "todoKeywords":
+			case "withTables": return [a`org-export-${toKebabCase(key)}`, val];
+			default: return [];
+		}
+	});
+	return list(a`setq`, ...transformed);
+}
+
+//#endregion
+//#region src/org-svelte.ts
+/**
+* Generate Emacs Lisp code to customize the Org to Svelte export engine.
+*/
+function customize$1(options = {}) {
+	const transformed = Object.entries(options).flatMap(([key, val]) => {
+		switch (key) {
+			case "componentImportAlist": {
+				const cia = val;
+				return [a`org-svelte-component-import-alist`, quote(list(...Object.entries(cia).map(([k$1, v]) => {
+					if (Array.isArray(v)) return cons(k$1, list(...v));
+					else return cons(k$1, v);
+				})))];
+			}
+			case "metadataExportList": {
+				const mel = val;
+				return [a`org-svelte-metadata-export-list`, quote(list(...mel.map((v) => k`${v}`)))];
+			}
+			case "textMarkupAlist": {
+				const tma = val;
+				return [a`org-svelte-text-markup-alist`, quote(list(...Object.entries(tma).map(([key$1, val$1]) => cons(key$1, val$1))))];
+			}
+			case "anchorFormat":
+			case "brokenLinkFormat":
+			case "imageFormat":
+			case "latexEnvironmentFormat":
+			case "latexDisplayFragmentFormat":
+			case "latexInlineFragmentFormat":
+			case "linkOrgFileAsSvelte":
+			case "rawScriptContent":
+			case "srcBlockFormat":
+			case "verbose": return [a`org-svelte-${toKebabCase(key)}`, val];
+			default: return [];
+		}
+	});
+	return list(a`setq`, ...transformed);
+}
+/**
+* Export an Org document as Svelte code.
+*
+* Note: This function expects the content of the Org document to be provided
+* via minibuffer input (i.e., stdin).
+*
+* @param options Customization options for the export.
+* @returns The generated Svelte component as a string.
+*/
+const exportMinibufferAsSvelte = list(a`let`, list(list(a`content`, ``)), list(a`while`, list(a`setq`, a`line`, list(a`ignore-errors`, list(a`read-string`, ``))), list(a`setq`, a`content`, list(a`concat`, a`content`, `\\n`, a`line`))), list(a`with-temp-buffer`, list(a`org-mode`), list(a`insert`, a`content`), list(a`org-svelte-export-as-svelte`), list(a`princ`, list(a`buffer-string`))));
+
+//#endregion
+//#region src/index.ts
+/**
+* Preprocess Org documents to Svelte components.
+*/
+function orgPreprocess(options) {
+	const { extensions = [".org"], idLocations = [], initDirectory = mkdtempSync(join(tmpdir(), "svelte-preprocess-org-")), initSexps = [],...rest } = options || {};
+	const emacs = new Emacs(initDirectory);
+	if (initSexps.length > 0) emacs.progn(...initSexps).run();
+	if (idLocations.length > 0) {
+		const files = globSync(idLocations);
+		if (files.length > 0) emacs.require("org").progn(list(a`org-id-update-id-locations`, quote(list(...files)))).run();
+	}
+	return { markup({ content, filename }) {
+		if (filename && !extensions.some((ext) => filename.endsWith(ext))) return { code: content };
+		const code = emacs.require("ox-svelte", fullpath).progn(customize(rest)).progn(customize$1(rest)).progn(exportMinibufferAsSvelte).minibuffer(content).run();
+		return { code };
+	} };
+}
+var src_default = orgPreprocess;
+
+//#endregion
+export { src_default as default, orgPreprocess };
+//# sourceMappingURL=index.js.map

package/dist/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","names":["list","initDirectory: string","customize","k","key","val","customizeOx","customizeOxSvelte"],"sources":["../src/emacs.ts","../src/utilities.ts","../src/org-export.ts","../src/org-svelte.ts","../src/index.ts"],"sourcesContent":["import { spawnSync } from \"node:child_process\";\n\n/**\n * An S-expression.\n */\nexport type Sexp = Value | Cell;\n\n/**\n * A value in an S-expression.\n */\nexport type Value = Atom | Keyword | Quote | string | number | boolean | null;\n\n/**\n * A cons cell.\n */\nexport type Cell = {\n  car: Sexp;\n  cdr: Sexp;\n};\n\n/**\n * An atom in an S-expression.\n */\nexport type Atom = {\n  atom: string;\n};\n\n/**\n * A keyword in an S-expression.\n */\nexport type Keyword = {\n  keyword: string;\n};\n\n/**\n * A quoted S-expression.\n */\nexport type Quote = {\n  quote: Sexp;\n};\n\n/**\n * Check if a value is a cons cell.\n */\nexport function isCell(x: unknown): x is Cell {\n  return x instanceof Object && \"car\" in x && \"cdr\" in x;\n}\n\n/**\n * Check if a value is an atom.\n */\nexport function isAtom(x: unknown): x is Atom {\n  return x instanceof Object && \"atom\" in x;\n}\n\n/**\n * Check if a value is a keyword.\n */\nexport function isKeyword(x: unknown): x is Keyword {\n  return x instanceof Object && \"keyword\" in x;\n}\n\n/**\n * Check if a value is a quoted S-expression.\n */\nexport function isQuote(x: unknown): x is Quote {\n  return x instanceof Object && \"quote\" in x;\n}\n\n/**\n * Check if a value is a valid value in an S-expression.\n */\nexport function isValue(x: unknown): x is Value {\n  return (\n    isAtom(x) ||\n    isKeyword(x) ||\n    isQuote(x) ||\n    isString(x) ||\n    isNumber(x) ||\n    isBoolean(x) ||\n    isNil(x)\n  );\n}\n\n/**\n * Check if a value is a nil value\n */\nexport function isNil(x: unknown): x is null {\n  return x === null;\n}\n\n/**\n * Check if a value is a list.\n *\n * Note that improper lists are also considered lists.\n */\nexport function isList(x: unknown): x is Cell {\n  return isCell(x) || isNil(x);\n}\n\n/**\n * Check if a value is a string.\n */\nexport function isString(x: unknown): x is string {\n  return typeof x === \"string\";\n}\n\n/**\n * Check if a value is a number.\n */\nexport function isNumber(x: unknown): x is number {\n  return typeof x === \"number\";\n}\n\n/**\n * Check if a value is a boolean.\n */\nexport function isBoolean(x: unknown): x is boolean {\n  return typeof x === \"boolean\";\n}\n\n/**\n * Create a cons cell.\n */\nexport function cons(car: Sexp, cdr: Sexp): Cell {\n  return { car, cdr };\n}\n\n/**\n * Create a quoted S-expression.\n */\nexport function quote(sexp: Sexp): Quote | Keyword {\n  if (isKeyword(sexp)) {\n    // A quoted keyword is still a keyword.\n    return k`${sexp.keyword}`;\n  } else {\n    // For the rest, just quote the S-expression.\n    return { quote: sexp };\n  }\n}\n\n/**\n * Create a list from a sequence of S-expressions.\n */\nexport function list(...args: Sexp[]): Sexp {\n  if (args.length === 0) {\n    return null;\n  }\n\n  const [car, ...rest] = args;\n  return cons(car, list(...rest));\n}\n\n/**\n * Create an atom from a tagged template string.\n */\nexport function a(\n  raw: TemplateStringsArray,\n  ...substitutions: unknown[]\n): Atom {\n  return { atom: String.raw({ raw }, ...substitutions) };\n}\n\n/**\n * Create a keyword from a tagged template string.\n */\nexport function k(\n  raw: TemplateStringsArray,\n  ...substitutions: unknown[]\n): Keyword {\n  return { keyword: String.raw({ raw }, ...substitutions) };\n}\n\n/**\n * Convert an S-expression to a string.\n */\nexport function stringify(sexp: Sexp): string {\n  // Dispatch based on the type of the expression.\n  switch (true) {\n    case isCell(sexp):\n      return `(${stringifyList(sexp)})`;\n    case isNil(sexp):\n      return \"nil\";\n    case isString(sexp):\n      return `\"${sexp}\"`;\n    case isNumber(sexp):\n      return sexp.toString();\n    case isBoolean(sexp):\n      return sexp ? \"t\" : \"nil\";\n    case isAtom(sexp):\n      return sexp.atom;\n    case isKeyword(sexp):\n      return `:${sexp.keyword}`;\n    case isQuote(sexp):\n      return `'${stringify(sexp.quote)}`;\n    default:\n      throw new TypeError(`Unknown type of S-expression: ${typeof sexp}`);\n  }\n}\n\n/**\n * Convert a list to a string.\n */\nfunction stringifyList(list: Cell): string {\n  // Stringify the car of the list.\n  let result = \"\";\n  if (isCell(list.car)) {\n    result += `(${stringifyList(list.car)})`;\n  } else {\n    result += stringify(list.car);\n  }\n\n  // There are three cases for a cdr:\n  // 1. cdr is another cell -> recursively stringify the cdr\n  // 2. cdr is nil -> end of the list, so just return the result\n  // 3. cdr is something else -> add a dot and the stringified cdr\n  if (isCell(list.cdr)) {\n    result += ` ${stringifyList(list.cdr)}`;\n  } else if (isNil(list.cdr)) {\n    return result;\n  } else {\n    result += ` . ${stringify(list.cdr)}`;\n  }\n\n  return result;\n}\n\n/**\n * An Emacs instance for evaluating S-expressions.\n *\n * Since each Emacs instance constructetd from this class is assigned their own\n * temporary directory as their init directory, any persistent state that needs\n * to be preserved between evaluations can be stored in that directory (e.g. in\n * the .eld files).\n */\nexport class Emacs {\n  /**\n   * S-expression to evaluate when `run` method is called.\n   */\n  private sexps: Sexp[] = [];\n\n  /**\n   * String value to be piped into the standard input.\n   */\n  private stdin: string;\n\n  /**\n   * Initialize a new Emacs instance.\n   *\n   * Internally, this will request a temporary directory to be created, which\n   * will be used as the Emacs init directory when `Emacs.run` is called.\n   *\n    * @param initDirectory - Directory that will be used as the `user-emacs-directory`.\n   */\n  constructor(private initDirectory: string) {\n    this.stdin = \"\";\n  }\n\n  /**\n   * Register the features/packages to require.\n   *\n   * This function will append to the previous value.\n   * The `run` call will not reset this value.\n   */\n  require(feature: string, filename?: string) {\n    this.sexps.push(\n      filename\n        ? list(a`require`, quote(a`${feature}`), filename)\n        : list(a`require`, quote(a`${feature}`)),\n    );\n\n    return this;\n  }\n\n  /**\n   * Register S-expressions to evaluate.\n   *\n   * This function will append to the previous value.\n   * The `run` call will reset this value.\n   */\n  progn(...sexps: Sexp[]) {\n    this.sexps.push(...sexps);\n\n    return this;\n  }\n\n  /**\n   * Register the string to be fed into the standard input.\n   *\n   * This function will replace the previous value.\n   * The `run` call will reset this value.\n   */\n  minibuffer(content: string) {\n    this.stdin = content;\n\n    return this;\n  }\n\n  /**\n   * Run the registered S-expressions in Emacs.\n   *\n   * @rehturns The standard output of the Emacs process.\n   */\n  run() {\n    // Spawn Emacs in batch mode to evaluate the S-expressions.\n    const { stdout, stderr, error } = spawnSync(\n      \"emacs\",\n      [\n        `--init-directory=${this.initDirectory}`,\n        \"--batch\",\n        \"--eval\",\n        stringify(list(a`progn`, ...this.sexps)),\n      ],\n      {\n        input: this.stdin,\n      },\n    );\n    if (error) {\n      throw new Error(`Error running Emacs: ${stderr}`, { cause: error });\n    }\n\n    // Reset the S-expressions and stdin for the next run.\n    this.sexps = [];\n    this.stdin = \"\";\n\n    // Return the standard output.\n    return stdout.toString();\n  }\n}\n","/**\n * Convert a lowerCamelCase string to kebab case.\n *\n * @param s The string to convert.\n * @returns The kebab-cased string.\n */\nexport function toKebabCase(s: string): string {\n  return s.replace(\n    /[A-Z]+(?!a-z)|[A-Z]/g,\n    (match, offset) => (offset > 0 ? \"-\" : \"\") + match.toLowerCase(),\n  );\n}\n","import { a, list, quote, type Atom, type Value } from \"./emacs\";\nimport { toKebabCase } from \"./utilities\";\n\n/**\n * Customization options for Org export engine.\n *\n * See the documentation for `ox` for more details.\n */\nexport type OrgExportCustomization = Partial<{\n  withSmartQuotes: boolean;\n  withEmphasize: boolean;\n  withSpecialStrings: boolean;\n  withFixedWidth: boolean;\n  withTimestamps: boolean;\n  preserveBreaks: boolean;\n  withSubSuperscripts: boolean | Atom;\n  withArchivedTrees: boolean | Atom;\n  expandLinks: boolean;\n  withBrokenLinks: boolean | Atom;\n  withClocks: boolean;\n  withCreator: boolean;\n  withDrawers: boolean;\n  withDate: boolean;\n  withEntities: boolean;\n  withEmail: boolean;\n  withFootnotes: boolean;\n  headlineLevels: number;\n  withInlinetasks: boolean;\n  withSectionNumbers: boolean | number;\n  withPlanning: boolean;\n  withPriority: boolean;\n  withProperties: boolean | Atom[];\n  withStatisticsCookies: boolean;\n  withTags: boolean | Atom;\n  withTasks: boolean | Atom;\n  withLatex: boolean | Atom;\n  timestampFile: boolean;\n  withTitle: boolean;\n  withToc: boolean;\n  todoKeywords: boolean;\n  withTables: boolean;\n}>;\n\n/**\n * Generate Emacs Lisp code to customize the Org export engine.\n */\nexport function customize(options: OrgExportCustomization = {}) {\n  const transformed = Object.entries(options).flatMap(([key, val]) => {\n    switch (key) {\n      case \"withProperties\": {\n        return [\n          a`org-export-with-properties`,\n          Array.isArray(val) ? quote(list(...val)) : val,\n        ]\n      }\n     \n      case \"withSmartQuotes\":\n      case \"withEmphasize\":\n      case \"withSpecialStrings\":\n      case \"withFixedWidth\":\n      case \"withTimestamps\":\n      case \"preserveBreaks\":\n      case \"withSubSuperscripts\":\n      case \"withArchivedTrees\":\n      case \"expandLinks\":\n      case \"withBrokenLinks\":\n      case \"withClocks\":\n      case \"withCreator\":\n      case \"withDrawers\":\n      case \"withDate\":\n      case \"withEntities\":\n      case \"withEmail\":\n      case \"withFootnotes\":\n      case \"headlineLevels\":\n      case \"withInlinetasks\":\n      case \"withSectionNumbers\":\n      case \"withPlanning\":\n      case \"withPriority\":\n      case \"withStatisticsCookies\":\n      case \"withTags\":\n      case \"withTasks\":\n      case \"withLatex\":\n      case \"timestampFile\":\n      case \"withTitle\":\n      case \"withToc\":\n      case \"todoKeywords\":\n      case \"withTables\":\n        return [a`org-export-${toKebabCase(key)}`, val as Value];\n\n      default:\n        return [];\n    }\n  });\n\n  return list(a`setq`, ...transformed);\n}\n","import { a, k, cons, list, quote, type Value } from \"./emacs\";\nimport { toKebabCase } from \"./utilities\";\n\n/**\n * Customization options for exporting Org documents as Svelte components.\n *\n * See the documentation for `ox-svelte` for more details.\n */\nexport type OrgSvelteCustomization = Partial<{\n  anchorFormat: `${string}%s${string}%s${string}`;\n  brokenLinkFormat: string;\n  componentImportAlist: Record<string, string | string[] | null>;\n  metadataExportList: string[];\n  imageFormat: `${string}%s${string}%s${string}`;\n  latexEnvironmentFormat: `${string}%s${string}`;\n  latexDisplayFragmentFormat: `${string}%s${string}`;\n  latexInlineFragmentFormat: `${string}%s${string}`;\n  linkOrgFileAsSvelte: boolean;\n  rawScriptContent: string;\n  srcBlockFormat: `${string}%s${string}%s${string}`;\n  textMarkupAlist: Record<\n    \"bold\" | \"code\" | \"italic\" | \"strike-through\" | \"underline\" | \"verbatim\",\n    `${string}%s${string}`\n  >;\n  verbose: boolean;\n}>;\n\n/**\n * Generate Emacs Lisp code to customize the Org to Svelte export engine.\n */\nexport function customize(options: OrgSvelteCustomization = {}) {\n  const transformed = Object.entries(options).flatMap(([key, val]) => {\n    switch (key) {\n      case \"componentImportAlist\": {\n        const cia = val as Record<string, string | string[] | null>;\n        return [\n          a`org-svelte-component-import-alist`,\n          quote(\n            list(\n              ...Object.entries(cia).map(([k, v]) => {\n                if (Array.isArray(v)) {\n                  return cons(k, list(...v));\n                } else {\n                  return cons(k, v);\n                }\n              }),\n            ),\n          ),\n        ];\n      }\n\n      case \"metadataExportList\": {\n        const mel = val as string[];\n        return [\n          a`org-svelte-metadata-export-list`,\n          quote(list(...mel.map((v) => k`${v}`))),\n        ];\n      }\n\n      case \"textMarkupAlist\": {\n        const tma = val as Record<\n          | \"bold\"\n          | \"code\"\n          | \"italic\"\n          | \"strike-through\"\n          | \"underline\"\n          | \"verbatim\",\n          `${string}%s${string}`\n        >;\n        return [\n          a`org-svelte-text-markup-alist`,\n          quote(\n            list(...Object.entries(tma).map(([key, val]) => cons(key, val))),\n          ),\n        ];\n      }\n\n      case \"anchorFormat\":\n      case \"brokenLinkFormat\":\n      case \"imageFormat\":\n      case \"latexEnvironmentFormat\":\n      case \"latexDisplayFragmentFormat\":\n      case \"latexInlineFragmentFormat\":\n      case \"linkOrgFileAsSvelte\":\n      case \"rawScriptContent\":\n      case \"srcBlockFormat\":\n      case \"verbose\":\n        return [a`org-svelte-${toKebabCase(key)}`, val as Value];\n\n      default:\n        return [];\n    }\n  });\n\n  return list(a`setq`, ...transformed);\n}\n\n/**\n * Export an Org document as Svelte code.\n *\n * Note: This function expects the content of the Org document to be provided\n * via minibuffer input (i.e., stdin).\n *\n * @param options Customization options for the export.\n * @returns The generated Svelte component as a string.\n */\nexport const exportMinibufferAsSvelte = list(\n  a`let`,\n  // VARLIST\n  list(list(a`content`, ``)),\n  // BODY\n  list(\n    a`while`,\n    // TEST\n    list(a`setq`, a`line`, list(a`ignore-errors`, list(a`read-string`, ``))),\n    // BODY\n    list(a`setq`, a`content`, list(a`concat`, a`content`, `\\\\n`, a`line`)),\n  ),\n  // Create temporary buffer, insert, and export.\n  list(\n    a`with-temp-buffer`,\n    list(a`org-mode`),\n    list(a`insert`, a`content`),\n    list(a`org-svelte-export-as-svelte`),\n    list(a`princ`, list(a`buffer-string`)),\n  ),\n);\n","import { mkdtempSync } from \"node:fs\";\nimport { tmpdir } from \"node:os\";\nimport { join } from \"node:path\";\n\nimport fullpath from \"ox-svelte\";\nimport type { PreprocessorGroup } from \"svelte/compiler\";\nimport { globSync } from \"tinyglobby\";\n\nimport { list, quote, a, Emacs, type Sexp } from \"./emacs\";\nimport {\n  customize as customizeOx,\n  type OrgExportCustomization,\n} from \"./org-export\";\nimport {\n  customize as customizeOxSvelte,\n  exportMinibufferAsSvelte,\n  type OrgSvelteCustomization,\n} from \"./org-svelte\";\n\n/**\n * Options for preprocessing Org documents to Svelte components.\n *\n * See the documentation for `ox` and `ox-svelte` for more details.\n */\nexport type OrgPreprocessOptions = Partial<{\n  /**\n   * List of file extensions to process as Org documents.\n   */\n  extensions: string[];\n\n  /**\n   * List of glob patterns to locate Org files for updating ID locations.\n   */\n  idLocations: string[];\n\n  /**\n   * Directory to use as Emacs `user-emacs-directory`.\n   */\n  initDirectory: string;\n\n  /**\n   * List of extra S-expressions to evaluate during initialization.\n   */\n  initSexps: Sexp[];\n}> &\n  OrgExportCustomization &\n  OrgSvelteCustomization;\n\n/**\n * Preprocess Org documents to Svelte components.\n */\nexport function orgPreprocess(\n  options?: OrgPreprocessOptions,\n): PreprocessorGroup {\n  const {\n    extensions = [\".org\"],\n    idLocations = [],\n    initDirectory = mkdtempSync(join(tmpdir(), \"svelte-preprocess-org-\")),\n    initSexps = [],\n    ...rest\n  } = options || {};\n\n  // Create a new Emacs instance for this preprocessor.\n  const emacs = new Emacs(initDirectory);\n\n  if (initSexps.length > 0) {\n    emacs.progn(...initSexps).run();\n  }\n\n  // Update Org-mode ID locations if provided.\n  if (idLocations.length > 0) {\n    const files = globSync(idLocations);\n    if (files.length > 0) {\n      emacs\n        .require(\"org\")\n        .progn(list(a`org-id-update-id-locations`, quote(list(...files))))\n        .run();\n    }\n  }\n\n  return {\n    markup({ content, filename }) {\n      // If the file extension is not in the list of extensions, do nothing.\n      if (filename && !extensions.some((ext) => filename.endsWith(ext))) {\n        return { code: content };\n      }\n\n      // Make sure that ID location updates have been applied.\n      const code = emacs\n        .require(\"ox-svelte\", fullpath)\n        .progn(customizeOx(rest))\n        .progn(customizeOxSvelte(rest))\n        .progn(exportMinibufferAsSvelte)\n        .minibuffer(content)\n        .run();\n      return { code };\n    },\n  };\n}\n\nexport default orgPreprocess;\n"],"mappings":";;;;;;;;;;;AA4CA,SAAgB,OAAO,GAAuB;AAC5C,QAAO,aAAa,UAAU,SAAS,KAAK,SAAS;;;;;AAMvD,SAAgB,OAAO,GAAuB;AAC5C,QAAO,aAAa,UAAU,UAAU;;;;;AAM1C,SAAgB,UAAU,GAA0B;AAClD,QAAO,aAAa,UAAU,aAAa;;;;;AAM7C,SAAgB,QAAQ,GAAwB;AAC9C,QAAO,aAAa,UAAU,WAAW;;;;;AAqB3C,SAAgB,MAAM,GAAuB;AAC3C,QAAO,MAAM;;;;;AAef,SAAgB,SAAS,GAAyB;AAChD,QAAO,OAAO,MAAM;;;;;AAMtB,SAAgB,SAAS,GAAyB;AAChD,QAAO,OAAO,MAAM;;;;;AAMtB,SAAgB,UAAU,GAA0B;AAClD,QAAO,OAAO,MAAM;;;;;AAMtB,SAAgB,KAAK,KAAW,KAAiB;AAC/C,QAAO;EAAE;EAAK;;;;;;AAMhB,SAAgB,MAAM,MAA6B;AACjD,KAAI,UAAU,MAEZ,QAAO,CAAC,GAAG,KAAK;KAGhB,QAAO,EAAE,OAAO;;;;;AAOpB,SAAgB,KAAK,GAAG,MAAoB;AAC1C,KAAI,KAAK,WAAW,EAClB,QAAO;CAGT,MAAM,CAAC,KAAK,GAAG,QAAQ;AACvB,QAAO,KAAK,KAAK,KAAK,GAAG;;;;;AAM3B,SAAgB,EACd,KACA,GAAG,eACG;AACN,QAAO,EAAE,MAAM,OAAO,IAAI,EAAE,OAAO,GAAG;;;;;AAMxC,SAAgB,EACd,KACA,GAAG,eACM;AACT,QAAO,EAAE,SAAS,OAAO,IAAI,EAAE,OAAO,GAAG;;;;;AAM3C,SAAgB,UAAU,MAAoB;AAE5C,SAAQ,MAAR;EACE,KAAK,OAAO,MACV,QAAO,IAAI,cAAc,MAAM;EACjC,KAAK,MAAM,MACT,QAAO;EACT,KAAK,SAAS,MACZ,QAAO,IAAI,KAAK;EAClB,KAAK,SAAS,MACZ,QAAO,KAAK;EACd,KAAK,UAAU,MACb,QAAO,OAAO,MAAM;EACtB,KAAK,OAAO,MACV,QAAO,KAAK;EACd,KAAK,UAAU,MACb,QAAO,IAAI,KAAK;EAClB,KAAK,QAAQ,MACX,QAAO,IAAI,UAAU,KAAK;EAC5B,QACE,OAAM,IAAI,UAAU,iCAAiC,OAAO;;;;;;AAOlE,SAAS,cAAc,QAAoB;CAEzC,IAAI,SAAS;AACb,KAAI,OAAOA,OAAK,KACd,WAAU,IAAI,cAAcA,OAAK,KAAK;KAEtC,WAAU,UAAUA,OAAK;AAO3B,KAAI,OAAOA,OAAK,KACd,WAAU,IAAI,cAAcA,OAAK;UACxB,MAAMA,OAAK,KACpB,QAAO;KAEP,WAAU,MAAM,UAAUA,OAAK;AAGjC,QAAO;;;;;;;;;;AAWT,IAAa,QAAb,MAAmB;;;;CAIjB,AAAQ,QAAgB;;;;CAKxB,AAAQ;;;;;;;;;CAUR,YAAY,AAAQC,eAAuB;EAAvB;AAClB,OAAK,QAAQ;;;;;;;;CASf,QAAQ,SAAiB,UAAmB;AAC1C,OAAK,MAAM,KACT,WACI,KAAK,CAAC,WAAW,MAAM,CAAC,GAAG,YAAY,YACvC,KAAK,CAAC,WAAW,MAAM,CAAC,GAAG;AAGjC,SAAO;;;;;;;;CAST,MAAM,GAAG,OAAe;AACtB,OAAK,MAAM,KAAK,GAAG;AAEnB,SAAO;;;;;;;;CAST,WAAW,SAAiB;AAC1B,OAAK,QAAQ;AAEb,SAAO;;;;;;;CAQT,MAAM;EAEJ,MAAM,EAAE,QAAQ,QAAQ,UAAU,UAChC,SACA;GACE,oBAAoB,KAAK;GACzB;GACA;GACA,UAAU,KAAK,CAAC,SAAS,GAAG,KAAK;KAEnC,EACE,OAAO,KAAK;AAGhB,MAAI,MACF,OAAM,IAAI,MAAM,wBAAwB,UAAU,EAAE,OAAO;AAI7D,OAAK,QAAQ;AACb,OAAK,QAAQ;AAGb,SAAO,OAAO;;;;;;;;;;;;AChUlB,SAAgB,YAAY,GAAmB;AAC7C,QAAO,EAAE,QACP,yBACC,OAAO,YAAY,SAAS,IAAI,MAAM,MAAM,MAAM;;;;;;;;ACqCvD,SAAgB,UAAU,UAAkC,IAAI;CAC9D,MAAM,cAAc,OAAO,QAAQ,SAAS,SAAS,CAAC,KAAK,SAAS;AAClE,UAAQ,KAAR;GACE,KAAK,iBACH,QAAO,CACL,CAAC,8BACD,MAAM,QAAQ,OAAO,MAAM,KAAK,GAAG,QAAQ;GAI/C,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK,aACH,QAAO,CAAC,CAAC,cAAc,YAAY,QAAQ;GAE7C,QACE,QAAO;;;AAIb,QAAO,KAAK,CAAC,QAAQ,GAAG;;;;;;;;AChE1B,SAAgBC,YAAU,UAAkC,IAAI;CAC9D,MAAM,cAAc,OAAO,QAAQ,SAAS,SAAS,CAAC,KAAK,SAAS;AAClE,UAAQ,KAAR;GACE,KAAK,wBAAwB;IAC3B,MAAM,MAAM;AACZ,WAAO,CACL,CAAC,qCACD,MACE,KACE,GAAG,OAAO,QAAQ,KAAK,KAAK,CAACC,KAAG,OAAO;AACrC,SAAI,MAAM,QAAQ,GAChB,QAAO,KAAKA,KAAG,KAAK,GAAG;SAEvB,QAAO,KAAKA,KAAG;;;GAQ3B,KAAK,sBAAsB;IACzB,MAAM,MAAM;AACZ,WAAO,CACL,CAAC,mCACD,MAAM,KAAK,GAAG,IAAI,KAAK,MAAM,CAAC,GAAG;;GAIrC,KAAK,mBAAmB;IACtB,MAAM,MAAM;AASZ,WAAO,CACL,CAAC,gCACD,MACE,KAAK,GAAG,OAAO,QAAQ,KAAK,KAAK,CAACC,OAAKC,WAAS,KAAKD,OAAKC;;GAKhE,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK;GACL,KAAK,UACH,QAAO,CAAC,CAAC,cAAc,YAAY,QAAQ;GAE7C,QACE,QAAO;;;AAIb,QAAO,KAAK,CAAC,QAAQ,GAAG;;;;;;;;;;;AAY1B,MAAa,2BAA2B,KACtC,CAAC,OAED,KAAK,KAAK,CAAC,WAAW,MAEtB,KACE,CAAC,SAED,KAAK,CAAC,QAAQ,CAAC,QAAQ,KAAK,CAAC,iBAAiB,KAAK,CAAC,eAAe,OAEnE,KAAK,CAAC,QAAQ,CAAC,WAAW,KAAK,CAAC,UAAU,CAAC,WAAW,OAAO,CAAC,WAGhE,KACE,CAAC,oBACD,KAAK,CAAC,aACN,KAAK,CAAC,UAAU,CAAC,YACjB,KAAK,CAAC,gCACN,KAAK,CAAC,SAAS,KAAK,CAAC;;;;;;;ACzEzB,SAAgB,cACd,SACmB;CACnB,MAAM,EACJ,aAAa,CAAC,SACd,cAAc,IACd,gBAAgB,YAAY,KAAK,UAAU,4BAC3C,YAAY,GACZ,GAAG,SACD,WAAW;CAGf,MAAM,QAAQ,IAAI,MAAM;AAExB,KAAI,UAAU,SAAS,EACrB,OAAM,MAAM,GAAG,WAAW;AAI5B,KAAI,YAAY,SAAS,GAAG;EAC1B,MAAM,QAAQ,SAAS;AACvB,MAAI,MAAM,SAAS,EACjB,OACG,QAAQ,OACR,MAAM,KAAK,CAAC,8BAA8B,MAAM,KAAK,GAAG,UACxD;;AAIP,QAAO,EACL,OAAO,EAAE,SAAS,YAAY;AAE5B,MAAI,YAAY,CAAC,WAAW,MAAM,QAAQ,SAAS,SAAS,MAC1D,QAAO,EAAE,MAAM;EAIjB,MAAM,OAAO,MACV,QAAQ,aAAa,UACrB,MAAMC,UAAY,OAClB,MAAMC,YAAkB,OACxB,MAAM,0BACN,WAAW,SACX;AACH,SAAO,EAAE;;;AAKf,kBAAe"}

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "svelte-preprocess-org",
-  "version": "0.3.2",
+  "version": "0.3.3",
   "description": "Svelte preprocessor for Org-mode documents",
   "author": "RangHo Lee <hello@rangho.me>",
   "homepage": "https://github.com/RangHo/svelte-preprocess-org",