change-terminal-background

#!/usr/bin/perl

# set the iterm background depending on what directory you're in.

# 1) put this file in you path.
# 2) put this in your .zshrc
#   function chpwd() {
#     change-terminal-background
#   }
# 3) Create the directory ~/setup/whatever/bg
# 4) put JPG / PNG in there named after the directory names
#    (e.g. put foo-bar.jpg in there if you want anything under
#     the foo-bar/ directory to have that background

#!/usr/bin/perl

use strict;
use warnings;

use File::Basename;
use MIME::Base64 qw( encode_base64 );

# get a list of all possible terminal backgrounds
my @files = `ls -d ~/setup/*/bg/*`;
chomp for @files;

my %files = map { basename($_) =~ s/[.][^.]+//r => $_ } @files;
my $re = '\\b('.join('|',keys %files).')\b';

print "\x{1b}]1337;SetBackgroundImageFile=";
if ($ENV{PWD} =~ $re) {
    print encode_base64( $files{$1} );
}
print "\a";