#!/bin/bash

OBTHEME=$(awk '/<theme>/ {while (getline n) {if (match(n, /<name>/))
          {l=n; exit}}} END {split(l, a, "[<>]"); print a[3]}' "$HOME/.config/openbox/rc.xml")
#echo "$OBTHEME"
THEMEDIR="$HOME/.themes/$OBTHEME/openbox-3"
THEMERC="$HOME/.themes/$OBTHEME/openbox-3/themerc"

    if [ ! -f "${THEMERC}.bak" ]; then
    cp ${THEMERC} ${THEMERC}.bak
    fi

theme () {
    xmlstarlet ed -L -N o="http://openbox.org/3.4/rc" -u '/o:openbox_config/o:theme/o:name' -v "$1" "$HOME/.config/openbox/rc.xml"
}
reset () {
    rm ${THEMERC}
    mv ${THEMERC}.bak ${THEMERC}
}

borderWidth () {
    sd "^border.width:.*$" "border.width: $1" ${THEMERC}
}
activeborderColor () {
    sd "\.active.border.color:.*$" ".active.border.color: $1" ${THEMERC}
}
inactiveborderColor () {
    sd "\.inactive.border.color:.*$" ".inactive.border.color: $1" ${THEMERC}
}
paddingHeight () {
    sd "^padding.height:.*$" "padding.height: $1" ${THEMERC}
    sd "^padding.width:.*$" "padding.width: $1" ${THEMERC}
}
paddingWidth () {
    sd "^padding.width:.*$" "padding.width: $1" ${THEMERC}
}
textjustify () {
    sd "\.text.justify:.*$" ".text.justify: $1" ${THEMERC}
}
shadow () {
    case "$1" in
        0)
        sd "\.active.label.text.font:.*$" ".active.label.text.font: shadow=n:shadowtint=70:shadowoffset=1" ${THEMERC}
        sd "\.inactive.label.text.font:.*$" ".inactive.label.text.font: shadow=n:shadowtint=20:shadowoffset=1" ${THEMERC}
        ;;
        1)
        sd "\.active.label.text.font:.*$" ".active.label.text.font: shadow=y:shadowtint=70:shadowoffset=1" ${THEMERC}
        sd "\.inactive.label.text.font:.*$" ".inactive.label.text.font: shadow=y:shadowtint=20:shadowoffset=1" ${THEMERC}
        ;;
        2)
        sd "\.active.label.text.font:.*$" ".active.label.text.font: shadow=y:shadowtint=-70:shadowoffset=1" ${THEMERC}
        sd "\.inactive.label.text.font:.*$" ".inactive.label.text.font: shadow=y:shadowtint=-20:shadowoffset=1" ${THEMERC}
        ;;
    esac

}
handlewidth () {
    sd "\.handle.width:.*$" ".handle.width: $1" ${THEMERC}
}
raised () {
    #flat 0 or raised 1 or sunken 2
    read WINRAISED REST <<< "$(grep .title.bg: ${THEMERC} | cut -d':' -f2)"
    case "$1" in
        0)
        sd "\.title.bg:.*$" ".title.bg: flat ${REST}" ${THEMERC}
        sd "\.handle.bg:.*$" ".handle.bg: flat ${REST}" ${THEMERC}
        sd "\.grip.bg:.*$" ".grip.bg: flat ${REST}" ${THEMERC}
        ;;
        1)
        sd "\.title.bg:.*$" ".title.bg: raised ${REST}" ${THEMERC}
        sd "\.handle.bg:.*$" ".handle.bg: raised ${REST}" ${THEMERC}
        sd "\.grip.bg:.*$" ".grip.bg: raised ${REST}" ${THEMERC}
        ;;
        2)
        sd "\.title.bg:.*$" ".title.bg: sunken ${REST}" ${THEMERC}
        sd "\.handle.bg:.*$" ".handle.bg: sunken ${REST}" ${THEMERC}
        sd "\.grip.bg:.*$" ".grip.bg: sunken ${REST}" ${THEMERC}
        ;;
    esac
}
gradient () {
    #solid or gradient gradient-type
    read WINRAISED REST <<< "$(grep .title.bg: ${THEMERC} | cut -d':' -f2)"
    case "$1" in
        solid)
        sd "\.title.bg:.*$" ".title.bg: ${WINRAISED} solid" ${THEMERC}
        sd "\.handle.bg:.*$" ".handle.bg: ${WINRAISED} solid" ${THEMERC}
        sd "\.grip.bg:.*$" ".grip.bg: ${WINRAISED} solid" ${THEMERC}
        ;;
        *)
        sd "\.title.bg:.*$" ".title.bg: ${WINRAISED} gradient ${1}" ${THEMERC}
        sd "\.handle.bg:.*$" ".handle.bg: ${WINRAISED} gradient ${1}" ${THEMERC}
        sd "\.grip.bg:.*$" ".grip.bg: ${WINRAISED} gradient ${1}" ${THEMERC}
        ;;
    esac
}
activegradient () {
    #notify-send.sh "zmiennne obtctl" "${1} ${2}"
    #sd "\.active.handle.bg.color:.*$" ".active.handle.bg.color: ${1}" ${THEMERC}
    sd "^window.active.title.bg.color:.*$" "window.active.title.bg.color: ${1}" ${THEMERC}
    sd "^window.active.title.bg.colorTo:.*$" "window.active.title.bg.colorTo: ${2}" ${THEMERC}
    
    # Border color = active.title.bg.color (gradient start color)
    sd "\.active.border.color:.*$" ".active.border.color: $1" ${THEMERC}
    
    # calculate color for title.fg and buttons
    TITLE_FG=$(pastel textcolor ${2}|pastel format hex)
    if [[ "${TITLE_FG}" == *"ffffff"* ]];then
        TITLE_FG="#EEEEEE"
    else
        TITLE_FG="#111111"
    fi
    sd "\.active.label.text.color:.*$" ".active.label.text.color: ${TITLE_FG}" ${THEMERC}
    
    # Button colors
    activebuttonscolors "${TITLE_FG}"
}
activegradient_reverse () {
:
}
activehandle () {
    case "$1" in
        no) #no
        read NBG <<< "$(grep inactive.title.bg.color: ${THEMERC} | cut -d':' -f2)"
        read NBGTO <<< "$(grep inactive.title.bg.colorTo: ${THEMERC} | cut -d':' -f2)"
        #notify-send.sh "Normal" "${NBG} ${NBGTO}"
        sd "\.active.handle.bg.color:.*$" ".active.handle.bg.color: ${NBG}" ${THEMERC}
        sd "\.active.handle.bg.colorTo:.*$" ".active.handle.bg.colorTo: ${NBGTO}" ${THEMERC}
        sd "\.active.grip.bg:.*$" ".active.grip.bg: parentrelative" ${THEMERC}
        sd "\.active.grip.bg.color:.*$" ".active.grip.bg.color: ${NBG}" ${THEMERC}
        sd "\.active.grip.bg.colorTo:.*$" ".active.grip.bg.colorTo: ${NBGTO}" ${THEMERC}
        ;;
        yes) #yes
        read ABG <<< "$(grep window.active.title.bg.color: ${THEMERC} | cut -d':' -f2)"
        read ABGTO <<< "$(grep window.active.title.bg.colorTo: ${THEMERC} | cut -d':' -f2)"
        #notify-send.sh "Active" "${ABG} ${ABGTO}"
        sd "\.active.handle.bg.color:.*$" ".active.handle.bg.color: ${ABG}" ${THEMERC}
        sd "\.active.handle.bg.colorTo:.*$" ".active.handle.bg.colorTo: ${ABGTO}" ${THEMERC}
        sd "\.active.grip.bg:.*$" ".active.grip.bg: parentrelative" ${THEMERC}
        sd "\.active.grip.bg.color:.*$" ".active.grip.bg.color: ${ABG}" ${THEMERC}
        sd "\.active.grip.bg.colorTo:.*$" ".active.grip.bg.colorTo: ${ABGTO}" ${THEMERC}
        ;;
        grip)
        read GRAD <<< "$(grep .title.bg: ${THEMERC} | cut -d':' -f2)"
        read ABG <<< "$(grep window.active.title.bg.color: ${THEMERC} | cut -d':' -f2)"
        read ABGTO <<< "$(grep window.active.title.bg.colorTo: ${THEMERC} | cut -d':' -f2)"
        read NBG <<< "$(grep inactive.title.bg.color: ${THEMERC} | cut -d':' -f2)"
        read NBGTO <<< "$(grep inactive.title.bg.colorTo: ${THEMERC} | cut -d':' -f2)"
        sd "\.active.grip.bg:.*$" ".active.grip.bg: ${GRAD}" ${THEMERC}
        sd "\.active.grip.bg.color:.*$" ".active.grip.bg.color: ${ABG}" ${THEMERC}
        sd "\.active.grip.bg.colorTo:.*$" ".active.grip.bg.colorTo: ${ABGTO}" ${THEMERC}
        sd "\.active.handle.bg.color:.*$" ".active.handle.bg.color: ${NBG}" ${THEMERC}
        sd "\.active.handle.bg.colorTo:.*$" ".active.handle.bg.colorTo: ${NBGTO}" ${THEMERC}
        ;;
        esac
}

