miyagawa

#!/usr/bin/env ruby
require 'plist'

def visit(thing, want, &block)
  case thing
  when Hash
    thing.keys.each do |key|
      if want.include?(key)
        yield key, thing[key]
      else

miyagawa

-- Set selected Address Book contact pictures from Gravatar.
-- Released under GPL.
-- by Doug Smith, http://smithsrus.com
-- Fixed md5_email routine by Tatsuhiko Miyagawa


-- Grab the selected records and see how many there are.
tell application "Address Book"
	set selected_contacts to selection
	set count_selected to number of items in selected_contacts

miyagawa

How to embed HATEOAS/Link inside JSON

HTTP Headers

For HTTP headers it's quite straightforward: draft-nottingham-http-link-header defines this.

Link: <http://example.com/>; rel="previous"; titile="Previous chapter"

miyagawa

#!/usr/bin/env ruby

require 'json'
require 'open3'
require 'date'

class Importer
  def initialize(*args)
    @js_files = *args
  end

miyagawa

#!/usr/bin/env ruby

require 'open-uri'
require 'open3'
require 'date'
require 'ri_cal'

class Importer
  attr_reader :url

miyagawa

#!/usr/bin/env perl
use strict;
use Parse::CPAN::Packages;
use Module::CoreList;
use JSON::XS;

$| = 1;

my $packages_file = "$ENV{HOME}/minicpan/modules/02packages.details.txt.gz";

miyagawa

NAME

cpanfile - A format for describing CPAN dependencies for Perl applications

SYNOPSIS

requires 'Catalyst', '5.8000';
requires 'CatalystX::Singleton', '>= 1.1000, < 2.000';

recommends 'JSON::XS', '2.0';

miyagawa

• Tascam US2x2 USB audio interface $50
• SOLD: Google Pixel 2 64GB Black (tiny crack in the back glass) + Loopy Case $300
• Audio Technica AT899 XLR lavalier microphone $150
• MacBook Pro Retina 13" Late 2013, 2.8GHz i7, 16GB RAM, 512GB SSD $250 (minor wears on screen)
• mStand Laptop Stand (for MBP 13/15") $20
• SOLD: iPhone 6s 64GB Silver Unlocked GSM $150
• SOLD: iPod Touch 6th gen 32GB Gold $80
• SOLD: [Mackie Onyx Blackjack USB Audio Interface](https://www.amazon.com/Mackie-Onyx-Blackjack-Recor

miyagawa

require 'typhoeus'
require 'ethon'

resolve = Ethon::Curl.slist_append(nil, "example.com:443:1.2.3.X")

r = Typhoeus::Request.new(
  "https://example.com",
  resolve: resolve,
#  verbose: true,
)

miyagawa

Given this URL:

http://www.amazon.com/gp/redirect.html?_encoding=UTF8&location=http%3A%2F%2Fwww.facebook.com%2Famazon%3Fv%3Dapp_165157536856903&token=6BD0FB927CC51E76FF446584B1040F70EA7E88E1

Append #foo=bar to the URL, and paste it to the location bar:

• Chrome: https://www.facebook.com/Amazon?v=app_165157536856903#foo=bar
• Firefox: https://www.facebook.com/Amazon?v=app_165157536856903#foo=bar
• Safari: https://www.facebook.com/Amazon?v=app_165157536856903