diff --git a/Makefile b/Makefile
index b92ffe1..2371d3f 100644
--- a/Makefile
+++ b/Makefile
@@ -6,8 +6,7 @@ LAST:=$(shell cat .last || echo 0)
 NEXT:=$(shell l=$(LAST); ((l=l+1)); echo $$l)
 NEXTGEN:=$(PWD)/generation/$(NEXT)
 LASTGEN:=$(PWD)/generation/$(LAST)
-CUSTOM:=
-TANGLERS:=$(CUSTOM) readme.org emacs.org tmux.org git.org x.org nix.org
+TANGLERS:=$(shell ls -d *.org)
 GEN:=$(LAST)
 OPTIONS:=
 
diff --git a/bin.org b/bin.org
new file mode 100644
index 0000000..d592840
--- /dev/null
+++ b/bin.org
@@ -0,0 +1,1042 @@
+#+TITLE: ~/bin files
+#+AUTHOR: Mitch Tishmack
+#+STARTUP: hidestars
+#+STARTUP: odd
+#+BABEL: :cache yes
+#+PROPERTY: header-args :cache yes :padline no :mkdirp yes :comments no
+
+~/bin files and other shenanigans
+
+* ~/bin/cidr
+
+A stupid script I wrote ages ago to help me be lazy with cidr
+notation for stuff. Setup the wrong netmask a few times and
+you too, will wish for something similar.
+
+#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/cidr :results replace :tangle-mode (identity #o755)
+#!/usr/bin/env perl
+#
+# Convert input ip/cidr|netmask|hexnetmask to useable network information.
+#
+
+use strict;
+use warnings;
+use Socket;
+use Sys::Hostname;
+
+#
+# Globalish vars
+#
+$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin'; # Paranoia, know thy name!
+my ($fqdn_regexp) = qr/([0-9,a-z,A-Z,\-,\_]+)\.([0-9,a-z,A-Z,\-,\_]+)\.(com|gov)/;
+
+#
+# converts a 1-word (4 byte) signed or unsigned integer into a dotted decimal
+# ip address.
+#
+sub int2ip {
+  my $n=int(pop);
+  return(sprintf("%d.%d.%d.%d", ($n>>24)&0xff,($n>>16)&0xff,
+    ($n>>8)&0xff,$n&0xff));
+};
+
+#
+# Convert a host/ip/netmask/cidr/etc.... to a hash of information
+# Example: host.domain.tld/24 will get the ip and calculate the netmask info
+#  equally if host.domain.tld corresponds with 1.2.3.4 the following is valid
+#  1.2.3.4/255.255.255.0 would obtain the same information.
+#
+# die()'s if anything isn't kosher.
+#
+# Ultra long function, probably needs to be looked at for condensing/splitting.
+#
+sub cidr2raw {
+  my $rawinput = pop;
+  my ($lhs, $rhs, $j, $uip) = (undef, undef, undef, undef);
+  my ($ucidr) = 0;
+  my ($network, $bits, $netmask, $broadcast, $low, $high);
+
+  if ($rawinput =~ qr/(.*)\/(.*)/){
+      $lhs = $1; $rhs = $2;
+  }else{
+    die "Input: $rawinput not expected.\n";
+  };
+
+  #
+  # Handle ip/hostname for left hand side.
+  if ($lhs =~ qr/(\d+)\.(\d+)\.(\d+)\.(\d+)/){
+    foreach my $dotted (($1,$2,$3,$4)){
+      if (($dotted > 255) or ($dotted < 0)){
+        die "FATAL: ipv4 address entered, $lhs entered is impossible, $dotted is not between 0-255.\n";
+      };
+    };
+    $uip = inet_ntoa(scalar gethostbyname($lhs));
+    die "FATAL: Cannot determine hostname for $lhs$!\n" if (!defined($lhs));
+  }elsif ($lhs =~ $fqdn_regexp){
+    my $tmp = gethostbyname($lhs);
+    die "FATAL: Cannot determine ip for $lhs" if (!defined($tmp));
+    $uip = inet_ntoa($tmp);
+  }else{
+    die "FATAL: host value not fully qualified, or not an ip <$lhs>\n";
+  };
+
+  #
+  # Handle the netmask/cidr for the right hand side,
+  #
+  # All input netmasks are converted to a cidr address for notation
+  if ($rhs =~ qr/^(\d+)$/){ # /cidr
+    $ucidr = $1;
+    die "FATAL: Invalid CIDR <$ucidr>.$!\n" if (($ucidr > 32) or ($ucidr < 0));
+  }elsif ($rhs =~ qr/(0[xX])?([0-9,a-f,A-F]{7})/){ # /0xhexnetmask
+    my $trimmed = $2;
+    my $insane = 0;
+    foreach my $byte (split('', unpack("B32", pack("H*", $trimmed)))){
+      ($byte) ? $ucidr++ : $insane++;
+      die "FATAL: $rhs is not a valid hex netmask.$!\n" if ($insane and $byte);
+    };
+  }elsif ($rhs =~ qr/(\d+)\.(\d+)\.(\d+)\.(\d+)/){ # /255.255.255.0 form
+    my @a = ($1, $2, $3, $4);
+    my $insane = 0;
+    foreach my $t (@a){
+      die "FATAL: Netmask out of range. Input <$rhs> Invalid <$t>$!\n" if (($t < 0) or ($t > 255));
+    };
+    foreach my $byte (split('', unpack("B32", pack("C4", @a)))){
+      ($byte) ? $ucidr++ : $insane++;
+      die "FATAL: $rhs is not a valid netmask.$!\n" if ($insane and $byte);
+    };
+  }else{
+    die "FATAL: Unknown or invalid netmask value entered. <$rhs>\n";
+  };
+
+  #
+  # Network math GO! This is the meat of the function.
+  my (@uip) = split(/\./, $uip);
+  $network = 0;
+  for ($j = 0; $j <= $#uip; $j++){
+    $network += int($uip[$j])<<((3-$j)*8);
+  };
+
+  $bits = 0; $j = 0;
+  for ($j = 31 - $ucidr; $j >= 0; $j--){
+    $bits |= 1<<$j;
+  };
+
+  $netmask = 0xffffffff^$bits;
+  $low = ($network&$netmask);
+  $high = ($network&$netmask)+$bits-1;
+  $broadcast = ($network&$netmask)|$bits;
+  my ($guessed_hostname,undef,undef,undef,undef) = gethostbyaddr(inet_aton($uip), AF_INET);
+
+  #
+  # Throw the info back, they get a hash with zie info they may/may not need.
+  # All up to the caller what they want to use.
+  #
+  return ("inet4" => $uip,
+          "netmask" => int2ip($netmask),
+          "broadcast" => int2ip($broadcast),
+          "cidr" => $ucidr,
+          "router" => int2ip($low+1),
+          "network" => int2ip($low),
+          "high" => int2ip($high),
+          "hostname" => $guessed_hostname,
+          );
+};
+
+#package Main; # future use
+
+foreach my $arg (@ARGV){
+  my %stuff = cidr2raw($arg);
+  printf("%s/%s is %s/%s\n%-12s\t%s\n%-12s\t%s\n%-12s\t%s\n%-12s\t%s\n%-12s\t%s\n",
+             $stuff{"inet4"},$stuff{"cidr"},
+             $stuff{"network"},$stuff{"cidr"},
+             "Netmask",$stuff{"netmask"},
+             "Broadcast",$stuff{"broadcast"},
+             "Network",$stuff{"network"},
+             "Router",$stuff{"router"},
+             "HighUsable",$stuff{"high"},
+      );
+};
+#+END_SRC
+
+* ~/bin/dns
+
+Just a silly dns script that slighly mimics the old host utility
+of yore. Can also do reverse lookups.
+
+Example:
+$ dns google.com
+google.com is 216.58.216.206
+google.com is also google.com
+$ dns 216.58.216.206
+ord31s21-in-f206.1e100.net is 216.58.216.206
+ord31s21-in-f206.1e100.net is also ord31s21-in-f206.1e100.net
+
+#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/dns :results replace :tangle-mode (identity #o755)
+#!/usr/bin/env perl
+#
+# Stupid script to help with dns information. Solaris 9/8 lack the host utility.
+# Which this (kinda) mimics, except the mx record crap
+use strict;
+use warnings;
+use Socket;
+use Sys::Hostname;
+
+my $input = shift || hostname();
+my $lookup = $input;
+
+if ( $lookup =~ /\d+[.]\d+[.]\d+[.]\d+/smx ) {
+  $lookup = ( gethostbyaddr inet_aton($lookup), AF_INET )[0];
+  die "Error: Unable to reverse lookup ip $input.\n" if ( $lookup eq q{} );
+}
+
+my $ipv4 = gethostbyname $lookup;
+
+die "Error: $lookup doesn't have any known ip addresses\n"
+  if ( !defined $ipv4 );
+
+$ipv4 = inet_ntoa($ipv4);
+
+my ( $short_name, $aliases, $addrtype, $len, @addrs ) = gethostbyname $lookup;
+
+foreach my $ipv4 (@addrs) {
+  $ipv4 = inet_ntoa($ipv4);
+  print "$lookup is $ipv4\n";
+}
+
+print "$lookup is also $short_name\n";
+if ( defined $aliases and "$aliases" ne q{} ) {
+  print "aliases are ($aliases)\n";
+}
+exit 0;
+#+END_SRC
+
+* ~/bin/ts
+
+Stupid simple timestamp script that just takes input, and prefixes a timestamp to to output. Thats it.
+
+#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/ts :results replace :tangle-mode (identity #o755)
+#!/usr/bin/env perl
+#
+# Timestamp stdin and then print to stdout and flush.
+#
+# Thats about it. Might add a quick and dirty option to allow you to
+# specify the time output whatnot. But this is intended to be simple.
+use strict;
+use warnings;
+use POSIX qw(strftime);
+use IO::Handle;
+STDOUT->autoflush(1);
+
+while(<STDIN>){
+  my $now       = time;
+  my $tz        = strftime(('%z', (localtime $now)));
+  $tz =~ s/(\d{2})(\d{2})/$1:$2/smx;
+  my $time = strftime('%Y-%m-%dT%H:%M:%S', (localtime $now));
+  print "$time$tz ".$_;
+};
+#+END_SRC
+
+* ~/bin/diskhog
+
+Old script I wrote after I had to figure out where space was used and it was mostly all in a directory with a ton of small files.
+
+Written in anger. Not all that useful nominally.
+
+Defaults to /tmp if you don't specify where, also defaults to the top 10 offenders/users of space.
+
+Its not particuarly bright, or even good code. If you want ALL THE THINGS, pass -n -1 in and you will get a ton of output. Good luck with that.
+
+Example:
+$ diskhog
+1.79m    /private/tmp
+1.38m    /private/tmp/wifi-Ea5Y9F.log
+420.57k  /private/tmp/sysp.xml
+161.17k  /private/tmp/KSOutOfProcessFetcher.12572.ppfIhqX0vjaTSb8AJYobDV7Cu68=/ksfetch
+161.17k  /private/tmp/KSOutOfProcessFetcher.12572.ppfIhqX0vjaTSb8AJYobDV7Cu68=
+0.00k    /private/tmp/com.apple.launchd.yaVsd6J1re
+0.00k    /private/tmp/cvcd
+0.00k    /private/tmp/com.apple.launchd.IPS1lPqGTD
+0.00k    /private/tmp/com.apple.launchd.voZH6WFol3
+0.00k    /private/tmp/ct.shutdown
+$ diskhog -n 4 /tmp
+1.79m    /private/tmp
+1.38m    /private/tmp/wifi-Ea5Y9F.log
+420.57k  /private/tmp/sysp.xml
+161.17k  /private/tmp/KSOutOfProcessFetcher.12572.ppfIhqX0vjaTSb8AJYobDV7Cu68=
+
+#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/diskhog :results replace :tangle-mode (identity #o755)
+#!/usr/bin/env perl
+#
+# Find out who is hogging disk space and where.
+#
+# Argument is the directory to start from. Only calculates size of files.
+# Adds the size of files in a directory to the size of the parent directory only.
+#
+# Defaults to top 10 directories/files.
+#
+# Override with -n num to list whatever amount of large things you desire.
+# Or if you want to abuse the parser, use -1 for all files/directories.
+#
+# Defaults to pwd for space.
+#
+
+use File::Find;
+use Getopt::Long;
+use Cwd;
+
+my $debug;
+my $statbug;
+(exists($ENV{"DEBUG"})) ? $debug++ : undef;
+my $dir = Cwd::abs_path($ARGV[-1] || Cwd::getcwd());
+my %diskhogs = ();
+my %inodes = ();
+my ($topdev,undef,undef,undef,undef,undef,undef,undef) = lstat($dir);
+local $opt_displaynum = 10;
+
+GetOptions( 'n=i',  => \$opt_displaynum,
+      );
+
+find(\&sieve, $dir);
+
+#
+# For outputing the size of a bunch of bytes in g/m/k depending upon the size
+#
+sub byte_print {
+  my $byte_k = 1_024;
+  my $byte_m = $byte_k**2;
+  my $byte_g = $byte_k**3;
+  my $bytes = pop;
+  my $base = $bytes;
+  my $suffix = "nil";
+  my $out_string = "BUG";
+  if($bytes > $byte_g){
+    $base = $bytes / $byte_g;
+    $suffix = "g";
+  }elsif($bytes > $byte_m){
+    $base = $bytes / $byte_m;
+    $suffix = "m";
+  }else{
+    $base = $bytes / $byte_k;
+    $suffix = "k";
+  };
+  $out_string = sprintf("%.2f%s", $base, $suffix);
+  return $out_string;
+};
+
+#
+# Dumb function to return if an inode has already been seen.
+# So we handle hard links sane(er-ish-ly) in size calculations.
+# This has more truthiness(tm).
+#
+sub seeninode{
+  my $what = pop();
+  my $ret = 0;
+  unless(exists($inodes{$what})){
+    $inodes{$what} = 0;
+    print "New inode $what added to seen inodes.\n" if $debug;
+  }else{
+    $inodes{$what}++;
+    $ret++;
+    print "Found a hardlink for $what.\n" if $debug;
+  };
+  return $ret;
+};
+
+sub sieve {
+  my $file = $File::Find::name;
+  my $filedir = $File::Find::dir;
+  my @statinfo = lstat($file);
+  my $dev = $statinfo[0];
+  my $inode = $statinfo[1];
+  my $size = $statinfo[7];
+  my $blocksize = 512; # field 11 is the "preferred" block size, which appears
+                       # to not match the actual blocksize of the filesystems
+                       # in use. For now every hard drive uses 512bytes/block.
+                       # Will revisit this when 4096byte/block hard drives arrive
+  my $apparentsize = $statinfo[12] * $blocksize;
+
+  print "$file\@$filedir \<$topdev\>\=\<$dev\>\n" if $debug;
+  print "size,apparentsize,blocksize = <$statinfo[7],$apparentsize\,$blocksize\>\n" if $debug;
+  #
+  # Try to handle sparse files.
+  #
+  if ($size > $apparentsize) {
+    print "Sparse file $file!\n" if $debug;
+    $size = $apparentsize;
+  };
+
+  $dev = (-l $file) ? 0xdeadbeef : $dev;
+  if (($file =~ m/\/proc|\/chroot|udev\/devices/) ||
+      ($dev != $topdev) || seeninode($inode)){
+    print "Pruned $file.\n" if $debug;
+    $File::Find::prune = 1;
+    next;
+  };
+  unless ($dev){
+    # Yay, we can't l(stat) files. This version of perl is broken.
+    # Snag information from ls, assume it's a file. Thanks Solaris 8, you suck.
+    $statbug++;
+    warn "Hit empty device statbug while stat()ing file <$file>.\n";
+    my $ls = qx(ls -ld $file);
+    my @raw = split(/\s+/, $ls);
+    $diskhogs{"$file"} = $raw[4];
+    $diskhogs{"$filedir"} += $raw[4];
+  }elsif (-f){
+    if ($debug){
+      print "Adding $file size ", &byte_print($size), " to $filedir.\n";
+      print "Adding $file size ", &byte_print($size), "\n";
+    };
+    $diskhogs{"$file"} = $size;
+    $diskhogs{"$filedir"} += $size;
+  }elsif (-d){
+    print "Adding $file size ".&byte_print($size)."\n" if $debug;
+    $diskhogs{"$file"} += $size;
+  };
+  if ($debug) {
+    print "$file from $filedir has size ".&byte_print($diskhogs{"$file"})."\n";
+  };
+};
+
+#
+# Reverse sort the keys by size.
+#
+my @sorted = sort {$diskhogs{$b} <=> $diskhogs{$a}} keys %diskhogs;
+
+splice @sorted, $opt_displaynum if @sorted > $opt_displaynum;
+
+warn "Found one or more instances of the stat() call statbug. This is normally only present on Solaris 8 with stock perl.\n" if $statbug;
+
+foreach (@sorted){
+  printf "%-9s%s\n", &byte_print($diskhogs{$_}), $_;
+};
+
+if ($debug){
+  print "DEBUG INFORMATION:\n";
+  foreach (keys %diskhogs){
+    printf "%-9s%s\n", &byte_print($diskhogs{$_}), $_;
+  };
+};
+#+END_SRC
+
+* ~/bin/ifinfo
+
+I don't remember now why I wrote this but its just a simpler view
+of interfaces on a system.
+
+Probably some old solaris holdover thing I can nuke.
+
+Example:
+$ ifinfo
+gif0@1280        127.0.0.1/8        a:b:c:d:e:f
+en1@1500         10.1.10.15/24      a:b:c:d:e:f
+bridge100@1500   192.168.64.1/24    a:b:c:d:e:f
+
+Comes in slightly handy, no guarantees it parses ifconfig right tho.
+
+#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/ifinfo :results replace :tangle-mode (identity #o755)
+#!/usr/bin/env perl
+#
+# Because ifconfig output is... overly verbose.
+#
+# Output information from ifconfig -a like so:
+#   interface:mtu ipv4/cidr mac_address ipv6_addr(if applicable)
+#   ipv6 is not yet in place due to a: lazy, b: can't use it yet.
+#
+
+use strict;
+use Socket;
+use Sys::Hostname;
+$ENV{'PATH'}='/sbin:/usr/sbin:/bin:/usr/bin';
+
+my ($fqdn_regexp) = qr/([0-9,a-z,A-Z,\-,\_]+)\.([0-9,a-z,A-Z,\-,\_]+)\.(com|gov)/;
+
+#
+# converts a 1-word (4 byte) signed or unsigned integer into a dotted decimal
+# ip address.
+#
+sub int2ip {
+  my $n=int(pop);
+  return(sprintf("%d.%d.%d.%d", ($n>>24)&0xff,($n>>16)&0xff,
+    ($n>>8)&0xff,$n&0xff));
+};
+
+#
+# Convert a host/ip/netmask/cidr/etc.... to a hash of information
+# Example: host.domain.tld/24 will get the ip and calculate the netmask info
+#  equally if host.domain.tld corresponds with 1.2.3.4 the following is valid
+#  1.2.3.4/255.255.255.0 would obtain the same information.
+#
+# die()'s if anything isn't kosher.
+#
+# Ultra long function, probably needs to be looked at for condensing/splitting.
+#
+sub cidr2raw {
+  my $rawinput = pop;
+  my ($lhs, $rhs, $j, $uip) = (undef, undef, undef, undef);
+  my ($ucidr) = 0;
+  my ($network, $bits, $netmask, $broadcast, $low, $high);
+
+  if ($rawinput =~ qr/(.*)\/(.*)/){
+      $lhs = $1; $rhs = $2;
+  }else{
+    die "Input: $rawinput not expected.\n";
+  };
+
+  #
+  # Handle ip/hostname for left hand side.
+  if ($lhs =~ qr/(\d+)\.(\d+)\.(\d+)\.(\d+)/){
+    foreach my $dotted (($1,$2,$3,$4)){
+      if (($dotted > 255) or ($dotted < 0)){
+        die "FATAL: ipv4 address entered, $lhs entered is impossible, $dotted is not between 0-255.\n";
+      };
+    };
+    $uip = "$1.$2.$3.$4";
+  };
+  #
+  # Handle the netmask/cidr for the right hand side,
+  #
+  # All input netmasks are converted to a cidr address for notation
+  if ($rhs =~ qr/^(\d+)$/){ # /cidr
+    $ucidr = $1;
+    die "FATAL: Invalid CIDR <$ucidr>.$!\n" if (($ucidr > 32) or ($ucidr < 0));
+  }elsif ($rhs =~ qr/(0[xX])?([0-9,a-f,A-F]{7})/){ # /0xhexnetmask
+    my $trimmed = $2;
+    my $insane = 0;
+    foreach my $byte (split('', unpack("B32", pack("H*", $trimmed)))){
+      ($byte) ? $ucidr++ : $insane++;
+      die "FATAL: $rhs is not a valid hex netmask.$!\n" if ($insane and $byte);
+    };
+  }elsif ($rhs =~ qr/(\d+)\.(\d+)\.(\d+)\.(\d+)/){ # /255.255.255.0 form
+    my @a = ($1, $2, $3, $4);
+    my $insane = 0;
+    foreach my $t (@a){
+      die "FATAL: Netmask out of range. Input <$rhs> Invalid <$t>$!\n" if (($t < 0) or ($t > 255));
+    };
+    foreach my $byte (split('', unpack("B32", pack("C4", @a)))){
+      ($byte) ? $ucidr++ : $insane++;
+      die "FATAL: $rhs is not a valid netmask.$!\n" if ($insane and $byte);
+    };
+  }else{
+    die "FATAL: Unknown or invalid netmask value entered. <$rhs>\n";
+  };
+
+  #
+  # Network math GO! This is the meat of the function.
+  my (@uip) = split(/\./, $uip);
+  $network = 0;
+  for ($j = 0; $j <= $#uip; $j++){
+    $network += int($uip[$j])<<((3-$j)*8);
+  };
+
+  $bits = 0; $j = 0;
+  for ($j = 31 - $ucidr; $j >= 0; $j--){
+    $bits |= 1<<$j;
+  };
+
+  $netmask = 0xffffffff^$bits;
+  $low = ($network&$netmask);
+  $high = ($network&$netmask)+$bits-1;
+  $broadcast = ($network&$netmask)|$bits;
+
+  #
+  # Throw the info back, they get a hash with zie info they may/may not need.
+  # All up to the caller what they want to use.
+  #
+  return ("inet4" => $uip,
+          "netmask" => int2ip($netmask),
+          "broadcast" => int2ip($broadcast),
+          "cidr" => $ucidr,
+          "router" => int2ip($low+1),
+          "network" => int2ip($low),
+          "high" => int2ip($high),
+          );
+};
+
+my @ifout;
+if ($ENV{'TESTING'} ne '') {
+    while(<>){
+        chomp($_);
+        last if ($_ eq '');
+        push(@ifout, $_);
+#        sleep 1;
+#        print STDERR $_ . "\n";
+    }
+}else{
+    open IFCONFIG, "ifconfig -a |";
+    @ifout = <IFCONFIG>;
+    close IFCONFIG;
+}
+
+# This seems wrong but it makes parsing easier due to solaris
+# non root ifconfig not displaying the mac address. Reverse the output.
+#
+@ifout = reverse(@ifout);
+
+my @output = ();
+
+my ($ifname, $ifether, $ifmtu, $ifipv4, $ifnetmask, $ifipv6) = (undef,undef,undef,undef,undef,undef);
+sub printiface{
+  # assume a /32 if we don't know it
+  unless (defined($ifnetmask)) {
+    warn "$ifname has indeterminant netmask assuming /32\n";
+    $ifnetmask = '32';
+  }
+
+  unless (defined($ifnetmask)) {
+    $ifether = 'unknown';
+  }
+
+  unless ($ifname =~ m/lo.*/){
+    my %netinfo = cidr2raw("$ifipv4\/$ifnetmask");
+    $ifnetmask = $netinfo{"cidr"};
+    $ifether = lc($ifether);
+    my $line = sprintf "%-16s %-18s %-17s\n", "$ifname\@$ifmtu", "$ifipv4\/$ifnetmask", $ifether;
+    push @output, $line;
+  }
+
+  # reset vars
+  ($ifname, $ifether, $ifmtu, $ifipv4, $ifnetmask, $ifipv6) = (undef,undef,undef,undef,undef,undef);
+};
+
+foreach my $line (@ifout) {
+  if ($line =~ /inet\s+(\d+[.]\d+[.]\d+[.]\d+)\s+/){
+    $ifipv4 = $1;
+  }
+  if ($line =~ m/ether\s([:,0-9,a-f,A-F]{11,})/){
+    $ifether =$1;
+  }
+  if ($line =~ m/^([\w,\:\d+]+)\s+.*HWaddr\s([:,0-9,a-f,A-F]{11,})/){
+    $ifname = $1;
+    $ifether = $2;
+  }
+  if ($line =~ m/^(.*)\:\s+.*mtu\s(\d+)/){
+    $ifname = $1;
+    $ifmtu = $2;
+  }
+  if ($line =~ m/MTU[:](\d+)/){
+    $ifmtu = $1;
+  }
+  if ($line =~ m/inet\saddr\:(\d+[.]\d+[.]\d+[.]\d+)/){
+    $ifipv4 = $1;
+  }
+  if ($line =~ m/netmask\s+(0[xX])?([a-f,A-F,0-9]{8})/){
+    $ifnetmask = $2;
+  }
+  if ($line =~ m/Mask[:](\d+\.\d+\.\d+\.\d+)/){
+    $ifnetmask = $1;
+  }
+  if ($line =~ m/netmask\s+(\d+[.]\d+[.]\d+[.]\d+)/){
+    $ifnetmask = $1;
+  }
+  if ($line =~ m/netmask\s+0\s+broadcast/){
+    $ifnetmask = '0';
+  }
+
+  print ":$ifether:$ifname:$ifmtu:$ifipv4:$ifnetmask:$ifipv6:\n" if ($ENV{'DEBUG'} ne '');
+  printiface() if ($ifname and $ifmtu and $ifipv4 );
+};
+
+if (scalar(@output) < 1){
+  warn "No interfaces? Scripts busted yo.\n";
+}else{
+  foreach my $line (reverse(@output)){
+    print $line;
+  }
+}
+#+END_SRC
+* ~/bin/iso8601
+
+Mostly because I use iso8601 timestamps and its nice to use them
+generally without depending on gnu date.
+
+#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/iso8601 :results replace :tangle-mode (identity #o755)
+#!/usr/bin/env perl
+#-*-mode: Perl; coding: utf-8;-*-
+use strict;
+use warnings;
+use POSIX qw(strftime);
+
+my $now       = time;
+my $tz        = strftime(('%z', (localtime $now)));
+$tz =~ s/(\d{2})(\d{2})/$1:$2/smx;
+my $time = strftime('%Y-%m-%dT%H:%M:%S', (localtime $now));
+print "$time$tz\n";
+exit 0;
+#+END_SRC
+
+* ~/bin/whoson
+
+Basically getent passwd $username/$uid to show who is on a system.
+
+#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/whoson :results replace :tangle-mode (identity #o755)
+#!/usr/bin/env perl
+#
+# Because i'm lazy and sick of typing in getent passwd $someusername/uid
+#
+
+my %who_cmds = ("solaris", "/bin/who -q",
+                "linux", "/usr/bin/who -q",
+                "darwin", "/usr/bin/who -q",
+               );
+
+my $who_cmd = $who_cmds{$^O};
+
+local %users = ();
+
+foreach my $l (qx/$who_cmd/){
+  next if($l =~ m/^\#.*/);
+  foreach my $user (split(/\s+/,$l)){
+    unless(exists($users{$user})){
+      $users{$user} = 0;
+    }else{
+      $users{$user}++;
+    };
+  };
+};
+
+foreach my $user (keys %users){
+  my $gecos = ( getpwnam($user) )[6];
+  my $count = $users{$user} + 1;
+  my $output = "$user\, ".((defined($gecos)) ? "$gecos, " : '')."is logged in on $count tty".(($count>1) ? "\'s" : '')."\n";
+  print $output;
+};
+#+END_SRC
+
+* ~/bin/gecos
+
+Silly wrapper perl script that makes it easier to get at the gecos string for a $user/$uid.
+
+#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/gecos :results replace :tangle-mode (identity #o755)
+#!/usr/bin/env perl
+#
+# Dumb wrapper to get the gecos information from a uid/username.
+
+foreach my $input (@ARGV){
+  my $gecos = undef;
+  my $uid = undef;
+  my $name = undef;
+  if ( $input =~ m/^\d+$/ ) {
+    ( $name,$uid,$gecos ) = ( getpwuid($input) )[0,2,6];
+  } else {
+    ( $name,$uid,$gecos ) = ( getpwnam($input) )[0,2,6];
+  }
+  print "$name is '$gecos' uid '$uid'\n" if $gecos;
+}
+#+END_SRC
+
+* ~/bin/hatimerun
+
+Stupid perl script to mimic hatimerun for systems that don't have it.
+
+#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/hatimerun :results replace :tangle-mode (identity #o755)
+#!/usr/bin/env perl
+#
+# hatimerun in perl, sorta
+#
+use Getopt::Long;
+
+my $opt_exitcode = 99;
+my $opt_killcode = 9;
+my $opt_timeout = 60;
+
+GetOptions( 'e=i' => \$opt_exitcode,
+            'k=i' => \$opt_killcode,
+            't=i' => \$opt_timeout,
+            'h' => \&opt_help,
+            'help' => \&opt_help,
+);
+
+sub opt_help{
+  my $message = <<__END__;
+UX: ERROR: invalid syntax
+usage: [-e return code][-k kill signal][-t seconds to wait]
+       [-h][--help]
+
+  Options
+      --help, -h     Prints this help text.
+      -e             Exit code to return on timeout.
+                     NOTE: 99 by default.
+      -k             Signal number to send via kill.
+                     NOTE: 9 by default.
+      -t             Timeout in seconds before alarming.
+                     NOTE: 60 by default.
+
+__END__
+  print $message;
+  exit 1;
+};
+
+my $pid;
+
+local $SIG{ALRM} = sub { kill $opt_killcode, $pid or die "Kill failed: $!";
+                         die "Timeout!\n"};
+
+eval{
+  my $x = defined($pid = fork());
+
+  unless ($pid){
+    print qx(@ARGV);
+    die "Exec of ", join(' ', @ARGV), " failed at $!\n";
+  };
+
+  alarm $opt_timeout;
+  waitpid $pid => 0;
+  alarm 0;
+  exit 0;
+};
+
+if ($@){
+  die "Nothing to do!\n" unless $@ eq "Timeout!\n";
+  exit $opt_exitcode;
+}else{
+  exit 0;
+};
+#+END_SRC
+
+* ~/bin/ptree.pl
+
+Silly perl based ptree alike implementation. Mad old code that should be avoided at all costs but it works and I'm not fixing it unless I need to.
+
+#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/ptree.pl :results replace :tangle-mode (identity #o755)
+#!/usr/bin/env perl
+#
+# ptree for linux/darwin/solaris. I got sick of ps and pstree on linux.
+# ptree works on solaris fine, but doesn't exist for darwin/linux/etc...
+#
+# TODO: Allow passing a regexp instead of a pid and passing multiple pids.
+#
+
+local $ENV{"PATH"} = '/bin:/usr/bin:/sbin:/usr/sbin';
+local $debug = 0;
+
+(exists($ENV{"DEBUG"})) ? $debug = 1 : undef;
+($debug) ? local $| = 1 : undef; # disable buffering for STDERR and STDOUT
+
+sub debug_print {
+  ($debug) && warn pop;
+};
+
+local @cmd = ('/bin/ps');
+local $init = 0;
+local $start = 1;
+
+if ($^O eq "linux"){
+  push(@cmd, 'ajxSw');
+  $start = 0;
+}elsif ($^O =~ m/darwin|freebsd/){
+  push(@cmd, 'Ajwww');
+}elsif ($^O eq "solaris"){
+  @cmd = ('/usr/ucb/ps');
+  if ((-x "/bin/zonename") && !(qx(zonename) eq "global\n")){
+    $init = qx(pgrep zsched);
+    chomp($init);
+    $start = $init;
+  };
+  push(@cmd, 'laxwww');
+}else{
+  die "$^O isn't a known os to this script\n";
+};
+
+local @ps = qx(@cmd);
+($?) ? die $cmd[0]." posix return code $?\n" : undef;
+
+local %proc;
+local @trail;
+
+(defined($ARGV[0])) ? $start = $ARGV[0] : undef;
+
+debug_print("Dump of raw line array data:\n");
+
+foreach my $x (@ps){
+  my $cmd_index = 9;
+  my $ppid = -1;
+  my $pid = -1;
+  next if ($x =~ m/.*PID.*/);
+  my @line = split(m/\s+/,$x);
+  splice(@line, 0, 1) unless ($line[0] =~ m/\d+/);
+  splice(@line, 0, 1) if ("$line[0]" eq "");
+
+  if ($^O eq "linux"){
+    ($ppid,$pid) = @line;
+    $cmd_index = 9;
+  }elsif ($^O =~ m/darwin|freebsd/){
+    ($pid,$ppid) = @line;
+    $cmd_index = 8;
+  }elsif ($^O eq "solaris"){
+    (undef, undef, $pid,$ppid) = @line;
+    for($x=$cmd_index; $x < 14; $x++){
+      $cmd_index = ($line[$x] =~ m/\d+\:\d+/) ? ($x + 1) : $cmd_index;
+    };
+  };
+
+  my $command = join(' ', @line[$cmd_index..$#line++]);
+  (!defined $proc{$pid}) ? $proc{$pid}->{"children"} = [ ] : undef;
+  (!defined $proc{$ppid}) ? $proc{$ppid}->{"children"} = [ ] : undef;
+  $proc{$pid}->{"pid"} = $pid;
+  $proc{$pid}->{"command"} = $command;
+  $proc{$pid}->{"ppid"} = $ppid;
+  push(@{$proc{$ppid}->{"children"}},$pid);
+  debug_print(join(',', @line[0..($#line-1)])."\n");
+};
+
+if ($debug){
+  debug_print("Done reading ps output\nDump of Hash\n");
+  foreach my $key (sort({$a <=> $b} (keys %proc))){
+    $ppid = $proc{$key}->{"ppid"};
+    $command = $proc{$key}->{"command"};
+    $children = join(',', @{$proc{$key}->{"children"}});
+    debug_print("PID<$key> PPID<$ppid> Children<$children> Command<$command>\n");
+  };
+};
+
+sub intrail{
+  my $crumb = pop;
+  my $ret = 0;
+  map {$ret++ if ($crumb == $_)} @trail;
+  return $ret;
+};
+
+sub addchildren{
+  my $start_node = pop;
+  foreach my $child (@{$proc{$start_node}->{"children"}}){
+    next if (!defined($child) || ($start_node == $child));
+    debug_print("Start ($start_node) Add child $child.\n");
+    push(@trail, $child);
+    addchildren($child);
+  };
+};
+
+sub addparents{
+  my $start_node = pop;
+  my $parent = $proc{$start_node}->{"ppid"};
+  return unless (defined($start_node));
+  return if (($parent == $start_node) || !(defined($parent))); # At the top of the tree, or in a zone
+  debug_print("Start ($start_node) Add parent $parent.\n");
+  push(@trail, $parent);
+  addparents($parent) if ($parent != $init);
+};
+
+sub printnode{
+  my $start_node = pop;
+  my $indent = pop;
+  if (intrail($start_node)){
+    my $pid = $proc{$start_node}->{"pid"};
+    my $ppid = $proc{$start_node}->{"ppid"};
+    my $cmdline = $proc{$start_node}->{"command"};
+    my $indentation = '  'x($indent);
+    if ($pid == $init){
+      my $s = $^O." kernel";
+      if ($cmdline ne ''){
+        $s = $s." <$cmdline>";
+      };
+      $cmdline = $s;
+    };
+    printf("%s%d   %s\n", $indentation, $pid, $cmdline);
+    foreach my $child (@{$proc{$start_node}->{"children"}}){
+      next if ($pid == $child);
+      printnode($indent+1,$child);
+    };
+  };
+};
+
+my $valid = 0;
+foreach my $j (keys %proc){ ($j == $start) ? $valid++ : undef; };
+
+debug_print("Starting from <$start>, validity is<$valid>\n");
+
+if ($valid){
+  if (!$start){
+    @trail = keys %proc;
+    push(@trail, $start); push(@trail, 1);
+    debug_print("Done with adding $start to trail.\n");
+  }else{
+    push(@trail, $start);
+    debug_print("Adding children from $start.\n");
+    addchildren($start);
+    debug_print("Adding parents from $start.\n");
+    addparents($start);
+  };
+
+  @trail = sort(@trail);
+
+  debug_print("Trail is: ".join(',', @trail)."\nStarting at pid $start\ninit pid $init\n");
+  print "PID COMMAND\n";
+  my $startindent = 0;
+  (intrail($startindent)) ? $startindent = -1 : undef;
+  printnode($startindent,$init);
+}else{
+  die "pid $start doesn't exist.\n";
+};
+
+exit 0;
+#+END_SRC
+
+* ~/bin/portchk
+
+Just find out if a port responds to anything tcp related or not.
+
+#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/portchk :results replace :tangle-mode (identity #o755)
+#!/usr/bin/env perl
+#
+# Dumb wrapper to get the gecos information from a uid/username.
+
+foreach my $input (@ARGV){
+  my $gecos = undef;
+  my $uid = undef;
+  my $name = undef;
+  if ( $input =~ m/^\d+$/ ) {
+    ( $name,$uid,$gecos ) = ( getpwuid($input) )[0,2,6];
+  } else {
+    ( $name,$uid,$gecos ) = ( getpwnam($input) )[0,2,6];
+  }
+  print "$name is '$gecos' uid '$uid'\n" if $gecos;
+}
+#+END_SRC
+
+* ~/bin/notify
+
+OSX only really, just fires off a notification when its ran.
+
+Example:
+notify "some command" "not ok"
+
+First param is the message, second title of the notification.
+
+#+BEGIN_SRC sh :mkdirp yes :tangle (when (eq osx-p t) "tmp/bin/notify") :results replace :tangle-mode (identity #o755)
+#!/bin/sh
+message=${1:="no message"}
+title=''
+if [ "${2}" != "" ]; then
+  message="${2}"
+  title="${1}"
+fi
+notification="display notification \"${message}\""
+[ "${title}" != "" ] && notification="${notification} with title \"${title}\""
+
+osascript -e "${notification}"
+#+END_SRC
+
+* ~/bin/today
+
+Stupid ruby script I wrote to highlight the week/day in a calendar.
+
+#+BEGIN_SRC ruby :mkdirp yes :tangle tmp/bin/today :results replace :tangle-mode (identity #o755)
+#!/usr/bin/env ruby
+cal, today, week_color, day_color, reset = %x(cal).split(%r(\n)), Time.now.day, %x(tput sgr0;tput setab 4;tput setaf 7), %x(tput sgr0; tput setab 0;tput setaf 7;tput bold), %x(tput sgr0)
+done=false
+cal.each do |line|
+  if done then
+    puts line
+    next
+  end
+  if(line =~ /^(.*\s+?)#{today}(\s+?.*)$/ or
+     line =~ /^(.*\s+?)#{today}$/ or
+     line =~ /^()#{today}(\s+?.*)$/ or
+     line =~ /^#{today}$/ ) then
+    puts "#{week_color}#{$1}#{day_color}#{today}#{week_color}#{$2}#{reset}"
+    done=true
+  else
+    puts line
+  end
+end
+#+END_SRC
diff --git a/dotprofile.org b/dotprofile.org
new file mode 100644
index 0000000..2524f79
--- /dev/null
+++ b/dotprofile.org
@@ -0,0 +1,365 @@
+#+TITLE: .profile
+#+AUTHOR: Mitch Tishmack
+#+STARTUP: hidestars
+#+STARTUP: odd
+#+BABEL: :cache yes
+#+PROPERTY: header-args :cache yes :padline no :mkdirp yes :comments no :tangle tmp/.profile
+
+~/.profile setup in all its peculiarities.
+
+* PS1
+
+#+BEGIN_SRC sh
+  # -*- mode: Shell-script; -*-
+  # Common .profile
+  #
+  # DO NOT EDIT, managed by org mode
+  _uname=$(uname)
+  _uname_n=$(uname -n)
+  _hostname=$(hostname)
+  export _uname _uname_n _hostname
+#+END_SRC
+
+OSX uses hostname -s for getting hostname
+
+#+BEGIN_SRC sh :tangle (when (eq osx-p t) "tmp/.profile")
+_host=$(hostname -s)
+#+END_SRC
+
+Otherwise we just use what uname -n sent.
+
+#+BEGIN_SRC sh
+_host=${_host:=${_uname_n}}
+#+END_SRC
+
+* PATH
+** haskell
+#+BEGIN_SRC sh :tangle (when (eq haskell-p t) "tmp/.profile")
+PATH="${PATH}:${HOME}/.cabal/bin"
+#+END_SRC
+** General
+#+BEGIN_SRC sh :tangle "tmp/.profile"
+PATH="${PATH}:${HOME}/bin:${HOME}/.local/bin"
+export PATH
+#+END_SRC
+
+* Functions
+** General
+Generally useful functions.
+
+#+BEGIN_SRC sh
+# cat out a : separated env variable
+# variable is the parameter
+cat_env()
+{
+  set | grep '^'"$1"'=' > /dev/null 2>&1 && eval "echo \$$1" | tr ':' '
+' | awk '!/^\s+$/' | awk '!/^$/'
+}
+
+# Convert a line delimited input to : delimited
+to_env()
+{
+  awk '!a[$0]++' < /dev/stdin | tr -s '
+' ':' | sed -e 's/\:$//' | awk 'NF > 0'
+}
+
+# Unshift a new value onto the env var
+# first arg is ENV second is value to unshift
+# basically prepend value to the ENV variable
+unshift_env()
+{
+  new=$(eval "echo $2; echo \$$1" | to_env)
+  eval "$1=${new}; export $1"
+}
+
+# Opposite of above, but echos what was shifted off
+shift_env()
+{
+  first=$(cat_env "$1" | head -n 1)
+  rest=$(cat_env "$1" | awk '{if (NR!=1) {print}}' | to_env)
+  eval "$1=$rest; export $1"
+  echo "${first}"
+}
+
+# push $2 to $1 on the variable
+push_env()
+{
+  have=$(cat_env "$1")
+  new=$(printf "%s
+%s" "$have" "$2" | to_env)
+  eval "$1=$new; export $1"
+}
+
+# Remove a line matched in $HOME/.ssh/known_hosts for when there are legit
+# host key changes.
+nukehost()
+{
+  if [ -z "$1" ]; then
+    echo "Usage: nukehost <hostname>"
+    echo "       Removes <hostname> from ssh known_host file."
+  else
+    sed -i -e "/$1/d" ~/.ssh/known_hosts
+  fi
+}
+
+# Cheap copy function to make copying a file via ssh from one host
+# to another less painful, use pipeviewer to give some idea as to progress.
+ssh-copyfile()
+{
+  if [ -z "$1" -o -z "$2" ]; then
+    echo "Usage: copy source:/file/location destination:/file/location"
+  else
+    srchost="$(echo "$1" | awk -F: '{print $1}')"
+    src="$(echo "$1" | awk -F: '{print $2}')"
+    dsthost="$(echo "$2" | awk -F: '{print $1}')"
+    dst="$(echo "$2" | awk -F: '{print $2}')"
+    size=$(ssh "$srchost" du -hs "$src" 2> /dev/null)
+    size=$(echo "${size}" | awk '{print $1}')
+    echo "Copying $size to $dst"
+    ssh "$srchost" "/bin/cat \$src" 2> /dev/null | pv -cb -N copied - | ssh "$dsthost" "/bin/cat - > \$dst" 2> /dev/null
+  fi
+}
+
+# extract function to automate being lazy at extracting archives.
+extract()
+{
+  if [ -f "$1" ]; then
+    case ${1} in
+      *.tar.bz2|*.tbz2|*.tbz)  bunzip2 -c "$1" | tar xvf -;;
+      *.tar.gz|*.tgz)          gunzip -c "$1" | tar xvf -;;
+      *.tz|*.tar.z)            zcat "$1" | tar xvf -;;
+      *.tar.xz|*.txz|*.tpxz)   xz -d -c "$1" | tar xvf -;;
+      *.bz2)                   bunzip2 "$1";;
+      *.gz)                    gunzip "$1";;
+      *.jar|*.zip)             unzip "$1";;
+      *.rar)                   unrar x "$1";;
+      *.tar)                   tar -xvf "$1";;
+      *.z)                     uncompress "$1";;
+      *.rpm)                   rpm2cpio "$1" | cpio -idv;;
+      *)                       echo "Unable to extract <$1> Unknown extension."
+    esac
+  else
+    print "File <$1> does not exist."
+  fi
+}
+
+# Tcsh compatibility so I can be a lazy bastard and paste things directly
+# if/when I need to.
+setenv()
+{
+  export "$1=$2"
+}
+
+# Just to be lazy, set/unset the DEBUG env variable used in my scripts
+debug()
+{
+  if [ -z "$DEBUG" ]; then
+    if [ -z "$1" ]; then
+      echo Setting DEBUG to "$1"
+      setenv DEBUG "$1"
+    else
+      echo Setting DEBUG to default
+      setenv DEBUG default
+    fi
+  else
+    echo Unsetting DEBUG
+    unset DEBUG
+  fi
+}
+
+login_shell()
+{
+  [ "$-" = "*i*" ]
+}
+
+# Yeah, sick of using the web browser for this crap
+# Use is NUM FROM TO and boom get the currency converted from goggle.
+cconv()
+{
+  curl -L --silent\
+       "https://www.google.com/finance/converter?a=$1&from=$2&to=$3" \
+         | grep converter_result \
+             | perl -pe 's|[<]\w+ \w+[=]\w+[>]||g;' -e 's|[<][/]span[>]||'
+}
+#+END_SRC
+
+** git
+#+BEGIN_SRC sh :tangle (when (eq git-p t) "tmp/.profile")
+maybe_git_repo()
+{
+  # assume https if input doesn't contain a protocol
+  proto=https
+  destination=${HOME}/src
+  echo "${1}" | grep '://' > /dev/null 2>&1
+  [ $? = 0 ] && proto=$(echo "${1}" | sed -e 's|[:]\/\/.*||g')
+  git_dir=$(echo "${1}" | sed -e 's|.*[:]\/\/||g')
+  rrepo="${proto}://${git_dir}"
+
+  # strip user@, :NNN, and .git from input uri's
+  repo="${destination}/"$(echo "${git_dir}" |
+    sed -e 's/\.git$//g' |
+    sed -e 's|.*\@||g' |
+    sed -e 's|\:[[:digit:]]\{1,\}\/|/|g' |
+    tr -d '~')
+
+  if [ ! -d "${repo}" ]; then
+    git ls-remote "${rrepo}" > /dev/null 2>&1
+    if [ $? = 0 ]; then
+      mkdir -p "${repo}"
+      echo "git clone ${rrepo} ${repo}"
+      git clone --recursive "${rrepo}" "${repo}"
+    else
+      echo "${rrepo} doesn't look to be a git repository"
+    fi
+  fi
+  [ -d "${repo}" ] && cd "${repo}"
+}
+
+gh()
+{
+  maybe_git_repo "https://github.com/${1}"
+}
+
+bb()
+{
+  maybe_git_repo "https://bitbucket.org/${1}"
+}
+#+END_SRC
+** haskell
+#+BEGIN_SRC sh :tangle (when (eq haskell-p t) "tmp/.profile")
+hmap()
+{
+  ghc -e "interact ($*)"
+}
+
+hmapl()
+{
+  hmap "unlines.($*).lines"
+}
+
+hmapw()
+{
+  hmapl "map (unwords.($*).words)"
+}
+#+END_SRC
+** nix
+#+BEGIN_SRC sh :tangle (when (eq nix-p t) "tmp/.profile")
+mk_nix_shell()
+{
+  cabal2nix --sha256="0" . \
+    | perl -0777 -p -e 's/{.+}:/{ haskellPackages ? (import <nixpkgs> {}).haskellPackages }:/s' \
+    | sed -E -e 's/(cabal\.mkDerivation)/with haskellPackages; \1/' -e 'sXsha256 = "0";Xsrc = "./.";X' \
+          > shell.nix;
+}
+
+nix_env_setup()
+{
+  # The nix installer put something like this into the .profile.
+  # BAD INSTALLER NO COOKIE!
+  if [ -e ${HOME}/.nix-profile/etc/profile.d/nix.sh ]; then
+      . ${HOME}/.nix-profile/etc/profile.d/nix.sh;
+      export NIX_PATH=${HOME}/src/github.com/NixOS/nixpkgs:nixpkgs=${HOME}/src/github.com/NixOS/nixpkgs
+      export NIX_CFLAGS_COMPILE="-idirafter /usr/include"
+      export NIX_CFLAGS_LINK="-L/usr/lib"
+
+      NIX_GHC=$(type -p ghc > /dev/null 2>&1)
+      if [ -n "$NIX_GHC" ]; then
+          eval $(grep export "$NIX_GHC")
+      fi
+  fi
+
+  nr()
+  {
+    nix-shell --run "$(echo $@)"
+  }
+}
+
+nix_env_setup
+#+END_SRC
+
+Workaround stupid ssl crap with recent nix.
+
+#+BEGIN_SRC sh :tangle (when (and (eq nix-p t) (eq osx-p t)) "tmp/.profile")
+SSL_CERT_FILE="${HOME}/.nix-profile/etc/ssl/certs/ca-bundle.crt"
+GIT_SSL_CAINFO=$SSL_CERT_FILE
+export SSL_CERT_FILE
+export GIT_SSL_CAINFO
+#+END_SRC
+
+TODO Add linux ca-bundle detection
+  if test  -e /etc/ssl/certs/ca-bundle.crt ;  # Fedora, NixOS
+      set -xg SSL_CERT_FILE /etc/ssl/certs/ca-bundle.crt ;
+  else if test -e /etc/ssl/certs/ca-certificates.crt ;  # Ubuntu, Debian
+      set -xg SSL_CERT_FILE /etc/ssl/certs/ca-certificates.crt
+
+** tmux
+#+BEGIN_SRC sh :tangle (when (eq tmux-p t) "tmp/.profile")
+t()
+{
+  if [ -z "$1" ]; then
+    echo "Supply a tmux session name to connect to/create"
+  else
+    tmux has-session -t "$1" 2>/dev/null
+    [ $? != 0 ] && tmux new-session -d -s "$1"
+    tmux attach-session -d -t "$1"
+  fi
+}
+#+END_SRC
+** x
+#+BEGIN_SRC sh :tangle (when (eq x-p t) "tmp/.profile")
+modmap()
+{
+  [ -f "${HOME}/.Xmodmap" ] && xmodmap "${HOME}/.Xmodmap"
+}
+#+END_SRC
+* Aliases
+** General
+#+BEGIN_SRC sh
+# general aliases
+alias s="\$(which ssh)"
+alias quit='exit'
+alias cr='reset; clear'
+alias a=ag
+alias n=noglob
+alias l=ls
+alias L='ls -dal'
+alias cleandir="find . -type f \( -name '*~' -o -name '#*#' -o -name '.*~' -o -name '.#*#' -o -name 'core' -o -name 'dead.letter*' \) | grep -v auto-save-list | xargs -t rm"
+
+# Prefer less for paging duties.
+which less > /dev/null 2>&1
+if [ $? -eq 0 ]; then
+  alias T="\$(which less) -f +F"
+else
+  alias T="\$(which tail) -f"
+fi
+
+alias e=emacs
+alias de=emacs --debug-init -nw
+alias ec=emacsclient
+alias ect=emacsclient -t
+alias oec=emacsclient -n -c
+alias stope=emacsclient -t -e "(save-buffers-kill-emacs)(kill-emacs)"
+alias kille=emacsclient -e "(kill-emacs)"
+#+END_SRC
+
+** osx
+#+BEGIN_SRC sh :tangle (when (eq osx-p t) "tmp/.profile")
+alias o='open -a'
+#+END_SRC
+** git
+#+BEGIN_SRC sh :tangle (when (eq git-p t) "tmp/.profile")
+alias g=git
+#+END_SRC
+** haskell
+#+BEGIN_SRC sh :tangle (when (eq haskell-p t) "tmp/.profile")
+alias ghce="ghc -e ':l ~/.ghc.hs' -e"
+#+END_SRC
+** mosh
+#+BEGIN_SRC sh :tangle (when (eq mosh-p t) "tmp/.profile")
+alias m=mosh
+#+END_SRC
+
+** tmux
+#+BEGIN_SRC sh :tangle (when (eq tmux-p t) "tmp/.profile")
+alias tl='tmux ls'
+#+END_SRC
diff --git a/haskell.org b/haskell.org
new file mode 100644
index 0000000..801cbd5
--- /dev/null
+++ b/haskell.org
@@ -0,0 +1,32 @@
+#+TITLE: Haskell Configuration
+#+AUTHOR: Mitch Tishmack
+#+STARTUP: hidestars
+#+STARTUP: odd
+#+BABEL: :cache yes
+#+PROPERTY: header-args :cache yes :padline no :mkdirp yes :comments no
+
+Haskell setup.
+
+* ~/.ghci
+Ghci setup, mostly just cosmetics.
+
+#+BEGIN_SRC haskell :tangle tmp/.ghci
+:l ~/.ghc.hs
+:set prompt "λ "
+:set +t
+#+END_SRC
+
+* ~/.ghc.hs
+
+What to automatically have loaded into ghci sessions.
+
+#+BEGIN_SRC haskell :tangle tmp/.ghc.hs
+import Control.Applicative
+import Control.Monad
+import Data.Monoid
+import Data.Maybe
+import Data.List
+import Data.Bool
+import qualified Data.Set as S
+import qualified Data.Map as M
+#+END_SRC
diff --git a/misc.org b/misc.org
new file mode 100644
index 0000000..f0f3d31
--- /dev/null
+++ b/misc.org
@@ -0,0 +1,122 @@
+#+TITLE: Misc Configuration
+#+AUTHOR: Mitch Tishmack
+#+STARTUP: hidestars
+#+STARTUP: odd
+#+BABEL: :cache yes
+#+PROPERTY: header-args :cache yes :padline no :mkdirp yes :comments no
+
+Stuff that didn't fit anywhere else.
+
+* ~/.dir_colors
+
+For BSD ps, make colors closer to what the GNU utilities produce by default.
+
+#+BEGIN_SRC conf :tangle tmp/.dir_colors :results replace
+COLOR tty
+
+TERM ansi
+TERM color-xterm
+TERM con132x25
+TERM con132x30
+TERM con132x43
+TERM con132x60
+TERM con80x25
+TERM con80x28
+TERM con80x30
+TERM con80x43
+TERM con80x50
+TERM con80x60
+TERM cons25
+TERM console
+TERM cygwin
+TERM dtterm
+TERM eterm-color
+TERM Eterm
+TERM gnome
+TERM konsole
+TERM kterm
+TERM linux
+TERM linux-c
+TERM mach-color
+TERM putty
+TERM rxvt
+TERM rxvt-cygwin
+TERM rxvt-cygwin-native
+TERM rxvt-unicode
+TERM screen
+TERM screen-bce
+TERM screen-w
+TERM screen.linux
+TERM vt100
+TERM xterm
+TERM xterm-256color
+TERM xterm-color
+TERM xterm-debian
+
+# Below are the color init strings for the basic file types. A color init
+# string consists of one or more of the following numeric codes:
+# Attribute codes:
+# 00=none 01=bold 04=underscore 05=blink 07=reverse 08=concealed
+# Text color codes:
+# 30=black 31=red 32=green 33=yellow 34=blue 35=magenta 36=cyan 37=white
+# Background color codes:
+# 40=black 41=red 42=green 43=yellow 44=blue 45=magenta 46=cyan 47=white
+NORMAL 00           # global default, although everything should be something.
+FILE 00             # normal file
+DIR 01;34           # directory
+LINK 01;36          # symbolic link.  (If you set this to 'target' instead of a
+                    # numerical value, the color will match the file pointed to)
+FIFO 40;33          # pipe
+SOCK 01;35          # socket
+DOOR 01;35          # door
+BLK 40;33;01        # block device driver
+CHR 40;33;01        # character device driver
+ORPHAN 01;05;37;41  # orphaned syminks
+MISSING 01;05;37;41 # ... and the files they point to
+
+# This is for files with execute permission:
+EXEC 01;32
+
+# List any file extensions like '.gz' or '.tar' that you would like ls
+# to colorize below. Put the extension, a space, and the color init string.
+# (and any comments you want to add after a '#')
+
+.cmd 01;32 # executables (bright green)
+.exe 01;32
+.com 01;32
+.btm 01;32
+.bat 01;32
+.sh  01;32
+.csh 01;32
+.ksh 01;32
+.zsh 01;32
+
+.tar 01;31 # archives / compressed (bright red)
+.tgz 01;31
+.arj 01;31
+.taz 01;31
+.lzh 01;31
+.zip 01;31
+.z   01;31
+.Z   01;31
+.gz  01;31
+.bz2 01;31
+.bz  01;31
+.tbz2 01;31
+.tz  01;31
+.deb 01;31
+.rpm 01;31
+.rar 01;31 # app-arch/rar
+.ace 01;31 # app-arch/unace
+.zoo 01;31 # app-arch/zoo
+.cpio 01;31 # app-arch/cpio
+.7z  01;31 # app-arch/p7zip
+.rz  01;31 # app-arch/rzip
+#+END_SRC
+
+* ~/.hushlogin
+
+Because who gives a rats when and where I last logged on from?
+
+#+BEGIN_SRC conf :tangle tmp/.hushlogin :results replace
+#+END_SRC
diff --git a/perl.org b/perl.org
new file mode 100644
index 0000000..7d120a6
--- /dev/null
+++ b/perl.org
@@ -0,0 +1,93 @@
+#+TITLE: Perl Configuration
+#+AUTHOR: Mitch Tishmack
+#+STARTUP: hidestars
+#+STARTUP: odd
+#+BABEL: :cache yes
+#+PROPERTY: header-args :cache yes :padline no :mkdirp yes :comments no
+
+Mostly old holdovers from the days of perl, just perlcritic and perltidy configuration.
+
+* ~/.perlcriticrc
+
+What to complain about by default.
+
+#+BEGIN_SRC conf :tangle tmp/.perlcritirc :results replace
+# Show the severity level
+severity = 1
+
+# Basically show what profile is complaining
+verbose = %f:%l:%c: %m, %e (%p, severity %s)\n
+
+# Don't warn on these variables
+[Variables::ProhibitPunctuationVars]
+allow = $@ $!
+
+# Ignore syscall returns on print, it not actually returning is... whatever.
+[InputOutput::RequireCheckedSyscalls]
+exclude_functions = print say
+
+# Allow things like print qx(somecmd) in a void context to work, this is ok.
+[InputOutput::ProhibitBacktickOperators]
+only_in_void_context = 1
+
+# I actually like using unless... so don't piss me off whinging about it
+[-ControlStructures::ProhibitUnlessBlocks]
+
+# The following only apply to modules
+[-Modules::RequireVersionVar]
+[-ErrorHandling::RequireCarping]
+
+# Tabs suck, no
+[CodeLayout::ProhibitHardTabs]
+allow_leading_tabs = 0
+
+# For small regexes, no /x at the end is fine, 12 should be enough
+[RegularExpressions::RequireExtendedFormatting]
+minimum_regex_length_to_complain_about = 12
+
+# These are kosher kthxbai
+[ControlStructures::ProhibitPostfixControls]
+allow = for if until unless
+
+# For POE, we do things like my $foo = $_[HEAP]; and thats OK
+[Subroutines::RequireArgUnpacking]
+allow_subscripts = 1
+
+# For POD documentation, I don't care about required sections.
+[Documentation::RequirePodSections]
+lib_sections = NAME | SYNOPSIS | DESCRIPTION | AUTHOR | COPYRIGHT | SEE ALSO
+script_sections = NAME | SYNOPSIS | DESCRIPTION | AUTHOR | COPYRIGHT | SEE ALSO
+
+# This is for POD documentation mainly.
+[CodeLayout::ProhibitHardTabs]
+allow_leading_tabs = 1
+#+END_SRC
+
+* ~/.perltidyrc
+
+Control how perltidy should clean things up.
+
+#+BEGIN_SRC conf :tangle tmp/.perltidyrc :results replace
+# cuddled elses pls
+-ce
+# indent 2 spaces
+-i=2
+# for tokens with things like arrays, start the data next line down one indent in
+-lp
+# align closing tokens for things like arrays with the opening token
+-cti=1
+# default, but spaces between multiple entries, none with one arg
+-pt=1
+# line encoding
+-ole=unix
+# braces not on new line
+-nsbl
+# stack opening tokens, don't create a new line with one token, note no stacking of closing tokens
+-sot
+# no space before ;'s in for loops
+-nsfs
+# Make curly braces act more like the args param
+-bbt=1
+# Trim qw whitespaces
+-tqw
+#+END_SRC
diff --git a/readme.org b/readme.org
index 43a6aa7..8c0b855 100644
--- a/readme.org
+++ b/readme.org
@@ -56,7 +56,7 @@ Where N is the generation you want to copy.
 
 ** How does it work?
 
