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

AAAAAA xelatex

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-02-26 13:07:02 -07:00
parent 7d12f7d90e
commit 71163b9bb5
2 changed files with 14 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
doerg/resources/net/deertopia/doerg/preview-template.tex
View File

@@ -3,7 +3,7 @@
\usepackage[active,tightpage,auctex,dvips]{preview} \usepackage[active,tightpage,auctex,dvips]{preview}
\usepackage{fontspec} \usepackage{fontspec}
\usepackage{ifxetex} \usepackage{ifxetex}
%% \usepackage{syd-plex} \usepackage{syd-plex}
\begin{document} \begin{document}
\setlength\abovedisplayskip{0pt} \setlength\abovedisplayskip{0pt}

28
doerg/src/net/deertopia/doerg/render.clj
View File

@@ -146,19 +146,17 @@
;; the SVG tag, and set the new values for height and ;; the SVG tag, and set the new values for height and
;; vertical-align in the style attribute ;; vertical-align in the style attribute
;; • Viewbox: Must be removed entirely for correct positioning. ;; • Viewbox: Must be removed entirely for correct positioning.
(let [r (-> (slurp file) (-> (slurp file)
(str/replace-first "<?xml version='1.0' encoding='UTF-8'?>" "") (str/replace-first "<?xml version='1.0' encoding='UTF-8'?>" "")
(str/replace-first #" height=['\"][^\"']+[\"']" "") (str/replace-first #" height=['\"][^\"']+[\"']" "")
(str/replace-first #" width=['\"][^\"']+[\"']" "") (str/replace-first #" width=['\"][^\"']+[\"']" "")
(str/replace-first (str/replace-first
#"viewBox=['\"][^\"']+[\"']" #"viewBox=['\"][^\"']+[\"']"
(fn [s] (fn [s]
(format "%s style=\"%s\"" (format "%s style=\"%s\""
s s
(format "height:%.4fem;vertical-align:%.4fem;display:inline-block" (format "height:%.4fem;vertical-align:%.4fem;display:inline-block"
height (- depth))))))] height (- depth)))))))
(spit (fs/file "/tmp" (fs/file-name file)) r)
r))
(defn- render-tex-snippets [doc] (defn- render-tex-snippets [doc]
(let [promises (atom []) (let [promises (atom [])
@@ -346,11 +344,11 @@
(defmethod org-element "latex-fragment" [{:keys [contents value] :as e}] (defmethod org-element "latex-fragment" [{:keys [contents value] :as e}]
[:span.latex-fragment [:span.latex-fragment
(-> e ::rendered (deref 2000 "«timed out»"))]) (-> e ::rendered (deref #_#_ 2000 "«timed out»"))])
(defmethod org-element "latex-environment" [{:keys [value] :as e}] (defmethod org-element "latex-environment" [{:keys [value] :as e}]
[:span.latex-fragment [:span.latex-fragment
(-> e ::rendered (deref 2000 "«timed out»"))]) (-> e ::rendered (deref #_#_ 2000 "«timed out»"))])
(defmethod org-element "example-block" [{:keys [value]}] (defmethod org-element "example-block" [{:keys [value]}]
[:pre value]) [:pre value])