From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 27158 invoked by alias); 6 Dec 2009 21:52:58 -0000 Mailing-List: contact zsh-workers-help@zsh.org; run by ezmlm Precedence: bulk X-No-Archive: yes List-Id: Zsh Workers List List-Post: List-Help: X-Seq: 27470 Received: (qmail 11434 invoked from network); 6 Dec 2009 21:52:56 -0000 X-Spam-Checker-Version: SpamAssassin 3.2.5 (2008-06-10) on f.primenet.com.au X-Spam-Level: X-Spam-Status: No, score=-2.6 required=5.0 tests=BAYES_00 autolearn=ham version=3.2.5 Received-SPF: none (ns1.primenet.com.au: domain at altlinux.org does not designate permitted sender hosts) From: "Alexey I. Froloff" To: Zsh list Cc: "Alexey I. Froloff" Subject: [PATCH] _git: offer files relative to current directory Date: Mon, 7 Dec 2009 00:52:33 +0300 Message-Id: <1260136353-20093-1-git-send-email-raorn@altlinux.org> X-Mailer: git-send-email 1.6.5.3 In-Reply-To: <20091205174551.GF3344@altlinux.org> References: <20091205174551.GF3344@altlinux.org> When offering repository files (cached, deleted, changed, etc), make sure that paths are relative to current directory, as git expects. Signed-off-by: Alexey I. Froloff --- Completion/Unix/Command/_git | 61 +++++++++++++++++++++++++++++++++++++++--- 1 files changed, 57 insertions(+), 4 deletions(-) diff --git a/Completion/Unix/Command/_git b/Completion/Unix/Command/_git index e483133..5371fd5 100644 --- a/Completion/Unix/Command/_git +++ b/Completion/Unix/Command/_git @@ -2773,19 +2773,70 @@ __git_stages () { __git_guard $* "[[:digit:]]#" 'stage' } +(( $+functions[__git_files_relative] )) || +__git_files_relative () { + local rawfiles files file f_parts prefix p_parts tmp + + prefix=$(_call_program gitprefix git rev-parse --show-prefix 2>/dev/null) + __git_command_successful || return + + # Empty prefix, no modifications + if (( $#prefix == 0 )); then + print $1 + return + fi + + rawfiles=(${(ps:\0:)1}) + files=() + + # Now we assume that we've given "absolute" paths list with "root" + # being repository top directory. $prefix is also "absolute" path. + for file in $rawfiles; do + # Collapse "/./" and "//", strip "/." and "/" from tail (I know, + # this is a bit paranoid). + f_parts=(${(s:/:)"${${${${file//\/\///}//\/.\///}%%/.}%%/}"}) + p_parts=(${(s:/:)"${${${${prefix//\/\///}//\/.\///}%%/.}%%/}"}) + tmp=() + + # Strip common path prefix. + while (( $#f_parts > 0 )) && (( $#p_parts > 0 )) && [[ $f_parts[1] == $p_parts[1] ]]; do + f_parts[1]=() + p_parts[1]=() + done + + # If prefix still not empty, ascend up. + while (( $#p_parts > 0 )); do + tmp+=.. + p_parts[1]=() + done + + # Add remaining path. + tmp=("$tmp[@]" "$f_parts[@]") + + files+=${(j:/:)tmp} + done + + print ${(pj:\0:)files} +} + (( $+functions[__git_files] )) || __git_files () { - local expl files ls_opts opts gitdir + local expl files ls_opts opts gitdir gitcdup zparseopts -D -E -a opts -- -cached -deleted -modified -others -ignored -unmerged -killed gitdir=$(_call_program gitdir git rev-parse --git-dir 2>/dev/null) __git_command_successful || return + gitcdup=$(_call_program gitcdup git rev-parse --show-cdup 2>/dev/null) + __git_command_successful || return + ls_opts=("--exclude-per-directory=.gitignore") [[ -f "$gitdir/info/exclude" ]] && ls_opts+="--exclude-from=$gitdir/info/exclude" - files=(${(ps:\0:)"$(_call_program files git ls-files -z $ls_opts $opts 2>/dev/null)"}) + files=$(_call_program files git ls-files -z --full-name $ls_opts $opts -- $gitcdup 2>/dev/null) + __git_command_successful || return + files=(${(ps:\0:)"$(__git_files_relative $files)"}) __git_command_successful || return _wanted files expl 'index file' _multi_parts $@ - / files @@ -2824,9 +2875,11 @@ __git_unmerged_files () { #this is for git-commit which can take files both git-added and not (( $+functions[__git_changed_files] )) || __git_changed_files () { - local -a files + local files - files=(${(ps:\0:)"$(_call_program files git diff-index -z --name-only --no-color HEAD 2>/dev/null)"}) + files=$(_call_program files git diff-index -z --name-only --no-color HEAD 2>/dev/null) + __git_command_successful || return + files=(${(ps:\0:)"$(__git_files_relative $files)"}) __git_command_successful || return _wanted files expl 'index file' _multi_parts $@ - / files -- 1.6.5.3