diff --git a/ChangeLog.md b/ChangeLog.md index 7549c87..fd134aa 100644 --- a/ChangeLog.md +++ b/ChangeLog.md @@ -2,4 +2,8 @@ ## Unreleased changes +- Nothing + +## 0.1.0 + - Supported: `Heading`, `Ordered List`, `Unordered List`, `Image`, `Link`, `Comment`, `Quote`, `Inline` diff --git a/README.md b/README.md index 2ac01a8..4de823a 100644 --- a/README.md +++ b/README.md @@ -71,7 +71,7 @@ Examples: 3. 表之實例也 ``` -For unordered lists, use `〇` (text should follow directly without leaving a space), and it ends with `【列終】`. +For unordered lists, use `〇`, and it ends with `【列終】`. ``` markdown 〇《滕王閣序》 @@ -82,7 +82,7 @@ For unordered lists, use `〇` (text should follow directly without leaving a sp ### Comments -**Notice**: There should not be spaces in the comment line (otherwise it may not work...) +Comments start with `批:`: ``` markdown 批:註釋也 diff --git a/package.yaml b/package.yaml index b65ec7a..1fe568e 100644 --- a/package.yaml +++ b/package.yaml @@ -9,6 +9,8 @@ copyright: 2020 Malcolm Law extra-source-files: - README.md - ChangeLog.md +- examples/*.md +- examples/*.jian # Metadata used when publishing your package # synopsis: Short description of your package diff --git a/src/Hanzi.hs b/src/Hanzi.hs index 3729227..123be97 100644 --- a/src/Hanzi.hs +++ b/src/Hanzi.hs @@ -13,6 +13,7 @@ shuzi = Map.fromList $ zip "零一二三四五六七八九十" [0 .. 10] wei :: Map.Map Char Int wei = Map.fromList $ zip "十百千萬" [10, 100, 1000, 10000] +-- Only support natural numbers less then 100,000 shuziToInt :: String -> Int shuziToInt x = sum $ map groupDigit $ sepBy x [] where groupDigit :: String -> Int