diff options
author | Ryan Kavanagh <ryanakca@kubuntu.org> | 2011-08-14 17:16:55 -0400 |
---|---|---|
committer | Ryan Kavanagh <ryanakca@kubuntu.org> | 2011-08-25 07:42:57 -0400 |
commit | 1c019761dfaf6be82de9284fa5e2b9dbfbdec27d (patch) | |
tree | 7ed6bd2f437d3a334bd7a81f62e6dfa63689272b /bin |
Initial import
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/gpg-mounter | 73 | ||||
-rwxr-xr-x | bin/gpg-wrapper | 41 | ||||
-rwxr-xr-x | bin/mutt-notmuch | 190 | ||||
-rwxr-xr-x | bin/run-mailcheck | 14 | ||||
-rwxr-xr-x | bin/update-xmonad.sh | 11 |
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 |