FarLite

0.0.8

Scripts/New-FLCollectionsExplorer.ps1


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

function FLCollectionsExplorer_AsCreatePanel {
    param($1)
    $panel = [FarNet.Panel]$1
    $panel.Title = 'Collections'
    $panel.ViewMode = 0
    $panel.SetPlan(0, (New-Object FarNet.PanelPlan))
    $panel
}

function FLCollectionsExplorer_AsGetFiles($1) {
    Use-LiteDatabase $1.Data.ConnectionString {
        if ($1.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($1, $2) {
    New-FLDocumentsExplorer $1.Data.ConnectionString $2.File.Name
}

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

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

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

    Use-LiteDatabase $1.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($1, $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 $1.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 "$_"}
            }
        }
    }
}