S06-contexts

#!/usr/bin/env zsh

c_dir=~/.zsh/contexts
c_contexts=($c_dir/*(:t))

c-chpwd() {
    local matches
    matches=(${${(s:/:)PWD}:*c_contexts})

    if [[ $#matches -gt 1 ]]; then
        print "WARNING: multiple contexts match: ${(j:, :)matches}"
        return
    fi

    if [[ $#matches -eq 0 && -n $c_current ]]; then
        c-unload
    elif [[ $#matches -eq 1 ]]; then
        c-load ${matches[1]}
    fi
}

c-load() {
    if [[ "$c_current" == $1 ]]; then
        return
    fi

    local file=$c_dir/$1

    c_functions=${(z)$(awk \
      '/^[-a-zA-Z0-9_]+[[:space:]]*\(\)[[:space:]]*{/ { gsub("\\(\\)", "", $1); print $1; } \
       /^function/ { gsub("\\(\\)", "", $2); print $2; }' \
       $file)}

    c_current=$1
    
    source $file
}

c-unload() {
    for fn in $c_functions; do
        unfunction $fn
    done

    c_functions=
    c_current=
}

chpwd_functions=(${chpwd_functions[@]} "c-chpwd")