Elm

0.2.1

Examples/Invoke-IncrementDecrement.ps1

Import-Module "$PSScriptRoot/../Elm.psd1" -Force

$init = {
    [PSCustomObject]@{ Model = [PSCustomObject]@{ Count = 0 }; Cmd = $null }
}

$update = {
    param($msg, $model)
    switch ($msg.Key) {
        'UpArrow'   { [PSCustomObject]@{ Model = [PSCustomObject]@{ Count = $model.Count + 1 }; Cmd = $null } }
        'DownArrow' { [PSCustomObject]@{ Model = [PSCustomObject]@{ Count = $model.Count - 1 }; Cmd = $null } }
        'Q'         { [PSCustomObject]@{ Model = $model; Cmd = [PSCustomObject]@{ Type = 'Quit' } } }
        default     { [PSCustomObject]@{ Model = $model; Cmd = $null } }
    }
}

$view = {
    param($model)
    $hintStyle = New-ElmStyle -Foreground 'BrightBlack'
    New-ElmBox -Style (New-ElmStyle -Width 30 -Padding @(0, 1)) -Children @(
        New-ElmText -Content "Count: $($model.Count)"
        New-ElmText -Content '[Up] inc [Down] dec [Q] quit' -Style $hintStyle
    )
}

Start-ElmProgram -InitFn $init -UpdateFn $update -ViewFn $view