repos-checker.bash

#!/bin/bash

function build_repoliststr {
  ruby -ryaml -e 'print YAML.load(ARGF).map {|i| i.join(":::") }.join("%%%")' $HOME/.config/reasonset/workrepos.yaml
}

export repoliststr="$(build_repoliststr)"

function splitrepos {
  echo $repoliststr | sed 's:%%%:\n:g'
}
export -f splitrepos

repolist=($(splitrepos))

function getchanges {
(
  cd $(getpath $1)
  echo -n "2:"
  hg status | perl -pe 's/\n/\\n/'
)
}
export -f getchanges

function commit {
  (
    cd $(getpath $1)
    declare commitmsg="$2"
    if [[ -z $commitmsg ]]
    then
      commitmsg="Working snapshot from  widget."
    fi
    echo -n "2:"
    if hg commit -A -m "$commitmsg"
    then
      echo COMMITED.
    fi
  ) | perl -pe 's/\n/\\n/'
}
export -f commit

function getpath {
  declare -A repoaa
  for i in $(splitrepos)
  do
    declare -a r=(${i/:::/ })
    repoaa[${r[0]}]="${r[1]}"
  done
  echo ${repoaa[$1]}
}
export -f getpath

repos="$(for i in ${repolist[*]}
do
  declare repoentry=(${i/:::/ })
  (
    cd ${repoentry[1]}
    if [[ -n "$(hg status)" ]]
    then
      echo ${repoentry[0]}
    fi
  )
done | perl -pe 's/\n/!/' | sed 's/!$//' )"

if [[ -z $repos ]]
then
  exit
fi

yad --width=1000 --height=500 --form --field='Repositories:CB' "$repos" --field="Changes:TXT" "" --field="CHECK:FBTN" '@bash -c "getchanges %1"' --field="Commit Message:CE" "" --field="COMMIT:FBTN" '@bash -c "commit %1 %4"' > /dev/null