nopaste

# hack is a function
hack () { 
    local dir
    if [ -d "$1" ]; then
        dir="$1"
    else
        dir="$(perl -MPIR -wE 'my $iter=PIR->new->skip_vcs->directory->iname(shift)->iter("$ENV{HOME}/git"); say $iter->()' $1)"
    fi
    if [ -n "$dir" -a -d "$dir" ]; then
        tmux new-window -c "$dir" -n "$(basename "$dir")"
    else
        if [ -n "$dir" ]; then
            local shortest="$(perl -wE '($first)=sort{ length($a) <=> length($b) } @ARGV; say $first' "$dir")"
            tmux new-window -c "$shortest" -n "$(basename "$shortest")"
        else
            echo "$1 not found"
        fi
    fi
}