#------------------------------------------------------------------------------
#                        Fvwm Rc
#------------------------------------------------------------------------------

set RcFile        [file join $::env(HOME) .fvwm .fvwm2rc]
# Read lines and change values
set RId        [open $RcFile r]
set RcData        ""
foreach Line [split [read $RId] \n] {
    if {[regexp {^[ \t]*Colorset[ \t]*([0-9]+)[ \t]} $Line -> CS]} {
        switch $CS {
            0 {
                lassign [::defColor::tint $Color(Standard,Normal,Back)] L D
                lappend RcData "Colorset 0 bg $Color(Standard,Normal,Back), fg $Color(Standard,Normal,Fore), hi $L, sh $D # Global"
            }
            1 {
                lassign [::defColor::tint $Color(Standard,Normal,Back)] L D
                lappend RcData "Colorset 1 bg $Color(Standard,Normal,Back), fg $Color(Standard,Normal,Fore), hi $L, sh $D # Standard,Normal"
            }
            2 {
                lassign [::defColor::tint $Color(Standard,Select,Back)] L D
                lappend RcData "Colorset 2 bg $Color(Standard,Select,Back), fg $Color(Standard,Select,Fore), hi $L, sh $D # Standard,Select"
            }
            3 {
                lassign [::defColor::tint $Color(Standard,Highlight,Back)] L D
                lappend RcData "Colorset 3 bg $Color(Standard,Highlight,Back), fg $Color(Standard,Highlight,Fore), hi $L, sh $D # Standard,Active"
            }
            4 {
                lassign [::defColor::tint $Color(Standard,Active,Back)] L D
                lappend RcData "Colorset 4 bg $Color(Standard,Active,Back), fg $Color(Standard,Active,Fore), hi $L, sh $D # Standard,Prelight"
            }
            5 {
                lassign [::defColor::tint $Color(Standard,Disabled,Back)] L D
                lappend RcData "Colorset 5 bg $Color(Standard,Disabled,Back), fg $Color(Standard,Disabled,Fore), hi $L, sh $D # Standard,Disabled"
            }
            6 {
                lassign [::defColor::tint $Color(Input,Normal,Back)] L D
                lappend RcData "Colorset 6 bg $Color(Input,Normal,Back), fg $Color(Input,Normal,Fore), hi $L, sh $D # Input,Normal"
            }
            7 {
                lassign [::defColor::tint $Color(Input,Select,Back)] L D
                lappend RcData "Colorset 7 bg $Color(Input,Select,Back), fg $Color(Input,Select,Fore), hi $L, sh $D # Input,Select"
            }
            8 {
                lassign [::defColor::tint $Color(Input,Highlight,Back)] L D
                lappend RcData "Colorset 8 bg $Color(Input,Highlight,Back), fg $Color(Input,Highlight,Fore), hi $L, sh $D # Input,Active"
            }
            9 {
                lassign [::defColor::tint $Color(Input,Active,Back)] L D
                lappend RcData "Colorset 9 bg $Color(Input,Active,Back), fg $Color(Input,Active,Fore), hi $L, sh $D # Input,Prelight"
            }
            10 {
                lassign [::defColor::tint $Color(Input,Disabled,Back)] L D
                lappend RcData "Colorset 10 bg $Color(Input,Disabled,Back), fg $Color(Input,Disabled,Fore), hi $L, sh $D # Input,Disabled"
            }
            default {
                lappend RcData        $Line
            }
        }
    } else {
        lappend RcData        $Line
    }
}
close $RId
# Correction for empty lines at end
while {1} {
        if {[lindex $RcData end] == ""} {
                set RcData        [lreplace $RcData end end]
                continue
        } else {
                break
        }
}
# Write to file
set RId        [open $RcFile w]
foreach Line $RcData {
        puts $RId $Line
}
close $RId