peterkeen

alias = "!sh -c '[ $# = 2 ] && git config --global alias.\"$1\" \"$2\" && exit 0 || echo \"usage: git alias <new alias> <original command>\" >&2 && exit 1' -"

peterkeen

#!/usr/bin/env perl

use strict;
use warnings;

use DBI;

my ($year, $month, $day) = get_date();

my @balances = (

peterkeen

select (                                                                                                                           
    select                                                                                                                         
        date_trunc('day', date_page_requested)                                                                                     
    from                                                                                                                           
        ua_user_page_requests                                                                                                      
    where                                                                                                                          
        page_request_no = x.page_request_no                                                                                        
    ) as day,                                                                                       

peterkeen

# <-Foo> => random singular element from @Foo, hyphenated                                                                           
# <^Foo> => random singular element from @Foo, capitalized                                                                          
# <&Foo> => random singular element from @Foo with the first word capitalized                                                       
# <.Foo> => random singular element from @Foo, with the first word lowercased                                                       
# <!Foo> => random singular element from @Foo, ALLCAPS                                                                              
# <*Foo> => random singular element from @Foo with articles stripped                                                                
# <,Foo> => random singular element from @Foo with spaces replaced with underscores                                                 
# <+Foo> => random singular element from @Foo with spaces replaced with plusses              

peterkeen

#!/usr/local/bin/perl58 -w                                                                                                          
                                                                                                                                    
use strict;                                                                                                                         
                                                                                                                                    
my @replacements = qw/                                                                                                              
    alter                                                                                                                           
    table                                                                                                                           
    add                                                                                      

peterkeen

#!/usr/bin/env perl

use strict;
use warnings;
use Try::Tiny;
use IO::File;

use JSON::XS    qw/ decode_json /;
use File::Slurp qw/ read_file   /;

peterkeen

# command-line calorie tracker
# - everything is a recipe
# - recipes can contain other recipes
# - resolve recipes as far as possible
#  - if a recipe doesn't resolve, report it as the given name
# - unit conversions via recipes
# - each dated entry has one or more recipes

# recipe:     count unit label(?) equivalent(?)
# equivalent: '=' recipe(s /,/)

peterkeen

Cable management in the living room

• 3M Command Adhesive large cable hooks http://tinyurl.com/blf3tj
• normal power strip instead of squid
• velcro cable ties http://tinyurl.com/bsnxfl

Attach two cable hooks to the back of each table leg. Run all cables through these, signal on one side and power on the other.

Get an end table for next to the couch and give it the same treatment as the table, except for the cable modem, router, mac and drive. Get a UPS for the mac so it doesn't keep dying in the middle of the day.