ISEColorTheme.Cmdlets

1.5

Public/Get/Get-CurrentISETheme.ps1

                                function Get-CurrentISETheme {

[CmdletBinding()]

param()

    #-Create empty ISE Color object array

    $CurrentISEObjects = @()

    #-Get base colors

    $baseClass = @()

    $hash = @{Attribute = 'ErrorForegroundColor'; Hex = $psISE.Options.ErrorForegroundColor}                                    

    $Object = New-Object PSObject -Property $hash

    $baseClass += $Object

    $hash = @{Attribute = 'ErrorBackgroundColor'; Hex = $psISE.Options.ErrorBackgroundColor}                                    

    $Object = New-Object PSObject -Property $hash

    $baseClass += $Object

    $hash = @{Attribute = 'WarningForegroundColor'; Hex = $psISE.Options.WarningForegroundColor}                                    

    $Object = New-Object PSObject -Property $hash

    $baseClass += $Object

    $hash = @{Attribute = 'WarningBackgroundColor'; Hex = $psISE.Options.WarningBackgroundColor}                                    

    $Object = New-Object PSObject -Property $hash

    $baseClass += $Object

    $hash = @{Attribute = 'VerboseForegroundColor'; Hex = $psISE.Options.VerboseForegroundColor}                                    

    $Object = New-Object PSObject -Property $hash

    $baseClass += $Object

    $hash = @{Attribute = 'VerboseBackgroundColor'; Hex = $psISE.Options.VerboseBackgroundColor}                                    

    $Object = New-Object PSObject -Property $hash

    $baseClass += $Object

    $hash = @{Attribute = 'DebugForegroundColor'; Hex = $psISE.Options.DebugForegroundColor}                                    

    $Object = New-Object PSObject -Property $hash

    $baseClass += $Object

    $hash = @{Attribute = 'DebugBackgroundColor'; Hex = $psISE.Options.DebugBackgroundColor}                                    

    $Object = New-Object PSObject -Property $hash

    $baseClass += $Object

    $hash = @{Attribute = 'ConsolePaneBackgroundColor'; Hex = $psISE.Options.ConsolePaneBackgroundColor}                                    

    $Object = New-Object PSObject -Property $hash

    $baseClass += $Object

    $hash = @{Attribute = 'ConsolePaneTextBackgroundColor'; Hex = $psISE.Options.ConsolePaneTextBackgroundColor}                                    

    $Object = New-Object PSObject -Property $hash

    $baseClass += $Object

    $hash = @{Attribute = 'ConsolePaneForegroundColor'; Hex = $psISE.Options.ConsolePaneForegroundColor}                                    

    $Object = New-Object PSObject -Property $hash

    $baseClass += $Object

    $hash = @{Attribute = 'ScriptPaneBackgroundColor'; Hex = $psISE.Options.ScriptPaneBackgroundColor}                                    

    $Object = New-Object PSObject -Property $hash

    $baseClass += $Object

    $hash = @{Attribute = 'ScriptPaneForegroundColor'; Hex = $psISE.Options.ScriptPaneForegroundColor}                                    

    $Object = New-Object PSObject -Property $hash

    $baseClass += $Object

    ForEach ($obj in $baseClass) {

        $ARGBObj = Convert-HexToARGB $obj.Hex

        $tcObj = New-Object -Type PSObject

        $tcObj | Add-Member -MemberType NoteProperty -Name Class –Value 'Base'

        $tcObj | Add-Member -MemberType NoteProperty -Name Attribute –Value $obj.Attribute

        $tcObj | Add-Member -MemberType NoteProperty -Name A –Value $ARGBObj.A

        $tcObj | Add-Member -MemberType NoteProperty -Name R –Value $ARGBObj.R

        $tcObj | Add-Member -MemberType NoteProperty -Name G –Value $ARGBObj.G

        $tcObj | Add-Member -MemberType NoteProperty -Name B –Value $ARGBObj.B

        $tcObj | Add-Member -MemberType NoteProperty -Name Hex –Value $obj.Hex

        $CurrentISEObjects += $tcObj

    }

    #-Get TokenColors

    ForEach ($Token in $psISE.Options.TokenColors) {

        [string]$HexValue = $Token.Value

        $ARGBObj = Convert-HexToARGB $HexValue

        $tcObj = New-Object -Type PSObject

        $tcObj | Add-Member -MemberType NoteProperty -Name Class –Value 'TokenColors'

        $tcObj | Add-Member -MemberType NoteProperty -Name Attribute –Value $Token.Key

        $tcObj | Add-Member -MemberType NoteProperty -Name A –Value $ARGBObj.A

        $tcObj | Add-Member -MemberType NoteProperty -Name R –Value $ARGBObj.R

        $tcObj | Add-Member -MemberType NoteProperty -Name G –Value $ARGBObj.G

        $tcObj | Add-Member -MemberType NoteProperty -Name B –Value $ARGBObj.B

        $tcObj | Add-Member -MemberType NoteProperty -Name Hex –Value $HexValue

        $CurrentISEObjects += $tcObj  

    }

    $ARGBObj = $null

    #-Get ConsoleTokenColors

    ForEach ($Token in $psISE.Options.ConsoleTokenColors) {

        [string]$HexValue = $Token.Value

        $ARGBObj = Convert-HexToARGB $HexValue

        $ctcObj = New-Object -Type PSObject

        $ctcObj | Add-Member -MemberType NoteProperty -Name Class –Value 'ConsoleTokenColors'

        $ctcObj | Add-Member -MemberType NoteProperty -Name Attribute –Value $Token.Key

        $ctcObj | Add-Member -MemberType NoteProperty -Name A –Value $ARGBObj.A

        $ctcObj | Add-Member -MemberType NoteProperty -Name R –Value $ARGBObj.R

        $ctcObj | Add-Member -MemberType NoteProperty -Name G –Value $ARGBObj.G

        $ctcObj | Add-Member -MemberType NoteProperty -Name B –Value $ARGBObj.B

        $ctcObj | Add-Member -MemberType NoteProperty -Name Hex –Value $Token.Value

        $CurrentISEObjects += $ctcObj 

    }

    $ARGBObj = $null

    #-Get XmlTokenColors

    ForEach ($Token in $psISE.Options.XmlTokenColors) {

        [string]$HexValue = $Token.Value

        $ARGBObj = Convert-HexToARGB $HexValue

        $xtcObj = New-Object -Type PSObject

        $xtcObj | Add-Member -MemberType NoteProperty -Name Class –Value 'XmlTokenColors'

        $xtcObj | Add-Member -MemberType NoteProperty -Name Attribute –Value $Token.Key

        $xtcObj | Add-Member -MemberType NoteProperty -Name A –Value $ARGBObj.A

        $xtcObj | Add-Member -MemberType NoteProperty -Name R –Value $ARGBObj.R

        $xtcObj | Add-Member -MemberType NoteProperty -Name G –Value $ARGBObj.G

        $xtcObj | Add-Member -MemberType NoteProperty -Name B –Value $ARGBObj.B

        $xtcObj | Add-Member -MemberType NoteProperty -Name Hex –Value $Token.Value

        $CurrentISEObjects += $xtcObj 

    }

    #-Get Font and Name

    $othObj = New-Object -Type PSObject

    $othObj | Add-Member -MemberType NoteProperty -Name Class –Value 'Other'

    $othObj | Add-Member -MemberType NoteProperty -Name FontFamily –Value $psISE.Options.FontName

    $othObj | Add-Member -MemberType NoteProperty -Name FontSize –Value $psISE.Options.FontSize

    $CurrentISEObjects += $othObj

    #-Return Output

    $CurrentISEObjects

    <#

        .SYNOPSIS

            Gets current ISE theme

        .DESCRIPTION

            Gets current ISE theme. Hex colors are converted to ARGB

            and added back to the returned objects.

        .EXAMPLE

            PS C:\> $CurrentISETheme = Get-CurrentISETheme

            Assigns Current ISE theme properties to CurrentISETheme

        .NOTES

            Part of the ISEColorThemeCmdlets.ps1 Script by Jeff Pollock 

            http://Lifeinpowerhsell.blogspot.com                                         

            http://gallery.technet.microsoft.com/ISE-Color-Theme-Cmdlets-24905f9e

    #> 

}