msyds/net-deertopia
1
0
Fork 0
Code Issues 13 Pull Requests Actions Packages Projects Releases Wiki Activity

fix: trim temml/render input

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-03-02 15:17:37 -07:00
parent b336aa873e
commit 98c106b3cf
1 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
doerg/src/net/deertopia/doerg/tex/temml.clj
View File

@@ -55,15 +55,18 @@
(command-worker [s])) (command-worker [s]))
(defn render [s] (defn render [s]
(if-let [[_ inner] (re-matches #"(?s)\\[(.*)\\]" s)] (let [s (str/trim s)]
(if-let [[_ inner] (re-matches #"(?s)\\\[(.*)\\]" s)]
(render-display inner) (render-display inner)
(if (re-matches #"(?s)\\begin\{.+?}(.*?)\\end\{.+?}" s) (if (re-matches #"(?s)\\begin\{.+?}(.*?)\\end\{.+?}" s)
(render-display s) (render-display s)
(if-let [[_ inner] (re-matches #"(?s)\\\((.*)\\\)" s)] (if-let [[_ inner] (re-matches #"(?s)\\\((.*)\\\)" s)]
(render-inline inner) (render-inline inner)
(throw (IllegalArgumentException. (throw (IllegalArgumentException.
(ex-info
(str "`net.deertopia.doerg.tex.temml` argument should" (str "`net.deertopia.doerg.tex.temml` argument should"
" be enclosed in math delimiters."))))))) " be enclosed in math delimiters.")
{:arg s}))))))))
;; hackky.... ;; hackky....
(defn erroneous-output? [s] (defn erroneous-output? [s]