@thi.ng/lispy 0.1.0

package/CHANGELOG.md

@@ -0,0 +1,20 @@
+# Change Log
+
+- **Last updated**: 2025-05-20T19:06:30Z
+- **Generator**: [thi.ng/monopub](https://thi.ng/monopub)
+
+All notable changes to this project will be documented in this file.
+Only versions published since **2022-01-01** are listed here.
+Please consult the Git history for older version information.
+See [Conventional Commits](https://conventionalcommits.org/) for commit guidelines.
+
+**Note:** Unlisted _patch_ versions only involve non-code or otherwise excluded changes
+and/or version bumps of transitive dependencies.
+
+## [0.1.0](https://github.com/thi-ng/umbrella/tree/@thi.ng/lispy@0.1.0) (2025-05-20)
+
+#### 🚀 Features
+
+- import as new pkg ([5ddb591](https://github.com/thi-ng/umbrella/commit/5ddb591))
+- add more builtins ([c010478](https://github.com/thi-ng/umbrella/commit/c010478))
+- add string/regex builtins ([602c1b9](https://github.com/thi-ng/umbrella/commit/602c1b9))

package/LICENSE

@@ -0,0 +1,201 @@
+                                 Apache License
+                           Version 2.0, January 2004
+                        http://www.apache.org/licenses/
+
+   TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
+
+   1. Definitions.
+
+      "License" shall mean the terms and conditions for use, reproduction,
+      and distribution as defined by Sections 1 through 9 of this document.
+
+      "Licensor" shall mean the copyright owner or entity authorized by
+      the copyright owner that is granting the License.
+
+      "Legal Entity" shall mean the union of the acting entity and all
+      other entities that control, are controlled by, or are under common
+      control with that entity. For the purposes of this definition,
+      "control" means (i) the power, direct or indirect, to cause the
+      direction or management of such entity, whether by contract or
+      otherwise, or (ii) ownership of fifty percent (50%) or more of the
+      outstanding shares, or (iii) beneficial ownership of such entity.
+
+      "You" (or "Your") shall mean an individual or Legal Entity
+      exercising permissions granted by this License.
+
+      "Source" form shall mean the preferred form for making modifications,
+      including but not limited to software source code, documentation
+      source, and configuration files.
+
+      "Object" form shall mean any form resulting from mechanical
+      transformation or translation of a Source form, including but
+      not limited to compiled object code, generated documentation,
+      and conversions to other media types.
+
+      "Work" shall mean the work of authorship, whether in Source or
+      Object form, made available under the License, as indicated by a
+      copyright notice that is included in or attached to the work
+      (an example is provided in the Appendix below).
+
+      "Derivative Works" shall mean any work, whether in Source or Object
+      form, that is based on (or derived from) the Work and for which the
+      editorial revisions, annotations, elaborations, or other modifications
+      represent, as a whole, an original work of authorship. For the purposes
+      of this License, Derivative Works shall not include works that remain
+      separable from, or merely link (or bind by name) to the interfaces of,
+      the Work and Derivative Works thereof.
+
+      "Contribution" shall mean any work of authorship, including
+      the original version of the Work and any modifications or additions
+      to that Work or Derivative Works thereof, that is intentionally
+      submitted to Licensor for inclusion in the Work by the copyright owner
+      or by an individual or Legal Entity authorized to submit on behalf of
+      the copyright owner. For the purposes of this definition, "submitted"
+      means any form of electronic, verbal, or written communication sent
+      to the Licensor or its representatives, including but not limited to
+      communication on electronic mailing lists, source code control systems,
+      and issue tracking systems that are managed by, or on behalf of, the
+      Licensor for the purpose of discussing and improving the Work, but
+      excluding communication that is conspicuously marked or otherwise
+      designated in writing by the copyright owner as "Not a Contribution."
+
+      "Contributor" shall mean Licensor and any individual or Legal Entity
+      on behalf of whom a Contribution has been received by Licensor and
+      subsequently incorporated within the Work.
+
+   2. Grant of Copyright License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      copyright license to reproduce, prepare Derivative Works of,
+      publicly display, publicly perform, sublicense, and distribute the
+      Work and such Derivative Works in Source or Object form.
+
+   3. Grant of Patent License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      (except as stated in this section) patent license to make, have made,
+      use, offer to sell, sell, import, and otherwise transfer the Work,
+      where such license applies only to those patent claims licensable
+      by such Contributor that are necessarily infringed by their
+      Contribution(s) alone or by combination of their Contribution(s)
+      with the Work to which such Contribution(s) was submitted. If You
+      institute patent litigation against any entity (including a
+      cross-claim or counterclaim in a lawsuit) alleging that the Work
+      or a Contribution incorporated within the Work constitutes direct
+      or contributory patent infringement, then any patent licenses
+      granted to You under this License for that Work shall terminate
+      as of the date such litigation is filed.
+
+   4. Redistribution. You may reproduce and distribute copies of the
+      Work or Derivative Works thereof in any medium, with or without
+      modifications, and in Source or Object form, provided that You
+      meet the following conditions:
+
+      (a) You must give any other recipients of the Work or
+          Derivative Works a copy of this License; and
+
+      (b) You must cause any modified files to carry prominent notices
+          stating that You changed the files; and
+
+      (c) You must retain, in the Source form of any Derivative Works
+          that You distribute, all copyright, patent, trademark, and
+          attribution notices from the Source form of the Work,
+          excluding those notices that do not pertain to any part of
+          the Derivative Works; and
+
+      (d) If the Work includes a "NOTICE" text file as part of its
+          distribution, then any Derivative Works that You distribute must
+          include a readable copy of the attribution notices contained
+          within such NOTICE file, excluding those notices that do not
+          pertain to any part of the Derivative Works, in at least one
+          of the following places: within a NOTICE text file distributed
+          as part of the Derivative Works; within the Source form or
+          documentation, if provided along with the Derivative Works; or,
+          within a display generated by the Derivative Works, if and
+          wherever such third-party notices normally appear. The contents
+          of the NOTICE file are for informational purposes only and
+          do not modify the License. You may add Your own attribution
+          notices within Derivative Works that You distribute, alongside
+          or as an addendum to the NOTICE text from the Work, provided
+          that such additional attribution notices cannot be construed
+          as modifying the License.
+
+      You may add Your own copyright statement to Your modifications and
+      may provide additional or different license terms and conditions
+      for use, reproduction, or distribution of Your modifications, or
+      for any such Derivative Works as a whole, provided Your use,
+      reproduction, and distribution of the Work otherwise complies with
+      the conditions stated in this License.
+
+   5. Submission of Contributions. Unless You explicitly state otherwise,
+      any Contribution intentionally submitted for inclusion in the Work
+      by You to the Licensor shall be under the terms and conditions of
+      this License, without any additional terms or conditions.
+      Notwithstanding the above, nothing herein shall supersede or modify
+      the terms of any separate license agreement you may have executed
+      with Licensor regarding such Contributions.
+
+   6. Trademarks. This License does not grant permission to use the trade
+      names, trademarks, service marks, or product names of the Licensor,
+      except as required for reasonable and customary use in describing the
+      origin of the Work and reproducing the content of the NOTICE file.
+
+   7. Disclaimer of Warranty. Unless required by applicable law or
+      agreed to in writing, Licensor provides the Work (and each
+      Contributor provides its Contributions) on an "AS IS" BASIS,
+      WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+      implied, including, without limitation, any warranties or conditions
+      of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
+      PARTICULAR PURPOSE. You are solely responsible for determining the
+      appropriateness of using or redistributing the Work and assume any
+      risks associated with Your exercise of permissions under this License.
+
+   8. Limitation of Liability. In no event and under no legal theory,
+      whether in tort (including negligence), contract, or otherwise,
+      unless required by applicable law (such as deliberate and grossly
+      negligent acts) or agreed to in writing, shall any Contributor be
+      liable to You for damages, including any direct, indirect, special,
+      incidental, or consequential damages of any character arising as a
+      result of this License or out of the use or inability to use the
+      Work (including but not limited to damages for loss of goodwill,
+      work stoppage, computer failure or malfunction, or any and all
+      other commercial damages or losses), even if such Contributor
+      has been advised of the possibility of such damages.
+
+   9. Accepting Warranty or Additional Liability. While redistributing
+      the Work or Derivative Works thereof, You may choose to offer,
+      and charge a fee for, acceptance of support, warranty, indemnity,
+      or other liability obligations and/or rights consistent with this
+      License. However, in accepting such obligations, You may act only
+      on Your own behalf and on Your sole responsibility, not on behalf
+      of any other Contributor, and only if You agree to indemnify,
+      defend, and hold each Contributor harmless for any liability
+      incurred by, or claims asserted against, such Contributor by reason
+      of your accepting any such warranty or additional liability.
+
+   END OF TERMS AND CONDITIONS
+
+   APPENDIX: How to apply the Apache License to your work.
+
+      To apply the Apache License to your work, attach the following
+      boilerplate notice, with the fields enclosed by brackets "{}"
+      replaced with your own identifying information. (Don't include
+      the brackets!)  The text should be enclosed in the appropriate
+      comment syntax for the file format. We also recommend that a
+      file or class name and description of purpose be included on the
+      same "printed page" as the copyright notice for easier
+      identification within third-party archives.
+
+   Copyright {yyyy} {name of copyright owner}
+
+   Licensed under the Apache License, Version 2.0 (the "License");
+   you may not use this file except in compliance with the License.
+   You may obtain a copy of the License at
+
+       http://www.apache.org/licenses/LICENSE-2.0
+
+   Unless required by applicable law or agreed to in writing, software
+   distributed under the License is distributed on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+   See the License for the specific language governing permissions and
+   limitations under the License.

package/README.md

@@ -0,0 +1,313 @@
+<!-- This file is generated - DO NOT EDIT! -->
+<!-- Please see: https://github.com/thi-ng/umbrella/blob/develop/CONTRIBUTING.md#changes-to-readme-files -->
+# ![@thi.ng/lispy](https://raw.githubusercontent.com/thi-ng/umbrella/develop/assets/banners/thing-lispy.svg?a9b3f1f7)
+
+[![npm version](https://img.shields.io/npm/v/@thi.ng/lispy.svg)](https://www.npmjs.com/package/@thi.ng/lispy)
+![npm downloads](https://img.shields.io/npm/dm/@thi.ng/lispy.svg)
+[![Mastodon Follow](https://img.shields.io/mastodon/follow/109331703950160316?domain=https%3A%2F%2Fmastodon.thi.ng&style=social)](https://mastodon.thi.ng/@toxi)
+
+> [!NOTE]
+> This is one of 208 standalone projects, maintained as part
+> of the [@thi.ng/umbrella](https://github.com/thi-ng/umbrella/) monorepo
+> and anti-framework.
+>
+> 🚀 Please help me to work full-time on these projects by [sponsoring me on
+> GitHub](https://github.com/sponsors/postspectacular). Thank you! ❤️
+
+- [About](#about)
+- [Status](#status)
+- [Installation](#installation)
+- [Dependencies](#dependencies)
+- [Usage examples](#usage-examples)
+- [API](#api)
+- [Authors](#authors)
+- [License](#license)
+
+## About
+
+Lightweight, extensible, interpreted Lisp-style DSL for embedding in other projects.
+
+> [!NOTE] This DSL implementation has been extracted as standalone package from
+> existing work/examples bundled in the thi.ng/umbrella monorepo (i.e.
+> [lispy-repl](https://github.com/thi-ng/umbrella/tree/develop/examples/lispy-repl))
+
+The core language is intentionally kept extremely minimal and currently only
+contains the following:
+
+- basic math ops (multi-arity)
+- logic operators (multi-arity)
+    - `and`
+    - `or`
+    - `not`
+- bitwise operators
+    - `<<`
+    - `>>` / `>>>`
+    - `bit-and`
+    - `bit-or`
+    - `bit-xor`
+    - `bit-not`
+- comparison operators
+- constants & functions from JS-native `Math`
+- selected utilities from [thi.ng/math](https://thi.ng/math) package
+    - `HALF_PI`
+    - `TAU`
+    - `clamp`: clamp value to interval
+    - `deg`: convert radians to degrees
+    - `fit`: fit value from one interval into another
+    - `mix`: linear interpolation (same as GLSL `mix()`)
+    - `rad`: convert degrees to radians
+    - `step`: same as GLSL `step()`
+    - `smoothstep`: same as GLSL `smoothstep()`
+- basic FP programming constructs
+    - `comp`: functional composition
+    - `def`: define global symbol
+    - `defn`: define global function
+    - `let`: locally scope var bindings/expression
+    - `partial`: partial application (currying)
+- basic list/array processing
+    - `aget`: get array index
+    - `aset`: set array index
+    - `count`: number of items
+    - `concat`: same as `Array.prototype.concat(...)`
+    - `filter`: list/array filtering
+    - `first`: first item of array
+    - `map`: list/array transformation
+    - `next`: remaining array items (after first)
+    - `push`: same as `Array.prototype.push(...)`
+    - `reduce`: list/array reduction
+- string/regexp processing
+    - `capitalize`
+    - `lower`
+    - `upper`
+    - `pad-left`
+    - `pad-right`
+    - `substr`
+    - `trim`
+    - `regexp`
+    - `re-match`
+    - `re-test`
+    - `replace`
+- misc utilities
+    - `print`: aka `console.log(...)`
+    - `env`: JSON stringified version of current root env
+
+The core language can be easily customized/extended by defining new items in the
+root environment `ENV` (see example below).
+
+## Status
+
+**ALPHA** - bleeding edge / work-in-progress
+
+[Search or submit any issues for this package](https://github.com/thi-ng/umbrella/issues?q=%5Blispy%5D+in%3Atitle)
+
+## Installation
+
+```bash
+yarn add @thi.ng/lispy
+```
+
+ESM import:
+
+```ts
+import * as lispy from "@thi.ng/lispy";
+```
+
+Browser ESM import:
+
+```html
+<script type="module" src="https://esm.run/@thi.ng/lispy"></script>
+```
+
+[JSDelivr documentation](https://www.jsdelivr.com/)
+
+For Node.js REPL:
+
+```js
+const lispy = await import("@thi.ng/lispy");
+```
+
+Package sizes (brotli'd, pre-treeshake): ESM: 1.50 KB
+
+## Dependencies
+
+- [@thi.ng/api](https://github.com/thi-ng/umbrella/tree/develop/packages/api)
+- [@thi.ng/checks](https://github.com/thi-ng/umbrella/tree/develop/packages/checks)
+- [@thi.ng/compare](https://github.com/thi-ng/umbrella/tree/develop/packages/compare)
+- [@thi.ng/defmulti](https://github.com/thi-ng/umbrella/tree/develop/packages/defmulti)
+- [@thi.ng/errors](https://github.com/thi-ng/umbrella/tree/develop/packages/errors)
+- [@thi.ng/math](https://github.com/thi-ng/umbrella/tree/develop/packages/math)
+- [@thi.ng/object-utils](https://github.com/thi-ng/umbrella/tree/develop/packages/object-utils)
+- [@thi.ng/sexpr](https://github.com/thi-ng/umbrella/tree/develop/packages/sexpr)
+- [@thi.ng/strings](https://github.com/thi-ng/umbrella/tree/develop/packages/strings)
+
+Note: @thi.ng/api is in _most_ cases a type-only import (not used at runtime)
+
+## Usage examples
+
+One project in this repo's
+[/examples](https://github.com/thi-ng/umbrella/tree/develop/examples)
+directory is using this package:
+
+| Screenshot                                                                                                        | Description                                               | Live demo                                        | Source                                                                        |
+|:------------------------------------------------------------------------------------------------------------------|:----------------------------------------------------------|:-------------------------------------------------|:------------------------------------------------------------------------------|
+| <img src="https://raw.githubusercontent.com/thi-ng/umbrella/develop/assets/examples/lispy-repl.png" width="240"/> | Browser REPL for a Lispy S-expression based mini language | [Demo](https://demo.thi.ng/umbrella/lispy-repl/) | [Source](https://github.com/thi-ng/umbrella/tree/develop/examples/lispy-repl) |
+
+## API
+
+[Generated API docs](https://docs.thi.ng/umbrella/lispy/)
+
+```ts tangle:export/readme-1.ts
+import { evalSource, ENV } from "@thi.ng/lispy";
+
+// define custom FFI in the root environment
+// (here it's actually the same as default print fn)
+ENV.print = console.log;
+
+const SRC = `
+(print (+ 1 2 3 4))
+;; 10
+
+;; local variables
+(let (a 23 b 42) (print (+ a b)))
+;; 65
+
+;; define global var/fn
+;; here, a curried version of the built-in print fn
+(def greetings! (partial print "hello,"))
+
+;; print greeting (name will be provided externally)
+(greetings! name)
+;; hello, lispy!
+
+;; print contents of default environment
+(print (env))
+`;
+
+evalSource(SRC, {...ENV, name: "lispy"});
+
+// output:
+// 10
+// 65
+// hello, lispy!
+//
+// {
+//   "+": "<function>",
+//   "*": "<function>",
+//   "-": "<function>",
+//   "/": "<function>",
+//   "=": "<function>",
+//   "!=": "<function>",
+//   "<": "<function>",
+//   "<=": "<function>",
+//   ">=": "<function>",
+//   ">": "<function>",
+//   "and": "<function>",
+//   "or": "<function>",
+//   "not": "<function>",
+//   "<<": "<function>",
+//   ">>": "<function>",
+//   ">>>": "<function>",
+//   "bit-and": "<function>",
+//   "bit-or": "<function>",
+//   "bit-xor": "<function>",
+//   "bit-not": "<function>",
+//   "E": 2.718281828459045,
+//   "LN10": 2.302585092994046,
+//   "LN2": 0.6931471805599453,
+//   "LOG10E": 0.4342944819032518,
+//   "LOG2E": 1.4426950408889634,
+//   "PI": 3.141592653589793,
+//   "SQRT1_2": 0.7071067811865476,
+//   "SQRT2": 1.4142135623730951,
+//   "abs": "<function>",
+//   "acos": "<function>",
+//   "acosh": "<function>",
+//   "asin": "<function>",
+//   "asinh": "<function>",
+//   "atan": "<function>",
+//   "atan2": "<function>",
+//   "atanh": "<function>",
+//   "cbrt": "<function>",
+//   "ceil": "<function>",
+//   "clz32": "<function>",
+//   "cos": "<function>",
+//   "cosh": "<function>",
+//   "exp": "<function>",
+//   "expm1": "<function>",
+//   "floor": "<function>",
+//   "fround": "<function>",
+//   "hypot": "<function>",
+//   "imul": "<function>",
+//   "log": "<function>",
+//   "log10": "<function>",
+//   "log1p": "<function>",
+//   "log2": "<function>",
+//   "max": "<function>",
+//   "min": "<function>",
+//   "pow": "<function>",
+//   "random": "<function>",
+//   "round": "<function>",
+//   "sign": "<function>",
+//   "sin": "<function>",
+//   "sinh": "<function>",
+//   "sqrt": "<function>",
+//   "tan": "<function>",
+//   "tanh": "<function>",
+//   "trunc": "<function>",
+//   "HALF_PI": 1.5707963267948966,
+//   "TAU": 6.283185307179586,
+//   "clamp": "<function>",
+//   "deg": "<function>",
+//   "fit": "<function>",
+//   "mix": "<function>",
+//   "rad": "<function>",
+//   "step": "<function>",
+//   "smoothstep": "<function>",
+//   "aget": "<function>",
+//   "aset": "<function>",
+//   "push": "<function>",
+//   "concat": "<function>",
+//   "count": "<function>",
+//   "first": "<function>",
+//   "next": "<function>",
+//   "lower": "<function>",
+//   "upper": "<function>",
+//   "capitalize": "<function>",
+//   "pad-left": "<function>",
+//   "pad-right": "<function>",
+//   "substr": "<function>",
+//   "trim": "<function>",
+//   "regexp": "<function>",
+//   "re-test": "<function>",
+//   "re-match": "<function>",
+//   "replace": "<function>",
+//   "print": "<function>",
+//   "env": "<function>",
+//   "partial": "<function>",
+//   "partial2": "<function>",
+//   "comp": "<function>",
+//   "comp2": "<function>",
+//   "reduce": "<function>",
+//   "map": "<function>",
+//   "filter": "<function>"
+// }
+```
+
+## Authors
+
+- [Karsten Schmidt](https://thi.ng)
+
+If this project contributes to an academic publication, please cite it as:
+
+```bibtex
+@misc{thing-lispy,
+  title = "@thi.ng/lispy",
+  author = "Karsten Schmidt",
+  note = "https://thi.ng/lispy",
+  year = 2025
+}
+```
+
+## License
+
+&copy; 2025 Karsten Schmidt // Apache License 2.0

package/index.d.ts

@@ -0,0 +1,25 @@
+import type { ASTNode } from "@thi.ng/sexpr";
+export type Env = Record<string, any>;
+/**
+ * DSL built-ins as multi-method which directly operates on AST nodes. For
+ * userland extensions of the core language, it's likely more straightforward to
+ * define new constants/functions in {@link ENV}.
+ */
+export declare const BUILTINS: import("@thi.ng/defmulti").MultiFn2<ASTNode[], Env, any>;
+/**
+ * Root environment bindings. This is the default env used by
+ * {@link evalExpressions} and can be used to define extensions of the core
+ * language. Functions defined here can receive any number of arguments.
+ */
+export declare const ENV: Env;
+/**
+ * Parses & evaluates given S-expression(s) and returns result of last one. If
+ * no environment is provided, uses {@link ENV}.
+ *
+ * @param src
+ * @param env
+ */
+export declare const evalSource: (src: string, env?: Env) => any;
+export declare const evalArgs: (nodes: ASTNode[], env?: Env) => any[];
+export declare const interpret: import("@thi.ng/defmulti").MultiFn2<ASTNode, Env, any>;
+//# sourceMappingURL=index.d.ts.map

package/index.js

@@ -0,0 +1,207 @@
+import { isFunction } from "@thi.ng/checks/is-function";
+import { OPERATORS } from "@thi.ng/compare/ops";
+import { DEFAULT, defmulti } from "@thi.ng/defmulti";
+import { assert } from "@thi.ng/errors/assert";
+import { illegalArgs } from "@thi.ng/errors/illegal-arguments";
+import { illegalArity } from "@thi.ng/errors/illegal-arity";
+import { deg, rad } from "@thi.ng/math/angle";
+import { HALF_PI, TAU } from "@thi.ng/math/api";
+import { fit } from "@thi.ng/math/fit";
+import { clamp } from "@thi.ng/math/interval";
+import { mix } from "@thi.ng/math/mix";
+import { smoothStep, step } from "@thi.ng/math/step";
+import { selectKeysObj } from "@thi.ng/object-utils/select-keys";
+import { parse } from "@thi.ng/sexpr/parse";
+import { runtime } from "@thi.ng/sexpr/runtime";
+import { capitalize, lower, upper } from "@thi.ng/strings/case";
+import { KERNEL } from "./kernel.js";
+const __mathOp = (fn, fn1) => (first, ...args) => {
+  return args.length > 0 ? (
+    // use a reduction for 2+ args
+    args.reduce((acc, x) => fn(acc, x), first)
+  ) : (
+    // apply special case unary function
+    fn1(first)
+  );
+};
+const __fnImpl = (args, body, env) => (...xs) => {
+  const $args = args.children;
+  if ($args.length !== xs.length) illegalArity($args.length);
+  const $env = $args.reduce(
+    (acc, a, i) => (acc[a.value] = xs[i], acc),
+    { ...env }
+  );
+  return body.reduce((_, x) => interpret(x, $env), void 0);
+};
+const BUILTINS = defmulti(
+  (x) => x[0].value,
+  {},
+  {
+    // defines as new symbol with given value, stores it in the environment and
+    // then returns the value, e.g. `(def magic 42)`
+    def: ([_, name, value], env) => env[name.value] = interpret(value, env),
+    // defines a new function with given name, args and body, stores it in the
+    // environment and returns it, e.g. `(defn madd (a b c) (+ (* a b) c))`
+    defn: ([_, name, args, ...body], env) => {
+      return env[name.value] = __fnImpl(args, body, env);
+    },
+    // anonymous function definition
+    fn: ([_, args, ...body], env) => __fnImpl(args, body, env),
+    // if/then conditional with optional else
+    if: ([_, test, truthy, falsy], env) => interpret(test, env) ? interpret(truthy, env) : falsy ? interpret(falsy, env) : void 0,
+    // create local symbol/variable bindings, e.g.
+    // `(let (a 1 b 2 c (+ a b)) (print a b c))`
+    let: ([_, args, ...body], env) => {
+      const pairs = args.children;
+      assert(
+        args.type === "expr" && !(pairs.length % 2),
+        `require pairs of key-val bindings`
+      );
+      let $env = { ...env };
+      for (let i = 0, n = pairs.length; i < n; i += 2) {
+        assert(
+          pairs[i].type === "sym",
+          `expected symbol, got: ${pairs[i].type}`
+        );
+        $env[pairs[i].value] = interpret(pairs[i + 1], $env);
+      }
+      return body.reduce((_2, x) => interpret(x, $env), void 0);
+    },
+    list: ([_, ...body], env) => evalArgs(body, env),
+    // add default/fallback implementation to allow calling functions defined in
+    // the environment (either externally or via `defn`)
+    [DEFAULT]: ([x, ...args], env) => {
+      const name = x.value;
+      const f = env[name];
+      if (f == null) illegalArgs(`${name} is not defined`);
+      if (!isFunction(f)) illegalArgs(`${name} is not a function`);
+      return f.apply(null, evalArgs(args, env));
+    }
+  }
+);
+const ENV = {
+  // prettier-ignore
+  "+": __mathOp((acc, x) => acc + x, (x) => x),
+  // prettier-ignore
+  "*": __mathOp((acc, x) => acc * x, (x) => x),
+  // prettier-ignore
+  "-": __mathOp((acc, x) => acc - x, (x) => -x),
+  // prettier-ignore
+  "/": __mathOp((acc, x) => acc / x, (x) => 1 / x),
+  // comparisons
+  ...OPERATORS,
+  // boolean logic
+  and: (...args) => args.every((x) => !!x),
+  or: (...args) => args.some((x) => !!x),
+  not: (x) => !x,
+  // binary
+  "<<": (x, y) => x << y,
+  ">>": (x, y) => x >> y,
+  ">>>": (x, y) => x >>> y,
+  "bit-and": (x, y) => x & y,
+  "bit-or": (x, y) => x | y,
+  "bit-xor": (x, y) => x ^ y,
+  "bit-not": (x) => ~x,
+  // JS-native Math
+  ...selectKeysObj(Math, [
+    "E",
+    "LN10",
+    "LN2",
+    "LOG10E",
+    "LOG2E",
+    "PI",
+    "SQRT1_2",
+    "SQRT2",
+    "abs",
+    "acos",
+    "acosh",
+    "asin",
+    "asinh",
+    "atan",
+    "atan2",
+    "atanh",
+    "cbrt",
+    "ceil",
+    "clz32",
+    "cos",
+    "cosh",
+    "exp",
+    "expm1",
+    "floor",
+    "fround",
+    "hypot",
+    "imul",
+    "log",
+    "log10",
+    "log1p",
+    "log2",
+    "max",
+    "min",
+    "pow",
+    "random",
+    "round",
+    "sign",
+    "sin",
+    "sinh",
+    "sqrt",
+    "tan",
+    "tanh",
+    "trunc"
+  ]),
+  HALF_PI,
+  TAU,
+  clamp,
+  deg,
+  fit,
+  mix,
+  rad,
+  step,
+  smoothstep: smoothStep,
+  aget: (arr, i) => arr[i],
+  aset: (arr, i, x) => arr[i] = x,
+  push: (list, ...x) => list.push(...x),
+  concat: (list, ...x) => list.concat(...x),
+  // returns length of first argument (presumably a list or string)
+  // (e.g. `(count "abc")` => 3)
+  count: (arg) => arg.length,
+  // returns first item of list/string
+  first: (arg) => arg[0],
+  // returns remaining list/string (from 2nd item onward) or undefined if
+  // there're no further items
+  next: (arg) => arg.length > 1 ? arg.slice(1) : void 0,
+  // strings
+  lower,
+  upper,
+  capitalize,
+  "pad-left": (x, width, fill) => x.padStart(width, fill),
+  "pad-right": (x, width, fill) => x.padEnd(width, fill),
+  substr: (x, from, to) => x.substring(from, to),
+  trim: (x) => x.trimEnd(),
+  regexp: (src, flags) => new RegExp(src, flags),
+  "re-test": (regexp, x) => regexp.test(x),
+  "re-match": (regexp, x) => regexp.exec(x),
+  replace: (x, regexp, replacement) => x.replace(regexp, replacement),
+  // misc
+  print: console.log,
+  env: () => JSON.stringify(
+    ENV,
+    (_, val) => isFunction(val) ? "<function>" : val,
+    2
+  )
+};
+const evalSource = (src, env = ENV) => parse(src).children.reduce((_, x) => interpret(x, env), void 0);
+const evalArgs = (nodes, env = ENV) => nodes.map((a) => interpret(a, env));
+const interpret = runtime({
+  expr: (x, env) => BUILTINS(x.children, env),
+  sym: (x, env) => env[x.value],
+  str: (x) => x.value,
+  num: (x) => x.value
+});
+evalSource(KERNEL);
+export {
+  BUILTINS,
+  ENV,
+  evalArgs,
+  evalSource,
+  interpret
+};

package/kernel.d.ts

@@ -0,0 +1,2 @@
+export declare const KERNEL = "\n; partial functional application (currying for 1 arg)\n(defn partial (f x) (fn (y) (f x y)))\n\n; partial functional application (currying for 2 args)\n(defn partial2 (f x y) (fn (z) (f x y z)))\n\n; functional composition for 1-arg fns\n(defn comp (f g) (fn (x) (f (g x))))\n\n; functional composition for 2-arg fns\n(defn comp2 (f g) (fn (x y z) (f (g x y) z)))\n\n; list reduction\n(defn reduce (f acc xs) (if xs (reduce f (f acc (first xs)) (next xs)) acc))\n\n; list transformation (expressed as reduction)\n(defn map (f xs) (reduce (fn (acc x) (concat acc (f x))) (list) xs))\n\n; filter list with predicate function\n(defn filter (f xs) (reduce (fn (acc x) (if (f x) (concat acc x) acc)) (list) xs))\n";
+//# sourceMappingURL=kernel.d.ts.map

package/kernel.js

@@ -0,0 +1,25 @@
+const KERNEL = `
+; partial functional application (currying for 1 arg)
+(defn partial (f x) (fn (y) (f x y)))
+
+; partial functional application (currying for 2 args)
+(defn partial2 (f x y) (fn (z) (f x y z)))
+
+; functional composition for 1-arg fns
+(defn comp (f g) (fn (x) (f (g x))))
+
+; functional composition for 2-arg fns
+(defn comp2 (f g) (fn (x y z) (f (g x y) z)))
+
+; list reduction
+(defn reduce (f acc xs) (if xs (reduce f (f acc (first xs)) (next xs)) acc))
+
+; list transformation (expressed as reduction)
+(defn map (f xs) (reduce (fn (acc x) (concat acc (f x))) (list) xs))
+
+; filter list with predicate function
+(defn filter (f xs) (reduce (fn (acc x) (if (f x) (concat acc x) acc)) (list) xs))
+`;
+export {
+  KERNEL
+};

package/package.json

@@ -0,0 +1,87 @@
+{
+  "name": "@thi.ng/lispy",
+  "version": "0.1.0",
+  "description": "Lightweight, extensible, interpreted Lisp-style DSL for embedding in other projects",
+  "type": "module",
+  "module": "./index.js",
+  "typings": "./index.d.ts",
+  "sideEffects": false,
+  "repository": {
+    "type": "git",
+    "url": "https://github.com/thi-ng/umbrella.git"
+  },
+  "homepage": "https://thi.ng/lispy",
+  "funding": [
+    {
+      "type": "github",
+      "url": "https://github.com/sponsors/postspectacular"
+    },
+    {
+      "type": "patreon",
+      "url": "https://patreon.com/thing_umbrella"
+    },
+    {
+      "type": "liberapay",
+      "url": "https://liberapay.com/thi.ng"
+    }
+  ],
+  "author": "Karsten Schmidt (https://thi.ng)",
+  "license": "Apache-2.0",
+  "scripts": {
+    "build": "yarn build:esbuild && yarn build:decl",
+    "build:decl": "tsc --declaration --emitDeclarationOnly",
+    "build:esbuild": "esbuild --format=esm --platform=neutral --target=es2022 --tsconfig=tsconfig.json --outdir=. src/**/*.ts",
+    "clean": "bun ../../tools/src/clean-package.ts",
+    "doc": "typedoc --options ../../typedoc.json --out doc src/index.ts",
+    "doc:readme": "bun ../../tools/src/module-stats.ts && bun ../../tools/src/readme.ts",
+    "pub": "yarn npm publish --access public",
+    "test": "bun test",
+    "tool:tangle": "../../node_modules/.bin/tangle src/**/*.ts"
+  },
+  "dependencies": {
+    "@thi.ng/api": "^8.11.27",
+    "@thi.ng/checks": "^3.7.7",
+    "@thi.ng/compare": "^2.4.19",
+    "@thi.ng/defmulti": "^3.0.67",
+    "@thi.ng/errors": "^2.5.33",
+    "@thi.ng/math": "^5.11.27",
+    "@thi.ng/object-utils": "^1.1.23",
+    "@thi.ng/sexpr": "^1.0.16",
+    "@thi.ng/strings": "^3.9.12"
+  },
+  "devDependencies": {
+    "esbuild": "^0.25.3",
+    "typedoc": "^0.28.3",
+    "typescript": "^5.8.3"
+  },
+  "keywords": [
+    "typescript"
+  ],
+  "publishConfig": {
+    "access": "public"
+  },
+  "browser": {
+    "process": false,
+    "setTimeout": false
+  },
+  "engines": {
+    "node": ">=18"
+  },
+  "files": [
+    "./*.js",
+    "./*.d.ts"
+  ],
+  "exports": {
+    ".": {
+      "default": "./index.js"
+    },
+    "./kernel": {
+      "default": "./kernel.js"
+    }
+  },
+  "thi.ng": {
+    "status": "alpha",
+    "year": 2025
+  },
+  "gitHead": "90ae29324123738dde721193785a6743cdf4181e\n"
+}