-It is really rather simple, the makefile isn't that complex. Look at that
+It is really rather simple, the [[file:Makefile][Makefile]] isn't that complex. Look at that
 for details.
 
 This isn't intended to cover everything. This could be considered a template
@@ -70,7 +70,7 @@ files is the users job, not this setup.
 
 ** Explanation of what is happening
 
-The file options.el controls predicates that change how files get tangled to files.
+The file [[file:defaults.el][defaults.el]] controls predicates that change how files get tangled to files.
 
 This allows me to tangle files that would be useful for linux/bsd/etc...
 without affecting the existing files.
@@ -96,7 +96,7 @@ to generate config files, not necessarily to use them.
 Should be easy enough to either clone this repo or copy things to a new repo
 and hack in what you need. Your call.
 
-But, say you have a heading, take .profile which comes up next, under the
+But, say you have a heading, take .profile as an example, under an org mode
 heading you would just add:
 
 #+BEGIN_SRC org :tangle no
@@ -122,1876 +122,38 @@ Pretty simple, just add a source block like normal:
 
 #+END_SRC
 
-** TODO
-- [ ] Auto load-file options.el to make code blocks editable in their major
-modes.
-- [ ] Need to have some way to autocleanup old generations. Rm works for now
-so meh.
-- [ ] Need to add the ability to detect that make is generating a pointless
-new generation. Aka generation N and generation N-1 are the same, just leave
-N and don't increment.
-- [ ] Maybe checksum file contents somehow and use that?
-- [ ] More? For now its functional.
-
 * External Tanglers
 
