Scripts/New-FGBranchExplorer.ps1
function New-FGBranchExplorer($Root) { New-Object PowerShellFar.PowerExplorer 71ebb500-c8e1-4544-827a-8456c3611f8e -Property @{ Data = @{ Root = $Root } Functions = 'CreateFile, DeleteFiles, RenameFile' AsCreateFile = {FGBranchExplorer_AsCreateFile @args} AsCreatePanel = {FGBranchExplorer_AsCreatePanel @args} AsDeleteFiles = {FGBranchExplorer_AsDeleteFiles @args} AsGetFiles = {FGBranchExplorer_AsGetFiles @args} AsRenameFile = {FGBranchExplorer_AsRenameFile @args} } } function FGBranchExplorer_AsCreatePanel($1) { $panel = [FarNet.Panel]$1 $panel.Title = "Branches: $($1.Data.Root)" $panel.ViewMode = 0 $panel.SortMode = 'Unsorted' $cn = New-Object FarNet.SetColumn -Property @{ Kind = "N"; Name = "Name" } $co = New-Object FarNet.SetColumn -Property @{ Kind = "O"; Name = "Current"; Width = 1 } $mode = New-Object FarNet.PanelPlan $mode.Columns = $co, $cn $panel.SetPlan(0, $mode) $panel } function FGBranchExplorer_AsGetFiles($1) { $Root = $1.Data.Root $res = Invoke-Error {git -C $Root branch -a --list --quiet} if ($LASTEXITCODE) { throw $res } foreach($line in $res) { if ($line -notmatch '^(\*)?\s*(\S+)') { New-FarFile -Name "Unexpected branch: '$line'" continue } $name = $matches[2] $isHidden = $name.Contains('/') if ($matches[1]) { New-FarFile -Name $name -Owner * } elseif ($isHidden) { New-FarFile -Name $name -Attributes Hidden } else { New-FarFile -Name $name } } } function FGBranchExplorer_AsCreateFile($1, $2) { $Root = $1.Data.Root $oldBranch = Invoke-Error {git -C $Root branch --show-current} if ($LASTEXITCODE) { throw $oldBranch } $newBranch = $Far.Input('New branch name', 'GitBranch', "New branch from $oldBranch") if (!$newBranch) { $2.Result = 'Ignore' return } $res = Invoke-Error {git -C $Root checkout -b $newBranch} if ($LASTEXITCODE) { $2.Result = 'Ignore' Show-FarMessage "Error on create branch $newBranch`n$res" -Caption FarGit -LeftAligned -IsWarning } } function FGBranchExplorer_AsDeleteFiles($1, $2) { # ask if ($2.UI) { $text = @" $($2.Files.Count) branch(es): $($2.Files[0..9] -join "`n") "@ if (Show-FarMessage $text Delete YesNo -LeftAligned) { $2.Result = 'Ignore' return } } # delete $Root = $1.Data.Root foreach($file in $2.Files) { $branch = $file.Name $res = Invoke-Error { if ($2.Force) { git -C $Root branch -D $branch } else { git -C $Root branch -d $branch } } if ($LASTEXITCODE) { $2.Result = 'Incomplete' $2.FilesToStay.Add($file) if ($2.UI) { Show-FarMessage "Error on delete branch $branch`n$res" -Caption FarGit -LeftAligned -IsWarning } } } } function FGBranchExplorer_AsRenameFile($1, $2) { $Root = $1.Data.Root $oldName = $2.File.Name $newName = ([string]$Far.Input('New branch name', 'GitBranch', 'Rename branch', $oldName)).Trim() if (!$newName) { $2.Result = 'Ignore' return } $res = Invoke-Error {git -C $Root branch -m $oldName $newName} if ($LASTEXITCODE) { $2.Result = 'Ignore' Show-FarMessage "Error on rename branch $oldName to $newName`n$res" -Caption FarGit -LeftAligned -IsWarning } else { $2.PostName = $newName } } |