recase.art

;===============================================
; Recase.art
;
; Unicode-friendly string case converter
; for Arturo
;
; MIT License
; (c) 2024 Yanis Zafirópulos
;===============================================

export module [
    ;---------------------------
    ; Helpers
    ;---------------------------

    allCaps?: function [s][
        and? 1 < size s
            every? s 'ch -> or? [upper? ch]
                                [numeric? ch]
    ]

    ;---------------------------
    ; Private methods
    ;---------------------------

    separated: method [s][
        ; crazy regex credit:
        ; https://stackoverflow.com/a/62527131/1270812
        prepared: s | replace {/(*UTF8)([^[\p{L}\d]+|(?<=[\p{Ll}\d])(?=\p{Lu})|(?<=\p{Lu})(?=\p{Lu}[\p{Ll}\d])|(?<=[\p{L}\d])(?=\p{Lu}[\p{Ll}\d]))/} " "
                    | split.words
        
        return map prepared 'word [
            (\allCaps? word)? -> word
                              -> lower word
        ]
    ]

    titleCase: method [s][
        join map \separated s => capitalize
    ]

    camelCase: method [s][
        join map.with:'i \separated s 'x [
            (i=0)? -> x
                   -> capitalize x
        ]
    ]

    snakeCase: method [s][
        join.with:"_" \separated s
    ]

    kebabCase: method [s][
        join.with:"-" \separated s
    ]

    plainCase: method [s][
        join.with:" " \separated s
    ]

    ;---------------------------
    ; Public methods
    ;---------------------------

    recase: method.public [str :string][
        ;; description: « convert case of given string
        ;; options: [
        ;;      title: « convert to TitleCase
        ;;      camel: « convert to camelCase
        ;;      snake: « convert to snake_case
        ;;      kebab: « convert to kebab-case
        ;;      plain: « convert to plain case
        ;; ]
        ;; returns: :string
        ;; example: {
        ;;      recase.snake "This is an example"
        ;;      ; => "this_is_an_example"
        ;;
        ;;      recase.camel "Print SQL"
        ;;      ; => "printSQL"
        ;; }
        ret: str

        unless null? attr 'title -> ret: \titleCase ret
        unless null? attr 'camel -> ret: \camelCase ret
        unless null? attr 'snake -> ret: \snakeCase ret
        unless null? attr 'kebab -> ret: \kebabCase ret
        unless null? attr 'plain -> ret: \plainCase ret
        
        return ret
    ]
]!

;---------------------------
; Testing
;---------------------------

if standalone? ::
    loop ["This is       an example", "ThisIsAnExample", "this345_is_an_example", "printSQL", "ДоброЈутро"] 'str [
        print ["String is:" str]
        print ["Camel case:" recase.camel str]
        print ["Title case:" recase.title str]
        print ["Kebab case:" recase.kebab str]
        print ["Snake case:" recase.snake str]
        print ["Plain case:" recase.plain str]
        print "----"
    ]