diff --git a/themes/beardtree.zsh-theme b/themes/beardtree.zsh-theme
new file mode 100644
index 000000000..77fb960ee
--- /dev/null
+++ b/themes/beardtree.zsh-theme
@@ -0,0 +1,30 @@
+_printable_len () {
+  # Erroneously includes non-printables like colors 
+  #print "${#${(%):-$1}}"
+
+  # Does not work for dates like %D{%a %b %d, %I:%M:%S%P} 
+  #local zero='%([BSUbfksu]|([FB]|){*})'
+  #print "${#${(S%%)1//$~zero/}}"
+
+  print "$(print -nP "$1" | sed -r "s/\x1B\[([0-9]{1,2}(;[0-9]{1,2})?)?[m|K]//g" | wc -c)" # wc -c is necessary because ${#$(print -n)} is 1
+}
+
+_top_line () {
+  local retval="$?"
+  #local before_wd="%(?::%K{red}%?%k%K{blue} %k)%K{blue}%n@%m:" # "$? $(whoami)@$(hostname):" # Throws off line length
+  local before_wd="$([[ "$retval" != 0 ]] && print "%K{red}$retval%k%K{blue} %k")%K{blue}%n@%m:" # "$? $(whoami)@$(hostname):"
+  local after_wd="$(git_prompt_info)$(virtualenv_prompt_info)"
+  local right="%D{%a %b %d, %I:%M:%S%P}" # "$(date)"
+  local space_remaining="$(($COLUMNS - $(_printable_len "$before_wd") - $(_printable_len "$after_wd") - $(_printable_len "$right")))"
+  local wd="%$(($space_remaining - 1))<…<%~%<<" # last (($space_remaining - 1)) characters
+
+  print "%B%F{white}$before_wd$wd%f%b%K{blue}$after_wd${(r:(($space_remaining - $(_printable_len "$wd"))):)}$right%k"
+}
+
+ZSH_THEME_GIT_PROMPT_PREFIX=" ("
+ZSH_THEME_GIT_PROMPT_SUFFIX=")"
+ZSH_THEME_GIT_PROMPT_DIRTY="*"
+ZSH_THEME_GIT_PROMPT_CLEAN=""
+
+PROMPT='$(_top_line)%{
+%}%(!.%F{red}.%F{green})%B%#%b%f '