From d87bd3ddaa696c6a60528d99783aa33db6e8f214 Mon Sep 17 00:00:00 2001 From: Ryan Kavanagh Date: Mon, 13 Dec 2021 15:53:55 -0500 Subject: Drop a bunch of old config files --- bin/gpg-check | 17 ---- bin/mutt-autoalias | 16 ---- bin/mutt-notmuch | 190 ------------------------------------- bin/sdf | 8 -- bin/sp | 272 ----------------------------------------------------- bin/vpnc | 4 - 6 files changed, 507 deletions(-) delete mode 100755 bin/gpg-check delete mode 100755 bin/mutt-autoalias delete mode 100755 bin/mutt-notmuch delete mode 100755 bin/sdf delete mode 100755 bin/sp delete mode 100755 bin/vpnc (limited to 'bin') diff --git a/bin/gpg-check b/bin/gpg-check deleted file mode 100755 index 79948c9..0000000 --- a/bin/gpg-check +++ /dev/null @@ -1,17 +0,0 @@ -#!/bin/sh - -MSG=$(cat) - -echo "${MSG}" | grep 'BEGIN PGP SIGNATURE' > /dev/null 2>&1; -SIGNED=$? - -if [ ${SIGNED} = 0 ]; then - echo "${MSG}" | \ - sed -e '/^-\+BEGIN PGP SIGNED MESSAGE-\+/,/^Hash:.*/d' \ - -e '/^-\+BEGIN PGP SIGNATURE-\+/,$d' | \ - mutt-autoalias - echo '\n' - echo "${MSG}" | gpg --verify - 2>&1; -else - echo "${MSG}" | mutt-autoalias -fi diff --git a/bin/mutt-autoalias b/bin/mutt-autoalias deleted file mode 100755 index a9725d5..0000000 --- a/bin/mutt-autoalias +++ /dev/null @@ -1,16 +0,0 @@ -#!/bin/sh - -MESSAGE=$(cat) - -EXCLUDE="\(.*@bugs.\(debian.org|launchpad.net\)|.*@.*.launchpad.net|noreply|.*facebook.*|.*gmail.com.*Behalf Of\)" -NEWALIAS=$(echo "${MESSAGE}" | grep ^"From: " | egrep -v "${EXCLUDE}" | sed s/[\,\"\']//g | awk '{$1=""; if (NF == 3) {print "alias" $0;} else if (NF == 2) {print "alias" $0 $0;} else if (NF > 3) {print "alias", tolower($(NF-1))"."tolower($2) $0;}}') - -if grep -Fxq "$NEWALIAS" $HOME/.mutt/alias.rc; then - : -elif [ "x${NEWALIAS}" = "x" ]; then - : -else - echo "$NEWALIAS" >> $HOME/.mutt/alias.rc -fi - -echo "${MESSAGE}" diff --git a/bin/mutt-notmuch b/bin/mutt-notmuch deleted file mode 100755 index a5b339a..0000000 --- a/bin/mutt-notmuch +++ /dev/null @@ -1,190 +0,0 @@ -#!/usr/bin/perl -w -# -# mutt-notmuch - notmuch (of a) helper for Mutt -# -# Copyright: © 2011 Stefano Zacchiroli -# 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-notmuch > mutt-notmuch.1" - -use strict; -use warnings; - -use File::Path; -use Getopt::Long; -use Mail::Internet; -use Mail::Box::Maildir; -use Pod::Usage; - - -# create an empty maildir (if missing) or empty an existing maildir" -sub empty_maildir($) { - my ($maildir) = (@_); - rmtree($maildir) if (-d $maildir); - my $folder = new Mail::Box::Maildir(folder => $maildir, - create => 1); - $folder->close(); -} - -# search($maildir, $query) -# search mails according to $query with notmuch; store results in $maildir -sub search($$) { - my ($maildir, $query) = @_; - - empty_maildir($maildir); - system("notmuch search --output=files $query" - . " | sed -e 's: :\\\\ :g'" - . " | xargs --no-run-if-empty ln -s -t $maildir/cur/"); -} - -sub search_action($$@) { - my ($interactive, $results_dir, @params) = @_; - - if (! $interactive) { - search($results_dir, join(' ', @params)); - } else { - my $query = ""; - my $done = 0; - while (! $done) { - print "search ('?' for man): "; - chomp($query = ); - if ($query eq "?") { - system("man notmuch"); - } elsif ($query eq "") { - $done = 1; # quit doing nothing - } else { - search($results_dir, $query); - $done = 1; - } - } - } -} - -sub thread_action(@) { - my ($results_dir, @params) = @_; - - my $mail = Mail::Internet->new(\*STDIN); - $mail->head->get('message-id') =~ /^<(.*)>$/; # get message-id - my $mid = $1; - my $tid = `notmuch search --output=threads id:$mid`;# get thread id - chomp($tid); - - search($results_dir, $tid); -} - -sub die_usage() { - my %podflags = ( "verbose" => 1, - "exitval" => 2 ); - pod2usage(%podflags); -} - -sub main() { - my $results_dir = "$ENV{HOME}/.cache/mutt_results"; - my $interactive = 0; - my $help_needed = 0; - - my $getopt = GetOptions( - "h|help" => \$help_needed, - "o|output-dir=s" => \$results_dir, - "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, $results_dir, @params); - } elsif ($action eq "thread") { - thread_action($results_dir, @params); - } else { - die_usage(); - } -} - -main(); - -__END__ - -=head1 NAME - -mutt-notmuch - notmuch (of a) helper for Mutt - -=head1 SYNOPSIS - -=over - -=item B [I