doerg-parser

doerg/src/net/deertopia/doerg/parse.clj

@@ -0,0 +1,17 @@
+(ns net.deertopia.doerg.parse
+  (:require [babashka.process :as p]
+            [babashka.fs :as fs]
+            [clojure.java.io :as io]
+            [cheshire.core :as json])
+  (:refer-clojure :exclude [read-string]))
+
+(defonce ^:private uniorg-script-path-atom (atom nil))
+
+(defn- uniorg []
+  @(p/process {:in (slurp "/home/msyds/org/20260124165717-if_so_in_korean.org")
+               :out :string}
+              "doerg-parser"))
+
+(defn read-string [s]
+  #_
+  (p/process "node" (uniorg-script-path)))