move >Upper and >Upper-dashes to unicode.case
parent
5fca4ce7a0
commit
7ad7a89a2b
|
@ -4,11 +4,3 @@ IN: strings.lib
|
||||||
! : char>digit ( c -- i ) 48 - ;
|
! : char>digit ( c -- i ) 48 - ;
|
||||||
|
|
||||||
! : string>digits ( s -- seq ) [ char>digit ] { } map-as ;
|
! : string>digits ( s -- seq ) [ char>digit ] { } map-as ;
|
||||||
|
|
||||||
! : >Upper ( str -- str )
|
|
||||||
! dup empty? [
|
|
||||||
! unclip ch>upper 1string swap append
|
|
||||||
! ] unless ;
|
|
||||||
|
|
||||||
! : >Upper-dashes ( str -- str )
|
|
||||||
! "-" split [ >Upper ] map "-" join ;
|
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
USING: kernel unicode.data sequences sequences.next namespaces
|
USING: kernel unicode.data sequences sequences.next namespaces
|
||||||
assocs.lib unicode.normalize math unicode.categories combinators
|
assocs.lib unicode.normalize math unicode.categories combinators
|
||||||
assocs ;
|
assocs strings splitting ;
|
||||||
IN: unicode.case
|
IN: unicode.case
|
||||||
|
|
||||||
: ch>lower ( ch -- lower ) simple-lower at-default ;
|
: ch>lower ( ch -- lower ) simple-lower at-default ;
|
||||||
|
@ -110,3 +110,12 @@ SYMBOL: locale ! Just casing locale, or overall?
|
||||||
dup >title = ;
|
dup >title = ;
|
||||||
: case-fold? ( string -- ? )
|
: case-fold? ( string -- ? )
|
||||||
dup >case-fold = ;
|
dup >case-fold = ;
|
||||||
|
|
||||||
|
|
||||||
|
: >Upper ( str -- str )
|
||||||
|
dup empty? [
|
||||||
|
unclip ch>upper 1string swap append
|
||||||
|
] unless ;
|
||||||
|
|
||||||
|
: >Upper-dashes ( str -- str )
|
||||||
|
"-" split [ >Upper ] map "-" join ;
|
||||||
|
|
Loading…
Reference in New Issue