clractivebg () {
    colorTo=$(pastel darken 0.1 "${1}"|pastel format hex)
    #activehandle?
    read ABG <<< "$(grep .active.title.bg.color: ${THEMERC} | cut -d':' -f2)"
    read AHBG <<< "$(grep .active.handle.bg.color: ${THEMERC} | cut -d':' -f2)"
    if [ "$ABG" == "$AHBG" ];then
    sd "\.active.handle.bg.color:.*$" ".active.handle.bg.color: ${1}" ${THEMERC}
    sd "\.active.handle.bg.colorTo:.*$" ".active.handle.bg.colorTo: ${colorTo}" ${THEMERC}
    fi
    sd "\.active.grip.bg.color:.*$" ".active.grip.bg.color: ${1}" ${THEMERC}
    sd "\.active.grip.bg.colorTo:.*$" ".active.grip.bg.colorTo: ${colorTo}" ${THEMERC}
    sd "^window.active.title.bg.color:.*$" "window.active.title.bg.color: ${1}" ${THEMERC}
    sd "\.active.border.color:.*$" ".active.border.color: ${1}" ${THEMERC}
    
    sd "^window.active.title.bg.colorTo:.*$" "window.active.title.bg.colorTo: ${colorTo}" ${THEMERC}
    #menu (Openbox menu - not really used in Mabox)
    sd "menu.title.bg.color:.*$" "menu.title.bg.color: ${1}" ${THEMERC}
    sd "menu.title.bg.colorTo:.*$" "menu.title.bg.colorTo: ${colorTo}" ${THEMERC}
    
    sd "menu.items.active.bg.color:.*$" "menu.items.active.bg.color: ${1}" ${THEMERC}
    sd "menu.items.active.bg.colorTo:.*$" "menu.items.active.bg.colorTo: ${colorTo}" ${THEMERC}
    
    # calculate color for title.fg and buttons
    TITLE_FG=$(pastel textcolor ${colorTo}|pastel format hex)
    if [[ "${TITLE_FG}" == *"ffffff"* ]];then
        TITLE_FG="#EEEEEE"
    else
        TITLE_FG="#111111"
    fi
    sd "\.active.label.text.color:.*$" ".active.label.text.color: ${TITLE_FG}" ${THEMERC}
    
    # Button colors
    activebuttonscolors "${TITLE_FG}"
    
}

