Last active
May 5, 2024 21:11
-
-
Save gruber/8658935 to your computer and use it in GitHub Desktop.
JavaScript Bookmarklet Builder
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
# | |
# http://daringfireball.net/2007/03/javascript_bookmarklet_builder | |
use strict; | |
use warnings; | |
use URI::Escape qw(uri_escape_utf8); | |
use open IO => ":utf8", # UTF8 by default | |
":std"; # Apply to STDIN/STDOUT/STDERR | |
my $source_code = do { local $/; <> }; | |
# Zap the first line if there's already a bookmarklet comment: | |
$source_code =~ s{^// ?javascript:.+\n}{}; | |
my $bookmarklet = $source_code; | |
for ($bookmarklet) { | |
s{(^\s*//.+\n)}{}gm; # Kill commented lines | |
s{^\s*/\*.+?\*/\n?}{}gms; # Kill block comments | |
s{\t}{ }gm; # Tabs to spaces | |
s{[ ]{2,}}{ }gm; # Space runs to one space | |
s{^\s+}{}gm; # Kill line-leading whitespace | |
s{\s+$}{}gm; # Kill line-ending whitespace | |
s{\n}{}gm; # Kill newlines | |
} | |
# Escape single- and double-quotes, spaces, control chars, unicode: | |
$bookmarklet = "javascript:" . | |
uri_escape_utf8($bookmarklet, qq(%'" \x00-\x1f\x7f-\xff)); | |
print "// $bookmarklet\n" . $source_code; | |
# Put bookmarklet on clipboard: | |
my $fh; | |
open($fh, '|-', '/usr/bin/pbcopy') | |
or die "Failed to open pipe to /usr/bin/pbcopy - $!"; | |
print $fh $bookmarklet | |
or die "Failed to write to pbcopy pipe - $!"; | |
close($fh) | |
or die "Failed to close pipe to pbcopy - $!"; | |
__END__ | |
27 Jan 2014 | |
- Switched from backticks to open() for the pipe to pbcopy. Thanks to John Siracusa. | |
- Added '%' to the list of characters to encode. |
Really useful script. Thank you for sharing.
I've started working on a CoffeeScript/JavaScript version here for Node.JS.
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Not familiar with Perl, but I'm curious how you would go about passing a destination path to this script.. so you could output the bookmarklet JS to another location.