scratchnodes() {

  for node in `find ../repo/.hg/scratchbranches/index/nodemap/* | sort`; do

     echo ${node##*/} `cat $node`

  done

}

scratchbookmarks() {

  for bookmark in `find ../repo/.hg/scratchbranches/index/bookmarkmap/* -type f | sort`; do

     echo "${bookmark##*/bookmarkmap/} `cat $bookmark`"

  done

}

setupcommon() {

  cat >> $HGRCPATH << EOF

[extensions]

infinitepush=

[infinitepush]

branchpattern=re:scratch/.*

deprecation-abort=no

deprecation-message=yes

EOF

}

setupserver() {

cat >> .hg/hgrc << EOF

[infinitepush]

server=yes

indextype=disk

storetype=disk

reponame=babar

EOF

}