Benjamin Trott btrott

btrott / gist:764398

Created January 4, 2011 04:29

Prompt for OS X voice input

btrott / list2str.pl

Created November 2, 2010 18:11

Perl implementations of the list2str functions at http://www.python.org/doc/essays/list2str.html.

	#!/usr/bin/perl -w
	use strict;

	use Benchmark qw( timethese cmpthese );
	use List::Util qw( reduce );

	my $list = rand_chars( 256 );

	cmpthese( shift \|\| 1, {
	f1 => sub { f1( $list ) },

btrott / gist:444317

Created June 18, 2010 22:35

	<!DOCTYPE html>
	<html><head>
	<meta charset="utf-8">
	<title>Gallery</title>
	</head><body>

	<div id="gallery-widget"></div>

	<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js"></script>
	<script type="text/javascript">

btrott / gist:383188

Created April 29, 2010 05:28

Activity widget combining comments, favorites, and reblogs

	<!DOCTYPE html>

	<html>
	<head>
	<meta charset="utf-8">
	<title>Activity widget</title>
	<style type="text/css">
	body { font-family: Helvetica; font-size: 12px; }
	#note-list li { list-style: none; margin-bottom: 5px; padding-bottom: 5px; border-bottom: 1px dotted #999; }
	#note-list li span.avatar { padding-right: 10px; }

btrott / gist:383106

Created April 29, 2010 03:52

Demo of Captcha::reCAPTCHA using Plack

	#!/usr/bin/perl
	# Simple demonstration of Captcha::reCAPTCHA,
	# using Plack and other simple & modern tools
	# (port of examples/captcha.pl to Plack)

	use strict;
	use warnings;

	use Captcha::reCAPTCHA;
	use Data::Section::Simple qw( get_data_section );

btrott / gist:362805

Created April 11, 2010 15:14

Sample code for using WWW::TypePad::CmdLine

	#!/usr/bin/perl -w
	use strict;

	use IO::Prompt;
	use WWW::TypePad::CmdLine;

	my $tp = WWW::TypePad::CmdLine->initialize( requires_auth => 1 );

	# Fetch the list of the authenticated user's blogs, then put up a prompt
	# asking the user to choose a blog.

btrott / gist:358553

Created April 7, 2010 05:13

Sample code for embedding TypePad blog posts in a page

	<ul id="blog-widget"></ul>
	<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js"></script>
	<script type="text/javascript">
	var blogId = '6a00d83455876069e200d83455876369e2';
	$( '#blog-widget' ).ready( function() {
	$.getJSON(
	'http://api.typepad.com/blogs/' + blogId + '/post-assets/@published/@recent.js?callback=?',
	{ 'max-results': 5 },
	function( data ) {
	var ul = $( '#blog-widget' );

btrott / gist:350788

Created March 31, 2010 19:50

	#!/usr/bin/perl -w
	use strict;

	use IO::Prompt;
	use Try::Tiny;
	use WWW::TypePad;
	use WWW::TypePad::CmdLine;

	my $tp = WWW::TypePad::CmdLine->initialize( requires_auth => 1 );

btrott / gist:349856

Created March 31, 2010 02:16

	GET /users/btrott.json
	Host: api.typepad.com

btrott / gist:349571

Created March 30, 2010 20:39

	my $syntaxer = Snowflake->new( __FILE__, 'perl' );
	print $syntaxer->colorize;