From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <zsh-workers-return-30197-mason-zsh=primenet.com.au@zsh.org>
Received: (qmail 15423 invoked by alias); 10 Feb 2012 15:45:52 -0000
Mailing-List: contact zsh-workers-help@zsh.org; run by ezmlm
Precedence: bulk
X-No-Archive: yes
List-Id: Zsh Workers List <zsh-workers.zsh.org>
List-Post: <mailto:zsh-workers@zsh.org>
List-Help: <mailto:zsh-workers-help@zsh.org>
X-Seq: 30197
Received: (qmail 19964 invoked from network); 10 Feb 2012 15:45:49 -0000
X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on f.primenet.com.au
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,DKIM_ADSP_CUSTOM_MED,
	DKIM_SIGNED,FREEMAIL_FROM,NML_ADSP_CUSTOM_MED,RCVD_IN_DNSWL_NONE,
	T_DKIM_INVALID,UNPARSEABLE_RELAY autolearn=no version=3.3.2
Received-SPF: none (ns1.primenet.com.au: domain at yahoo.co.uk does not designate permitted sender hosts)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.co.uk; s=s1024; t=1328888329; bh=EXm10AAlExCK6/cta8vVXElJwVIUwWP2RECaxEG+OR4=; h=X-Yahoo-Newman-Id:X-Yahoo-Newman-Property:X-YMail-OSG:X-Yahoo-SMTP:Received:Received:From:To:Subject:Date:Message-ID; b=L+AJ4TyJFhzVuD4FwAhxFsn60/LVbMk35je0gJXY/210lefjiQmTJWx2A3b2/+hQWK4QdodiNQoG8R0XRqecfnoLlXVUhjMtHDstYOM9Cvlnwas0tNF9VUPai74XpaTrcCq8iqEi59dDdBXkBGylTN3CmCbJ/MeXIQp9JDcxE6M=
X-Yahoo-Newman-Id: 800545.11416.bm@smtp138.mail.ukl.yahoo.com
X-Yahoo-Newman-Property: ymail-3
X-YMail-OSG: bZrk74kVM1kc1VFibxKkIRNSn3pOmvkqdyIAb.C.as7dfF1
 o9POM8e25fvELBYniXL4.RZTrSk4TTYHrkL46KCFkabEurZXPsMnSmc3fcH.
 JppEmYYZB4h1YrKkJvmoEot3FRKddjddbEt4BS7KXlujnafXuXb81NzmlpJU
 E6McAKjbAq6pMoGMvQwv7cKug9rRts.2dXeYCtom1SYESu3bckW7zwjlEUm2
 lEfmOQYmqZYFpHwXFnFd8kZ.ueK_gRiJ309ZCkr1oA93v4Nwmm9x3MhCXecf
 LlHsZmQDMus3pXCxyz1QkmYMSriUHvmnfLaX8dUogExU73u_LM610bSOMfwA
 5BMUc0AEoM4KKI_Iw0XrN2EzjQQJn93_XRmh5nxUTwzEvfawFKdOmlFfs
X-Yahoo-SMTP: opAkk_CswBAce_kJ3nIPlH80cJI-
From: Oliver Kiddle <okiddle@yahoo.co.uk>
To: Zsh workers <zsh-workers@zsh.org>
Subject: PATCH: complete subversion change lists
Date: Fri, 10 Feb 2012 16:38:48 +0100
Message-ID: <22654.1328888328@thecus.kiddle.eu>

This updates subversion completion for one of the newer subversion
features.

Oliver

Index: Completion/Unix/Command/_subversion
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/Unix/Command/_subversion,v
retrieving revision 1.34
diff -u -r1.34 _subversion
--- Completion/Unix/Command/_subversion	16 Dec 2011 09:18:34 -0000	1.34
+++ Completion/Unix/Command/_subversion	10 Feb 2012 15:36:45 -0000
@@ -31,7 +31,7 @@
       _wanted commands expl 'svn command' _svn_commands && ret=0
     ;;
     args)
-      local cmd args usage
+      local cmd args usage idx
       typeset -gHA _cache_svn_status _cache_svn_mtime
 
       cmd="${${(k)_svn_cmds[(R)*:$words[1]:*]}:-${(k)_svn_cmds[(i):$words[1]:]}}"
@@ -50,6 +50,9 @@
 	  args=(
 	    ${=${${${(M)${(f)"$(LC_ALL=C _call_program options svn help $cmd)"#(*Valid options:|(#e))}:#* :*}%% #:*}/ (arg|ARG)/:arg:}/(#b)(-##)([[:alpha:]]##) \[--([a-z-]##)\](:arg:)#/(--$match[3])$match[1]$match[2]$match[4] ($match[1]$match[2])--$match[3]$match[4]}
 	  )
+          while (( idx=$args[(I)*--c(l|hangelist):arg:] )); do
+            args[(I)*--c(l|hangelist):arg:]=( \*{--cl,--changelist}':change list:_svn_changelists' )
+          done
 	  _store_cache svn-${cmd}-args args
 	fi
 
@@ -309,6 +312,14 @@
   compadd "$@" -a properties && return 0
 }
 
+(( $+functions[_svn_changelists] )) ||
+_svn_changelists() {
+  local cls
+
+  cls=( ${${${(M)${(f)"$(LC_ALL=C _call_program changelists svn status 2>/dev/null)"}:#--- Changelist*}%??}##*\'} )
+  compadd "$@" -a cls && return 0
+}
+
 _subversion () {
   case $service in
     (svn) _svn "$@" ;;