Permalink
Browse files

cleanup, new stuff in /bin, etc.

  • Loading branch information...
1 parent cde762c commit dd43ecd1deefae3fb30993d9d099bc3891b8ce74 @myfreeweb committed Mar 28, 2013
View
@@ -49,9 +49,6 @@
[submodule "emacs.d/surround"]
path = emacs.d/surround
url = git://github.com/timcharper/evil-surround.git
-[submodule "bin/spot"]
- path = bin/spot
- url = git://github.com/guille/spot.git
[submodule "vim/vundle"]
path = vim/vundle
url = git://github.com/gmarik/vundle.git
View
@@ -0,0 +1,29 @@
+#!/usr/bin/env python
+
+# By Gary Bernhardt.
+# Dotfiles at: https://github.com/garybernhardt/dotfiles
+
+import sys
+import zlib
+import bz2
+
+def main():
+ data = file_data()
+ size = len(data)
+ print 'file size', size
+ gzip_size = len(zlib.compress(data))
+ print 'gzip size %i (%i%%)' % (gzip_size, percent(gzip_size, size))
+ bz2_size = len(bz2.compress(data))
+ print 'bz2 size %i (%i%%)' % (bz2_size, percent(bz2_size, size))
+
+def file_data():
+ files = map(open, sys.argv[1:])
+ if not files:
+ files = [sys.stdin]
+ return ''.join(f.read() for f in files)
+
+def percent(part, whole):
+ return int(100.0 * part / whole)
+
+if __name__ == '__main__':
+ main()
View
@@ -1,22 +0,0 @@
-#!/usr/bin/env ruby
-# Find MODX Revolution (tm) login emails with notmuch, show only URL-username-password
-#
-# This came from Greg V's dotfiles:
-# https://github.com/myfreeweb/dotfiles
-# Feel free to steal it, but attribution is nice
-
-%w{rubygems json}.map { |m| require m }
-
-JSON.parse(`notmuch show --format=json subject:"Your login details"`).flatten.map do |m|
- # read files because notmuch doesn't inline HTML emails
- # kill HTML and indentation
- lines = File.read(m["filename"]).gsub(/<[^>]+>/, '').gsub(/^\s+/, '').split("\n").select do |l|
- l.start_with?("Username") || l.start_with?("Password") || l.start_with?("Once you log")
- end
- if lines.length > 0
- username = lines[0].gsub("Username: ", "")
- password = lines[1].gsub("Password: ", "")
- url = lines[2].gsub("Once you log into the MODX Manager at ", "").gsub(", you can change your password.", "").gsub(", =", "")
- puts "#{url} | #{username} | #{password}"
- end
-end
View
@@ -1,195 +0,0 @@
-#!/usr/bin/env 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 File::Basename;
-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);
- my @filelist = `notmuch search --output=files $query`;
- foreach(@filelist) {
- chomp;
- my $target = sprintf("$maildir/cur/%s", basename($_));
- symlink($_, $target);
- }
-
-}
-
-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
View
@@ -0,0 +1,2 @@
+#!/usr/bin/env zsh
+ps auxww | ack $* | ack -v ack | sed -e 's/ */ /g' | cut -d' ' -f 2,11-
Submodule spot deleted from d7bcb4
File renamed without changes.
View
@@ -0,0 +1,2 @@
+#!/usr/bin/env zsh
+cat | tr "йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ" "qwertyuiop[]asdfghjkl;'zxcvbnm,.QWERTYUIOP{}ASDFGHJKL:\"ZXCVBNM"
View
@@ -0,0 +1,2 @@
+#!/usr/bin/env zsh
+cat | tr "qwertyuiop[]asdfghjkl;'zxcvbnm,.QWERTYUIOP{}ASDFGHJKL:\"ZXCVBNM" "йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ"
View
@@ -70,14 +70,6 @@ function emacs
command emacs $argv
set -gx TERM $OLDTERM
end
-
-function latrus
- echo "$argv" | tr "qwertyuiop[]asdfghjkl;'zxcvbnm,.QWERTYUIOP{}ASDFGHJKL:\"ZXCVBNM" "йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ"
-end
-
-function ruslat
- echo "$argv" | tr "йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ" "qwertyuiop[]asdfghjkl;'zxcvbnm,.QWERTYUIOP{}ASDFGHJKL:\"ZXCVBNM"
-end
# }}}
. $DOTFILES/python.fish
View
@@ -29,3 +29,4 @@
--exclude=build
--exclude=dist
--exclude=log
+--exclude=target
View
@@ -5,14 +5,12 @@
# thanks:
# https://bitbucket.org/sjl/dotfiles/src/cbbbc897e9b3/fish/config.fish
-alias s="spot.sh"
alias b="bundle"
alias be="bundle exec"
alias ci="git commit -am"
alias g="git"
alias gaes="dev_appserver.py -a 0.0.0.0 ."
alias gi="gem install"
-alias l="ls"
alias p="popd"
alias r="rails"
alias vi="vim"
View
@@ -36,7 +36,7 @@ Bundle 'tpope/vim-bundler'
Bundle 'tpope/vim-repeat'
Bundle 'tpope/vim-git'
Bundle 'tpope/vim-rsi'
-Bundle 'tpope/vim-foreplay'
+Bundle 'tpope/vim-fireplace'
Bundle 'sjl/strftimedammit.vim'
Bundle 'sjl/gundo.vim'
Bundle 'sjl/splice.vim'
View
@@ -1,37 +0,0 @@
-#
-# alias.conf -- weechat v0.3.9.1
-#
-
-[cmd]
-AAWAY = "allserv /away"
-AME = "allchan /me"
-AMSG = "allchan /msg *"
-ANICK = "allserv /nick"
-BYE = "quit"
-C = "buffer clear"
-CHAT = "dcc chat"
-CL = "buffer clear"
-CLOSE = "buffer close"
-EXIT = "quit"
-IG = "ignore"
-J = "join"
-K = "kick"
-KB = "kickban"
-LEAVE = "part"
-M = "msg"
-MUB = "unban *"
-N = "names"
-Q = "query"
-REDRAW = "window refresh"
-SAY = "msg *"
-SIGNOFF = "quit"
-T = "topic"
-UB = "unban"
-V = "command core version"
-W = "who"
-WC = "window merge"
-WI = "whois"
-WII = "whois $1 $1"
-WW = "whowas"
-
-[completion]
Oops, something went wrong.

0 comments on commit dd43ecd

Please sign in to comment.