|
@@ -557,10 +557,12 @@ At least this works on my machine.
|
|
|
(format stream
|
|
|
"\\documentclass[~Apaper~@[, fontsize=~Apt~]]{scrbook}
|
|
|
\\usepackage{microtype}
|
|
|
-\\usepackage[osfI, swashQ]{garamondx}
|
|
|
-\\usepackage[greek.polutonico, latin]{babel}
|
|
|
+%\\usepackage[osfI, swashQ]{garamondx}
|
|
|
+%\\usepackage[greek.polutonico, latin]{babel}
|
|
|
+%\\usepackage[utf8]{inputenc}
|
|
|
\\usepackage{lettrine}
|
|
|
-\\usepackage[utf8]{inputenc}
|
|
|
+\\usepackage{fontspec}
|
|
|
+\\setmainfont{EB Garamond}
|
|
|
\\usepackage[~{~{~A=~Amm~}~^, ~}]{geometry}
|
|
|
\\hyphenation{quid-quam}
|
|
|
\\hyphenation{trans-la-ti-one}
|
|
@@ -587,7 +589,7 @@ At least this works on my machine.
|
|
|
|
|
|
(defun latex-to-pdf (pathname)
|
|
|
(let ((output-dir (make-pathname :directory (pathname-directory pathname))))
|
|
|
- (uiop:run-program `("pdflatex" "-output-directory" ,(uiop:native-namestring output-dir) ,(uiop:native-namestring pathname)))
|
|
|
+ (uiop:run-program `("xelatex" "-output-directory" ,(uiop:native-namestring output-dir) ,(uiop:native-namestring pathname)))
|
|
|
(make-pathname :defaults pathname
|
|
|
:type "pdf")))
|
|
|
|
|
@@ -644,8 +646,10 @@ At least this works on my machine.
|
|
|
(colloquium-to-pdf #p"data/838-talorum-lusus.txt" :output-directory "out/" :booklet t :paper 'a5)
|
|
|
(colloquium-to-pdf #p"data/838-talorum-lusus.txt" :output-directory "out/" :booklet nil :paper 'a5)
|
|
|
(colloquium-to-pdf #p"data/842-senatulus.txt" :output-directory "out/" :booklet t :paper 'a5)
|
|
|
+(colloquium-to-pdf #p"data/842-senatulus.txt" :output-directory "out/" :booklet nil :paper 'a5)
|
|
|
(colloquium-to-pdf #p"data/749-exorcismus.txt" :output-directory "out/" :booklet t :paper 'a5)
|
|
|
(colloquium-to-pdf #p"data/749-exorcismus.txt" :output-directory "out/" :booklet nil :paper 'a5)
|
|
|
+(colloquium-to-pdf #p"data/834a-ementita-nobilitas.txt" :output-directory "out/" :booklet t :paper 'a5)
|
|
|
|
|
|
(export-colloquium-to-latex #p"data/838-talorum-lusus.txt" "out/" :preamble t :paper 'a5)
|
|
|
|