Text-Positioning.ps1

function to_pos($pos, $str) {
    $text_width = ($str -replace '\x1B(?:[@-Z\\-_]|\[[0-?]*[ -/]*[@-~])','').Length
    $rpos = $host.UI.RawUI.WindowSize.Width - $text_width + 1
    $bot = $host.UI.RawUI.WindowSize.Height
    $setloc = switch ($pos) {
        "UL" { "`e[1;1f" }
        "UR" { "`e[1;${rpos}f" }
        "LL" { "`e[${bot};1f" }
        "LR" { "`e[${bot};${rpos}f" }
        "L"  { "`e[1G" }
        "R"  { "`e[${rpos}G" }
    }
    "`e7${setloc}${str}`e8"
}

$parts = @{
    Defaults = @{
        # Fore = "AliceBlue";
        Post = [Char]0xe0b0
    }
    Main = @(
        @{ Fore = "Cyan"; Text = "PS"; Post = " "},
        @{ Fore = "Red"; Script = { get-date -uformat "%H:%M" } }
    )

    Right = @(
        @{ Fore = "Green"; Script = { $pwd } }
    )
}

foreach ($part in $parts.Main) {
    if ($null -ne $part.Script) {
        $text = & $part.Script
    }
    elseif ($null -ne $part.Text) {
        $text = $part.Text
    }
    Write-Host -NoNewLine -Fore $part.Fore $text
    Write-Host -NoNewLine $part.Sep

    # Newline and > at the end???
    # Begs the question of multi-line prompts.
}