extract-keynote-links.rb

#!/usr/bin/env ruby

require 'nokogiri'

filename = ARGV.first

if not filename
  puts "Usage: #{$0} <keynote-filename>"
  exit 1
end

index = `unzip -q -c "#{filename}" index.apxl`.strip
doc = Nokogiri::XML(index)

full_links = doc.xpath('//sf:link').map {|link| link.text }.grep(/http:\/\//)
links = full_links.map do |link|
  if link =~ /flickr\.com/
    link.gsub(/sizes\/\w+(\/)*$/, '').gsub(/\/$/, '')
  else
    link
  end
end

puts links.uniq