clrnormalbg () {
    colorTo=$(pastel darken 0.1 "${1}"|pastel format hex)
    #normalhandle?
    read IBG <<< "$(grep .inactive.title.bg.color: ${THEMERC} | cut -d':' -f2)"
    read IHBG <<< "$(grep .inactive.handle.bg.color: ${THEMERC} | cut -d':' -f2)"
    if [ "$IBG" == "$IHBG" ];then
    sd "\.inactive.handle.bg.color:.*$" ".inactive.handle.bg.color: ${1}" ${THEMERC}
    sd "\.inactive.handle.bg.colorTo:.*$" ".inactive.handle.bg.colorTo: ${colorTo}" ${THEMERC}
    fi
    sd "\.inactive.grip.bg.color:.*$" ".inactive.grip.bg.color: ${1}" ${THEMERC}
    sd "\.inactive.grip.bg.colorTo:.*$" ".inactive.grip.bg.colorTo: ${colorTo}" ${THEMERC}
    sd "^window.inactive.title.bg.color:.*$" "window.inactive.title.bg.color: ${1}" ${THEMERC}
    sd "\.inactive.border.color:.*$" ".inactive.border.color: ${1}" ${THEMERC}
    sd "^window.inactive.title.bg.colorTo:.*$" "window.inactive.title.bg.colorTo: ${colorTo}" ${THEMERC}
}

