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

adjust the normalize-paste mixin to, by default,

Browse Source 
replace non-breaking minus characters with hyphens

closes PR 14197
This commit is contained in:
Robby Findler 2013-11-24 22:18:57 -06:00
parent d234c0c2e3
commit 35316fd72d
2 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/gui-pkgs/gui-doc/scribblings/framework/text.scrbl
View File

@ -427,11 +427,14 @@
@defmethod[(string-normalize [s string?]) string?]{ @defmethod[(string-normalize [s string?]) string?]{
Normalizes @racket[s]. Defaults to: Normalizes @racket[s]. Defaults to:
@racketblock[(regexp-replace* #rx"\u200b" @racketblock[(regexp-replace*
#rx"\u200b"
(regexp-replace*
#rx"\u2212"
(string-normalize-nfkc s) (string-normalize-nfkc s)
"-")
"")] "")]
} }
} }
@defmixin[text:normalize-paste-mixin (text:basic<%>) (text:normalize-paste<%>)]{ @defmixin[text:normalize-paste-mixin (text:basic<%>) (text:normalize-paste<%>)]{

8
pkgs/gui-pkgs/gui-lib/framework/private/text.rkt
View File

@ -1029,7 +1029,13 @@
[else [else
(preferences:get 'framework:do-paste-normalization)])) (preferences:get 'framework:do-paste-normalization)]))
(define/public (string-normalize s) (define/public (string-normalize s)
(regexp-replace* #rx"\u200b" (string-normalize-nfkc s) "")) (regexp-replace*
#rx"\u200b"
(regexp-replace*
#rx"\u2212"
(string-normalize-nfkc s)
"-")
""))
(define/override (do-paste start time) (define/override (do-paste start time)
(dynamic-wind (dynamic-wind