2 Commits 1e04ad05e1 ... 0a5234d896

Author SHA1 Message Date
  Stanislav Kondratyev 0a5234d896 I use XeLaTeX now 3 years ago
  Stanislav Kondratyev 8f0cb74350 749-exorcismus.txt emendatissimum 3 years ago
3 changed files with 11 additions and 5 deletions
  1. 2 0
      README.md
  2. 8 4
      colloquia.lisp
  3. 1 1
      data/749-exorcismus.txt

+ 2 - 0
README.md

@@ -27,6 +27,8 @@ data/838-talorum-lusus.txt emendatissimum
 * congnoscendi -> cognoscendi
 * ille ne -> illene
 
+Emendatissimum
+
 834a-ementita-nobilitas.txt
 * Sed quæ bestiæ sustinebunt clypeum; -> Sed quæ bestiæ sustinebunt clypeum?
 * minitator -> minitabor

+ 8 - 4
colloquia.lisp

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

+ 1 - 1
data/749-exorcismus.txt

@@ -550,6 +550,6 @@ quæ vulgo feruntur de spectris,
 sed posthac multo minus tribuam:
 suspicor enim ab hominibus credulis,
 & Fauni similibus,
-multa pro veris prodita litteris,
+multa pro veris prodita literis,
 quæ simili artificio sunt adsimulata.
 |An| Ego pleraque hujus generis esse credo.