~alcinnz/haskell-stylist

4b5d0346d4c296003a3d5b5680216357c5939aee — Adrian Cochrane 11 months ago 5a8c318
Test & fix rendering of Ethiopian 1.
2 files changed, 2 insertions(+), 1 deletions(-)

M src/Data/CSS/Preprocessor/Text/CounterStyle.hs
M test/Test.hs
M src/Data/CSS/Preprocessor/Text/CounterStyle.hs => src/Data/CSS/Preprocessor/Text/CounterStyle.hs +1 -1
@@ 260,7 260,7 @@ counterRenderCore CounterStyle {
    markers' = map snd markers
-- Following https://w3c.github.io/csswg-drafts/css-counter-styles-3/#ethiopic-numeric-counter-style
-- 1. If the number is 1, return "፩" (U+1369).
counterRenderCore CounterStyle { system = Ethiopic, symbols = (sym:_) } 1 = sym
counterRenderCore CounterStyle { system = Ethiopic, symbols = (_:sym:_) } 1 = sym
counterRenderCore CounterStyle {
        system = Ethiopic, symbols = unitSyms, additiveSymbols = tenSyms
    } x = Txt.concat $ renderPairs True $

M test/Test.hs => test/Test.hs +1 -0
@@ 710,6 710,7 @@ spec = do
            counterRender 119 `shouldBe` "一百一十九"
            counterRender 120 `shouldBe` "一百二十"
        it "Handles ethiopian numbering system" $ do
            Ctr.counterRender Ctr.ethiopic 1 `shouldBe` "፩"
            Ctr.counterRender Ctr.ethiopic 100 `shouldBe` "፻"
            Ctr.counterRender Ctr.ethiopic 78010092 `shouldBe` "፸፰፻፩፼፺፪"
            Ctr.counterRender Ctr.ethiopic 780100000092 `shouldBe` "፸፰፻፩፼፼፺፪"