@calcit/procs 0.8.35 → 0.8.36

package/lib/calcit.procs.mjs

@@ -130,7 +130,12 @@ export let peekDefatom = (path) => {
     return refsRegistry.get(path);
 };
 export let _$n_atom_$o_deref = (x) => {
-    return x.value;
+    if (x instanceof CalcitRef) {
+        return x.value;
+    }
+    else {
+        throw new Error("Expected CalcitRef");
+    }
 };
 export let _$n__ADD_ = (x, y) => {
     return x + y;

package/lib/custom-formatter.mjs

@@ -1,4 +1,4 @@
-import { is_literal } from "./js-primes.mjs";
+import { isLiteral } from "./js-primes.mjs";
 import { CalcitRef, CalcitSymbol, CalcitTag } from "./calcit-data.mjs";
 import { CalcitRecord } from "./js-record.mjs";
 import { CalcitMap, CalcitSliceMap } from "./js-map.mjs";
@@ -27,7 +27,10 @@ let styles = (o) => {
     let keys = Object.keys(o);
     for (let idx = 0; idx < keys.length; idx++) {
         let key = keys[idx];
-        styleCode += `${kabab(key)}:${o[key]};`;
+        let value = o[key];
+        if (value) {
+            styleCode += `${kabab(key)}:${value};`;
+        }
     }
     return {
         style: styleCode,
@@ -55,6 +58,23 @@ let tr = (style, ...children) => {
 let td = (style, ...children) => {
     return ["td", styles(style), ...children];
 };
+/** handle null value in nested data */
+let saveString = (v) => {
+    if (typeof v === "string") {
+        if (v.match(/[\s\"\n\t\,]/)) {
+            return `"|${v}"`;
+        }
+        else {
+            return `|${v}`;
+        }
+    }
+    else if (v != null && v.toString) {
+        return v.toString();
+    }
+    else {
+        return "nil";
+    }
+};
 export let load_console_formatter_$x_ = () => {
     if (typeof window === "object") {
         window["devtoolsFormatters"] = [
@@ -68,18 +88,20 @@ export let load_console_formatter_$x_ = () => {
                     }
                     if (obj instanceof CalcitList || obj instanceof CalcitSliceList) {
                         let preview = "";
+                        let hasCollection = false;
                         for (let idx = 0; idx < obj.len(); idx++) {
                             preview += " ";
-                            if (is_literal(obj.get(idx))) {
-                                preview += obj.get(idx).toString();
+                            if (isLiteral(obj.get(idx))) {
+                                preview += saveString(obj.get(idx));
                             }
                             else {
                                 preview += "..";
+                                hasCollection = true;
                                 break;
                             }
                         }
                         return div({
-                            color: hsl(280, 80, 60, 0.4),
+                            color: hasCollection ? hsl(280, 80, 60, 0.4) : null,
                         }, `[]`, span({
                             fontSize: "8px",
                             verticalAlign: "middle",
@@ -88,17 +110,19 @@ export let load_console_formatter_$x_ = () => {
                     }
                     if (obj instanceof CalcitMap || obj instanceof CalcitSliceMap) {
                         let preview = "";
+                        let hasCollection = false;
                         for (let [k, v] of obj.pairs()) {
                             preview += " ";
-                            if (is_literal(k) && is_literal(v)) {
-                                preview += `(${k.toString()} ${v.toString()})`;
+                            if (isLiteral(k) && isLiteral(v)) {
+                                preview += `(${saveString(k)} ${saveString(v)})`;
                             }
                             else {
                                 preview += "..";
+                                hasCollection = true;
                                 break;
                             }
                         }
-                        return div({ color: hsl(280, 80, 60, 0.4) }, "{}", preview);
+                        return div({ color: hasCollection ? hsl(280, 80, 60, 0.4) : undefined }, "{}", preview);
                     }
                     if (obj instanceof CalcitSet) {
                         return div({ color: hsl(280, 80, 60, 0.4) }, obj.toString(true));
@@ -108,11 +132,20 @@ export let load_console_formatter_$x_ = () => {
                         return ret;
                     }
                     if (obj instanceof CalcitTuple) {
-                        let ret = div({}, div({ display: "inline-block", color: hsl(300, 100, 40) }, "::"), div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.tag)));
-                        for (let idx = 0; idx < obj.extra.length; idx++) {
-                            ret.push(div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.extra[idx])));
+                        if (obj.klass) {
+                            let ret = div({}, div({ display: "inline-block", color: hsl(300, 100, 40) }, "%::"), div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.klass)), div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.tag)));
+                            for (let idx = 0; idx < obj.extra.length; idx++) {
+                                ret.push(div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.extra[idx])));
+                            }
+                            return ret;
+                        }
+                        else {
+                            let ret = div({}, div({ display: "inline-block", color: hsl(300, 100, 40) }, "::"), div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.tag)));
+                            for (let idx = 0; idx < obj.extra.length; idx++) {
+                                ret.push(div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.extra[idx])));
+                            }
+                            return ret;
                         }
-                        return ret;
                     }
                     if (obj instanceof CalcitRef) {
                         return div({
@@ -126,24 +159,12 @@ export let load_console_formatter_$x_ = () => {
                 },
                 hasBody: (obj) => {
                     if (obj instanceof CalcitList || obj instanceof CalcitSliceList) {
-                        let has_collection = false;
-                        for (let idx = 0; idx < obj.len(); idx++) {
-                            if (!is_literal(obj.get(idx))) {
-                                has_collection = true;
-                                break;
-                            }
-                        }
-                        return obj.len() > 0 && has_collection;
+                        let hasCollection = obj.nestedDataInChildren();
+                        return obj.len() > 0 && hasCollection;
                     }
                     if (obj instanceof CalcitMap || obj instanceof CalcitSliceMap) {
-                        let has_collection = false;
-                        for (let [k, v] of obj.pairs()) {
-                            if (!is_literal(k) || !is_literal(v)) {
-                                has_collection = true;
-                                break;
-                            }
-                        }
-                        return obj.len() > 0 && has_collection;
+                        let hasCollection = obj.nestedDataInChildren();
+                        return obj.len() > 0 && hasCollection;
                     }
                     if (obj instanceof CalcitSet) {
                         return obj.len() > 0;
@@ -179,8 +200,8 @@ export let load_console_formatter_$x_ = () => {
                         let ret = table({ color: hsl(280, 80, 60), borderLeft: "1px solid #eee" });
                         let pairs = obj.pairs();
                         pairs.sort((pa, pb) => {
-                            let ka = pa[0].toString();
-                            let kb = pb[0].toString();
+                            let ka = saveString(pa[0]);
+                            let kb = saveString(pb[0]);
                             if (ka < kb) {
                                 return -1;
                             }

package/lib/js-cirru.mjs

@@ -1,5 +1,5 @@
 import { writeCirruCode } from "@cirru/writer.ts";
-import { is_literal, _$n_compare } from "./js-primes.mjs";
+import { isLiteral, _$n_compare } from "./js-primes.mjs";
 import { CalcitList, CalcitSliceList } from "./js-list.mjs";
 import { CalcitRecord } from "./js-record.mjs";
 import { CalcitMap, CalcitSliceMap } from "./js-map.mjs";
@@ -94,10 +94,10 @@ export let to_cirru_edn = (x) => {
             pairs_buffer.push(pairs[idx]);
         }
         pairs_buffer.sort((a, b) => {
-            let a0_literal = is_literal(a[0]);
-            let a1_literal = is_literal(a[1]);
-            let b0_literal = is_literal(b[0]);
-            let b1_literal = is_literal(b[1]);
+            let a0_literal = isLiteral(a[0]);
+            let a1_literal = isLiteral(a[1]);
+            let b0_literal = isLiteral(b[0]);
+            let b1_literal = isLiteral(b[1]);
             if (a0_literal && b0_literal) {
                 if (a1_literal && !b1_literal) {
                     return -1;
@@ -132,8 +132,8 @@ export let to_cirru_edn = (x) => {
         }
         // placed literals first
         buffer.sort((a, b) => {
-            let a1_literal = is_literal(a[1]);
-            let b1_literal = is_literal(b[1]);
+            let a1_literal = isLiteral(a[1]);
+            let b1_literal = isLiteral(b[1]);
             if (a1_literal && !b1_literal) {
                 return -1;
             }

package/lib/js-list.mjs

@@ -1,4 +1,5 @@
 import * as ternaryTree from "@calcit/ternary-tree";
+import { isLiteral } from "./js-primes.mjs";
 import { initTernaryTreeList, initTernaryTreeListFromRange, listLen, listGet, assocList, listToItems, dissocList, assocBefore, assocAfter, } from "@calcit/ternary-tree";
 import { CalcitMap, CalcitSliceMap } from "./js-map.mjs";
 import { CalcitSet } from "./js-set.mjs";
@@ -90,6 +91,13 @@ export class CalcitList {
     reverse() {
         return new CalcitList(ternaryTree.reverse(this.value));
     }
+    nestedDataInChildren() {
+        for (let idx = 0; idx < this.len(); idx++) {
+            if (!isLiteral(this.get(idx))) {
+                return true;
+            }
+        }
+    }
 }
 // represent append-only immutable list in Array slices
 export class CalcitSliceList {
@@ -238,6 +246,13 @@ export class CalcitSliceList {
     reverse() {
         return this.turnListMode().reverse();
     }
+    nestedDataInChildren() {
+        for (let idx = 0; idx < this.len(); idx++) {
+            if (!isLiteral(this.get(idx))) {
+                return true;
+            }
+        }
+    }
 }
 function* sliceGenerator(xs, start, end) {
     if (xs == null) {

package/lib/js-map.mjs

@@ -1,4 +1,5 @@
 import * as ternaryTree from "@calcit/ternary-tree";
+import { isLiteral } from "./js-primes.mjs";
 import { CalcitSet } from "./js-set.mjs";
 import { mapLen, assocMap, dissocMap, isMapEmpty, toPairsArray, mapGetDefault, initEmptyTernaryTreeMap, initTernaryTreeMapFromArray, } from "@calcit/ternary-tree";
 import { isNestedCalcitData, tipNestedCalcitData, toString } from "./calcit-data.mjs";
@@ -152,8 +153,16 @@ export class CalcitMap {
         }
         return new CalcitSet(ret);
     }
+    /** detecthing in custom formatter */
+    nestedDataInChildren() {
+        for (let [k, v] of this.pairs()) {
+            if (!isLiteral(k) || !isLiteral(v)) {
+                return true;
+            }
+        }
+    }
 }
-// store small map in linear array to reduce cost of building tree
+/* store small map in linear array to reduce cost of building tree  */
 export class CalcitSliceMap {
     constructor(value) {
         if (value == null) {
@@ -345,4 +354,12 @@ export class CalcitSliceMap {
         }
         return new CalcitSet(ret);
     }
+    /** detecthing in custom formatter */
+    nestedDataInChildren() {
+        for (let [k, v] of this.pairs()) {
+            if (!isLiteral(k) || !isLiteral(v)) {
+                return true;
+            }
+        }
+    }
 }

package/lib/js-primes.mjs

@@ -5,7 +5,7 @@ import { CalcitMap, CalcitSliceMap } from "./js-map.mjs";
 import { CalcitSet as CalcitSet } from "./js-set.mjs";
 import { CalcitTuple } from "./js-tuple.mjs";
 import { CalcitCirruQuote } from "./js-cirru.mjs";
-export let is_literal = (x) => {
+export let isLiteral = (x) => {
     if (x == null)
         return true;
     if (typeof x == "string")

package/lib/package.json

@@ -1,6 +1,6 @@
 {
     "name": "@calcit/procs",
-    "version": "0.8.35",
+    "version": "0.8.36",
     "main": "./lib/calcit.procs.mjs",
     "devDependencies": {
         "@types/node": "^20.11.8",

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@calcit/procs",
-  "version": "0.8.35",
+  "version": "0.8.36",
   "main": "./lib/calcit.procs.mjs",
   "devDependencies": {
     "@types/node": "^20.11.8",

package/ts-src/calcit.procs.mts

@@ -161,7 +161,11 @@ export let peekDefatom = (path: string): CalcitRef => {
 };
 
 export let _$n_atom_$o_deref = (x: CalcitRef): CalcitValue => {
-  return x.value;
+  if (x instanceof CalcitRef) {
+    return x.value;
+  } else {
+    throw new Error("Expected CalcitRef");
+  }
 };
 
 export let _$n__ADD_ = (x: number, y: number): number => {

package/ts-src/custom-formatter.mts

@@ -1,4 +1,4 @@
-import { CalcitValue, is_literal } from "./js-primes.mjs";
+import { CalcitValue, isLiteral } from "./js-primes.mjs";
 import { CalcitRef, CalcitSymbol, CalcitTag } from "./calcit-data.mjs";
 
 import { CalcitRecord } from "./js-record.mjs";
@@ -41,7 +41,10 @@ let styles = (o: any) => {
   let keys = Object.keys(o);
   for (let idx = 0; idx < keys.length; idx++) {
     let key = keys[idx];
-    styleCode += `${kabab(key)}:${(o as any)[key]};`;
+    let value = (o as any)[key];
+    if (value) {
+      styleCode += `${kabab(key)}:${value};`;
+    }
   }
   return {
     style: styleCode,
@@ -72,6 +75,21 @@ let td = (style: any, ...children: any[]) => {
   return ["td", styles(style), ...children];
 };
 
+/** handle null value in nested data */
+let saveString = (v: CalcitValue) => {
+  if (typeof v === "string") {
+    if (v.match(/[\s\"\n\t\,]/)) {
+      return `"|${v}"`;
+    } else {
+      return `|${v}`;
+    }
+  } else if (v != null && v.toString) {
+    return v.toString();
+  } else {
+    return "nil";
+  }
+};
+
 export let load_console_formatter_$x_ = () => {
   if (typeof window === "object") {
     window["devtoolsFormatters"] = [
@@ -85,18 +103,20 @@ export let load_console_formatter_$x_ = () => {
           }
           if (obj instanceof CalcitList || obj instanceof CalcitSliceList) {
             let preview = "";
+            let hasCollection = false;
             for (let idx = 0; idx < obj.len(); idx++) {
               preview += " ";
-              if (is_literal(obj.get(idx))) {
-                preview += obj.get(idx).toString();
+              if (isLiteral(obj.get(idx))) {
+                preview += saveString(obj.get(idx));
               } else {
                 preview += "..";
+                hasCollection = true;
                 break;
               }
             }
             return div(
               {
-                color: hsl(280, 80, 60, 0.4),
+                color: hasCollection ? hsl(280, 80, 60, 0.4) : null,
               },
               `[]`,
               span(
@@ -113,16 +133,18 @@ export let load_console_formatter_$x_ = () => {
           }
           if (obj instanceof CalcitMap || obj instanceof CalcitSliceMap) {
             let preview = "";
+            let hasCollection = false;
             for (let [k, v] of obj.pairs()) {
               preview += " ";
-              if (is_literal(k) && is_literal(v)) {
-                preview += `(${k.toString()} ${v.toString()})`;
+              if (isLiteral(k) && isLiteral(v)) {
+                preview += `(${saveString(k)} ${saveString(v)})`;
               } else {
                 preview += "..";
+                hasCollection = true;
                 break;
               }
             }
-            return div({ color: hsl(280, 80, 60, 0.4) }, "{}", preview);
+            return div({ color: hasCollection ? hsl(280, 80, 60, 0.4) : undefined }, "{}", preview);
           }
           if (obj instanceof CalcitSet) {
             return div({ color: hsl(280, 80, 60, 0.4) }, obj.toString(true));
@@ -132,15 +154,28 @@ export let load_console_formatter_$x_ = () => {
             return ret;
           }
           if (obj instanceof CalcitTuple) {
-            let ret: any[] = div(
-              {},
-              div({ display: "inline-block", color: hsl(300, 100, 40) }, "::"),
-              div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.tag))
-            );
-            for (let idx = 0; idx < obj.extra.length; idx++) {
-              ret.push(div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.extra[idx])));
+            if (obj.klass) {
+              let ret: any[] = div(
+                {},
+                div({ display: "inline-block", color: hsl(300, 100, 40) }, "%::"),
+                div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.klass)),
+                div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.tag))
+              );
+              for (let idx = 0; idx < obj.extra.length; idx++) {
+                ret.push(div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.extra[idx])));
+              }
+              return ret;
+            } else {
+              let ret: any[] = div(
+                {},
+                div({ display: "inline-block", color: hsl(300, 100, 40) }, "::"),
+                div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.tag))
+              );
+              for (let idx = 0; idx < obj.extra.length; idx++) {
+                ret.push(div({ marginLeft: "6px", display: "inline-block" }, embedObject(obj.extra[idx])));
+              }
+              return ret;
             }
-            return ret;
           }
           if (obj instanceof CalcitRef) {
             return div(
@@ -165,24 +200,12 @@ export let load_console_formatter_$x_ = () => {
         },
         hasBody: (obj) => {
           if (obj instanceof CalcitList || obj instanceof CalcitSliceList) {
-            let has_collection = false;
-            for (let idx = 0; idx < obj.len(); idx++) {
-              if (!is_literal(obj.get(idx))) {
-                has_collection = true;
-                break;
-              }
-            }
-            return obj.len() > 0 && has_collection;
+            let hasCollection = obj.nestedDataInChildren();
+            return obj.len() > 0 && hasCollection;
           }
           if (obj instanceof CalcitMap || obj instanceof CalcitSliceMap) {
-            let has_collection = false;
-            for (let [k, v] of obj.pairs()) {
-              if (!is_literal(k) || !is_literal(v)) {
-                has_collection = true;
-                break;
-              }
-            }
-            return obj.len() > 0 && has_collection;
+            let hasCollection = obj.nestedDataInChildren();
+            return obj.len() > 0 && hasCollection;
           }
           if (obj instanceof CalcitSet) {
             return obj.len() > 0;
@@ -228,8 +251,8 @@ export let load_console_formatter_$x_ = () => {
             let ret: any[] = table({ color: hsl(280, 80, 60), borderLeft: "1px solid #eee" });
             let pairs = obj.pairs();
             pairs.sort((pa, pb) => {
-              let ka = pa[0].toString();
-              let kb = pb[0].toString();
+              let ka = saveString(pa[0]);
+              let kb = saveString(pb[0]);
               if (ka < kb) {
                 return -1;
               } else if (ka > kb) {

package/ts-src/js-cirru.mts

@@ -1,7 +1,7 @@
 import { overwriteComparator, initTernaryTreeMap } from "@calcit/ternary-tree";
 import { CirruWriterNode, writeCirruCode } from "@cirru/writer.ts";
 
-import { CalcitValue, is_literal, _$n_compare } from "./js-primes.mjs";
+import { CalcitValue, isLiteral, _$n_compare } from "./js-primes.mjs";
 import { CalcitList, CalcitSliceList } from "./js-list.mjs";
 import { CalcitRecord } from "./js-record.mjs";
 import { CalcitMap, CalcitSliceMap } from "./js-map.mjs";
@@ -99,10 +99,10 @@ export let to_cirru_edn = (x: CalcitValue): CirruEdnFormat => {
       pairs_buffer.push(pairs[idx]);
     }
     pairs_buffer.sort((a, b) => {
-      let a0_literal = is_literal(a[0]);
-      let a1_literal = is_literal(a[1]);
-      let b0_literal = is_literal(b[0]);
-      let b1_literal = is_literal(b[1]);
+      let a0_literal = isLiteral(a[0]);
+      let a1_literal = isLiteral(a[1]);
+      let b0_literal = isLiteral(b[0]);
+      let b1_literal = isLiteral(b[1]);
       if (a0_literal && b0_literal) {
         if (a1_literal && !b1_literal) {
           return -1;
@@ -132,8 +132,8 @@ export let to_cirru_edn = (x: CalcitValue): CirruEdnFormat => {
     }
     // placed literals first
     buffer.sort((a, b) => {
-      let a1_literal = is_literal(a[1] as CalcitValue);
-      let b1_literal = is_literal(b[1] as CalcitValue);
+      let a1_literal = isLiteral(a[1] as CalcitValue);
+      let b1_literal = isLiteral(b[1] as CalcitValue);
       if (a1_literal && !b1_literal) {
         return -1;
       } else if (!a1_literal && b1_literal) {

package/ts-src/js-list.mts

@@ -1,6 +1,6 @@
 import * as ternaryTree from "@calcit/ternary-tree";
 
-import { CalcitValue } from "./js-primes.mjs";
+import { CalcitValue, isLiteral } from "./js-primes.mjs";
 
 import {
   TernaryTreeList,
@@ -106,6 +106,13 @@ export class CalcitList {
   reverse() {
     return new CalcitList(ternaryTree.reverse(this.value));
   }
+  nestedDataInChildren(): boolean {
+    for (let idx = 0; idx < this.len(); idx++) {
+      if (!isLiteral(this.get(idx))) {
+        return true;
+      }
+    }
+  }
 }
 
 // represent append-only immutable list in Array slices
@@ -254,6 +261,13 @@ export class CalcitSliceList {
   reverse() {
     return this.turnListMode().reverse();
   }
+  nestedDataInChildren(): boolean {
+    for (let idx = 0; idx < this.len(); idx++) {
+      if (!isLiteral(this.get(idx))) {
+        return true;
+      }
+    }
+  }
 }
 
 function* sliceGenerator(xs: Array<CalcitValue>, start: number, end: number): Generator<CalcitValue> {

package/ts-src/js-map.mts

@@ -1,6 +1,6 @@
 import * as ternaryTree from "@calcit/ternary-tree";
 
-import { CalcitValue } from "./js-primes.mjs";
+import { CalcitValue, isLiteral } from "./js-primes.mjs";
 import { CalcitSet } from "./js-set.mjs";
 
 import {
@@ -174,9 +174,18 @@ export class CalcitMap {
     }
     return new CalcitSet(ret);
   }
+
+  /** detecthing in custom formatter */
+  nestedDataInChildren() {
+    for (let [k, v] of this.pairs()) {
+      if (!isLiteral(k) || !isLiteral(v)) {
+        return true;
+      }
+    }
+  }
 }
 
-// store small map in linear array to reduce cost of building tree
+/* store small map in linear array to reduce cost of building tree  */
 export class CalcitSliceMap {
   cachedHash: Hash;
   /** in arrayMode, only flatten values, instead of tree structure */
@@ -369,4 +378,13 @@ export class CalcitSliceMap {
     }
     return new CalcitSet(ret);
   }
+
+  /** detecthing in custom formatter */
+  nestedDataInChildren() {
+    for (let [k, v] of this.pairs()) {
+      if (!isLiteral(k) || !isLiteral(v)) {
+        return true;
+      }
+    }
+  }
 }

package/ts-src/js-primes.mts

@@ -25,7 +25,7 @@ export type CalcitValue =
   | CalcitCirruQuote
   | null;
 
-export let is_literal = (x: CalcitValue): boolean => {
+export let isLiteral = (x: CalcitValue): boolean => {
   if (x == null) return true;
   if (typeof x == "string") return true;
   if (typeof x == "boolean") return true;