From 9c5bb28ba168a954442c29855b330843eeee5360 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Thu, 30 Apr 2020 08:01:45 +1200
Subject: [PATCH] Ensure marker counters are incremented.

---
 src/SpeechStyle.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/SpeechStyle.hs b/src/SpeechStyle.hs
index ba45361..be5a854 100644
--- a/src/SpeechStyle.hs
+++ b/src/SpeechStyle.hs
@@ -128,7 +128,10 @@ instance PropertyParser SpeechStyle where
     shorthand _ "cue" (a:b) | isCue [a], isCue b = [("cue-before", [a]), ("cue-after", b)]
     shorthand _ "cue" toks | isCue toks = [("cue-before", toks), ("cue-after", toks)]
 
-    shorthand _ "-rhaps-marker" [Ident m] = [("mark", [String m, Function "counter", Ident m, RightParen])]
+    shorthand _ "-rhaps-marker" [Ident m] = [
+            ("mark", [String m, Function "counter", Ident m, RightParen]),
+            ("counter-increment", [Ident m])
+        ]
 
     shorthand self key value | isJust $ longhand self self key value = [(key, value)]
         | otherwise = []
-- 
2.30.2