Lets you set text or an emoji for every hour's AM/PM indicator. It's pizza time.

Emoji_Time.ps1

# Must save as UTF-8 with BOM
# Set as hourly scheduled task
# Updates after a minute has passed

$OutputEncoding = [System.Text.UTF8Encoding]::new()
[Console]::OutputEncoding = [System.Text.UTF8Encoding]::new()

$hour_labels = @{
    '0'  = "🌜"
    '1'  = "🛌"
    '2'  = "🛌"
    '3'  = "🛌"
    '4'  = "🛌"
    '5'  = "🛌"
    '6'  = "🛌"
    '7'  = "🛌"
    '8'  = "🌞"
    '9'  = "🍵"
    '10' = "💩"
    '11' = "💼"

    '12' = "🍕"
    '13' = "💼"
    '14' = "💼"
    '15' = "💼"
    '16' = "💼"
    '17' = "🏊"
    '18' = "🍗"
    '19' = "🎮"
    '20' = "🎮"
    '21' = "🎮"
    '22' = "🎮"
    '23' = "🎮"
}

$hour = (Get-Date -Format "HH").ToString()
$value = $hour_labels[$hour]

if ($hour -lt 12) {
    Write-Output "Setting AM indicator to '$value' for $($hour):00"
    Set-ItemProperty -Path "HKCU:\Control Panel\International" -Name "s1159" -Value $value
} else {
    Write-Output "Setting PM indicator to '$value' for $($hour):00"
    Set-ItemProperty -Path "HKCU:\Control Panel\International" -Name "s2359" -Value $value
}