FarLite

1.0.1

Scripts/New-FLCollectionsExplorer.ps1


function New-FLCollectionsExplorer($ConnectionString, [switch]$System) {
    $Explorer = [PowerShellFar.PowerExplorer]::new('2c77b1ed-c496-4823-9792-2e417a8c83a9')
    $Explorer.Data = @{
        ConnectionString = $ConnectionString
        System = $System
    }
    $Explorer.Functions = 'CreateFile, DeleteFiles, RenameFile'
    $Explorer.AsCreateFile = ${function:FLCollectionsExplorer_AsCreateFile}
    $Explorer.AsCreatePanel = ${function:FLCollectionsExplorer_AsCreatePanel}
    $Explorer.AsDeleteFiles = ${function:FLCollectionsExplorer_AsDeleteFiles}
    $Explorer.AsExploreDirectory = ${function:FLCollectionsExplorer_AsExploreDirectory}
    $Explorer.AsGetFiles = ${function:FLCollectionsExplorer_AsGetFiles}
    $Explorer.AsRenameFile = ${function:FLCollectionsExplorer_AsRenameFile}
    $Explorer
}

function FLCollectionsExplorer_AsCreatePanel($Explorer) {
    $panel = [FarNet.Panel]::new($Explorer)
    $panel.Title = 'Collections'
    $panel.ViewMode = 0
    $panel.SetPlan(0, ([FarNet.PanelPlan]::new()))
    $panel
}

function FLCollectionsExplorer_AsGetFiles($Explorer) {
    Use-LiteDatabase $Explorer.Data.ConnectionString {
        if ($Explorer.Data.System) {
            foreach($r in Invoke-LiteCommand 'SELECT $.name FROM $cols') {
                New-FarFile -Name $r.name -Attributes Directory
            }
        }
        else {
            foreach($name in $Database.GetCollectionNames()) {
                New-FarFile -Name $name -Attributes Directory
            }
        }
    }
}

function FLCollectionsExplorer_AsExploreDirectory($Explorer, $2) {
    New-FLDocumentsExplorer $Explorer.Data.ConnectionString $2.File.Name
}

function FLCollectionsExplorer_AsRenameFile($Explorer, $2) {
    $newName = ([string]$Far.Input('New name', $null, 'Rename', $2.File.Name)).Trim()
    if (!$newName) {
        return
    }

    Use-LiteDatabase $Explorer.Data.ConnectionString {
        $Database.RenameCollection($2.File.Name, $newName)
    }
    $2.PostName = $newName
}

function FLCollectionsExplorer_AsCreateFile($Explorer, $2) {
    $newName = $Far.Input('New collection name', $null, 'FarLite')
    if (!$newName) {
        return
    }

    Use-LiteDatabase $Explorer.Data.ConnectionString {
        Use-LiteTransaction {
            $collection = Get-LiteCollection $newName
            if ($collection.Count() -eq 0) {
                $id = [LiteDB.ObjectId]::NewObjectId()
                Add-LiteData $collection @{_id = $id}
                Remove-LiteData $collection -ById $id
            }
        }
    }

    #! PostName is case sensitive, collection may exist with different case, PostFile goes to it regardless
    $2.PostFile = New-FarFile $newName
}

function FLCollectionsExplorer_AsDeleteFiles($Explorer, $2) {
    # ask
    if ($2.UI) {
        $text = @"
$($2.Files.Count) collection(s):
$($2.Files[0..9] -join "`n")
"@
        if (Show-FarMessage $text Delete YesNo -LeftAligned) {return}
    }
    # drop
    Use-LiteDatabase $Explorer.Data.ConnectionString {
        foreach($file in $2.Files) {
            try {
                if (!$2.Force) {
                    $collection = Get-LiteCollection $file.Name
                    if ($collection.Count()) {
                        throw "Collection '$($file.Name)' is not empty."
                    }
                }
                $null = $Database.DropCollection($file.Name)
            }
            catch {
                $2.Result = 'Incomplete'
                $2.FilesToStay.Add($file)
                if ($2.UI) {Show-FarMessage "$_"}
            }
        }
    }
}