doerg/doerg-tex/.gitignore

@@ -0,0 +1 @@
+classes

doerg/doerg-tex/compile.clj

@@ -0,0 +1,2 @@
+(compile 'serialise)
+(compile 'deserialise)

doerg/doerg-tex/deps.edn

@@ -0,0 +1,6 @@
+{:deps {babashka/fs {:mvn/version "0.5.24"}
+        cheshire/cheshire {:mvn/version "6.1.0"}
+        com.rpl/specter {:mvn/version "1.1.6"}
+        mvxcvi/clj-cbor {:mvn/version "1.1.1"}
+        babashka/process {:mvn/version "0.6.25"}}
+ :paths ["." "classes"]}

doerg/doerg-tex/deserialise.clj

@@ -0,0 +1,7 @@
+(ns deserialise
+  (:require [clj-cbor.core :as cbor]
+            [clojure.string :as str])
+  (:gen-class))
+
+(defn -main []
+  (prn (cbor/decode cbor/default-codec System/in :eof)))

doerg/doerg-tex/serialise.clj

@@ -1,6 +1,7 @@
 (ns serialise
   (:require [clj-cbor.core :as cbor]
-            [clojure.string :as str]))
+            [clojure.string :as str])
+  (:gen-class))
 
 (defn w [x]
   (cbor/encode cbor/default-codec System/out x))
@@ -8,9 +9,16 @@
 (defn c [x]
   (->> x cbor/encode (map #(format "%02x" %)) (str/join " ")))
 
+#_
 (w "\\naturalto")
 
-#_#_#_
-(w "c = \\sqrt{a^2 + y^2}")
-(w "c = \\sqrt{a^ + y^2")
-(w "\\alpha^\\beta")
+(defn -main []
+  (w "\\begin{align*}
+x &= y
+\\\\ &= zzz
+\\end{align*}")
+
+  #_#_#_
+  (w "c = \\sqrt{a^2 + y^2}")
+  (w "c = \\sqrt{a^ + y^2")
+  (w "\\alpha^\\beta"))