Changeset 28cf94b for perl/lib/BarnOwl
- Timestamp:
- Aug 1, 2009, 9:22:59 PM (15 years ago)
- Branches:
- master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 7940ac2
- Parents:
- 2fa9a1a0
- git-author:
- David Benjamin <davidben@mit.edu> (08/01/09 16:29:43)
- git-committer:
- David Benjamin <davidben@mit.edu> (08/01/09 21:22:59)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/lib/BarnOwl/Complete/Client.pm
r1610e5b r28cf94b 86 86 } 87 87 88 sub complete_getvar { 89 my $ctx = shift; 90 return unless ($ctx->word == 1); 91 return complete_variable(); 92 } 93 94 sub complete_set { 95 my $ctx = shift; 96 return complete_flags($ctx, 97 [qw(-q)], 98 { 99 }, 100 \&complete_set_args 101 ); 102 } 103 sub complete_set_args { 104 my $ctx = shift; 105 my $arg = shift; 106 return if $arg; 107 return complete_variable(); 108 } 109 88 110 BarnOwl::Completion::register_completer(help => \&complete_help); 89 111 BarnOwl::Completion::register_completer(filter => \&complete_filter); 90 112 BarnOwl::Completion::register_completer(show => \&complete_show); 113 BarnOwl::Completion::register_completer(getvar => \&complete_getvar); 114 BarnOwl::Completion::register_completer(set => \&complete_set); 91 115 92 116 1;
Note: See TracChangeset
for help on using the changeset viewer.