clractivebgto () {
    sd "^window.active.title.bg.colorTo:.*$" "window.active.title.bg.colorTo: ${1}" ${THEMERC}
    #activehandle?
    read ABG <<< "$(grep .active.title.bg.color: ${THEMERC} | cut -d':' -f2)"
    read AHBG <<< "$(grep .active.handle.bg.color: ${THEMERC} | cut -d':' -f2)"
    if [ "$ABG" == "$AHBG" ];then
    sd "\.active.handle.bg.colorTo:.*$" ".active.handle.bg.colorTo: ${1}" ${THEMERC}
    fi
    sd "\.active.grip.bg.colorTo:.*$" ".active.grip.bg.colorTo: ${1}" ${THEMERC}
}

clrnormalbgto () {
    sd "^window.inactive.title.bg.colorTo:.*$" "window.inactive.title.bg.colorTo: ${1}" ${THEMERC}
    #normalhandle?
    read IBG <<< "$(grep .inactive.title.bg.color: ${THEMERC} | cut -d':' -f2)"
    read IHBG <<< "$(grep .inactive.handle.bg.color: ${THEMERC} | cut -d':' -f2)"
    if [ "$IBG" == "$IHBG" ];then
    sd "\.inactive.handle.bg.colorTo:.*$" ".inactive.handle.bg.colorTo: ${1}" ${THEMERC}
    fi
    sd "\.inactive.grip.bg.colorTo:.*$" ".inactive.grip.bg.colorTo: ${1}" ${THEMERC}
}
activetextcolor () {
    sd "\.active.label.text.color:.*$" ".active.label.text.color: ${1}" ${THEMERC}
}
inactivetextcolor () {
    sd "\.inactive.label.text.color:.*$" ".inactive.label.text.color: ${1}" ${THEMERC}
}
buttons () {
    rm $THEMEDIR/*.xbm
    cp -a /usr/share/mabox-colorizer/themes/obbuttons/${1}/*.xbm $THEMEDIR/
}
activebuttonscolors () {
    sd "^window.active.button.*.unpressed.image.color:.*$" "window.active.button.*.unpressed.image.color: ${1}" ${THEMERC}
    # Calculate colors for other button states (mix of ${1} and clractivebg
    read ABG <<< "$(grep .active.title.bg.color: ${THEMERC} | cut -d':' -f2)"
    hover=$(pastel mix -f 0.2 "${1}" "${ABG}"|pastel format hex)
    #pressed=$()
    #disabled=$()
    sd "^window.active.button.*.hover.image.color:.*$" "window.active.button.*.hover.image.color: ${hover}" ${THEMERC}
}
fontsize () {
    nspace="http://openbox.org/3.4/rc"
    cfg="$HOME/.config/openbox/rc.xml"
    case "$1" in
        increase)
        SIZE=$(xmlstarlet sel -N a="$nspace" -t -v '/a:openbox_config/a:theme/a:font[@place="ActiveWindow"]/a:size'  "$cfg")
        ((SIZE=SIZE+1))
        xmlstarlet ed -L -N a="$nspace" -u '/a:openbox_config/a:theme/a:font[@place="ActiveWindow"]/a:size' -v "$SIZE" "$cfg"
        ;;
        decrease)
        SIZE=$(xmlstarlet sel -N a="$nspace" -t -v '/a:openbox_config/a:theme/a:font[@place="ActiveWindow"]/a:size'  "$cfg")
        ((SIZE=SIZE-1))
        xmlstarlet ed -L -N a="$nspace" -u '/a:openbox_config/a:theme/a:font[@place="ActiveWindow"]/a:size' -v "$SIZE" "$cfg"
        ;;
        *)
        xmlstarlet ed -L -N a="$nspace" -u '/a:openbox_config/a:theme/a:font[@place="ActiveWindow"]/a:size' -v "$1" "$cfg"
        ;;
    esac
}
fontweighttoggle (){
    nspace="http://openbox.org/3.4/rc"
    cfg="$HOME/.config/openbox/rc.xml"
    WEIGHT=$(xmlstarlet sel -N a="$nspace" -t -v '/a:openbox_config/a:theme/a:font[@place="ActiveWindow"]/a:weight'  "$cfg")
    if [ "$WEIGHT" = "Normal" ];then
    xmlstarlet ed -L -N a="$nspace" -u '/a:openbox_config/a:theme/a:font[@place="ActiveWindow"]/a:weight' -v "Bold" "$cfg"
    else
    xmlstarlet ed -L -N a="$nspace" -u '/a:openbox_config/a:theme/a:font[@place="ActiveWindow"]/a:weight' -v "Normal" "$cfg"
    fi
}
fontslanttoggle (){
    nspace="http://openbox.org/3.4/rc"
    cfg="$HOME/.config/openbox/rc.xml"
    SLANT=$(xmlstarlet sel -N a="$nspace" -t -v '/a:openbox_config/a:theme/a:font[@place="ActiveWindow"]/a:slant'  "$cfg")
    if [ "$SLANT" = "Normal" ];then
    xmlstarlet ed -L -N a="$nspace" -u '/a:openbox_config/a:theme/a:font[@place="ActiveWindow"]/a:slant' -v "Italic" "$cfg"
    else
    xmlstarlet ed -L -N a="$nspace" -u '/a:openbox_config/a:theme/a:font[@place="ActiveWindow"]/a:slant' -v "Normal" "$cfg"
    fi
}

case "$1" in
    theme) theme "$2";;
    reset) reset;;
    borderWidth) borderWidth "$2";;
    activeborderColor) activeborderColor "$2";;
    inactiveborderColor) inactiveborderColor "$2";;
    paddingHeight) paddingHeight "$2";;
    paddingWidth) paddingWidth "$2";;
    textjustify) textjustify "$2";;
    shadow) shadow "$2";;
    handlewidth) handlewidth "$2";;
    raised) raised "$2";;
    gradient) gradient "$2";;
    activegradient) activegradient "$2" "$3";;
    activehandle) activehandle "$2";;
    clractivebg) clractivebg "$2";;
    clractivebgto) clractivebgto "$2";;
    clrnormalbg) clrnormalbg "$2";;
    clrnormalbgto) clrnormalbgto "$2";;
    activetextcolor) activetextcolor "$2";;
    inactivetextcolor) inactivetextcolor "$2";;
    buttons) buttons "$2";;
    activebuttonscolors) activebuttonscolors "$2";;
    fontsize) fontsize "$2";;
    fontweighttoggle) fontweighttoggle;;
    fontslanttoggle) fontslanttoggle;;
    *) : ;;
esac

openbox --reconfigure