parent
23eb55fc22
commit
b9421b9a12
|
@ -57,7 +57,7 @@ partial def xmlGetHeadingId (el : Xml.Element) : String :=
|
||||||
unicodeToDrop (c : Char) : Bool :=
|
unicodeToDrop (c : Char) : Bool :=
|
||||||
let cats := [
|
let cats := [
|
||||||
Unicode.GeneralCategory.P, -- punctuation
|
Unicode.GeneralCategory.P, -- punctuation
|
||||||
Unicode.GeneralCategory.S, -- separator
|
Unicode.GeneralCategory.Z, -- separator
|
||||||
Unicode.GeneralCategory.C -- other
|
Unicode.GeneralCategory.C -- other
|
||||||
]
|
]
|
||||||
cats.any (Unicode.isInGeneralCategory c)
|
cats.any (Unicode.isInGeneralCategory c)
|
||||||
|
@ -179,7 +179,7 @@ def autoLink (el : Element) : HtmlM Element := do
|
||||||
return [Content.Character s]
|
return [Content.Character s]
|
||||||
unicodeToSplit (c : Char) : Bool :=
|
unicodeToSplit (c : Char) : Bool :=
|
||||||
let cats := [
|
let cats := [
|
||||||
Unicode.GeneralCategory.S, -- separator
|
Unicode.GeneralCategory.Z, -- separator
|
||||||
Unicode.GeneralCategory.C -- other
|
Unicode.GeneralCategory.C -- other
|
||||||
]
|
]
|
||||||
cats.any (Unicode.isInGeneralCategory c)
|
cats.any (Unicode.isInGeneralCategory c)
|
||||||
|
|
Loading…
Reference in New Issue