From: Peter Stephenson <p.w.stephenson@ntlworld.com>
To: zsh-workers@sunsite.dk (Zsh hackers list)
Subject: PATCH: find .pod files for perldoc better
Date: Wed, 02 Aug 2006 23:17:24 +0100 [thread overview]
Message-ID: <200608022217.k72MHOLG009320@pwslaptop.csr.com> (raw)
This enhances completion for perldoc so that it locates .pod files in
the include path. Currently only .pm files are searched for. However,
followers of Perl 6 will note files with names like Perl6/Overview.pod
are appearing, and perldoc will locate them.
Passing arguments to completion functions is unnecessarily difficult; as
I noted in _perforce:
# Hack: if there is a job view, it is at the end.
# This is nasty, it's really unnecessarily difficult to
# pass arguments within completion functions...
I think, therefore, the way I've done it here is the most likely to
work.
Index: Completion/Unix/Command/_perldoc
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/Unix/Command/_perldoc,v
retrieving revision 1.4
diff -u -r1.4 _perldoc
--- Completion/Unix/Command/_perldoc 8 Jun 2005 12:45:35 -0000 1.4
+++ Completion/Unix/Command/_perldoc 2 Aug 2006 22:13:31 -0000
@@ -49,7 +49,7 @@
_files -g "*.(pod|pm)(-.)" && ret=0
else
_alternative \
- 'modules:module: _perl_modules' \
+ 'modules:module: _perl_modules -tP' \
'pods:base pod: _perl_basepods' \
'files:module or .pod file:_files -g "*.(pod|pm)(-.)"' && ret=0
fi
Index: Completion/Unix/Type/_perl_modules
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/Unix/Type/_perl_modules,v
retrieving revision 1.4
diff -u -r1.4 _perl_modules
--- Completion/Unix/Type/_perl_modules 8 Jun 2005 12:45:36 -0000 1.4
+++ Completion/Unix/Type/_perl_modules 2 Aug 2006 22:13:31 -0000
@@ -6,7 +6,12 @@
#
# Calculate all installed Perl modules. The result is cached
# for future use.
-#
+#
+# Options:
+#
+# -t[types]: indicate file types; currently the only one is -tP,
+# to include .pod files as well as modules.
+#
# Available styles:
#
# * try-to-use-pminst
@@ -20,22 +25,28 @@
_perl_modules () {
# Set a sensible default caching policy. This has to be done inside
# this function otherwise we wouldn't know the context for the style.
- local update_policy
+ local update_policy sufpat=".pm" with_pod
zstyle -s ":completion:${curcontext}:" cache-policy update_policy
if [[ -z "$update_policy" ]]; then
zstyle ":completion:${curcontext}:" cache-policy \
_perl_modules_caching_policy
fi
+ if [[ $argv[-1] = -tP ]]; then
+ argv=("${(@)argv[1,-2]}")
+ sufpat="(.pm|.pod)"
+ with_pod=_with_pod
+ fi
+
local perl=${words[1]%doc} perl_modules
if whence $perl >/dev/null; then
- perl_modules=_${${perl//[^[:alnum:]]/_}#_}_modules
+ perl_modules=_${${perl//[^[:alnum:]]/_}#_}_modules$with_pod
elif (( ${+commands[perl]} )); then
perl=perl
- perl_modules=_perl_modules
+ perl_modules=_perl_modules$with_pod
else
perl=
- perl_modules=_unknown_perl_modules
+ perl_modules=_unknown_perl_modules$with_pod
fi
if ( [[ ${(P)+perl_modules} -eq 0 ]] || _cache_invalid $perl_modules ) &&
@@ -68,7 +79,7 @@
# Find all modules
if [[ -d $libdir && -x $libdir ]]; then
- new_pms=( $libdir/{[A-Z]*/***/,}*.pm~*blib* )
+ new_pms=( $libdir/{[A-Z]*/***/,}*${~sufpat}~*blib* )
new_pms=( "${(@)new_pms##$libdir/##}" )
fi
--
Peter Stephenson <p.w.stephenson@ntlworld.com>
Web page now at http://homepage.ntlworld.com/p.w.stephenson/
reply other threads:[~2006-08-02 22:17 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=200608022217.k72MHOLG009320@pwslaptop.csr.com \
--to=p.w.stephenson@ntlworld.com \
--cc=zsh-workers@sunsite.dk \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.vuxu.org/mirror/zsh/
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).