diff options
Diffstat (limited to 'bin/mutt-fetchbug')
| -rwxr-xr-x | bin/mutt-fetchbug | 161 |
1 files changed, 0 insertions, 161 deletions
diff --git a/bin/mutt-fetchbug b/bin/mutt-fetchbug deleted file mode 100755 index 93ffc58..0000000 --- a/bin/mutt-fetchbug +++ /dev/null @@ -1,161 +0,0 @@ -#!/usr/bin/perl -w -# -# mutt-fetchbug, extensively based off of -# mutt-notmuch - notmuch (of a) helper for Mutt -# -# Copyright: © 2011 Stefano Zacchiroli <zack@upsilon.cc> -# License: GNU General Public License (GPL), version 3 or above -# -# Differences between mutt-notmuch and mutt-fetchbug are -# Copyright: © 2012 Ryan Kavanagh <rak@debian.org> -# License: GNU General Public License (GPL), version 3 or above -# -# See the bottom of this file for more documentation. -# A manpage can be obtained by running "pod2man mutt-fetchbug > mutt-fetchbug.1" - -use strict; -use warnings; - -use File::Path; -use Getopt::Long; -use Pod::Usage; - -# search($btsmbox, $query) -# Fetch bugs matching $query with bts; store results in $btsmbox -sub search($$) { - my ($btsmbox, $query) = @_; - - system("bts --cache-mode=mbox cache $query" - . " && ln -fs ~/.cache/devscripts/bts/$query.mbox $btsmbox"); -} - -sub search_action($$@) { - my ($interactive, $btsmbox, @params) = @_; - - if (! $interactive) { - fetch($btsmbox, join(' ', @params)); - } else { - my $query = ""; - my $done = 0; - while (! $done) { - print "bug number ('?' for man): "; - chomp($query = <STDIN>); - if ($query eq "?") { - system("man bts"); - } elsif ($query eq "") { - $done = 1; # quit doing nothing - } else { - search($btsmbox, $query); - $done = 1; - } - } - } -} - -sub die_usage() { - my %podflags = ( "verbose" => 1, - "exitval" => 2 ); - pod2usage(%podflags); -} - -sub main() { - my $btsmbox = "$ENV{HOME}/.cache/mutt_btsresults"; - my $interactive = 0; - my $help_needed = 0; - - my $getopt = GetOptions( - "h|help" => \$help_needed, - "o|output-mbox=s" => \$btsmbox, - "p|prompt" => \$interactive); - if (! $getopt || $#ARGV < 0) { die_usage() }; - my ($action, @params) = ($ARGV[0], @ARGV[1..$#ARGV]); - - if ($help_needed) { - die_usage(); - } elsif ($action eq "search" && $#ARGV == 0 && ! $interactive) { - print STDERR "Error: no search term provided\n\n"; - die_usage(); - } elsif ($action eq "search") { - search_action($interactive, $btsmbox, @params); - } else { - die_usage(); - } -} - -main(); - -__END__ - -=head1 NAME - -mutt-fetchbug - 'bts show' frontend for Mutt - -=head1 SYNOPSIS - -=over - -=item B<mutt-fetchbug> [I<OPTION>]... search [I<SEARCH-TERM>]... - -=back - -=head1 DESCRIPTION - -mutt-fetchbug is a frontend to the 'bts show' command (Debian package: -devscripts) designed to fetch bugs and place them in a predefined mbox. The -search term should typically be a bug number. - -=head1 OPTIONS - -=over 4 - -=item -o DIR - -=item --output-mbox DIR - -Store search results as (symlink) mbox MBOX. Beware: MBOX will be overwritten. -(Default: F<~/.cache/mutt_btsresults/>) - -=item -p - -=item --prompt - -Instead of using command line search terms, prompt the user for them (only for -"search"). - -=item -h - -=item --help - -Show usage information and exit. - -=back - -=head1 INTEGRATION WITH MUTT - -mutt-fetchbug can be used to integrate 'bts show' with the Mutt mail user agent -(unsurprisingly, given the name). To that end, you should define the following -macros in your F<~/.muttrc> (replacing F<~/bin/mutt-fetchbug> for the actual -location of mutt-fetchbug on your system): - - macro index <F7> \ - "<enter-command>unset wait_key<enter><shell-escape>~/bin/mutt-fetchbug --prompt search<enter><change-folder-readonly>~/.cache/mutt_btsresults<enter><enter-command>set wait_key<enter>" \ - "fetch bug(s) (using bts show)" - -The macro (activated by <F7>) will prompt the user for a bug number and then -jump to a temporary mbox showing the fetched bug. - -=head1 SEE ALSO - -mutt(1), bts(1) - -=head1 AUTHOR - -mutt-fetchbug is extensively based off of 'mutt-notmuch', which is -Copyright: (C) 2011 Stefano Zacchiroli <zack@upsilon.cc>. - -All differences between mutt-fetchbug and mutt-notmuch are -Copyright (C) 2012 Ryan Kavanagh <rak@debian.org> - -License: GNU General Public License (GPL), version 3 or higher - -=cut |