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"))