diff options
| author | unwox <me@unwox.com> | 2024-10-22 10:54:33 +0600 |
|---|---|---|
| committer | unwox <me@unwox.com> | 2024-10-22 10:54:33 +0600 |
| commit | 477dd002b008db50361d9a87a12c6731cccb6b78 (patch) | |
| tree | 82d5ee8bf9022d41964bc17873b6a2f5669cbae7 /parser/parser.fnl | |
| parent | a24b2b3de7995d28420f09c988fbb7ef31d0e15c (diff) | |
improve categories a bit
Diffstat (limited to 'parser/parser.fnl')
| -rw-r--r-- | parser/parser.fnl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/parser/parser.fnl b/parser/parser.fnl index acc8a19..bf8feed 100644 --- a/parser/parser.fnl +++ b/parser/parser.fnl @@ -105,7 +105,6 @@ (: (peg.Ct (^ (peg.Ct tag) 1)) :match html)) -;; FIXME: make guessing case insensitive (fn guess-tags [text] (local text (if text (must (luna.utf8.lower text)) "")) @@ -127,6 +126,8 @@ ["Шен пуэр"] (: (anywhere (+ (peg.P "матча") "маття")) :match text) ["Матча"] + (: (anywhere (peg.P "габа")) :match text) + ["Габа"] [])) (fn guess-year [text] |