stable

tools/fetch-emoji.ps1

@@ -0,0 +1,104 @@
+# Haalt de Twemoji-set (emoji-datasource-twitter) en de CLDR-trefwoorden op en schrijft
+# een compacte catalogus naar src/Kniip/Assets/Emoji. Alleen opnieuw draaien bij een update.
+#
+# Twemoji-afbeeldingen: (c) Twitter, Inc en andere bijdragers, CC-BY 4.0.
+# Emoji-data: emoji-datasource (MIT). Trefwoorden: Unicode CLDR (Unicode License).
+
+$ErrorActionPreference = 'Stop'
+$ProgressPreference = 'SilentlyContinue'
+
+$datasourceVersion = '15.1.2'
+$cldrVersion = '46.0.0'
+
+$root = Split-Path -Parent $PSScriptRoot
+$outDir = Join-Path $root 'src\Kniip\Assets\Emoji'
+New-Item -ItemType Directory -Force -Path $outDir | Out-Null
+
+$datasource = "https://unpkg.com/emoji-datasource-twitter@$datasourceVersion"
+$cldr = "https://raw.githubusercontent.com/unicode-org/cldr-json/$cldrVersion/cldr-json"
+
+function Get-Json([string]$url) {
+    $bytes = (Invoke-WebRequest -Uri $url -UseBasicParsing).RawContentStream.ToArray()
+    [Text.Encoding]::UTF8.GetString($bytes) | ConvertFrom-Json
+}
+
+function Get-Annotations([string]$lang) {
+    $map = @{}
+    foreach ($kind in 'cldr-annotations-full/annotations', 'cldr-annotations-derived-full/annotationsDerived') {
+        $json = Get-Json "$cldr/$kind/$lang/annotations.json"
+        $set = if ($json.annotations) { $json.annotations.annotations } else { $json.annotationsDerived.annotations }
+        foreach ($p in $set.PSObject.Properties) {
+            $key = $p.Name.Replace([string][char]0xFE0F, '')
+            $map[$key] = $p.Value
+        }
+    }
+    $map
+}
+
+Write-Host 'Spritesheet downloaden...'
+Invoke-WebRequest -Uri "$datasource/img/twitter/sheets/64.png" -OutFile (Join-Path $outDir 'twemoji-64.png') -UseBasicParsing
+
+Write-Host 'emoji.json downloaden...'
+$emoji = Get-Json "$datasource/emoji.json"
+
+Write-Host 'CLDR-trefwoorden downloaden...'
+$nl = Get-Annotations 'nl'
+$en = Get-Annotations 'en'
+
+function Get-Char([string]$unified) {
+    ($unified -split '-' | ForEach-Object { [char]::ConvertFromUtf32([Convert]::ToInt32($_, 16)) }) -join ''
+}
+
+$tones = @{ '1F3FB' = 1; '1F3FC' = 2; '1F3FD' = 3; '1F3FE' = 4; '1F3FF' = 5 }
+
+$items = foreach ($e in $emoji) {
+    if (-not $e.has_img_twitter -or $e.obsoleted_by -or $e.category -eq 'Component') { continue }
+
+    $key = (Get-Char $e.unified).Replace([string][char]0xFE0F, '')
+    $nlEntry = $nl[$key]
+    $enEntry = $en[$key]
+
+    $words = New-Object System.Collections.Generic.List[string]
+    $words.AddRange([string[]]$e.short_names)
+    if ($e.name) { $words.Add($e.name) }
+    foreach ($entry in $nlEntry, $enEntry) {
+        if ($entry) {
+            if ($entry.tts) { $words.AddRange([string[]]$entry.tts) }
+            if ($entry.default) { $words.AddRange([string[]]$entry.default) }
+        }
+    }
+
+    $skins = $null
+    if ($e.skin_variations) {
+        $skins = [ordered]@{}
+        foreach ($p in $e.skin_variations.PSObject.Properties) {
+            $parts = $p.Name -split '-'
+            if (($parts | Select-Object -Unique).Count -ne 1 -or -not $tones.ContainsKey($parts[0])) { continue }
+            if (-not $p.Value.has_img_twitter) { continue }
+            $skins[[string]$tones[$parts[0]]] = @($p.Value.unified.ToLowerInvariant(), $p.Value.sheet_x, $p.Value.sheet_y)
+        }
+        if ($skins.Count -eq 0) { $skins = $null }
+    }
+
+    $nameNl = if ($nlEntry -and $nlEntry.tts) { $nlEntry.tts[0] } else { $null }
+    $nameEn = if ($enEntry -and $enEntry.tts) { $enEntry.tts[0] } elseif ($e.name) { $e.name.ToLowerInvariant() } else { $e.short_name }
+
+    $item = [ordered]@{
+        u = $e.unified.ToLowerInvariant()
+        c = $e.category
+        o = $e.sort_order
+        x = $e.sheet_x
+        y = $e.sheet_y
+        s = $e.short_name
+        n = if ($nameNl) { $nameNl } else { $nameEn }
+        k = (($words | ForEach-Object { $_.ToLowerInvariant().Replace('_', ' ') } | Select-Object -Unique) -join '|')
+    }
+    if ($skins) { $item['t'] = $skins }
+    [pscustomobject]$item
+}
+
+$items = $items | Sort-Object o
+$json = $items | ConvertTo-Json -Depth 5 -Compress
+[IO.File]::WriteAllText((Join-Path $outDir 'emoji.json'), $json, (New-Object Text.UTF8Encoding $false))
+
+Write-Host "Klaar: $(@($items).Count) emoji naar $outDir"