1 files changed, 4 insertions(+), 1 deletions(-)

M 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 = []