xquery version "3.1";

declare function local:strip-diacritics($string as xs:string) as xs:string {
    $string
    => normalize-unicode("NFD")
    => replace("\p{IsCombiningDiacriticalMarks}", "")
};

declare function local:inspect-diacritics($string as xs:string) as element() {
    let $normalized := normalize-unicode($string, "NFD")
    let $stripped := local:strip-diacritics($string)
    return
        <result>
            <source>{$string}</source>
            <source-is-nfc-normalized>{$string = normalize-unicode($string)}</source-is-nfc-normalized>
            <nfd-normalized>{$normalized}</nfd-normalized>
            <stripped-of-combining-diacritical-marks>{$stripped}</stripped-of-combining-diacritical-marks>
            <src-codepoints>{string-to-codepoints($string)}</src-codepoints>
            <nfd-codepoints>{string-to-codepoints($normalized)}</nfd-codepoints>
            <fin-codepoints>{string-to-codepoints($stripped)}</fin-codepoints>
        </result>
};


let $source := 'çéüå'
return 
    local:inspect-diacritics($source)