Gumby.CmdHistory.psm1

using module ListBox
using module Window

<#
.SYNOPSIS
Displays the command history and allows to select and invoke a command from it.
 
.PARAMETER Count
Maximum number of command history items to select from.
 
.DESCRIPTION
The command history is displayed in reverse chronologic order.
#>

function CmdHistorySelect($Count = 30) {
    $rawCmdHistory = Get-History -Count $Count

    $omittedCommands = "Get-History", "ch"

    # Not using 'Get-Unique' cmdlet here as it requires alphabetical sorting, and I want to preserve
    # the historic order of commands.

    $cmdHistory = [System.Collections.ArrayList]::new()

    for ($i = $rawCmdHistory.Count - 1; $i -ge 0; --$i) {
        if (($omittedCommands -notcontains $rawCmdHistory[$i].CommandLine) -and
            ($cmdHistory -notcontains $rawCmdHistory[$i].CommandLine)) {
            $cmdHistory.Add($rawCmdHistory[$i].CommandLine) | Out-Null
        }
    }

    $horizontalPercent = 0.5
    $verticalPercent = 0.5

    $width = [console]::WindowWidth * $horizontalPercent
    $left = [int](([console]::WindowWidth - $width) / 2)

    $height = [console]::WindowHeight * $verticalPercent
    $top = [int](([console]::WindowHeight - $height) / 2)

    $lb = [ListBox]::new($cmdHistory, ([StringLBItem]), $left, $top, $width, $height, ([console]::BackgroundColor), ([console]::ForegroundColor))
    $lb.Title = 'Command History'

    if (($lb.Run() -eq [WindowResult]::OK) -and ($lb.SelectedIndex() -lt $lb.ItemCount())) {
        Invoke-Expression $lb.SelectedItem().Value()
    }
}