| #!/usr/bin/env ruby | |
| # A simple script to gzip content recursively. I use it for the Nginx gzip_static module. | |
| require 'find' | |
| EXTENSIONS = %w(.js .html .css) | |
| def gzname(file) | |
| "#{file}.gz" |
| require 'set' | |
| require 'digest/md5' | |
| # Let original be a collection with the names of the files in the | |
| # original directory. Let target be the ones in the target directory. | |
| # | |
| # We want to find which files in original are equal to some in target | |
| # except perhaps for the filename. | |
| osizes, tsizes = classify_by_size(original, target) |
| #!/usr/bin/env ruby | |
| # | |
| # Joins paragraphs so that they span one long line. | |
| # Quoted or indented text are left untouched. | |
| # Useful for Gmail. | |
| # | |
| open('| pbcopy', 'w') do |pbcopy| | |
| pbcopy.write(`pbpaste`.gsub(/([^>\n])\n(\w)/, '\\1 \\2')) | |
| end |
| class Html | |
| def initialize(env) | |
| @server_port = env['SERVER_PORT'] | |
| end | |
| def first_chunk_prefix | |
| <<EOS | |
| <!DOCTYPE html> | |
| <html> | |
| <head> |
| class Img | |
| def each | |
| puts "I WAS REQUESTED" | |
| yield '' | |
| end | |
| end | |
| map '/img' do | |
| run lambda { |env| [200, {'Content-Type' => 'image/png', 'Content-Length' => '0'}, Img.new(env)] } | |
| end |
| use strict; | |
| use warnings; | |
| use constant { | |
| # Original Yahoo! TSV. | |
| GPP => 'geoplanet_places_7.6.0.tsv', | |
| # Output, same Yahoo! TSV with an extra ancestry column. | |
| ANC => 'geoplanet_places_with_ancestry_7.6.0.tsv' | |
| }; |
Yahoo! provides its GeoPlanet data as three separate TSV files, available for download here.
That's a database with some 17 million records:
| # encoding: binary | |
| require 'socket' | |
| require 'zlib' | |
| require 'stringio' | |
| PADDING = 256 | |
| GZIP = true | |
| CHUNKED = true | |
| def compress(gzip, io, data) |
| ;; | |
| ;; Custom Defuns --------------------------------------------------------------- | |
| ;; | |
| (defun fxn-find-init-file () | |
| (interactive) | |
| (find-file "~/.emacs.d/init.el")) | |
| (global-set-key (kbd "C-c i") 'fxn-find-init-file) | |
| (defun fxn-kill-whole-line () |
| See https://github.com/fxn/math-with-regexps. |