@calcit/procs 0.6.5 → 0.6.7

package/lib/calcit.procs.mjs

@@ -1,6 +1,6 @@
 var _a;
 // CALCIT VERSION
-export const calcit_version = "0.6.5";
+export const calcit_version = "0.6.7";
 import { parse } from "@cirru/parser.ts";
 import { writeCirruCode } from "@cirru/writer.ts";
 import "./js-primes.mjs";
@@ -20,7 +20,7 @@ import { CalcitList, CalcitSliceList, foldl } from "./js-list.mjs";
 import { CalcitMap, CalcitSliceMap } from "./js-map.mjs";
 import { CalcitSet } from "./js-set.mjs";
 import { CalcitTuple } from "./js-tuple.mjs";
-import { to_calcit_data, extract_cirru_edn } from "./js-cirru.mjs";
+import { to_calcit_data, extract_cirru_edn, CalcitCirruQuote } from "./js-cirru.mjs";
 let inNodeJs = typeof process !== "undefined" && ((_a = process === null || process === void 0 ? void 0 : process.release) === null || _a === void 0 ? void 0 : _a.name) === "node";
 export let type_of = (x) => {
     if (typeof x === "string") {
@@ -56,6 +56,9 @@ export let type_of = (x) => {
     if (x instanceof CalcitRecord) {
         return kwd("record");
     }
+    if (x instanceof CalcitCirruQuote) {
+        return kwd("cirru-quote");
+    }
     if (x === true || x === false) {
         return kwd("bool");
     }
@@ -1063,7 +1066,7 @@ export let write_file = (path, content) => {
     }
 };
 export let parse_cirru = (code) => {
-    return to_calcit_data(parse(code), true);
+    return new CalcitCirruQuote(parse(code));
 };
 // for JavaScript, it's same as parse_cirru
 export let parse_cirru_list = (code) => {

package/lib/custom-formatter.mjs

@@ -5,6 +5,7 @@ import { CalcitMap, CalcitSliceMap } from "./js-map.mjs";
 import { CalcitList, CalcitSliceList } from "./js-list.mjs";
 import { CalcitSet } from "./js-set.mjs";
 import { CalcitTuple } from "./js-tuple.mjs";
+import { CalcitCirruQuote } from "./js-cirru.mjs";
 let embedObject = (x) => {
     if (x == null) {
         return null;
@@ -68,6 +69,18 @@ export let load_console_formatter_$x_ = () => {
                             ["div", { style: "color: hsl(280, 80%, 60%)" }, ["div", { style: "margin-left: 8px;" }, embedObject(obj.value)]],
                         ];
                     }
+                    if (obj instanceof CalcitCirruQuote) {
+                        return [
+                            "div",
+                            { style: "color: hsl(240, 80%, 60%); display: flex;" },
+                            `CirruQuote`,
+                            [
+                                "div",
+                                { style: "color: hsl(280, 80%, 60%); padding: 4px 4px; margin: 0 4px 2px; border: 1px solid hsl(0,70%,90%); border-radius: 4px;" },
+                                obj.textForm().trim(),
+                            ],
+                        ];
+                    }
                     return null;
                 },
                 hasBody: (obj) => {

package/lib/js-cirru.mjs

@@ -12,11 +12,15 @@ export class CalcitCirruQuote {
         this.value = value;
     }
     toString() {
-        return `(cirru-quote ${JSON.stringify(this.value)})`;
+        return `(&cirru-quote ${JSON.stringify(this.value)})`;
     }
     toList() {
         return to_calcit_data(this.value, true);
     }
+    /** provide a simple text representation in Console or std out, with indentations */
+    textForm() {
+        return writeCirruCode(this.value);
+    }
 }
 export let format_cirru = (data, useInline) => {
     if (data instanceof CalcitCirruQuote) {

package/package.json

@@ -1,10 +1,10 @@
 {
   "name": "@calcit/procs",
-  "version": "0.6.5",
+  "version": "0.6.7",
   "main": "./lib/calcit.procs.mjs",
   "devDependencies": {
-    "@types/node": "^18.7.18",
-    "typescript": "^4.8.3"
+    "@types/node": "^18.7.23",
+    "typescript": "^4.8.4"
   },
   "scripts": {
     "compile": "rm -rfv lib/* && tsc",

package/ts-src/calcit.procs.mts

@@ -1,5 +1,5 @@
 // CALCIT VERSION
-export const calcit_version = "0.6.5";
+export const calcit_version = "0.6.7";
 
 import { parse, ICirruNode } from "@cirru/parser.ts";
 import { writeCirruCode } from "@cirru/writer.ts";
@@ -75,6 +75,9 @@ export let type_of = (x: any): CalcitKeyword => {
   if (x instanceof CalcitRecord) {
     return kwd("record");
   }
+  if (x instanceof CalcitCirruQuote) {
+    return kwd("cirru-quote");
+  }
   if (x === true || x === false) {
     return kwd("bool");
   }
@@ -1162,8 +1165,8 @@ export let write_file = (path: string, content: string): void => {
   }
 };
 
-export let parse_cirru = (code: string): CalcitList => {
-  return to_calcit_data(parse(code), true) as CalcitList;
+export let parse_cirru = (code: string): CalcitCirruQuote => {
+  return new CalcitCirruQuote(parse(code));
 };
 
 // for JavaScript, it's same as parse_cirru

package/ts-src/custom-formatter.mts

@@ -6,6 +6,7 @@ import { CalcitMap, CalcitSliceMap } from "./js-map.mjs";
 import { CalcitList, CalcitSliceList } from "./js-list.mjs";
 import { CalcitSet } from "./js-set.mjs";
 import { CalcitTuple } from "./js-tuple.mjs";
+import { CalcitCirruQuote } from "./js-cirru.mjs";
 
 declare global {
   interface Window {
@@ -81,6 +82,18 @@ export let load_console_formatter_$x_ = () => {
               ["div", { style: "color: hsl(280, 80%, 60%)" }, ["div", { style: "margin-left: 8px;" }, embedObject(obj.value)]],
             ];
           }
+          if (obj instanceof CalcitCirruQuote) {
+            return [
+              "div",
+              { style: "color: hsl(240, 80%, 60%); display: flex;" },
+              `CirruQuote`,
+              [
+                "div",
+                { style: "color: hsl(280, 80%, 60%); padding: 4px 4px; margin: 0 4px 2px; border: 1px solid hsl(0,70%,90%); border-radius: 4px;" },
+                obj.textForm().trim(),
+              ],
+            ];
+          }
           return null;
         },
         hasBody: (obj) => {

package/ts-src/js-cirru.mts

@@ -17,11 +17,15 @@ export class CalcitCirruQuote {
     this.value = value;
   }
   toString(): string {
-    return `(cirru-quote ${JSON.stringify(this.value)})`;
+    return `(&cirru-quote ${JSON.stringify(this.value)})`;
   }
   toList(): CalcitValue {
     return to_calcit_data(this.value, true);
   }
+  /** provide a simple text representation in Console or std out, with indentations */
+  textForm(): string {
+    return writeCirruCode(this.value);
+  }
 }
 
 export let format_cirru = (data: CalcitCirruQuote | CalcitList, useInline: boolean): string => {