projman/lib/config.tcl

######################################################
#                ProjMan 2
#        Distributed under GNU Public License
# Author: Sergey Kalinin svk@nuk-svk.ru
# Copyright (c) "", 2022, https://nuk-svk.ru
######################################################
# The config file procedures
# create
# copy
# save
######################################################

namespace eval Config {} {
    variable cfgINISections
    variable cfgVariables
}

if [info exists env(LANG)] {
    set locale $env(LANG)
} else {
    set locale "en"
}

set ::configDefault "\[General\]
cfgModifyDate=''
opened=
editedFiles=
searchCommand=/usr/bin/grep
searchCommandOptions=-r -n -H
gitCommand=/usr/bin/git
\[GUI\]
locale=$locale
theme=dark
toolBarShow=true
menuShow=true
filesPanelShow=true
filesPanelPlace=left
geometry=1024x768
guiFont={Droid Sans Mono} 9
guiFontBold={Droid Sans Mono} 9 bold
guiFG=#cccccc
\[Editor\]
autoFormat=true
font=Monospace 10
fontBold=Monospace 10
backGround=#333333
foreground=#cccccc
selectbg=#10a410a410a4
selectLightBg=grey
nbNormal=#000000
nbModify=#ffff5d705d70
lineNumberFG=#444444
lineNumberBG=#151515
selectBorder=0
# must be: none, word or char
editorWrap=word
lineNumberShow=true
tabSize=4
procedureHelper=false
variableHelper=true
"
proc Config::create {dir} {
    set cfgFile [open [file join $dir projman.ini]  "w+"]
    puts $cfgFile $::configDefault        
    close $cfgFile
}

proc Config::read {dir} {
    set cfgFile [ini::open [file join $dir projman.ini] "r"]
    foreach section [ini::sections $cfgFile] {
        foreach key [ini::keys $cfgFile $section] {
            lappend ::cfgINIsections($section)  $key
            set ::cfgVariables($key)  [ini::value $cfgFile $section $key]
        }
    }
    ini::close $cfgFile
}

proc Config::write {dir} {
    global activeProject
    set cfgFile [ini::open [file join $dir projman.ini] "w"]
    foreach section  [array names ::cfgINIsections] {
        foreach key $::cfgINIsections($section) {
            ini::set $cfgFile $section $key $::cfgVariables($key)
        }
    }
    set systemTime [clock seconds]
    # Set a config modify time (i don't know why =))'
    ini::set $cfgFile "General" cfgModifyDate [clock format $systemTime -format "%D %H:%M:%S"]
  
    # Save an top level window geometry into config
    ini::set $cfgFile "GUI" geometry [wm geometry .]
    if {[info exists activeProject] !=0 && $activeProject ne ""} {
        ini::set $cfgFile "General" opened $activeProject
    } else {
        ini::set $cfgFile "General" opened ""
    }
    ini::commit $cfgFile
    ini::close $cfgFile
}