From b62846d3f183e4efe65aab1c0606b7e10b9e7277 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Pawe=C5=82=20Placzy=C5=84ski?= <placzynski.pawel@gmail.com>
Date: Wed, 9 Nov 2022 07:44:43 +0100
Subject: [PATCH] minor adjustments

---
 src/Textus/DB.hs         | 2 +-
 static/01-titlepage.html | 2 +-
 static/03-format.html    | 3 ++-
 styles/main.css          | 3 +++
 4 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/Textus/DB.hs b/src/Textus/DB.hs
index 4fa1066..17eb73b 100644
--- a/src/Textus/DB.hs
+++ b/src/Textus/DB.hs
@@ -177,7 +177,7 @@ toVerses ws rs cs ls = fmap mkVerse wordsGroupedByVerse
   where mkVerse a                             = Verse (vn a) (sort a) (cWithSameBookNumber a) (lVerseText a) (lVerseEusebeios a) (intercalate (", " :: Text) $ rTo <$> rWithSameBookNumber a)
         cWithSameBookNumber a                 = Prelude.filter (cEqual $ vn a) cs
         lWithSameBookNumber a                 = Prelude.filter (lEqual $ vn a) ls
-        rWithSameBookNumber a                 = sort $ Prelude.filter (rEqual $ vn a) rs
+        rWithSameBookNumber a                 = reverse $ sort $ Prelude.filter (rEqual $ vn a) rs
         lVerseText a                          = lText . Prelude.head . lWithSameBookNumber $ a
         lVerseEusebeios a                     = lEusebeios . Prelude.minimum . lWithSameBookNumber $ a
         vn a                                  = wVerseNumber . Prelude.head $ a
diff --git a/static/01-titlepage.html b/static/01-titlepage.html
index 3efc7bc..47cc71f 100644
--- a/static/01-titlepage.html
+++ b/static/01-titlepage.html
@@ -12,7 +12,7 @@
     <dt>Kody gramatyczne</dt>
     <dd>http://bibliaapologety.com/</dd>
     <dt>Kompilacja</dt>
-    <dd>https://github.com/placek/na<br>Paweł Placzyński; wydanie v1.6.0; Łódź 2021</dd>
+    <dd>https://github.com/placek/na<br>Paweł Placzyński; wydanie v1.6.1; Łódź 2021</dd>
   </dl>
   <strong><em>…ad maiorem Dei gloriam et Beatissimæ Virginis Mariæ honorem…</em></strong>
   <object class="logo" data="./img/monogram.svg"></object>
diff --git a/static/03-format.html b/static/03-format.html
index c934562..0e0507d 100644
--- a/static/03-format.html
+++ b/static/03-format.html
@@ -370,7 +370,7 @@ <h3>Stale cytowani świadkowie greccy w Ewangelii według św. Jana</h3>
     <h2>Numeracja perykop według Euzebiusza</h2>
     <p>Kanony Euzebiusza to system odniesień pomiędzy paralelnymi tekstami (perykopami) czterech Ewangelii, opracowany w pierwszej połowie IV wieku przez Euzebiusza z Cezarei. Kanony Euzebiusza stosowane były w licznych rękopisach Ewangelii późnej starożytności i w średniowieczu.</p>
     <p>W iluminowanych ewangeliarzach tablice wraz z listem Euzebiusza umieszczane były zazwyczaj na początku rękopisu otrzymując zwykle bogatą dekorację artystyczną kanonu w kształcie arkad, obejmujących kolumny numerów paralelnych tekstów (perykop) Ewangelii.</p>
-    <p>Numery perykop w ewangelii Jana zostały w tym wydaniu umieszczone na zewnętrznym marginesie w greckiej notacji</p>
+    <p>Numery perykop w ewangelii Jana zostały w tym wydaniu umieszczone na zewnętrznym marginesie w greckiej notacji.</p>
   </section>
 
   <section>
@@ -381,6 +381,7 @@ <h2>Tekst łaciński</h2>
   <section>
     <h2>Odnośniki</h2>
     <p>W przypisach dolnych czcionką o stałej szerokości zapisane są odnośniki do innych miejsc w Piśmie Świętym.</p>
+    <p>Odnośniki pochodzą z https://www.openbible.info/labs/cross-references i posortowane są po sugerowanej przez autorów projektu trafności odnośnika.</p>
   </section>
 
   <section>
diff --git a/styles/main.css b/styles/main.css
index 0b8a495..aab53d4 100644
--- a/styles/main.css
+++ b/styles/main.css
@@ -146,6 +146,9 @@ code {
 }
 
 /* ARTICLES */
+@page article {
+  margin-bottom: 1.5em;
+}
 @page article:left {
   @top-left {
     content: counter(page, upper-roman);