unposted: Colin Walters's prompt, adapted for the theme system.

Functions/Prompts/prompt_walters_setup

@@ -0,0 +1,25 @@
+prompt_walters_help () {
+  cat <<'EOF'
+This prompt is color-scheme-able.  You can invoke it thus:
+
+  prompt walters [<color1>]
+
+where the color is for the right-hand prompt.
+
+This prompt was stolen from Colin Walters <walters@debian.org>,
+who gives credit to Michel Daenzer <daenzer@debian.org>.
+EOF
+}
+
+prompt_walters_setup () {
+
+if [[ "$TERM" != "dumb" ]]; then
+    export PROMPT='%B%(?..[%?] )%b%n@%U%m%u> '
+    export RPROMPT="%{$fg_no_bold[${1:-green}]%}%~%{$reset_color%}"
+else
+    export PROMPT="%(?..[%?] )%n@%m:%~> "
+fi
+
+}
+
+prompt_walters_setup "$@"