briandfoy

/*
Put this in ~/.config/sublime-text-3/Packages/User
*/

{
    "name": "briandfoy",
    "author": "brian d foy <[email protected]>",
    "variables":
    {
        "black":  "hsl(0,0%,0%)",

briandfoy

{
	"color_scheme": "Packages/User/brian.sublime-color-scheme",
	"ensure_newline_at_eof_on_save": true,
	"font_face": "Inconsolata Medium",
	"font_size": 10,
	"highlight_modified_tabs": true,
	"hot_exit": false,
	"copy_with_empty_selection": false,
	"ignored_packages":
	[

briandfoy

#!/usr/bin/perl
use v5.10;
use strict;

use Mojo::UserAgent;
my $ua = Mojo::UserAgent->new;

# Translate the first command-line argument to the Mojo::JSON method to use
my $pause = $ARGV[0] ? 'true' : 'false';

briandfoy

#!/usr/bin/perl
use v5.10;

=head1 NAME

neighborhood_scam_groups.pl - generate contact groups for all the numbers in a exchange

=head1 SYNOPSIS

    $ perl neighborhood_scam_groups.pl AREA_CODE EXCHANGE > scam.csv

briandfoy

#!/Users/brian/bin/perl
use v5.10;
use open qw(:std :utf8);

=head1 NAME

national_parks.pl - scrape the National Park sites

=head1 SYNOPSIS

briandfoy

tell application "iTunes"
	if selection is not {} then
		set mySelection to selection
		repeat with aTrack in mySelection
			set album rating of aTrack to 0
		end repeat
	end if
end tell

briandfoy

#!/usr/bin/osascript

tell application "Safari"
	repeat with w from 1 to number of windows
		repeat with t from 1 to number of tabs in window w
			log URL of tab t of window w as string
		end repeat
	end repeat
end tell

briandfoy

#!/Users/brian/bin/perl

use v5.10;

BEGIN {
=pod

Windows:

    $ENV{TMPDIR}

briandfoy

#!/Users/brian/bin/perl
use v5.26;

use Mojo::UserAgent;
use Term::ANSIColor;

my $ua = Mojo::UserAgent->new;

my $url = 'https://www.thisamericanlife.org/archive';