solarpunk-guile
/
guile-uniseg
3
0
Fork 0
Code Issues Pull Requests Releases 2 Activity

Comments and docs

This commit is contained in:
Vivianne 2024-03-03 13:27:11 -05:00
parent f1c03097f1
commit 47146c887f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
uniseg.scm
View File

@ -20,18 +20,22 @@
(first pair))))
(define (grapheme-property char)
"Find the unicode grapheme cluster property, as defined by https://www.unicode.org/reports/tr44/"
"Find the Unicode grapheme cluster property, as defined by https://www.unicode.org/reports/tr44/"
(or (get-prop grapheme-charsets char)
'other))
(define (eastasian-property char)
"Find the Unicode East Asian width property, as defined by https://www.unicode.org/reports/tr11/"
(define (<==> lo hi)
"Create a range predicate, inclusive between two numbers"
(λ (num)
(and (>= num lo)
(<= num hi))))
;; The spec requires that any values not in the table be double-width, if
;; they are in certain ranges. So let's take care of that here.
;; These characters are not in the char-sets as they are undesignated.
;; See comments in unicode's EastAsianWidth.txt
(define range-unified-ideographs-ext-a?
(<==> #x3400 #x4DBF))
(define range-unified-ideographs?
@ -43,10 +47,6 @@
(define range-plane-3?
(<==> #x30000 #x3FFFD))
;; The spec defines any values not in the table be wide, if
;; they are in certain ranges. So let's take care of that here.
;; These characters are not in the char-sets as they are undesignated.
;; See comments in unicode's EastAsianWidth.txt
(or (get-prop eastasian-charsets char)
(let ((int (char->integer char)))
(match int