gruber

The regex patterns in this gist are intended to match any URLs,
including "mailto:foo@example.com", "x-whatever://foo", etc. For a
pattern that attempts only to match web URLs (http, https), see:
https://gist.github.com/gruber/8891611


# Single-line version of pattern:

(?i)\b((?:[a-z][\w-]+:(?:/{1,3}|[a-z0-9%])|www\d{0,3}[.]|[a-z0-9.\-]+[.][a-z]{2,4}/)(?:[^\s()<>]+|\(([^\s()<>]+|(\([^\s()<>]+\)))*\))+(?:\(([^\s()<>]+|(\([^\s()<>]+\)))*\)|[^\s`!()\[\]{};:'".,<>?«»“”‘’]))

gruber

#!/usr/bin/perl

# Description: http://daringfireball.net/2010/08/open_urls_in_safari_tabs
# License: See below.
# http://gist.github.com/507356

use strict;
use warnings;
use URI::Escape;

gruber

tell application "Safari"
	set _source to do JavaScript "window.document.documentElement.outerHTML" in document 1
	set _name to name of document 1
end tell


tell application "BBEdit"
	make new text window with properties ¬
		{contents:_source, source language:"HTML", name:"Generated source: " & _name}
	select insertion point before character 1 of text window 1

gruber

tell application "Mail"
	set _sel to get selection
	
	if (count of _sel) > 1 then
		-- multiple message selection, usually a conversation thread
		choose from list {"Reply", "Reply All"} with prompt "Unknown recipient count." default items {"Reply"}
		try
			set _menu_command to item 1 of the result
		on error
			return

gruber

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 $query = do { local $/; <> };
$query =~ s/^\s+//g;
$query =~ s/\s+$//g;

gruber

By Christopher Walken

Do you enjoy eating hot dogs? I hope you won’t be put off by my frankness when I tell you that I absolutely love them. In fact, I enjoy no food item more than a freshly-boiled hot dog. Now, I’ve done a lot of movies, and it’s true that I’ve worked with quite a few celebrities who did not share this opinion. I’m sorry to say that these people have always angered me.

There are two types of people in this world: those who eat hot dogs whenever it is possible to do so, and those who opt to do other things with their free time. Who do the latter think they are kidding? What pastime could be more rewarding than the consumption of hot dogs? I haven’t yet found one, and I don’t expect to in my lifetime. Unlike other foods, hot dogs can be eaten at any time, in any place, and it is not necessary to cook them. Now, I ask you: Why not eat hot dogs? They are delicious.

I carry a bag of hot dogs with me wherever I go. I eat them from the bag whenever I get the urge, regardless of the circumstances

gruber

-- See article here: http://daringfireball.net/2007/07/simple_inbox_sweeper

-- The following should be one long line:
set _description to "All unflagged, read messages in each IMAP account 
    inbox will be moved to the “Archive” mailbox corresponding to that  
    account. This action is not undoable."

tell application "Mail"
	display alert "Archive read messages from IMAP inboxes?" buttons ¬
		{"Cancel", "Archive"} cancel button 1 message _description

gruber

#!/usr/bin/env ruby

def e_sh(str)
	str.to_s.gsub(/(?=[^a-zA-Z0-9_.\/\-\x7F-\xFF\n])/n, '\\').gsub(/\n/, "'\n'").sub(/^$/, "''")
end

def find_headers(lines)
    in_headers = false
    lines.each_with_index {|line, i|
        if line =~ /^\S[^\:]+\:( .*?)?$/

gruber

# Copy the URL or tweet ID for a tweet, and the script will send it to Aaron's Twitter Viewer

set _old_delims to AppleScript's text item delimiters
set AppleScript's text item delimiters to "/"
set _tweet_url to get the clipboard
set _tweet_id to last text item of _tweet_url

try
	get _tweet_id as integer
on error

gruber

tell application "BBEdit"
	activate
	set old_name to name of text window 1
	set dialog_result to display dialog "" default answer (old_name) ¬
		buttons {"Cancel", "Rename"} default button 2 ¬
		with icon note ¬
		with title "Rename Active Document"
	if button returned of dialog_result = "Rename" then
		set new_name to text returned of dialog_result
		set d to active document of text window 1