-Putting everything in readme.org was getting annoying.
-
-
-| name  | file      |
-|-------+-----------|
-| emacs | [[file:emacs.org][emacs.org]] |
-| tmux  | [[file:tmux.org][tmux.org]]  |
-| git   | [[file:git.org][git.org]]   |
-| x     | [[file:x.org][x.org]]     |
-| nix   | [[file:nix.org][nix.org]]   |
-
-* ~/.profile
-:PROPERTIES:
-:header-args: :tangle tmp/.profile :comments no :padline no :cache yes :mkdirp yes
-:END:
-
-** PS1
-
-#+BEGIN_SRC sh
-  # -*- mode: Shell-script; -*-
-  # Common .profile
-  #
-  # DO NOT EDIT, managed by org mode
-  _uname=$(uname)
-  _uname_n=$(uname -n)
-  _hostname=$(hostname)
-  export _uname _uname_n _hostname
-#+END_SRC
-
-OSX uses hostname -s for getting hostname
-
-#+BEGIN_SRC sh :tangle (when (eq osx-p t) "tmp/.profile")
-_host=$(hostname -s)
-#+END_SRC
-
-Otherwise we just use what uname -n sent.
-
-#+BEGIN_SRC sh
-_host=${_host:=${_uname_n}}
-#+END_SRC
-
-** PATH
-*** haskell
-#+BEGIN_SRC sh :tangle (when (eq haskell-p t) "tmp/.profile")
-PATH="${PATH}:${HOME}/.cabal/bin"
-#+END_SRC
-*** General
-#+BEGIN_SRC sh :tangle "tmp/.profile"
-PATH="${PATH}:${HOME}/bin:${HOME}/.local/bin"
-export PATH
-#+END_SRC
-
-** Functions
-*** General
-Generally useful functions.
-
-#+BEGIN_SRC sh
-# cat out a : separated env variable
-# variable is the parameter
-cat_env()
-{
-  set | grep '^'"$1"'=' > /dev/null 2>&1 && eval "echo \$$1" | tr ':' '
-' | awk '!/^\s+$/' | awk '!/^$/'
-}
-
-# Convert a line delimited input to : delimited
-to_env()
-{
-  awk '!a[$0]++' < /dev/stdin | tr -s '
-' ':' | sed -e 's/\:$//' | awk 'NF > 0'
-}
-
-# Unshift a new value onto the env var
-# first arg is ENV second is value to unshift
-# basically prepend value to the ENV variable
-unshift_env()
-{
-  new=$(eval "echo $2; echo \$$1" | to_env)
-  eval "$1=${new}; export $1"
-}
-
-# Opposite of above, but echos what was shifted off
-shift_env()
-{
-  first=$(cat_env "$1" | head -n 1)
-  rest=$(cat_env "$1" | awk '{if (NR!=1) {print}}' | to_env)
-  eval "$1=$rest; export $1"
-  echo "${first}"
-}
-
-# push $2 to $1 on the variable
-push_env()
-{
-  have=$(cat_env "$1")
-  new=$(printf "%s
-%s" "$have" "$2" | to_env)
-  eval "$1=$new; export $1"
-}
-
-# Remove a line matched in $HOME/.ssh/known_hosts for when there are legit
-# host key changes.
-nukehost()
-{
-  if [ -z "$1" ]; then
-    echo "Usage: nukehost <hostname>"
-    echo "       Removes <hostname> from ssh known_host file."
-  else
-    sed -i -e "/$1/d" ~/.ssh/known_hosts
-  fi
-}
-
-# Cheap copy function to make copying a file via ssh from one host
-# to another less painful, use pipeviewer to give some idea as to progress.
-ssh-copyfile()
-{
-  if [ -z "$1" -o -z "$2" ]; then
-    echo "Usage: copy source:/file/location destination:/file/location"
-  else
-    srchost="$(echo "$1" | awk -F: '{print $1}')"
-    src="$(echo "$1" | awk -F: '{print $2}')"
-    dsthost="$(echo "$2" | awk -F: '{print $1}')"
-    dst="$(echo "$2" | awk -F: '{print $2}')"
-    size=$(ssh "$srchost" du -hs "$src" 2> /dev/null)
-    size=$(echo "${size}" | awk '{print $1}')
-    echo "Copying $size to $dst"
-    ssh "$srchost" "/bin/cat \$src" 2> /dev/null | pv -cb -N copied - | ssh "$dsthost" "/bin/cat - > \$dst" 2> /dev/null
-  fi
-}
-
-# extract function to automate being lazy at extracting archives.
-extract()
-{
-  if [ -f "$1" ]; then
-    case ${1} in
-      *.tar.bz2|*.tbz2|*.tbz)  bunzip2 -c "$1" | tar xvf -;;
-      *.tar.gz|*.tgz)          gunzip -c "$1" | tar xvf -;;
-      *.tz|*.tar.z)            zcat "$1" | tar xvf -;;
-      *.tar.xz|*.txz|*.tpxz)   xz -d -c "$1" | tar xvf -;;
-      *.bz2)                   bunzip2 "$1";;
-      *.gz)                    gunzip "$1";;
-      *.jar|*.zip)             unzip "$1";;
-      *.rar)                   unrar x "$1";;
-      *.tar)                   tar -xvf "$1";;
-      *.z)                     uncompress "$1";;
-      *.rpm)                   rpm2cpio "$1" | cpio -idv;;
-      *)                       echo "Unable to extract <$1> Unknown extension."
-    esac
-  else
-    print "File <$1> does not exist."
-  fi
-}
-
-# Tcsh compatibility so I can be a lazy bastard and paste things directly
-# if/when I need to.
-setenv()
-{
-  export "$1=$2"
-}
-
-# Just to be lazy, set/unset the DEBUG env variable used in my scripts
-debug()
-{
-  if [ -z "$DEBUG" ]; then
-    if [ -z "$1" ]; then
-      echo Setting DEBUG to "$1"
-      setenv DEBUG "$1"
-    else
-      echo Setting DEBUG to default
-      setenv DEBUG default
-    fi
-  else
-    echo Unsetting DEBUG
-    unset DEBUG
-  fi
-}
-
-login_shell()
-{
-  [ "$-" = "*i*" ]
-}
-
-# Yeah, sick of using the web browser for this crap
-# Use is NUM FROM TO and boom get the currency converted from goggle.
-cconv()
-{
-  curl -L --silent\
-       "https://www.google.com/finance/converter?a=$1&from=$2&to=$3" \
-         | grep converter_result \
-             | perl -pe 's|[<]\w+ \w+[=]\w+[>]||g;' -e 's|[<][/]span[>]||'
-}
-#+END_SRC
-
-*** git
-#+BEGIN_SRC sh :tangle (when (eq git-p t) "tmp/.profile")
-maybe_git_repo()
-{
-  # assume https if input doesn't contain a protocol
-  proto=https
-  destination=${HOME}/src
-  echo "${1}" | grep '://' > /dev/null 2>&1
-  [ $? = 0 ] && proto=$(echo "${1}" | sed -e 's|[:]\/\/.*||g')
-  git_dir=$(echo "${1}" | sed -e 's|.*[:]\/\/||g')
-  rrepo="${proto}://${git_dir}"
-
-  # strip user@, :NNN, and .git from input uri's
-  repo="${destination}/"$(echo "${git_dir}" |
-    sed -e 's/\.git$//g' |
-    sed -e 's|.*\@||g' |
-    sed -e 's|\:[[:digit:]]\{1,\}\/|/|g' |
-    tr -d '~')
-
-  if [ ! -d "${repo}" ]; then
-    git ls-remote "${rrepo}" > /dev/null 2>&1
-    if [ $? = 0 ]; then
-      mkdir -p "${repo}"
-      echo "git clone ${rrepo} ${repo}"
-      git clone --recursive "${rrepo}" "${repo}"
-    else
-      echo "${rrepo} doesn't look to be a git repository"
-    fi
-  fi
-  [ -d "${repo}" ] && cd "${repo}"
-}
-
-gh()
-{
-  maybe_git_repo "https://github.com/${1}"
-}
-
-bb()
-{
-  maybe_git_repo "https://bitbucket.org/${1}"
-}
-#+END_SRC
-*** haskell
-#+BEGIN_SRC sh :tangle (when (eq haskell-p t) "tmp/.profile")
-hmap()
-{
-  ghc -e "interact ($*)"
-}
-
-hmapl()
-{
-  hmap "unlines.($*).lines"
-}
-
-hmapw()
-{
-  hmapl "map (unwords.($*).words)"
-}
-#+END_SRC
-*** nix
-#+BEGIN_SRC sh :tangle (when (eq nix-p t) "tmp/.profile")
-mk_nix_shell()
-{
-  cabal2nix --sha256="0" . \
-    | perl -0777 -p -e 's/{.+}:/{ haskellPackages ? (import <nixpkgs> {}).haskellPackages }:/s' \
-    | sed -E -e 's/(cabal\.mkDerivation)/with haskellPackages; \1/' -e 'sXsha256 = "0";Xsrc = "./.";X' \
-          > shell.nix;
-}
-
-nix_env_setup()
-{
-  # The nix installer put something like this into the .profile.
-  # BAD INSTALLER NO COOKIE!
-  if [ -e ${HOME}/.nix-profile/etc/profile.d/nix.sh ]; then
-      . ${HOME}/.nix-profile/etc/profile.d/nix.sh;
-      export NIX_PATH=${HOME}/src/github.com/NixOS/nixpkgs:nixpkgs=${HOME}/src/github.com/NixOS/nixpkgs
-      export NIX_CFLAGS_COMPILE="-idirafter /usr/include"
-      export NIX_CFLAGS_LINK="-L/usr/lib"
-
-      NIX_GHC=$(type -p ghc > /dev/null 2>&1)
-      if [ -n "$NIX_GHC" ]; then
-          eval $(grep export "$NIX_GHC")
-      fi
-  fi
-
-  nr()
-  {
-    nix-shell --run "$(echo $@)"
-  }
-}
-
-nix_env_setup
-#+END_SRC
-
-Workaround stupid ssl crap with recent nix.
-
-#+BEGIN_SRC sh :tangle (when (and (eq nix-p t) (eq osx-p t)) "tmp/.profile")
-SSL_CERT_FILE="${HOME}/.nix-profile/etc/ssl/certs/ca-bundle.crt"
-GIT_SSL_CAINFO=$SSL_CERT_FILE
-export SSL_CERT_FILE
-export GIT_SSL_CAINFO
-#+END_SRC
-
-TODO Add linux ca-bundle detection
-  if test  -e /etc/ssl/certs/ca-bundle.crt ;  # Fedora, NixOS
-      set -xg SSL_CERT_FILE /etc/ssl/certs/ca-bundle.crt ;
-  else if test -e /etc/ssl/certs/ca-certificates.crt ;  # Ubuntu, Debian
-      set -xg SSL_CERT_FILE /etc/ssl/certs/ca-certificates.crt
-
-*** tmux
-#+BEGIN_SRC sh :tangle (when (eq tmux-p t) "tmp/.profile")
-t()
-{
-  if [ -z "$1" ]; then
-    echo "Supply a tmux session name to connect to/create"
-  else
-    tmux has-session -t "$1" 2>/dev/null
-    [ $? != 0 ] && tmux new-session -d -s "$1"
-    tmux attach-session -d -t "$1"
-  fi
-}
-#+END_SRC
-*** x
-#+BEGIN_SRC sh :tangle (when (eq x-p t) "tmp/.profile")
-modmap()
-{
-	[ -f "${HOME}/.Xmodmap" ] && xmodmap "${HOME}/.Xmodmap"
-}
-#+END_SRC
-** Aliases
-*** General
-#+BEGIN_SRC sh
-# general aliases
-alias s="\$(which ssh)"
-alias quit='exit'
-alias cr='reset; clear'
-alias a=ag
-alias n=noglob
-alias l=ls
-alias L='ls -dal'
-alias cleandir="find . -type f \( -name '*~' -o -name '#*#' -o -name '.*~' -o -name '.#*#' -o -name 'core' -o -name 'dead.letter*' \) | grep -v auto-save-list | xargs -t rm"
-
-# Prefer less for paging duties.
-which less > /dev/null 2>&1
-if [ $? -eq 0 ]; then
-  alias T="\$(which less) -f +F"
-else
-  alias T="\$(which tail) -f"
-fi
-
-alias e=emacs
-alias de=emacs --debug-init -nw
-alias ec=emacsclient
-alias ect=emacsclient -t
-alias oec=emacsclient -n -c
-alias stope=emacsclient -t -e "(save-buffers-kill-emacs)(kill-emacs)"
-alias kille=emacsclient -e "(kill-emacs)"
-#+END_SRC
-
-*** osx
-#+BEGIN_SRC sh :tangle (when (eq osx-p t) "tmp/.profile")
-alias o='open -a'
-#+END_SRC
-*** git
-#+BEGIN_SRC sh :tangle (when (eq git-p t) "tmp/.profile")
-alias g=git
-#+END_SRC
-*** haskell
-#+BEGIN_SRC sh :tangle (when (eq haskell-p t) "tmp/.profile")
-alias ghce="ghc -e ':l ~/.ghc.hs' -e"
-#+END_SRC
-*** mosh
-#+BEGIN_SRC sh :tangle (when (eq mosh-p t) "tmp/.profile")
-alias m=mosh
-#+END_SRC
-
-*** tmux
-#+BEGIN_SRC sh :tangle (when (eq tmux-p t) "tmp/.profile")
-alias tl='tmux ls'
-#+END_SRC
-* ~/bin
-
-** ~/bin/cidr
-
-A stupid script I wrote ages ago to help me be lazy with cidr
-notation for stuff. Setup the wrong netmask a few times and
-you too, will wish for something similar.
-
-#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/cidr :results replace :tangle-mode (identity #o755)
-#!/usr/bin/env perl
-#
-# Convert input ip/cidr|netmask|hexnetmask to useable network information.
-#
-
-use strict;
-use warnings;
-use Socket;
-use Sys::Hostname;
-
-#
-# Globalish vars
-#
-$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin'; # Paranoia, know thy name!
-my ($fqdn_regexp) = qr/([0-9,a-z,A-Z,\-,\_]+)\.([0-9,a-z,A-Z,\-,\_]+)\.(com|gov)/;
-
-#
-# converts a 1-word (4 byte) signed or unsigned integer into a dotted decimal
-# ip address.
-#
-sub int2ip {
-  my $n=int(pop);
-  return(sprintf("%d.%d.%d.%d", ($n>>24)&0xff,($n>>16)&0xff,
-    ($n>>8)&0xff,$n&0xff));
-};
-
-#
-# Convert a host/ip/netmask/cidr/etc.... to a hash of information
-# Example: host.domain.tld/24 will get the ip and calculate the netmask info
-#  equally if host.domain.tld corresponds with 1.2.3.4 the following is valid
-#  1.2.3.4/255.255.255.0 would obtain the same information.
-#
-# die()'s if anything isn't kosher.
-#
-# Ultra long function, probably needs to be looked at for condensing/splitting.
-#
-sub cidr2raw {
-  my $rawinput = pop;
-  my ($lhs, $rhs, $j, $uip) = (undef, undef, undef, undef);
-  my ($ucidr) = 0;
-  my ($network, $bits, $netmask, $broadcast, $low, $high);
-
-  if ($rawinput =~ qr/(.*)\/(.*)/){
-      $lhs = $1; $rhs = $2;
-  }else{
-    die "Input: $rawinput not expected.\n";
-  };
-
-  #
-  # Handle ip/hostname for left hand side.
-  if ($lhs =~ qr/(\d+)\.(\d+)\.(\d+)\.(\d+)/){
-    foreach my $dotted (($1,$2,$3,$4)){
-      if (($dotted > 255) or ($dotted < 0)){
-        die "FATAL: ipv4 address entered, $lhs entered is impossible, $dotted is not between 0-255.\n";
-      };
-    };
-    $uip = inet_ntoa(scalar gethostbyname($lhs));
-    die "FATAL: Cannot determine hostname for $lhs$!\n" if (!defined($lhs));
-  }elsif ($lhs =~ $fqdn_regexp){
-    my $tmp = gethostbyname($lhs);
-    die "FATAL: Cannot determine ip for $lhs" if (!defined($tmp));
-    $uip = inet_ntoa($tmp);
-  }else{
-    die "FATAL: host value not fully qualified, or not an ip <$lhs>\n";
-  };
-
-  #
-  # Handle the netmask/cidr for the right hand side,
-  #
-  # All input netmasks are converted to a cidr address for notation
-  if ($rhs =~ qr/^(\d+)$/){ # /cidr
-    $ucidr = $1;
-    die "FATAL: Invalid CIDR <$ucidr>.$!\n" if (($ucidr > 32) or ($ucidr < 0));
-  }elsif ($rhs =~ qr/(0[xX])?([0-9,a-f,A-F]{7})/){ # /0xhexnetmask
-    my $trimmed = $2;
-    my $insane = 0;
-    foreach my $byte (split('', unpack("B32", pack("H*", $trimmed)))){
-      ($byte) ? $ucidr++ : $insane++;
-      die "FATAL: $rhs is not a valid hex netmask.$!\n" if ($insane and $byte);
-    };
-  }elsif ($rhs =~ qr/(\d+)\.(\d+)\.(\d+)\.(\d+)/){ # /255.255.255.0 form
-    my @a = ($1, $2, $3, $4);
-    my $insane = 0;
-    foreach my $t (@a){
-      die "FATAL: Netmask out of range. Input <$rhs> Invalid <$t>$!\n" if (($t < 0) or ($t > 255));
-    };
-    foreach my $byte (split('', unpack("B32", pack("C4", @a)))){
-      ($byte) ? $ucidr++ : $insane++;
-      die "FATAL: $rhs is not a valid netmask.$!\n" if ($insane and $byte);
-    };
-  }else{
-    die "FATAL: Unknown or invalid netmask value entered. <$rhs>\n";
-  };
-
-  #
-  # Network math GO! This is the meat of the function.
-  my (@uip) = split(/\./, $uip);
-  $network = 0;
-  for ($j = 0; $j <= $#uip; $j++){
-    $network += int($uip[$j])<<((3-$j)*8);
-  };
-
-  $bits = 0; $j = 0;
-  for ($j = 31 - $ucidr; $j >= 0; $j--){
-    $bits |= 1<<$j;
-  };
-
-  $netmask = 0xffffffff^$bits;
-  $low = ($network&$netmask);
-  $high = ($network&$netmask)+$bits-1;
-  $broadcast = ($network&$netmask)|$bits;
-  my ($guessed_hostname,undef,undef,undef,undef) = gethostbyaddr(inet_aton($uip), AF_INET);
-
-  #
-  # Throw the info back, they get a hash with zie info they may/may not need.
-  # All up to the caller what they want to use.
-  #
-  return ("inet4" => $uip,
-          "netmask" => int2ip($netmask),
-          "broadcast" => int2ip($broadcast),
-          "cidr" => $ucidr,
-          "router" => int2ip($low+1),
-          "network" => int2ip($low),
-          "high" => int2ip($high),
-          "hostname" => $guessed_hostname,
-          );
-};
-
-#package Main; # future use
-
-foreach my $arg (@ARGV){
-  my %stuff = cidr2raw($arg);
-  printf("%s/%s is %s/%s\n%-12s\t%s\n%-12s\t%s\n%-12s\t%s\n%-12s\t%s\n%-12s\t%s\n",
-             $stuff{"inet4"},$stuff{"cidr"},
-             $stuff{"network"},$stuff{"cidr"},
-             "Netmask",$stuff{"netmask"},
-             "Broadcast",$stuff{"broadcast"},
-             "Network",$stuff{"network"},
-             "Router",$stuff{"router"},
-             "HighUsable",$stuff{"high"},
-      );
-};
-#+END_SRC
-
-** ~/bin/dns
-
-Just a silly dns script that slighly mimics the old host utility
-of yore. Can also do reverse lookups.
-
-Example:
-$ dns google.com
-google.com is 216.58.216.206
-google.com is also google.com
-$ dns 216.58.216.206
-ord31s21-in-f206.1e100.net is 216.58.216.206
-ord31s21-in-f206.1e100.net is also ord31s21-in-f206.1e100.net
-
-#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/dns :results replace :tangle-mode (identity #o755)
-#!/usr/bin/env perl
-#
-# Stupid script to help with dns information. Solaris 9/8 lack the host utility.
-# Which this (kinda) mimics, except the mx record crap
-use strict;
-use warnings;
-use Socket;
-use Sys::Hostname;
-
-my $input = shift || hostname();
-my $lookup = $input;
-
-if ( $lookup =~ /\d+[.]\d+[.]\d+[.]\d+/smx ) {
-  $lookup = ( gethostbyaddr inet_aton($lookup), AF_INET )[0];
-  die "Error: Unable to reverse lookup ip $input.\n" if ( $lookup eq q{} );
-}
-
-my $ipv4 = gethostbyname $lookup;
-
-die "Error: $lookup doesn't have any known ip addresses\n"
-  if ( !defined $ipv4 );
-
-$ipv4 = inet_ntoa($ipv4);
-
-my ( $short_name, $aliases, $addrtype, $len, @addrs ) = gethostbyname $lookup;
-
-foreach my $ipv4 (@addrs) {
-  $ipv4 = inet_ntoa($ipv4);
-  print "$lookup is $ipv4\n";
-}
-
-print "$lookup is also $short_name\n";
-if ( defined $aliases and "$aliases" ne q{} ) {
-  print "aliases are ($aliases)\n";
-}
-exit 0;
-#+END_SRC
-
-** ~/bin/ts
-
-Stupid simple timestamp script that just takes input, and prefixes a timestamp to to output. Thats it.
-
-#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/ts :results replace :tangle-mode (identity #o755)
-#!/usr/bin/env perl
-#
-# Timestamp stdin and then print to stdout and flush.
-#
-# Thats about it. Might add a quick and dirty option to allow you to
-# specify the time output whatnot. But this is intended to be simple.
-use strict;
-use warnings;
-use POSIX qw(strftime);
-use IO::Handle;
-STDOUT->autoflush(1);
-
-while(<STDIN>){
-  my $now       = time;
-  my $tz        = strftime(('%z', (localtime $now)));
-  $tz =~ s/(\d{2})(\d{2})/$1:$2/smx;
-  my $time = strftime('%Y-%m-%dT%H:%M:%S', (localtime $now));
-  print "$time$tz ".$_;
-};
-#+END_SRC
-
-** ~/bin/diskhog
-
-Old script I wrote after I had to figure out where space was used and it was mostly all in a directory with a ton of small files.
-
-Written in anger. Not all that useful nominally.
-
-Defaults to /tmp if you don't specify where, also defaults to the top 10 offenders/users of space.
-
-Its not particuarly bright, or even good code. If you want ALL THE THINGS, pass -n -1 in and you will get a ton of output. Good luck with that.
-
-Example:
-$ diskhog
-1.79m    /private/tmp
-1.38m    /private/tmp/wifi-Ea5Y9F.log
-420.57k  /private/tmp/sysp.xml
-161.17k  /private/tmp/KSOutOfProcessFetcher.12572.ppfIhqX0vjaTSb8AJYobDV7Cu68=/ksfetch
-161.17k  /private/tmp/KSOutOfProcessFetcher.12572.ppfIhqX0vjaTSb8AJYobDV7Cu68=
-0.00k    /private/tmp/com.apple.launchd.yaVsd6J1re
-0.00k    /private/tmp/cvcd
-0.00k    /private/tmp/com.apple.launchd.IPS1lPqGTD
-0.00k    /private/tmp/com.apple.launchd.voZH6WFol3
-0.00k    /private/tmp/ct.shutdown
-$ diskhog -n 4 /tmp
-1.79m    /private/tmp
-1.38m    /private/tmp/wifi-Ea5Y9F.log
-420.57k  /private/tmp/sysp.xml
-161.17k  /private/tmp/KSOutOfProcessFetcher.12572.ppfIhqX0vjaTSb8AJYobDV7Cu68=
-
-#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/diskhog :results replace :tangle-mode (identity #o755)
-#!/usr/bin/env perl
-#
-# Find out who is hogging disk space and where.
-#
-# Argument is the directory to start from. Only calculates size of files.
-# Adds the size of files in a directory to the size of the parent directory only.
-#
-# Defaults to top 10 directories/files.
-#
-# Override with -n num to list whatever amount of large things you desire.
-# Or if you want to abuse the parser, use -1 for all files/directories.
-#
-# Defaults to pwd for space.
-#
-
-use File::Find;
-use Getopt::Long;
-use Cwd;
-
-my $debug;
-my $statbug;
-(exists($ENV{"DEBUG"})) ? $debug++ : undef;
-my $dir = Cwd::abs_path($ARGV[-1] || Cwd::getcwd());
-my %diskhogs = ();
-my %inodes = ();
-my ($topdev,undef,undef,undef,undef,undef,undef,undef) = lstat($dir);
-local $opt_displaynum = 10;
-
-GetOptions( 'n=i',  => \$opt_displaynum,
-      );
-
-find(\&sieve, $dir);
-
-#
-# For outputing the size of a bunch of bytes in g/m/k depending upon the size
-#
-sub byte_print {
-  my $byte_k = 1_024;
-  my $byte_m = $byte_k**2;
-  my $byte_g = $byte_k**3;
-  my $bytes = pop;
-  my $base = $bytes;
-  my $suffix = "nil";
-  my $out_string = "BUG";
-  if($bytes > $byte_g){
-    $base = $bytes / $byte_g;
-    $suffix = "g";
-  }elsif($bytes > $byte_m){
-    $base = $bytes / $byte_m;
-    $suffix = "m";
-  }else{
-    $base = $bytes / $byte_k;
-    $suffix = "k";
-  };
-  $out_string = sprintf("%.2f%s", $base, $suffix);
-  return $out_string;
-};
-
-#
-# Dumb function to return if an inode has already been seen.
-# So we handle hard links sane(er-ish-ly) in size calculations.
-# This has more truthiness(tm).
-#
-sub seeninode{
-  my $what = pop();
-  my $ret = 0;
-  unless(exists($inodes{$what})){
-    $inodes{$what} = 0;
-    print "New inode $what added to seen inodes.\n" if $debug;
-  }else{
-    $inodes{$what}++;
-    $ret++;
-    print "Found a hardlink for $what.\n" if $debug;
-  };
-  return $ret;
-};
-
-sub sieve {
-  my $file = $File::Find::name;
-  my $filedir = $File::Find::dir;
-  my @statinfo = lstat($file);
-  my $dev = $statinfo[0];
-  my $inode = $statinfo[1];
-  my $size = $statinfo[7];
-  my $blocksize = 512; # field 11 is the "preferred" block size, which appears
-                       # to not match the actual blocksize of the filesystems
-                       # in use. For now every hard drive uses 512bytes/block.
-                       # Will revisit this when 4096byte/block hard drives arrive
-  my $apparentsize = $statinfo[12] * $blocksize;
-
-  print "$file\@$filedir \<$topdev\>\=\<$dev\>\n" if $debug;
-  print "size,apparentsize,blocksize = <$statinfo[7],$apparentsize\,$blocksize\>\n" if $debug;
-  #
-  # Try to handle sparse files.
-  #
-  if ($size > $apparentsize) {
-    print "Sparse file $file!\n" if $debug;
-    $size = $apparentsize;
-  };
-
-  $dev = (-l $file) ? 0xdeadbeef : $dev;
-  if (($file =~ m/\/proc|\/chroot|udev\/devices/) ||
-      ($dev != $topdev) || seeninode($inode)){
-    print "Pruned $file.\n" if $debug;
-    $File::Find::prune = 1;
-    next;
-  };
-  unless ($dev){
-    # Yay, we can't l(stat) files. This version of perl is broken.
-    # Snag information from ls, assume it's a file. Thanks Solaris 8, you suck.
-    $statbug++;
-    warn "Hit empty device statbug while stat()ing file <$file>.\n";
-    my $ls = qx(ls -ld $file);
-    my @raw = split(/\s+/, $ls);
-    $diskhogs{"$file"} = $raw[4];
-    $diskhogs{"$filedir"} += $raw[4];
-  }elsif (-f){
-    if ($debug){
-      print "Adding $file size ", &byte_print($size), " to $filedir.\n";
-      print "Adding $file size ", &byte_print($size), "\n";
-    };
-    $diskhogs{"$file"} = $size;
-    $diskhogs{"$filedir"} += $size;
-  }elsif (-d){
-    print "Adding $file size ".&byte_print($size)."\n" if $debug;
-    $diskhogs{"$file"} += $size;
-  };
-  if ($debug) {
-    print "$file from $filedir has size ".&byte_print($diskhogs{"$file"})."\n";
-  };
-};
-
-#
-# Reverse sort the keys by size.
-#
-my @sorted = sort {$diskhogs{$b} <=> $diskhogs{$a}} keys %diskhogs;
-
-splice @sorted, $opt_displaynum if @sorted > $opt_displaynum;
-
-warn "Found one or more instances of the stat() call statbug. This is normally only present on Solaris 8 with stock perl.\n" if $statbug;
-
-foreach (@sorted){
-  printf "%-9s%s\n", &byte_print($diskhogs{$_}), $_;
-};
-
-if ($debug){
-  print "DEBUG INFORMATION:\n";
-  foreach (keys %diskhogs){
-    printf "%-9s%s\n", &byte_print($diskhogs{$_}), $_;
-  };
-};
-#+END_SRC
-** ~/bin/ifinfo
-
-I don't remember now why I wrote this but its just a simpler view
-of interfaces on a system.
-
-Probably some old solaris holdover thing I can nuke.
-
-Example:
-$ ifinfo
-gif0@1280        127.0.0.1/8        a:b:c:d:e:f
-en1@1500         10.1.10.15/24      a:b:c:d:e:f
-bridge100@1500   192.168.64.1/24    a:b:c:d:e:f
-
-Comes in slightly handy, no guarantees it parses ifconfig right tho.
-
-#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/ifinfo :results replace :tangle-mode (identity #o755)
-#!/usr/bin/env perl
-#
-# Because ifconfig output is... overly verbose.
-#
-# Output information from ifconfig -a like so:
-#   interface:mtu ipv4/cidr mac_address ipv6_addr(if applicable)
-#   ipv6 is not yet in place due to a: lazy, b: can't use it yet.
-#
-
-use strict;
-use Socket;
-use Sys::Hostname;
-$ENV{'PATH'}='/sbin:/usr/sbin:/bin:/usr/bin';
-
-my ($fqdn_regexp) = qr/([0-9,a-z,A-Z,\-,\_]+)\.([0-9,a-z,A-Z,\-,\_]+)\.(com|gov)/;
-
-#
-# converts a 1-word (4 byte) signed or unsigned integer into a dotted decimal
-# ip address.
-#
-sub int2ip {
-  my $n=int(pop);
-  return(sprintf("%d.%d.%d.%d", ($n>>24)&0xff,($n>>16)&0xff,
-    ($n>>8)&0xff,$n&0xff));
-};
-
-#
-# Convert a host/ip/netmask/cidr/etc.... to a hash of information
-# Example: host.domain.tld/24 will get the ip and calculate the netmask info
-#  equally if host.domain.tld corresponds with 1.2.3.4 the following is valid
-#  1.2.3.4/255.255.255.0 would obtain the same information.
-#
-# die()'s if anything isn't kosher.
-#
-# Ultra long function, probably needs to be looked at for condensing/splitting.
-#
-sub cidr2raw {
-  my $rawinput = pop;
-  my ($lhs, $rhs, $j, $uip) = (undef, undef, undef, undef);
-  my ($ucidr) = 0;
-  my ($network, $bits, $netmask, $broadcast, $low, $high);
-
-  if ($rawinput =~ qr/(.*)\/(.*)/){
-      $lhs = $1; $rhs = $2;
-  }else{
-    die "Input: $rawinput not expected.\n";
-  };
-
-  #
-  # Handle ip/hostname for left hand side.
-  if ($lhs =~ qr/(\d+)\.(\d+)\.(\d+)\.(\d+)/){
-    foreach my $dotted (($1,$2,$3,$4)){
-      if (($dotted > 255) or ($dotted < 0)){
-        die "FATAL: ipv4 address entered, $lhs entered is impossible, $dotted is not between 0-255.\n";
-      };
-    };
-    $uip = "$1.$2.$3.$4";
-  };
-  #
-  # Handle the netmask/cidr for the right hand side,
-  #
-  # All input netmasks are converted to a cidr address for notation
-  if ($rhs =~ qr/^(\d+)$/){ # /cidr
-    $ucidr = $1;
-    die "FATAL: Invalid CIDR <$ucidr>.$!\n" if (($ucidr > 32) or ($ucidr < 0));
-  }elsif ($rhs =~ qr/(0[xX])?([0-9,a-f,A-F]{7})/){ # /0xhexnetmask
-    my $trimmed = $2;
-    my $insane = 0;
-    foreach my $byte (split('', unpack("B32", pack("H*", $trimmed)))){
-      ($byte) ? $ucidr++ : $insane++;
-      die "FATAL: $rhs is not a valid hex netmask.$!\n" if ($insane and $byte);
-    };
-  }elsif ($rhs =~ qr/(\d+)\.(\d+)\.(\d+)\.(\d+)/){ # /255.255.255.0 form
-    my @a = ($1, $2, $3, $4);
-    my $insane = 0;
-    foreach my $t (@a){
-      die "FATAL: Netmask out of range. Input <$rhs> Invalid <$t>$!\n" if (($t < 0) or ($t > 255));
-    };
-    foreach my $byte (split('', unpack("B32", pack("C4", @a)))){
-      ($byte) ? $ucidr++ : $insane++;
-      die "FATAL: $rhs is not a valid netmask.$!\n" if ($insane and $byte);
-    };
-  }else{
-    die "FATAL: Unknown or invalid netmask value entered. <$rhs>\n";
-  };
-
-  #
-  # Network math GO! This is the meat of the function.
-  my (@uip) = split(/\./, $uip);
-  $network = 0;
-  for ($j = 0; $j <= $#uip; $j++){
-    $network += int($uip[$j])<<((3-$j)*8);
-  };
-
-  $bits = 0; $j = 0;
-  for ($j = 31 - $ucidr; $j >= 0; $j--){
-    $bits |= 1<<$j;
-  };
-
-  $netmask = 0xffffffff^$bits;
-  $low = ($network&$netmask);
-  $high = ($network&$netmask)+$bits-1;
-  $broadcast = ($network&$netmask)|$bits;
-
-  #
-  # Throw the info back, they get a hash with zie info they may/may not need.
-  # All up to the caller what they want to use.
-  #
-  return ("inet4" => $uip,
-          "netmask" => int2ip($netmask),
-          "broadcast" => int2ip($broadcast),
-          "cidr" => $ucidr,
-          "router" => int2ip($low+1),
-          "network" => int2ip($low),
-          "high" => int2ip($high),
-          );
-};
-
-my @ifout;
-if ($ENV{'TESTING'} ne '') {
-    while(<>){
-        chomp($_);
-        last if ($_ eq '');
-        push(@ifout, $_);
-#        sleep 1;
-#        print STDERR $_ . "\n";
-    }
-}else{
-    open IFCONFIG, "ifconfig -a |";
-    @ifout = <IFCONFIG>;
-    close IFCONFIG;
-}
-
-# This seems wrong but it makes parsing easier due to solaris
-# non root ifconfig not displaying the mac address. Reverse the output.
-#
-@ifout = reverse(@ifout);
-
-my @output = ();
-
-my ($ifname, $ifether, $ifmtu, $ifipv4, $ifnetmask, $ifipv6) = (undef,undef,undef,undef,undef,undef);
-sub printiface{
-  # assume a /32 if we don't know it
-  unless (defined($ifnetmask)) {
-    warn "$ifname has indeterminant netmask assuming /32\n";
-    $ifnetmask = '32';
-  }
-
-  unless (defined($ifnetmask)) {
-    $ifether = 'unknown';
-  }
-
-  unless ($ifname =~ m/lo.*/){
-    my %netinfo = cidr2raw("$ifipv4\/$ifnetmask");
-    $ifnetmask = $netinfo{"cidr"};
-    $ifether = lc($ifether);
-    my $line = sprintf "%-16s %-18s %-17s\n", "$ifname\@$ifmtu", "$ifipv4\/$ifnetmask", $ifether;
-    push @output, $line;
-  }
-
-  # reset vars
-  ($ifname, $ifether, $ifmtu, $ifipv4, $ifnetmask, $ifipv6) = (undef,undef,undef,undef,undef,undef);
-};
-
-foreach my $line (@ifout) {
-  if ($line =~ /inet\s+(\d+[.]\d+[.]\d+[.]\d+)\s+/){
-    $ifipv4 = $1;
-  }
-  if ($line =~ m/ether\s([:,0-9,a-f,A-F]{11,})/){
-    $ifether =$1;
-  }
-  if ($line =~ m/^([\w,\:\d+]+)\s+.*HWaddr\s([:,0-9,a-f,A-F]{11,})/){
-    $ifname = $1;
-    $ifether = $2;
-  }
-  if ($line =~ m/^(.*)\:\s+.*mtu\s(\d+)/){
-    $ifname = $1;
-    $ifmtu = $2;
-  }
-  if ($line =~ m/MTU[:](\d+)/){
-    $ifmtu = $1;
-  }
-  if ($line =~ m/inet\saddr\:(\d+[.]\d+[.]\d+[.]\d+)/){
-    $ifipv4 = $1;
-  }
-  if ($line =~ m/netmask\s+(0[xX])?([a-f,A-F,0-9]{8})/){
-    $ifnetmask = $2;
-  }
-  if ($line =~ m/Mask[:](\d+\.\d+\.\d+\.\d+)/){
-    $ifnetmask = $1;
-  }
-  if ($line =~ m/netmask\s+(\d+[.]\d+[.]\d+[.]\d+)/){
-    $ifnetmask = $1;
-  }
-  if ($line =~ m/netmask\s+0\s+broadcast/){
-    $ifnetmask = '0';
-  }
-
-  print ":$ifether:$ifname:$ifmtu:$ifipv4:$ifnetmask:$ifipv6:\n" if ($ENV{'DEBUG'} ne '');
-  printiface() if ($ifname and $ifmtu and $ifipv4 );
-};
-
-if (scalar(@output) < 1){
-  warn "No interfaces? Scripts busted yo.\n";
-}else{
-  foreach my $line (reverse(@output)){
-    print $line;
-  }
-}
-#+END_SRC
-** ~/bin/iso8601
-
-Mostly because I use iso8601 timestamps and its nice to use them
-generally without depending on gnu date.
-
-#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/iso8601 :results replace :tangle-mode (identity #o755)
-#!/usr/bin/env perl
-#-*-mode: Perl; coding: utf-8;-*-
-use strict;
-use warnings;
-use POSIX qw(strftime);
-
-my $now       = time;
-my $tz        = strftime(('%z', (localtime $now)));
-$tz =~ s/(\d{2})(\d{2})/$1:$2/smx;
-my $time = strftime('%Y-%m-%dT%H:%M:%S', (localtime $now));
-print "$time$tz\n";
-exit 0;
-#+END_SRC
-** ~/bin/whoson
-
-Basically getent passwd $username/$uid to show who is on a system.
-
-#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/whoson :results replace :tangle-mode (identity #o755)
-#!/usr/bin/env perl
-#
-# Because i'm lazy and sick of typing in getent passwd $someusername/uid
-#
-
-my %who_cmds = ("solaris", "/bin/who -q",
-                "linux", "/usr/bin/who -q",
-                "darwin", "/usr/bin/who -q",
-               );
-
-my $who_cmd = $who_cmds{$^O};
-
-local %users = ();
-
-foreach my $l (qx/$who_cmd/){
-  next if($l =~ m/^\#.*/);
-  foreach my $user (split(/\s+/,$l)){
-    unless(exists($users{$user})){
-      $users{$user} = 0;
-    }else{
-      $users{$user}++;
-    };
-  };
-};
-
-foreach my $user (keys %users){
-  my $gecos = ( getpwnam($user) )[6];
-  my $count = $users{$user} + 1;
-  my $output = "$user\, ".((defined($gecos)) ? "$gecos, " : '')."is logged in on $count tty".(($count>1) ? "\'s" : '')."\n";
-  print $output;
-};
-#+END_SRC
-** ~/bin/gecos
-
-Silly wrapper perl script that makes it easier to get at the gecos string for a $user/$uid.
-
-#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/gecos :results replace :tangle-mode (identity #o755)
-#!/usr/bin/env perl
-#
-# Dumb wrapper to get the gecos information from a uid/username.
-
-foreach my $input (@ARGV){
-  my $gecos = undef;
-  my $uid = undef;
-  my $name = undef;
-  if ( $input =~ m/^\d+$/ ) {
-    ( $name,$uid,$gecos ) = ( getpwuid($input) )[0,2,6];
-  } else {
-    ( $name,$uid,$gecos ) = ( getpwnam($input) )[0,2,6];
-  }
-  print "$name is '$gecos' uid '$uid'\n" if $gecos;
-}
-#+END_SRC
-
-** ~/bin/hatimerun
-
-Stupid perl script to mimic hatimerun for systems that don't have it.
-
-#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/hatimerun :results replace :tangle-mode (identity #o755)
-#!/usr/bin/env perl
-#
-# hatimerun in perl, sorta
-#
-use Getopt::Long;
-
-my $opt_exitcode = 99;
-my $opt_killcode = 9;
-my $opt_timeout = 60;
-
-GetOptions( 'e=i' => \$opt_exitcode,
-            'k=i' => \$opt_killcode,
-            't=i' => \$opt_timeout,
-            'h' => \&opt_help,
-            'help' => \&opt_help,
-);
-
-sub opt_help{
-  my $message = <<__END__;
-UX: ERROR: invalid syntax
-usage: [-e return code][-k kill signal][-t seconds to wait]
-       [-h][--help]
-
-  Options
-      --help, -h     Prints this help text.
-      -e             Exit code to return on timeout.
-                     NOTE: 99 by default.
-      -k             Signal number to send via kill.
-                     NOTE: 9 by default.
-      -t             Timeout in seconds before alarming.
-                     NOTE: 60 by default.
-
-__END__
-  print $message;
-  exit 1;
-};
-
-my $pid;
-
-local $SIG{ALRM} = sub { kill $opt_killcode, $pid or die "Kill failed: $!";
-                         die "Timeout!\n"};
-
-eval{
-  my $x = defined($pid = fork());
-
-  unless ($pid){
-    print qx(@ARGV);
-    die "Exec of ", join(' ', @ARGV), " failed at $!\n";
-  };
-
-  alarm $opt_timeout;
-  waitpid $pid => 0;
-  alarm 0;
-  exit 0;
-};
-
-if ($@){
-  die "Nothing to do!\n" unless $@ eq "Timeout!\n";
-  exit $opt_exitcode;
-}else{
-  exit 0;
-};
-#+END_SRC
-
-** ~/bin/ptree.pl
-
-Silly perl based ptree alike implementation. Mad old code that should be avoided at all costs but it works and I'm not fixing it unless I need to.
-
-#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/ptree.pl :results replace :tangle-mode (identity #o755)
-#!/usr/bin/env perl
-#
-# ptree for linux/darwin/solaris. I got sick of ps and pstree on linux.
-# ptree works on solaris fine, but doesn't exist for darwin/linux/etc...
-#
-# TODO: Allow passing a regexp instead of a pid and passing multiple pids.
-#
-
-local $ENV{"PATH"} = '/bin:/usr/bin:/sbin:/usr/sbin';
-local $debug = 0;
-
-(exists($ENV{"DEBUG"})) ? $debug = 1 : undef;
-($debug) ? local $| = 1 : undef; # disable buffering for STDERR and STDOUT
-
-sub debug_print {
-  ($debug) && warn pop;
-};
-
-local @cmd = ('/bin/ps');
-local $init = 0;
-local $start = 1;
-
-if ($^O eq "linux"){
-  push(@cmd, 'ajxSw');
-  $start = 0;
-}elsif ($^O =~ m/darwin|freebsd/){
-  push(@cmd, 'Ajwww');
-}elsif ($^O eq "solaris"){
-  @cmd = ('/usr/ucb/ps');
-  if ((-x "/bin/zonename") && !(qx(zonename) eq "global\n")){
-    $init = qx(pgrep zsched);
-    chomp($init);
-    $start = $init;
-  };
-  push(@cmd, 'laxwww');
-}else{
-  die "$^O isn't a known os to this script\n";
-};
-
-local @ps = qx(@cmd);
-($?) ? die $cmd[0]." posix return code $?\n" : undef;
-
-local %proc;
-local @trail;
-
-(defined($ARGV[0])) ? $start = $ARGV[0] : undef;
-
-debug_print("Dump of raw line array data:\n");
-
-foreach my $x (@ps){
-  my $cmd_index = 9;
-  my $ppid = -1;
-  my $pid = -1;
-  next if ($x =~ m/.*PID.*/);
-  my @line = split(m/\s+/,$x);
-  splice(@line, 0, 1) unless ($line[0] =~ m/\d+/);
-  splice(@line, 0, 1) if ("$line[0]" eq "");
-
-  if ($^O eq "linux"){
-    ($ppid,$pid) = @line;
-    $cmd_index = 9;
-  }elsif ($^O =~ m/darwin|freebsd/){
-    ($pid,$ppid) = @line;
-    $cmd_index = 8;
-  }elsif ($^O eq "solaris"){
-    (undef, undef, $pid,$ppid) = @line;
-    for($x=$cmd_index; $x < 14; $x++){
-      $cmd_index = ($line[$x] =~ m/\d+\:\d+/) ? ($x + 1) : $cmd_index;
-    };
-  };
-
-  my $command = join(' ', @line[$cmd_index..$#line++]);
-  (!defined $proc{$pid}) ? $proc{$pid}->{"children"} = [ ] : undef;
-  (!defined $proc{$ppid}) ? $proc{$ppid}->{"children"} = [ ] : undef;
-  $proc{$pid}->{"pid"} = $pid;
-  $proc{$pid}->{"command"} = $command;
-  $proc{$pid}->{"ppid"} = $ppid;
-  push(@{$proc{$ppid}->{"children"}},$pid);
-  debug_print(join(',', @line[0..($#line-1)])."\n");
-};
-
-if ($debug){
-  debug_print("Done reading ps output\nDump of Hash\n");
-  foreach my $key (sort({$a <=> $b} (keys %proc))){
-    $ppid = $proc{$key}->{"ppid"};
-    $command = $proc{$key}->{"command"};
-    $children = join(',', @{$proc{$key}->{"children"}});
-    debug_print("PID<$key> PPID<$ppid> Children<$children> Command<$command>\n");
-  };
-};
-
-sub intrail{
-  my $crumb = pop;
-  my $ret = 0;
-  map {$ret++ if ($crumb == $_)} @trail;
-  return $ret;
-};
-
-sub addchildren{
-  my $start_node = pop;
-  foreach my $child (@{$proc{$start_node}->{"children"}}){
-    next if (!defined($child) || ($start_node == $child));
-    debug_print("Start ($start_node) Add child $child.\n");
-    push(@trail, $child);
-    addchildren($child);
-  };
-};
-
-sub addparents{
-  my $start_node = pop;
-  my $parent = $proc{$start_node}->{"ppid"};
-  return unless (defined($start_node));
-  return if (($parent == $start_node) || !(defined($parent))); # At the top of the tree, or in a zone
-  debug_print("Start ($start_node) Add parent $parent.\n");
-  push(@trail, $parent);
-  addparents($parent) if ($parent != $init);
-};
-
-sub printnode{
-  my $start_node = pop;
-  my $indent = pop;
-  if (intrail($start_node)){
-    my $pid = $proc{$start_node}->{"pid"};
-    my $ppid = $proc{$start_node}->{"ppid"};
-    my $cmdline = $proc{$start_node}->{"command"};
-    my $indentation = '  'x($indent);
-    if ($pid == $init){
-      my $s = $^O." kernel";
-      if ($cmdline ne ''){
-        $s = $s." <$cmdline>";
-      };
-      $cmdline = $s;
-    };
-    printf("%s%d   %s\n", $indentation, $pid, $cmdline);
-    foreach my $child (@{$proc{$start_node}->{"children"}}){
-      next if ($pid == $child);
-      printnode($indent+1,$child);
-    };
-  };
-};
-
-my $valid = 0;
-foreach my $j (keys %proc){ ($j == $start) ? $valid++ : undef; };
-
-debug_print("Starting from <$start>, validity is<$valid>\n");
-
-if ($valid){
-  if (!$start){
-    @trail = keys %proc;
-    push(@trail, $start); push(@trail, 1);
-    debug_print("Done with adding $start to trail.\n");
-  }else{
-    push(@trail, $start);
-    debug_print("Adding children from $start.\n");
-    addchildren($start);
-    debug_print("Adding parents from $start.\n");
-    addparents($start);
-  };
-
-  @trail = sort(@trail);
-
-  debug_print("Trail is: ".join(',', @trail)."\nStarting at pid $start\ninit pid $init\n");
-  print "PID COMMAND\n";
-  my $startindent = 0;
-  (intrail($startindent)) ? $startindent = -1 : undef;
-  printnode($startindent,$init);
-}else{
-  die "pid $start doesn't exist.\n";
-};
-
-exit 0;
-#+END_SRC
-
-** ~/bin/portchk
-
-Just find out if a port responds to anything tcp related or not.
-
-#+BEGIN_SRC perl :mkdirp yes :tangle tmp/bin/portchk :results replace :tangle-mode (identity #o755)
-#!/usr/bin/env perl
-#
-# Dumb wrapper to get the gecos information from a uid/username.
-
-foreach my $input (@ARGV){
-  my $gecos = undef;
-  my $uid = undef;
-  my $name = undef;
-  if ( $input =~ m/^\d+$/ ) {
-    ( $name,$uid,$gecos ) = ( getpwuid($input) )[0,2,6];
-  } else {
-    ( $name,$uid,$gecos ) = ( getpwnam($input) )[0,2,6];
-  }
-  print "$name is '$gecos' uid '$uid'\n" if $gecos;
-}
-#+END_SRC
-
-** ~/bin/notify
-
-OSX only really, just fires off a notification when its ran.
-
-Example:
-notify "some command" "not ok"
-
-First param is the message, second title of the notification.
-
-#+BEGIN_SRC sh :mkdirp yes :tangle (when (eq osx-p t) "tmp/bin/notify") :results replace :tangle-mode (identity #o755)
-#!/bin/sh
-message=${1:="no message"}
-title=''
-if [ "${2}" != "" ]; then
-  message="${2}"
-  title="${1}"
-fi
-notification="display notification \"${message}\""
-[ "${title}" != "" ] && notification="${notification} with title \"${title}\""
-
-osascript -e "${notification}"
-#+END_SRC
-
-** ~/bin/today
-
-Stupid ruby script I wrote to highlight the week/day in a calendar.
-
-#+BEGIN_SRC ruby :mkdirp yes :tangle tmp/bin/today :results replace :tangle-mode (identity #o755)
-#!/usr/bin/env ruby
-cal, today, week_color, day_color, reset = %x(cal).split(%r(\n)), Time.now.day, %x(tput sgr0;tput setab 4;tput setaf 7), %x(tput sgr0; tput setab 0;tput setaf 7;tput bold), %x(tput sgr0)
-done=false
-cal.each do |line|
-  if done then
-    puts line
-    next
-  end
-  if(line =~ /^(.*\s+?)#{today}(\s+?.*)$/ or
-     line =~ /^(.*\s+?)#{today}$/ or
-     line =~ /^()#{today}(\s+?.*)$/ or
-     line =~ /^#{today}$/ ) then
-    puts "#{week_color}#{$1}#{day_color}#{today}#{week_color}#{$2}#{reset}"
-    done=true
-  else
-    puts line
-  end
-end
-#+END_SRC
-* zsh
-** ~/.zprofile
-
-Make sure that zsh sources ~/.profile correctly on login.
-
-#+BEGIN_SRC sh :tangle tmp/.zprofile :results replace
-emulate sh
-source ~/.profile
-emulate zsh
-
-# zsh does this differently
-login_shell()
-{
-  [[ -o login ]]
-}
-#+END_SRC
-
-** ~/.zshrc
-
-Zsh configuration, its not too crazy... I think. Don't judge me.
-
-#+BEGIN_SRC sh :tangle tmp/.zshrc :results replace
-#-*-mode: Shell-script; coding: utf-8;-*-
-# zsh specific global aliases
-alias -g silent="> /dev/null 2>&1"
-alias -g noerr="2> /dev/null"
-alias -g stdboth="2>&1"
-
-# mainly for firefox, because it can suck up the cycles, but not when
-# in a SIGSTOP state you can't use any power then firefox.
-alias -g sigcont='kill -CONT '
-alias -g sigstop='kill -STOP '
-
-# Keybindings, what few there are.
-bindkey -v
-bindkey '^P' push-line # Saves the current line and returns to it afterwards.
-
-# General history options
-export HISTSIZE=5000
-export SAVEHIST=${HISTSIZE}
-export HISTFILE=~/.zsh_history
-
-# I like my options
-setopt append_history
-setopt extended_history
-setopt hist_reduce_blanks
-setopt hist_no_store
-setopt hist_ignore_dups
-setopt histignorespace
-setopt no_hist_beep
-setopt no_list_beep
-setopt share_history
-setopt inc_append_history
-setopt auto_menu
-setopt bash_auto_list
-
-# Options that don't need to be set.
-unsetopt bad_pattern # No, don't warn me on bad file patterns kthxbai.
-
-# The rest of the story (tm) (c) (r) in option settings.
-setopt equals
-setopt notify
-setopt auto_cd
-setopt glob_dots
-setopt print_exit_value # I love you zsh for this, print out non zero exits.
-
-other_term()
-{
-  case $TERM in
-  *xterm*|*rxvt*|(dt|k|e)term)
-    print -Pn "\e]2;%~\a"
-    ;;
-  sun-cmd)
-    print -Pn "\e]l%~\e\\"
-    ;;
-  *)
-    ;;
-  esac
-}
-
-chpwd()
-{
-  [[ -o interactive ]] || return
-  case $TERM in
-  eterm-color) # getting emacs terminal to not be annoying... sucks
-    print -Pn ""
-    ;;
-  *)
-    if [[ $SSH_TTY != '' ]]; then
-      case $ORIG_TERM in
-      eterm-color)
-        print -Pn ""
-        ;;
-      *)
-        other_term
-        ;;
-      esac
-    fi
-    ;;
-  esac
-}
-
-# Needs to be reviewed a bit.
-zstyle ':completion:*' squeeze-slashes true
-zstyle ':completion:*' list-colors ${(s.:.)LS_COLORS}
-zstyle ':completion:*:*:kill:*:processes' list-colors '=(#b) #([0-9]#)*=0=01;31'
-zstyle ':completion:*:*:*:*:processes' force-list always
-
-# No need to setup ssh known host parsing as root, just regular users.
-# This is pretty old using compctl, need to update eventually.
-
-if [[ "$LOGNAME" != "root" ]]; then
-    zmodload zsh/mathfunc
-    if [[ -f "$HOME/.ssh/known_hosts" ]]; then
-        hosts=(${${${${(f)"$(<$HOME/.ssh/known_hosts)"}:#[0-9]*}%%\ *}%%,*})
-        zstyle ':completion:*:(ssh|scp|cssh):*' hosts $hosts
-        zstyle ':completion:*:*:*:hosts-host' ignored-patterns '|1|*' loopback localhost
-    fi
-    zstyle ':completion:::complete*' use-cache 1
-
-    # This really should be closer to the definition of extract.
-    compctl -g '*.tar.bz2 *.tbz2 *.tbz *.tar.gz *.tgz *.bz2 *.gz *.jar *.zip *.rar *.tar *.Z *.tZ *.tar.Z' + -g '*(-/)' extract
-fi
-
-# More history options for newer zsh versions
-setopt share_history
-setopt hist_save_no_dups
-setopt hist_find_no_dups
-setopt hist_no_functions
-setopt hist_expire_dups_first
-
-bindkey ' ' magic-space # Complete spaces too dammit, i'm lazy.
-
-alias edirs='ls -d **/*(/^F)' # empty directories
-zstyle ':completion:*:*:kill:*' menu yes select
-zstyle ':completion:*:kill:*' force-list always
-zstyle ':completion:*:kill:*:processes' command "ps x"
-zstyle ':completion:*' menu select=2
-
-autoload -U compinit
-autoload -U colors && colors
-autoload -Uz vcs_info
-
-bindkey -e
-
-local userat="%{$fg[blue]%}%n%(!.%{$fg[red]%}.%{$fg[blue]%})%{$reset_color%}%B@%b%{$fg[blue]%}%m%b"
-local pwd="%B%~%b"
-local userchar="%(!.#.$)"
-
-zstyle ':vcs_info:*' enable git
-zstyle ':vcs_info:*' check-for-changes true
-setopt prompt_subst
-
-precmd()
-{
-    vcs_info
-}
-
-# +N/-N upstream info
-function +vi-git-st() {
-    local ahead behind
-    local -a gitstatus
-
-    ahead=$(git rev-list ${hook_com[branch]}@{upstream}..HEAD 2>/dev/null | wc -l | sed -e 's|^ *||g')
-    behind=$(git rev-list HEAD..${hook_com[branch]}@{upstream} 2>/dev/null | wc -l | sed -e 's|^ *||g')
-
-    (( $ahead )) && gitstatus+=( "+${ahead}" )
-    (( $behind )) && gitstatus+=( "-${behind}" )
-
-    hook_com[misc]+=${(j:/:)gitstatus}
-}
-
-# Untracked crap in the repo not covered by .gitignore?
-function +vi-git-untracked(){
-    if [[ $(git rev-parse --is-inside-work-tree 2> /dev/null) == 'true' ]] && \
-        git status --porcelain | grep '??' &> /dev/null ; then
-        hook_com[staged]+="%{$fg[red]%}N"
-    fi
-}
-
-local branch="%{$fg[green]%}%b%c%u%{$fg[green]%}%{$reset_color%}"
-zstyle ':vcs_info:*' formats "%m $branch"
-zstyle ':vcs_info:*' actionformats "%a $branch"
-zstyle ':vcs_info:*' stagedstr "%{$fg[blue]%}S"
-zstyle ':vcs_info:*' unstagedstr "%{$fg[blue]%}M"
-zstyle ':vcs_info:git*+set-message:*' hooks git-untracked git-st
-PROMPT="%(!.#.$) " # $ as a user # as root
-RPROMPT='${vcs_info_msg_0_} ${PWD/#$HOME/~}'
-#+END_SRC
-
-* vim
-** ~/.vimrc
-
-What remains of my days from being a vim user.
-
-#+BEGIN_SRC conf :tangle tmp/.vimrc :results replace
-set nocompatible
-set backspace=indent,eol,start
-set history=50 " keep 50 lines of command line history
-set ruler " show the cursor position all the time
-set showcmd " display incomplete commands
-set incsearch " do incremental searching
-map Q gq
-if &t_Co > 2 || has("gui_running")
-  syntax on
-  set hlsearch
-endif
-if has("autocmd")
-  filetype plugin indent on
-  augroup vimrcEx
-  au!
-  autocmd FileType text setlocal textwidth=78
-  autocmd BufReadPost *
-    \ if line("'\"") > 0 && line("'\"") <= line("$") |
-    \   exe "normal g`\"" |
-    \ endif
-
-  augroup END
-else
-  set autoindent " always set autoindenting on
-endif " has("autocmd")
-#+END_SRC
-
-* Language related
-** Haskell
-*** ~/.ghci
-
-Ghci setup, mostly just cosmetics.
-
-#+BEGIN_SRC haskell :tangle tmp/.ghci :results replace
-:l ~/.ghc.hs
-:set prompt "λ "
-:set +t
-#+END_SRC
-
-*** ~/.ghc.hs
-
-What to automatically have loaded into ghci sessions.
-
-#+BEGIN_SRC haskell :tangle tmp/.ghc.hs :results replace
-import Control.Applicative
-import Control.Monad
-import Data.Monoid
-import Data.Maybe
-import Data.List
-import Data.Bool
-import qualified Data.Set as S
-import qualified Data.Map as M
-#+END_SRC
-
-** Perl
-*** ~/.perlcriticrc
-
-What to complain about by default.
-
-#+BEGIN_SRC conf :tangle tmp/.perlcritirc :results replace
-# Show the severity level
-severity = 1
-
-# Basically show what profile is complaining
-verbose = %f:%l:%c: %m, %e (%p, severity %s)\n
-
-# Don't warn on these variables
-[Variables::ProhibitPunctuationVars]
-allow = $@ $!
-
-# Ignore syscall returns on print, it not actually returning is... whatever.
-[InputOutput::RequireCheckedSyscalls]
-exclude_functions = print say
-
-# Allow things like print qx(somecmd) in a void context to work, this is ok.
-[InputOutput::ProhibitBacktickOperators]
-only_in_void_context = 1
-
-# I actually like using unless... so don't piss me off whinging about it
-[-ControlStructures::ProhibitUnlessBlocks]
-
-# The following only apply to modules
-[-Modules::RequireVersionVar]
-[-ErrorHandling::RequireCarping]
-
-# Tabs suck, no
-[CodeLayout::ProhibitHardTabs]
-allow_leading_tabs = 0
-
-# For small regexes, no /x at the end is fine, 12 should be enough
-[RegularExpressions::RequireExtendedFormatting]
-minimum_regex_length_to_complain_about = 12
-
-# These are kosher kthxbai
-[ControlStructures::ProhibitPostfixControls]
-allow = for if until unless
-
-# For POE, we do things like my $foo = $_[HEAP]; and thats OK
-[Subroutines::RequireArgUnpacking]
-allow_subscripts = 1
-
-# For POD documentation, I don't care about required sections.
-[Documentation::RequirePodSections]
-lib_sections = NAME | SYNOPSIS | DESCRIPTION | AUTHOR | COPYRIGHT | SEE ALSO
-script_sections = NAME | SYNOPSIS | DESCRIPTION | AUTHOR | COPYRIGHT | SEE ALSO
-
-# This is for POD documentation mainly.
-[CodeLayout::ProhibitHardTabs]
-allow_leading_tabs = 1
-#+END_SRC
-
-*** ~/.perltidyrc
-
-Control how perltidy should clean things up.
-
-#+BEGIN_SRC conf :tangle tmp/.perltidyrc :results replace
-# cuddled elses pls
--ce
-# indent 2 spaces
--i=2
-# for tokens with things like arrays, start the data next line down one indent in
--lp
-# align closing tokens for things like arrays with the opening token
--cti=1
-# default, but spaces between multiple entries, none with one arg
--pt=1
-# line encoding
--ole=unix
-# braces not on new line
--nsbl
-# stack opening tokens, don't create a new line with one token, note no stacking of closing tokens
--sot
-# no space before ;'s in for loops
--nsfs
-# Make curly braces act more like the args param
--bbt=1
-# Trim qw whitespaces
--tqw
-#+END_SRC
-
-* Misc
-
-Stuff that logically doesn't fit elsewhere or in any other category.
-
-** ~/.dir_colors
-
-For BSD ps, make colors closer to what the GNU utilities produce by default.
-
-#+BEGIN_SRC conf :tangle tmp/.dir_colors :results replace
-COLOR tty
-
-TERM ansi
-TERM color-xterm
-TERM con132x25
-TERM con132x30
-TERM con132x43
-TERM con132x60
-TERM con80x25
-TERM con80x28
-TERM con80x30
-TERM con80x43
-TERM con80x50
-TERM con80x60
-TERM cons25
-TERM console
-TERM cygwin
-TERM dtterm
-TERM eterm-color
-TERM Eterm
-TERM gnome
-TERM konsole
-TERM kterm
-TERM linux
-TERM linux-c
-TERM mach-color
-TERM putty
-TERM rxvt
-TERM rxvt-cygwin
-TERM rxvt-cygwin-native
-TERM rxvt-unicode
-TERM screen
-TERM screen-bce
-TERM screen-w
-TERM screen.linux
-TERM vt100
-TERM xterm
-TERM xterm-256color
-TERM xterm-color
-TERM xterm-debian
-
-# Below are the color init strings for the basic file types. A color init
-# string consists of one or more of the following numeric codes:
-# Attribute codes:
-# 00=none 01=bold 04=underscore 05=blink 07=reverse 08=concealed
-# Text color codes:
-# 30=black 31=red 32=green 33=yellow 34=blue 35=magenta 36=cyan 37=white
-# Background color codes:
-# 40=black 41=red 42=green 43=yellow 44=blue 45=magenta 46=cyan 47=white
-NORMAL 00           # global default, although everything should be something.
-FILE 00             # normal file
-DIR 01;34           # directory
-LINK 01;36          # symbolic link.  (If you set this to 'target' instead of a
-                    # numerical value, the color will match the file pointed to)
-FIFO 40;33          # pipe
-SOCK 01;35          # socket
-DOOR 01;35          # door
-BLK 40;33;01        # block device driver
-CHR 40;33;01        # character device driver
-ORPHAN 01;05;37;41  # orphaned syminks
-MISSING 01;05;37;41 # ... and the files they point to
-
-# This is for files with execute permission:
-EXEC 01;32
-
-# List any file extensions like '.gz' or '.tar' that you would like ls
-# to colorize below. Put the extension, a space, and the color init string.
-# (and any comments you want to add after a '#')
-
-.cmd 01;32 # executables (bright green)
-.exe 01;32
-.com 01;32
-.btm 01;32
-.bat 01;32
-.sh  01;32
-.csh 01;32
-.ksh 01;32
-.zsh 01;32
-
-.tar 01;31 # archives / compressed (bright red)
-.tgz 01;31
-.arj 01;31
-.taz 01;31
-.lzh 01;31
-.zip 01;31
-.z   01;31
-.Z   01;31
-.gz  01;31
-.bz2 01;31
-.bz  01;31
-.tbz2 01;31
-.tz  01;31
-.deb 01;31
-.rpm 01;31
-.rar 01;31 # app-arch/rar
-.ace 01;31 # app-arch/unace
-.zoo 01;31 # app-arch/zoo
-.cpio 01;31 # app-arch/cpio
-.7z  01;31 # app-arch/p7zip
-.rz  01;31 # app-arch/rzip
-#+END_SRC
-
-** ~/.hushlogin
-
-Because who gives a rats when and where I last logged on from?
-
-#+BEGIN_SRC conf :tangle tmp/.hushlogin :results replace
-#+END_SRC
+Putting everything in readme.org was getting annoying. So started to split
+things apart. Org links to all the
+
+
+| name     | file           |
+|----------+----------------|
+| emacs    | [[file:emacs.org][emacs.org]]      |
+| tmux     | [[file:tmux.org][tmux.org]]       |
+| git      | [[file:git.org][git.org]]        |
+| x        | [[file:x.org][x.org]]          |
+| nix      | [[file:nix.org][nix.org]]        |
+| zsh      | [[file:zsh.org][zsh.org]]        |
+| vim      | [[file:vim.org][vim.org]]        |
+| misc     | [[file:misc.org][misc.org]]       |
+| .profile | [[file:dotprofile.org][dotprofile.org]] |
+| ~/bin    | [[file:bin.org][bin.org]]        |
+
+Language specific
+
+| name    | file        |
+|---------+-------------|
+| haskell | [[file:haskell.org][haskell.org]] |
+| perl    | [[file:perl.org][perl.org]]    |
+
+* TODO
+- [ ] Figure out some way to make code blocks editable with :tangle, it sucks not being able to edit blocks as they are.
+- [ ] Need to have some way to autocleanup old generations. Rm works for now so meh.
+- [ ] Need to add the ability to detect that make is generating a pointless new generation. Aka generation N and generation N-1 are the same, just leave N and don't increment.
+- [ ] Maybe checksum file contents somehow and use that?
+- [ ] More? For now its functional.
 
 * Reference for babel stuff
 
diff --git a/vim.org b/vim.org
new file mode 100644
index 0000000..7b8c3cf
--- /dev/null
+++ b/vim.org
@@ -0,0 +1,36 @@
+#+TITLE: Vim Configuration
+#+AUTHOR: Mitch Tishmack
+#+STARTUP: hidestars
+#+STARTUP: odd
+#+BABEL: :cache yes
+#+PROPERTY: header-args :cache yes :padline no :mkdirp yes :comments no :tangle tmp/.vimrc
+
+What remains of my days from being a vim user.
+
+#+BEGIN_SRC conf :tangle tmp/.vimrc :results replace
+set nocompatible
+set backspace=indent,eol,start
+set history=50 " keep 50 lines of command line history
+set ruler " show the cursor position all the time
+set showcmd " display incomplete commands
+set incsearch " do incremental searching
+map Q gq
+if &t_Co > 2 || has("gui_running")
+  syntax on
+  set hlsearch
+endif
+if has("autocmd")
+  filetype plugin indent on
+  augroup vimrcEx
+  au!
+  autocmd FileType text setlocal textwidth=78
+  autocmd BufReadPost *
+    \ if line("'\"") > 0 && line("'\"") <= line("$") |
+    \   exe "normal g`\"" |
+    \ endif
+
+  augroup END
+else
+  set autoindent " always set autoindenting on
+endif " has("autocmd")
+#+END_SRC
diff --git a/zsh.org b/zsh.org
new file mode 100644
index 0000000..ebfade7
--- /dev/null
+++ b/zsh.org
@@ -0,0 +1,197 @@
+#+TITLE: Zsh Configuration
+#+AUTHOR: Mitch Tishmack
+#+STARTUP: hidestars
+#+STARTUP: odd
+#+BABEL: :cache yes
+#+PROPERTY: header-args :cache yes :padline no :mkdirp yes :comments no
+
+~/.zshrc and ~/.zprofile setup. Nothing too special.
+
+* ~/.zprofile
+
+Make sure that zsh sources ~/.profile correctly on login.
+
+#+BEGIN_SRC sh :tangle tmp/.zprofile :results replace
+emulate sh
+source ~/.profile
+emulate zsh
+
+# zsh does this differently
+login_shell()
+{
+  [[ -o login ]]
+}
+#+END_SRC
+
+* ~/.zshrc
+
+Zsh configuration, its not too crazy... I think. Don't judge me.
+
+#+BEGIN_SRC sh :tangle tmp/.zshrc :results replace
+#-*-mode: Shell-script; coding: utf-8;-*-
+# zsh specific global aliases
+alias -g silent="> /dev/null 2>&1"
+alias -g noerr="2> /dev/null"
+alias -g stdboth="2>&1"
+
+# mainly for firefox, because it can suck up the cycles, but not when
+# in a SIGSTOP state you can't use any power then firefox.
+alias -g sigcont='kill -CONT '
+alias -g sigstop='kill -STOP '
+
+# Keybindings, what few there are.
+bindkey -v
+bindkey '^P' push-line # Saves the current line and returns to it afterwards.
+
+# General history options
+export HISTSIZE=5000
+export SAVEHIST=${HISTSIZE}
+export HISTFILE=~/.zsh_history
+
+# I like my options
+setopt append_history
+setopt extended_history
+setopt hist_reduce_blanks
+setopt hist_no_store
+setopt hist_ignore_dups
+setopt histignorespace
+setopt no_hist_beep
+setopt no_list_beep
+setopt share_history
+setopt inc_append_history
+setopt auto_menu
+setopt bash_auto_list
+
+# Options that don't need to be set.
+unsetopt bad_pattern # No, don't warn me on bad file patterns kthxbai.
+
+# The rest of the story (tm) (c) (r) in option settings.
+setopt equals
+setopt notify
+setopt auto_cd
+setopt glob_dots
+setopt print_exit_value # I love you zsh for this, print out non zero exits.
+
+other_term()
+{
+  case $TERM in
+  *xterm*|*rxvt*|(dt|k|e)term)
+    print -Pn "\e]2;%~\a"
+    ;;
+  sun-cmd)
+    print -Pn "\e]l%~\e\\"
+    ;;
+  *)
+    ;;
+  esac
+}
+
+chpwd()
+{
+  [[ -o interactive ]] || return
+  case $TERM in
+  eterm-color) # getting emacs terminal to not be annoying... sucks
+    print -Pn ""
+    ;;
+  *)
+    if [[ $SSH_TTY != '' ]]; then
+      case $ORIG_TERM in
+      eterm-color)
+        print -Pn ""
+        ;;
+      *)
+        other_term
+        ;;
+      esac
+    fi
+    ;;
+  esac
+}
+
+# Needs to be reviewed a bit.
+zstyle ':completion:*' squeeze-slashes true
+zstyle ':completion:*' list-colors ${(s.:.)LS_COLORS}
+zstyle ':completion:*:*:kill:*:processes' list-colors '=(#b) #([0-9]#)*=0=01;31'
+zstyle ':completion:*:*:*:*:processes' force-list always
+
+# No need to setup ssh known host parsing as root, just regular users.
+# This is pretty old using compctl, need to update eventually.
+
+if [[ "$LOGNAME" != "root" ]]; then
+    zmodload zsh/mathfunc
+    if [[ -f "$HOME/.ssh/known_hosts" ]]; then
+        hosts=(${${${${(f)"$(<$HOME/.ssh/known_hosts)"}:#[0-9]*}%%\ *}%%,*})
+        zstyle ':completion:*:(ssh|scp|cssh):*' hosts $hosts
+        zstyle ':completion:*:*:*:hosts-host' ignored-patterns '|1|*' loopback localhost
+    fi
+    zstyle ':completion:::complete*' use-cache 1
+
+    # This really should be closer to the definition of extract.
+    compctl -g '*.tar.bz2 *.tbz2 *.tbz *.tar.gz *.tgz *.bz2 *.gz *.jar *.zip *.rar *.tar *.Z *.tZ *.tar.Z' + -g '*(-/)' extract
+fi
+
+# More history options for newer zsh versions
+setopt share_history
+setopt hist_save_no_dups
+setopt hist_find_no_dups
+setopt hist_no_functions
+setopt hist_expire_dups_first
+
+bindkey ' ' magic-space # Complete spaces too dammit, i'm lazy.
+
+alias edirs='ls -d **/*(/^F)' # empty directories
+zstyle ':completion:*:*:kill:*' menu yes select
+zstyle ':completion:*:kill:*' force-list always
+zstyle ':completion:*:kill:*:processes' command "ps x"
+zstyle ':completion:*' menu select=2
+
+autoload -U compinit
+autoload -U colors && colors
+autoload -Uz vcs_info
+
+bindkey -e
+
+local userat="%{$fg[blue]%}%n%(!.%{$fg[red]%}.%{$fg[blue]%})%{$reset_color%}%B@%b%{$fg[blue]%}%m%b"
+local pwd="%B%~%b"
+local userchar="%(!.#.$)"
+
+zstyle ':vcs_info:*' enable git
+zstyle ':vcs_info:*' check-for-changes true
+setopt prompt_subst
+
+precmd()
+{
+    vcs_info
+}
+
+# +N/-N upstream info
+function +vi-git-st() {
+    local ahead behind
+    local -a gitstatus
+
+    ahead=$(git rev-list ${hook_com[branch]}@{upstream}..HEAD 2>/dev/null | wc -l | sed -e 's|^ *||g')
+    behind=$(git rev-list HEAD..${hook_com[branch]}@{upstream} 2>/dev/null | wc -l | sed -e 's|^ *||g')
+
+    (( $ahead )) && gitstatus+=( "+${ahead}" )
+    (( $behind )) && gitstatus+=( "-${behind}" )
+
+    hook_com[misc]+=${(j:/:)gitstatus}
+}
+
+# Untracked crap in the repo not covered by .gitignore?
+function +vi-git-untracked(){
+    if [[ $(git rev-parse --is-inside-work-tree 2> /dev/null) == 'true' ]] && \
+        git status --porcelain | grep '??' &> /dev/null ; then
+        hook_com[staged]+="%{$fg[red]%}N"
+    fi
+}
+
+local branch="%{$fg[green]%}%b%c%u%{$fg[green]%}%{$reset_color%}"
+zstyle ':vcs_info:*' formats "%m $branch"
+zstyle ':vcs_info:*' actionformats "%a $branch"
+zstyle ':vcs_info:*' stagedstr "%{$fg[blue]%}S"
+zstyle ':vcs_info:*' unstagedstr "%{$fg[blue]%}M"
+zstyle ':vcs_info:git*+set-message:*' hooks git-untracked git-st
+PROMPT="%(!.#.$) " # $ as a user # as root
+RPROMPT='${vcs_info_msg_0_} ${PWD/#$HOME/~}'
+#+END_SRC