Skip to content

Update for changes to purescript-unicode #16

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 3 commits into from
Jan 31, 2021
Merged

Update for changes to purescript-unicode #16

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
2b4c3f7
Update for changes to purescript-unicode
MonoidMusician Jan 30, 2021
3430731
Update packages.dhall hash to invalidate CI cache
MonoidMusician Jan 31, 2021
ec7cb1d
Remove hash again
thomashoneyman Jan 31, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
23 changes: 8 additions & 15 deletions src/Data/String/Extra.purs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -11,10 +11,11 @@ module Data.String.Extra

import Data.Array as Array
import Data.Array.NonEmpty as NonEmptyArray
import Data.Char.Unicode as Unicode
import Data.String.Unicode as Unicode
import Data.CodePoint.Unicode as UCP
import Data.Foldable (foldMap)
import Data.String as String
import Data.String.CodeUnits as SCU
import Data.String.CodePoints as SCP
import Data.String.Regex (Regex)
import Data.String.Regex as Regex
import Data.String.Regex.Unsafe (unsafeRegex)
Expand All @@ -29,7 +30,7 @@ import Prelude ((>>>), (<>), ($), map)
camelCase :: String -> String
camelCase =
words >>> Array.uncons >>> foldMap \{ head, tail } ->
toUnicodeLower head <> foldMap pascalCase tail
Unicode.toLower head <> foldMap pascalCase tail

-- | Converts a `String` to kebab case
-- |
Expand All @@ -38,7 +39,7 @@ camelCase =
-- | ```
kebabCase :: String -> String
kebabCase =
words >>> map toUnicodeLower >>> String.joinWith "-"
words >>> map Unicode.toLower >>> String.joinWith "-"

-- | Converts a `String` to Pascal case
-- |
Expand All @@ -56,7 +57,7 @@ pascalCase =
-- | ```
snakeCase :: String -> String
snakeCase =
words >>> map toUnicodeLower >>> String.joinWith "_"
words >>> map Unicode.toLower >>> String.joinWith "_"

-- | Converts the first character in a `String` to upper case, lower-casing
-- | the rest of the string.
Expand All @@ -66,8 +67,8 @@ snakeCase =
-- | ```
upperCaseFirst :: String -> String
upperCaseFirst =
SCU.uncons >>> foldMap \{ head, tail } ->
SCU.singleton (Unicode.toUpper head) <> toUnicodeLower tail
SCP.uncons >>> foldMap \{ head, tail } ->
SCP.fromCodePointArray (UCP.toTitle head) <> Unicode.toLower tail

-- | Separates a `String` into words based on Unicode separators, capital
-- | letters, dashes, underscores, etc.
Expand Down Expand Up @@ -118,14 +119,6 @@ hasUnicodeWords :: String -> Boolean
hasUnicodeWords =
Regex.test regexHasUnicodeWords

toUnicodeLower :: String -> String
toUnicodeLower =
SCU.toCharArray >>> map Unicode.toLower >>> SCU.fromCharArray

toUnicodeUpper :: String -> String
toUnicodeUpper =
SCU.toCharArray >>> map Unicode.toUpper >>> SCU.fromCharArray

regexUnicodeWords :: Regex
regexUnicodeWords =
regexGlobal
Expand Down