--- /dev/null
+#!/bin/sh
+#
+# func/vcsh
+#
+# set the context for vcs-home operations
+#
+# Copyright © 1994–2008 martin f. krafft <madduck@madduck.net>
+# Released under the terms of the Artistic Licence 2.0
+#
+# Source repository: http://git.madduck.net/v/etc/zsh.git
+#
+
+FGIT_BASE="$HOME/.fgits"
+
+if [ "${1:---help}" = '--help' ] || [ $# -gt 1 ]; then
+ echo "usage: ${0%/*} reponame" >&2
+ echo "usage: ${0%/*} -l" >&2
+ [ "$1" = '--help' ]
+ exit $?
+
+elif [ "$1" = '-l' ]; then
+ for i in $FGIT_BASE/*.git; do
+ i="${i#$FGIT_BASE/}"
+ echo "${i%.git}"
+ done
+ exit 0
+fi
+
+if [ ! -d "$FGIT_BASE/${1}.git" ]; then
+ echo E: no repository found for "$1" >&2
+ exit 2
+fi
+
+export GIT_DIR=$FGIT_BASE/${1}.git
+git status
+
+PS1="{VCSH:$1}$PS1" $SHELL -i