aboutsummaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorRyan Kavanagh <ryanakca@kubuntu.org>2011-08-14 17:16:55 -0400
committerRyan Kavanagh <ryanakca@kubuntu.org>2011-08-25 07:42:57 -0400
commit1c019761dfaf6be82de9284fa5e2b9dbfbdec27d (patch)
tree7ed6bd2f437d3a334bd7a81f62e6dfa63689272b /bin
Initial import
Diffstat (limited to 'bin')
-rwxr-xr-xbin/gpg-mounter73
-rwxr-xr-xbin/gpg-wrapper41
-rwxr-xr-xbin/mutt-notmuch190
-rwxr-xr-xbin/run-mailcheck14
-rwxr-xr-xbin/update-xmonad.sh11
5 files changed, 329 insertions, 0 deletions
diff --git a/bin/gpg-mounter b/bin/gpg-mounter
new file mode 100755
index 0000000..9ab0d95
--- /dev/null
+++ b/bin/gpg-mounter
@@ -0,0 +1,73 @@
+#!/bin/zsh
+# gpg-wrapper for users who put their .gnupg on a LUKS (encrypted) device
+# Copyright (C) 2009 Ryan Kavanagh <ryanakca@kubuntu.org>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+
+# ====== Configure devices here =======
+
+# Encrypted decive containing .gnupg/
+device='/dev/epsilon_crypted/gpg'
+# Will become /dev/mapper/decrypted_name
+decrypted_name='gpg-decrypted'
+# Where to mount decrypted device
+mount_point='/media/encrypted'
+# Path to your GPG
+gpg_path='/usr/bin/gpg'
+# In how many minutes should we close and unmount your encrypted device?
+unmount_time=15
+
+# ======= End user config, don't touch below =======
+# ======= unless you know what you're doing. =======
+
+if [ ! -b '/dev/mapper/'$decrypted_name ]
+then
+ count=0
+ mnt=''
+ # If the user doesn't know wether or not they want to mount it, give up on
+ # them.
+ while [[ $mnt != 'Y' && $count -le 2 ]]
+ do
+ echo 'Would you like to mount the encrypted GPG dir? [Y/n]'
+ read mnt
+ case '$mnt' in
+ '' | 'Y' | 'y' )
+ mnt='Y'
+ ;;
+ 'N' | 'n' )
+ break;
+ ;;
+ * )
+ count=`expr $count + 1`
+ ;;
+ esac
+ done
+
+ if [[ $mnt == 'Y' ]]
+ then
+ sudo cryptsetup luksOpen $device $decrypted_name
+ sudo mount /dev/mapper/$decrypted_name $mount_point
+ # We'll do this here instead of elsewheres, since if the user has
+ # already / manually mounted the directory, they might not want us to
+ # unmount it on them.
+ echo "cp -f ${mount_point}/.gnupg/pubring.gpg /root/pr.gpg && cp -f ${mount_point}/.gnupg/trustdb.gpg /root/tdb.gpg && && umount ${mount_point} && cryptsetup luksClose ${decrypted_name} && \
+ cp /root/pr.gpg ${mount_point}/.gnupg/pubring.gpg && cp /root/tdb.gpg ${mount_point}/.gnupg/trustdb.gpg && chown -R ryan:ryan ${mount_point}" | \
+ sudo at now + $unmount_time min
+ else
+ exit 0
+ fi
+fi
+
+exit 0
diff --git a/bin/gpg-wrapper b/bin/gpg-wrapper
new file mode 100755
index 0000000..628f618
--- /dev/null
+++ b/bin/gpg-wrapper
@@ -0,0 +1,41 @@
+#!/bin/zsh
+# gpg-wrapper for users who put their .gnupg on a LUKS (encrypted) device
+# Copyright (C) 2009 Ryan Kavanagh <ryanakca@kubuntu.org>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+
+mount_point='/media/encrypted'
+gpg_path='/usr/bin/gpg'
+gnupg_dir=${mount_point}/.gnupg/
+
+# Is there a .gnupg dir on $mount_point? If so, we ought to tell gpg to use
+# $mount_point/.gnupg, just in case the user didn't setup symlinks from
+# $HOME/.gnupg/ pointing to $mount_point/.gnupg
+if [ -d ${gnupg_dir} ]
+then
+ exec $gpg_path --homedir $gnupg_dir $@
+
+else
+ gpg-mounter
+ if [ -d ${gnupg_dir} ]
+ then
+ exec $gpg_path --homedir $gnupg_dir $@
+ else
+ echo 'No .gnupg dir in $mount_point'
+ exit 1
+ fi
+fi
+
+exit 0
diff --git a/bin/mutt-notmuch b/bin/mutt-notmuch
new file mode 100755
index 0000000..a5b339a
--- /dev/null
+++ b/bin/mutt-notmuch
@@ -0,0 +1,190 @@
+#!/usr/bin/perl -w
+#
+# 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
+#
+# 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 = <STDIN>);
+ 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<mutt-notmuch> [I<OPTION>]... search [I<SEARCH-TERM>]...
+
+=item B<mutt-notmuch> [I<OPTION>]... thread < I<MAIL>
+
+=back
+
+=head1 DESCRIPTION
+
+mutt-notmuch is a frontend to the notmuch mail indexer capable of populating
+maildir with search results.
+
+=head1 OPTIONS
+
+=over 4
+
+=item -o DIR
+
+=item --output-dir DIR
+
+Store search results as (symlink) messages under maildir DIR. Beware: DIR will
+be overwritten. (Default: F<~/.cache/mutt_results/>)
+
+=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-notmuch can be used to integrate notmuch 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-notmuch> for the actual
+location of mutt-notmuch on your system):
+
+ macro index <F8> \
+ "<enter-command>unset wait_key<enter><shell-escape>~/bin/mutt-notmuch --prompt search<enter><change-folder-readonly>~/.cache/mutt_results<enter>" \
+ "search mail (using notmuch)"
+ macro index <F9> \
+ "<enter-command>unset wait_key<enter><pipe-message>~/bin/mutt-notmuch thread<enter><change-folder-readonly>~/.cache/mutt_results<enter><enter-command>set wait_key<enter>" \
+ "search and reconstruct owning thread (using notmuch)"
+
+The first macro (activated by <F8>) will prompt the user for notmuch search
+terms and then jump to a temporary maildir showing search results. The second
+macro (activated by <F9>) will reconstruct the thread corresponding to the
+current mail and show it as search results.
+
+To keep notmuch index current you should then periodically run C<notmuch
+new>. Depending on your local mail setup, you might want to do that via cron,
+as a hook triggered by mail retrieval, etc.
+
+=head1 SEE ALSO
+
+mutt(1), notmuch(1)
+
+=head1 AUTHOR
+
+Copyright: (C) 2011 Stefano Zacchiroli <zack@upsilon.cc>
+
+License: GNU General Public License (GPL), version 3 or higher
+
+=cut
diff --git a/bin/run-mailcheck b/bin/run-mailcheck
new file mode 100755
index 0000000..215aaf7
--- /dev/null
+++ b/bin/run-mailcheck
@@ -0,0 +1,14 @@
+#!/bin/zsh
+MAIL=`mailcheck`
+GMAIL=`echo $MAIL | /bin/grep -v QueensU`
+QUEENSU=`echo $MAIL | /bin/grep QueensU`
+if echo $GMAIL | grep -q new ; then
+ echo $GMAIL | awk '{printf("%d(%d)"), $6, $3}' > ~/.xmonad/gmailcheck;
+else
+ echo $GMAIL | awk '{printf("%d(%d)"), $3, 0}' > ~/.xmonad/gmailcheck;
+fi
+if echo $QUEENSU | grep -q new ; then
+ echo $QUEENSU | awk '{printf("%d(%d)"), $6, $3}' > ~/.xmonad/queensucheck;
+else
+ echo $QUEENSU | awk '{printf("%d(%d)"), $3, 0}' > ~/.xmonad/queensucheck;
+fi
diff --git a/bin/update-xmonad.sh b/bin/update-xmonad.sh
new file mode 100755
index 0000000..d40b597
--- /dev/null
+++ b/bin/update-xmonad.sh
@@ -0,0 +1,11 @@
+#!/bin/sh
+cd /usr/src/xmonad
+darcs pull
+runhaskell Setup.lhs configure
+runhaskell Setup.lhs build
+runhaskell Setup.lhs install
+cd /usr/src/XMonadContrib
+darcs pull
+runhaskell Setup.lhs configure
+runhaskell Setup.lhs build
+runhaskell Setup.lhs install