suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't spell-check Chinese (or any sequence of uncased letters)

Browse Source 
svn: r4627
This commit is contained in:
Matthew Flatt 2006-10-18 05:48:23 +00:00
parent c18ca621a3
commit 7a37515b57
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/sirmail/spell.ss
View File

@ -13,9 +13,13 @@
[word-count (-> number?)])
(define-lex-abbrevs
(extended-alphabetic (:or alphabetic #\'))
(word (:: (:* extended-alphabetic) (:+ alphabetic) (:* extended-alphabetic)))
(paren (char-set "()[]{}")))
;; Treat only letters with casing for spelling. This avoids
;; Chinese, for example, where the concept of spelling doesn't
;; really apply.
(cased-alphabetic (:or lower-case upper-case title-case))
(extended-alphabetic (:or cased-alphabetic #\'))
(word (:: (:* extended-alphabetic) (:+ cased-alphabetic) (:* extended-alphabetic)))
(paren (char-set "()[]{}")))
(define get-word
(lexer
@ -23,7 +27,7 @@
(values lexeme 'white-space #f (position-offset start-pos) (position-offset end-pos)))
(paren
(values lexeme 'other (string->symbol lexeme) (position-offset start-pos) (position-offset end-pos)))
((:+ (:~ (:or alphabetic whitespace paren)))
((:+ (:~ (:or cased-alphabetic whitespace paren)))
(values lexeme 'other #f (position-offset start-pos) (position-offset end-pos)))
(word
(let ((ok (spelled-correctly? lexeme)))