Skip to content

Instantly share code, notes, and snippets.

@gruber

gruber/make_bookmarklet.pl

Last active November 21, 2025 23:48
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save gruber/8658935 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save gruber/8658935 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. gruber revised this gist Jan 28, 2014. 1 changed file with 6 additions and 3 deletions.
    9 changes: 6 additions & 3 deletions make_bookmarklet.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -32,9 +32,12 @@

    # 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 - $!";
    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__
  2. gruber created this gist Jan 27, 2014.
    44 changes: 44 additions & 0 deletions make_bookmarklet.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,44 @@
    #!/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.