From 8661cea6045e7928342bed8216da7dc0bf65f384 Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Fri, 11 Jun 2021 15:47:54 +0200
Subject: [PATCH] add swung dash for ellipsis

---
 laantas-script/Glyphs.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/laantas-script/Glyphs.hs b/laantas-script/Glyphs.hs
index c6b202d..47cbfa0 100644
--- a/laantas-script/Glyphs.hs
+++ b/laantas-script/Glyphs.hs
@@ -653,7 +653,8 @@ dŕ = da <> P [mR (-3,0), cR (1,0) (3,-1) (3,-2)]
 
 punctuation :: Map Text Glyph
 punctuation = Map.fromList
-  [(".", eos), ("?", eos), ("!", eos), (",", eop), (":", eop), (";", eop)]
+  [(".", eos), ("?", eos), ("!", eos), (",", eop), (":", eop), (";", eop),
+   ("…", ellipsis)]
 
 eos = G {path = eosPath, width = 4}
 eosPath = P $ circA 1 (4,1) <> circA 1 (4,4)
@@ -674,5 +675,9 @@ n5Path = P [mA (0,5), lR (0,-3.5), aR 1.5 1.5 0 Small CW (1.5,-1.5),
             lR (1,0), aR 1.5 1.5 0 Small CW (1.5,1.5), lR (0,3.5)]
 
 wave :: Glyph
-wave = G {path = wavePath, width = 4} where
-  wavePath = P [mA (0,2.5), cR (1.5,-2) (2.5,2) (4,0)]
+wave = G {path = wavePath, width = 4}
+
+wavePath = P [mA (0,2.5), cR (1.5,-2) (2.5,2) (4,0)]
+
+ellipsis :: Glyph
+ellipsis = G {path = shiftX 3.5 wavePath, width = 6}