janmoesen · August 19, 2011 06:01 · janmoesen · Aug 19, 2011 · mathiasbynens · Sep 5, 2011
diff --git a/.bash_profile b/.bash_profile
 # ============== shell
 # Case-insensitive globbing.
 shopt -s nocaseglob;

 # Do not overwrite files when redirecting using ">", ">&" or "<>".
 # Note that you can still override this with ">|".
 set -o noclobber;

 # UTF-8 all the way.
 export LC_ALL='en_GB.UTF-8';
 export LANG='en_GB';

 # Expand "!" history when pressing space
 bind Space:magic-space;

 # ANSI colours and font properties.
 FG_BLACK=$'\e[30m';
 FG_RED=$'\e[31m';
 FG_GREEN=$'\e[32m';
 FG_YELLOW=$'\e[33m';
 FG_BLUE=$'\e[34m';
 FG_MAGENTA=$'\e[35m';
 FG_CYAN=$'\e[36m';
 FG_WHITE=$'\e[37m';
 BG_BLACK=$'\e[40m';
 BG_RED=$'\e[41m';
 BG_GREEN=$'\e[42m';
 BG_YELLOW=$'\e[43m';
 BG_BLUE=$'\e[44m';
 BG_MAGENTA=$'\e[45m';
 BG_CYAN=$'\e[46m';
 BG_WHITE=$'\e[47m';
 FONT_RESET=$'\e[0m';
 FONT_BOLD=$'\e[1m';
 FONT_BRIGHT="$FONT_BOLD";
 FONT_DIM=$'\e[2m';
 FONT_UNDERLINE=$'\e[4m';
 FONT_BLINK=$'\e[5m';
 FONT_REVERSE=$'\e[7m';
 FONT_HIDDEN=$'\e[8m';
 FONT_INVISIBLE="$FONT_HIDDEN";

 # Git prompt.
 git_branch () {
 	branch="$(git symbolic-ref -q HEAD 2>/dev/null)";
 	ret=$?;
 	case $ret in
 		0) echo "(${FG_WHITE}${branch##*/}${PROMPT_COLOUR})";;
 		1) echo '(no branch)';;
 		128) echo -n;;
 		*) echo 'WTF?';;
 	esac;
 	return $ret;
 }
 [ -f ~/git-completion.bash ] && source ~/git-completion.bash;

 # Show a one-line process tree of the given process, defaulting to the current shell.
 process-tree () {
 	pid="${1:-$$}";
 	orig_pid="$pid";
 	local commands=();
 	while [ "$pid" != "$ppid" ]; do
 		# Read the parent's process ID and the current process's command line.
 		{ read -d ' ' ppid; read command; } < <(ps c -p "$pid" -o ppid= -o command= | sed 's/^ *//');

 		# Stop when we have reached the first process, or an sshd/login process.
 		[ "$ppid" -eq 0 -o "$ppid" -eq 1 -o "$command" = 'login' -o "$command" = 'sshd' ] && break;

 		# Insert the command in the front of the process array.
 		commands=("$command" "${commands[@]}");

 		# Prepare for the next iteration.
 		pid="$ppid";
 		ppid=;
 	done;

 	# Hide the first bash process.
 	set -- "${commands[@]}";
 	if [ "$1" = '-bash' -o "$1" = 'bash' ]; then
 		shift;
 		commands=("$@");
 	fi;

 	# Print the tree with the specified separator.
 	separator='→';
 	output="$(IFS="$separator"; echo "${commands[*]}")";
 	echo "${output//$separator/ $separator }";
 }

 # More advanced prompt.
 export PROMPT_COLOUR="$FG_CYAN";
 [ "$USER" = "root" ] && export PROMPT_COLOUR="$FONT_BRIGHT$FG_RED";
 export PS1="${FONT_RESET}${PROMPT_COLOUR}-----[ \t ]$([ $SHLVL -gt 1 ] && echo " (${FONT_REVERSE}level $SHLVL${FONT_RESET}${PROMPT_COLOUR}: $(process-tree))") (${FONT_BRIGHT}${FG_WHITE}!\!${FONT_RESET}${PROMPT_COLOUR}) [ ${FONT_RESET}${FONT_BRIGHT}\${PROMPT_ERR_ICON}${FONT_RESET}${PROMPT_COLOUR} ] \u@\h \w \$(git_branch)\033[m\n\$ ";
 [[ "$TERM" =~ ^xterm ]] && export PS1="\033]0;\${PROMPT_TITLE}\W \a$PS1";
 export PROMPT_COMMAND='
 	PROMPT_ERR_ICON="$(([ $? -eq 0 ] && echo $FG_GREEN":-)") || echo -ne $FG_RED":-(")";
 	PROMPT_HOST="${HOSTNAME%.local}";
 	PROMPT_TITLE="${PROMPT_HOST}$([ "$USER" = "root" ] && echo "#" || echo ":") "
 ';

 # Intelligent command completion
 complete -d cd pushd;
 complete -u finger mail;
 complete -v set unset;

 # Paths
 export PATH="$HOME/bin:/opt/janmoesen/bin:/opt/janmoesen/sbin:/opt/local/bin:/opt/local/sbin:/bin:/usr/bin:/sbin:/usr/sbin:$PATH";

 # Override MacPorts' ssh
 for x in /usr/bin/ssh*; do
 	[ -x "$x" ] && alias "$(basename "$x")"="$x";
 done;

 # ============== history
 export HISTSIZE=16384;
 export HISTFILESIZE=$HISTSIZE;
 export HISTCONTROL=ignoredups;

 # ============== editors
 alias nano='nano -w';
 alias pico='nano';
 export EDITOR=vi;

 # ============== file manipulation
 alias cp='cp -i';
 alias mv='mv -i';
 alias rm='rm -i';
 udiff () {
 	diff -wU4 -x .svn "$@" | colordiff | less -XFIRd;
 	return ${PIPESTATUS[0]};
 }

 # Move the given file(s) to the Trash.
 trash () {
 	for path in "$@"; do
 		# Make relative paths "absolutey".
 		[ "${path:0:1}" = '/' ] || path="$PWD/$1";

 		# Execute the AppleScript to nudge Finder.
 		echo "$(cat <<-EOD
 			tell application "Finder"
 				delete POSIX file "${path//\"/\"}"
 			end
 		EOD)" | osascript;
 	done;
 }


 # ============== navigation
 export CDPATH=".:~/Sites";
 export LS_COLORS='no=00:fi=00:di=01;34:ln=01;36:pi=40;33:so=01;35:do=01;35:bd=40;33;01:cd=40;33;01:or=40;31;01:ex=01;32:*.tar=01;31:*.tgz=01;31:*.arj=01;31:*.taz=01;31:*.lzh=01;31:*.zip=01;31:*.z=01;31:*.Z=01;31:*.gz=01;31:*.bz2=01;31:*.deb=01;31:*.rpm=01;31:*.jar=01;31:*.jpg=01;35:*.jpeg=01;35:*.gif=01;35:*.bmp=01;35:*.pbm=01;35:*.pgm=01;35:*.ppm=01;35:*.tga=01;35:*.xbm=01;35:*.xpm=01;35:*.tif=01;35:*.tiff=01;35:*.png=01;35:*.mov=01;35:*.mpg=01;35:*.mpeg=01;35:*.avi=01;35:*.fli=01;35:*.gl=01;35:*.dl=01;35:*.xcf=01;35:*.xwd=01;35:*.ogg=01;35:*.mp3=01;35:*.wav=01;35:';

 # Always use colour output for ls.
 [[ "$OSTYPE" =~ ^darwin ]] && alias ls='command ls -G' || alias ls='command ls --color';

 # Show the given file(s) in the Finder.
 show () {
 	# Default to the current directory.
 	[ $# -eq 0 ] && set -- .;

 	# Build the array of paths for AppleScript.
 	local paths=();
 	for path in "$@"; do
 		# Make sure each path exists.
 		if ! [ -e "$path" ]; then
 			echo "show: $path: No such file or directory";
 			continue;
 		fi;

 		# Crappily re-implement "readlink -f" ("realpath") for Darwin.
 		# (The "cd ... > /dev/null" hides CDPATH noise.)
 		[ -d "$path" ] \
 			&& path="$(cd "$path" > /dev/null && pwd)" \
 			|| path="$(cd "$(dirname "$path")" > /dev/null && \
 			           echo "$PWD/$(basename "$path")")";

 		# Use the "POSIX file" AppleScript syntax.
 		paths+=("POSIX file \"${path//\"/\"}\"");
 	done;
 	[ "${#paths[@]}" -eq 0 ] && return;

 	# Group all output to pipe through osacript.
 	{
 		echo 'tell application "Finder"';
 		echo -n 'select {'; # "reveal" would select only the last file.

 		for ((i = 0; i < ${#paths[@]}; i++)); do
 			echo -n "${paths[$i]}";
 			[ $i -lt $(($# - 1)) ] && echo -n ', '; # Ugly array.join()...
 		done;

 		echo '}';
 		echo 'activate';
 		echo 'end tell';
 	} | osascript;
 }

 # ============== misc
 alias pro='vi ~/.bash_profile; source ~/.bash_profile'

 # Convert the parameters or STDIN to lowercase.
 lc () {
 	if [ $# -eq 0 ]; then
 		tr '[:upper:]' '[:lower:]';
 	else
 		tr '[:upper:]' '[:lower:]' <<< "$@";
 	fi;
 }

 # Convert the parameters or STDIN to uppercase.
 uc () {
 	if [ $# -eq 0 ]; then
 		tr '[:lower:]' '[:upper:]';
 	else
 		tr '[:lower:]' '[:upper:]' <<< "$@";
 	fi;
 }
 function which { which="$(command which "$@")"; local ret=$?; if [ $ret -eq 0 ]; then ls -dalF "$which"; fi; return $ret; }

 # Because OS X is case-sensitive by default, use aliases to get GET/HEAD/… working.
 for method in GET HEAD POST PUT DELETE TRACE OPTIONS; do
 	alias "$method"="/opt/janmoesen/bin/lwp-request/$method";
 done;

 # Use PHP's built-in support to encode and decode base64.
 function base64 {
 	if [ $# -eq 0 ]; then
 		 echo 'Usage: base64 [encode|decode] <string>';
 		 return;
 	elif [ "$1" = 'decode' ]; then
 		action='decode';
 		shift;
 	elif [ "$1" = 'encode' ]; then
 		action='encode';
 		shift;
 	else
 		action='decode';
 	fi;
 	echo "$@" | php -r "echo base64_$action(file_get_contents('php://stdin'));";
 	echo;
 }

 # Highlight STDIN based on PCRE patterns.
 function highlight {
    local color=33;
    local perl_regex='';
    while [ $# -gt 0 ]; do
        local brightness=1;
        local param="$1";
        if [ "${param:0:2}" = "--" ]; then
            if [ "${param:2:5}" == "dark-" ]; then
                    brightness=0;
                    param="--${param:7}";
            elif [ "${param:2:6}" == "light-" ]; then
                    brightness=1;
                    param="--${param:8}";
            fi;
            case "${param:2}" in
                'black' | 'red' | 'green' | 'yellow' | 'blue' | 'magenta' | 'pink' | 'cyan' | 'white')
                    param="--color=${param:2}";
                    ;;
            esac;
        fi;
        if [[ "${param:0:8}" = '--color=' ]]; then
            case ${param:8} in
                'black')
                    color=30;;
                'red')
                    color=31;;
                'green')
                    color=32;;
                'yellow')
                    color=33;;
                'blue')
                    color=34;;
                'magenta' | 'pink')
                    color=35;;
                'cyan')
                    color=36;;
                'white')
                    color=37;;
                *) echo default;;
            esac
            shift;
        fi
        perl_regex="$perl_regex;s@${1//@/\\@/}@$(echo -n $'\e['$brightness';'$color'm$&'$'\e[m')@g";
        shift;
    done;
    perl -p -e "select(STDOUT); $| = 1; ${perl_regex:1}";
 }
 #alias difflight='highlight --dark-red ^-.* | highlight --dark-green ^+.* | highlight --yellow ^Only.* | highlight --yellow ^Files.*differ$ | less -XFIRd'
 alias difflight='colordiff | less -XFIRd'

 # Print a line of dashes or the given string across the entire screen.
 function line {
 	width=$(tput cols);
 	str=${1--};
 	len=${#str};
 	for ((i = 0; i < $width; i += $len)); do
 		echo -n "${str:0:$(($width - $i))}";
 	done;
 	echo;
 }

 # Print the given text in the center of the screen.
 function center {
 	width=$(tput cols);
 	str="$@";
 	len=${#str};
 	[ $len -ge $width ] && echo "$str" && return;
 	for ((i = 0; i < $(((($width - $len)) / 2)); i++)); do
 		echo -n " ";
 	done;
 	echo "$str";
 }
 alias plistbuddy=/usr/libexec/PlistBuddy;
 alias firefox='/Applications/Aurora.app/Contents/MacOS/firefox-bin -p test -no-remote > /dev/null 2>&1 & disown %1';
 alias forkbugs='/Applications/Thunderbird.app/Contents/MacOS/thunderbird-bin -p Fork\ bugs -no-remote > /dev/null 2>&1 & disown %1';
 alias md5sum='md5';

 # Open the man page for the previous command.
 lman () { set -- $(fc -nl -1); while [ "$#" -gt 0 -a '(' "sudo" = "$1" -o "-" = "${1:0:1}" ')' ]; do shift; done; man "$1" || help "$1"; }

 # Sort du's output but use human-readable units.
 function duh {
 	du -sk "$@" | sort -n;
 	du -sk "$@" | sort -n | while read size fname; do
 		for unit in KiB MiB GiB TiB PiB EiB ZiB YiB; do
 			if [ "$size" -lt 1024 ]; then
 				echo -e "${size}${unit}\t${fname}";
 				break;
 			fi;
 			size=$((size/1024));
 		done;
 	done;
 }

 svndiff () {
 	svn diff "$@" | colordiff | less -XFIRd;
 	return ${PIPESTATUS[0]};
 }
 svnlog () {
 	svn log "$@" | sed -l '
 		# Delete the last ----- commit separator line.
 		$d

 		# Catch the ----- other commit separator lines.
 		/^-\{72\}$/ {
 			a\
 			 

 			# Replace the line of dashes with an empty line (i.e. "delete without going to the next cycle").
 			c\

 			# Go to the next line, which lists the revision, author, date and number of comment lines
 			n

 			# Put the current (revision) line in the hold space.
 			h

 			# Go to the next line, which is a blank line.
 			n

 			# Get the revision line from the hold space.
 			g

 			# Delete the current (blank) line and continue with the next cycle.
 			d
 		}

 		# Indent all non-dashes lines.
 		s/^/    /
 	' | tail +2 | highlight \
 		--dark-cyan '^r[1-9][0-9]* .*' \
 	| less -XFIRd;
 	return ${PIPESTATUS[0]};
 }
 svnshow () {
 	local rev="$1";
 	[[ "$rev" =~ ^[0-9]+$ ]] && rev="r$rev";
 	{
 		svnlog -"$rev";
 		echo;
 		svndiff -c "$rev" -x -w;
 	} | less -XFIRd;
 }
 svnstatus () {
 	declare -a modified_files;
 	declare -a untracked_files;
 	while read line; do
 		status="${line:0:1}";
 		file="${line:2}";
 		while [ "${file:0:1}" = ' ' -a "${#file}" -gt 0 ]; do
 			file="${file# }";
 		done;
 		case "$status" in
 			'M' | 'A' | 'D' | '!')
 				modified_files+=("$status$file");
 				;;
 			*)
 				untracked_files+=("$file");
 		esac;
 	done < <(svn status "$@" | egrep -v '(front|back)end/files');
 	if [ ${#modified_files[@]} -gt 0 ]; then
 		echo 'Changes to be committed:';
 		for file in "${modified_files[@]}"; do
 			status="${file:0:1}";
 			case "$status" in
 				'M') status='modified';;
 				'A') status='   added';;
 				'D') status=' deleted';;
 				'!') status=' missing';;
 			esac;
 			file="${file:1}";
 			echo $'\t'"$status: $file";
 		done | highlight --dark-green '.*' --dark-red 'missing.*';
 	fi;
 	if [ ${#untracked_files[@]} -gt 0 ]; then
 		[ ${#modified_files[@]} -gt 0 ] && echo;
 		echo 'Untracked files:';
 		for file in "${untracked_files[@]}"; do
 			echo $'\t'"$file";
 		done | highlight --dark-red '.*';
 	fi;
 }
 vack () {
 	local cmd='';
 	if [ $# -eq 0 ]; then
 		cmd="$(fc -nl -1)";
 		cmd="${cmd:2}";
 	else
 		cmd='ack';
 		for x in "$@"; do
 			cmd="$cmd $(printf '%q' "$x")";
 		done;
 		echo "$cmd";
 	fi;
 	if [ "${cmd:0:4}" != 'ack ' ]; then
 		$cmd;
 		return $?;
 	fi;
 	declare -a files;
 	while read -r file; do
 		echo "$file";
 		files+=("$file");
 	done < <(bash -c "${cmd/ack/ack -l}");
 	"${EDITOR:-vi}" "${files[@]}";
 }

 # Get/set the clipboard contents.
 #
 # I created these aliases to have the same command on Cygwin and OS X.
 alias getclip='pbpaste';
 alias putclip='pbcopy';

 # Back up the given files and directories using an incremental backup
 # that looks like a full backup, like Time Machine does.
 backup () {(
 	# Backup format.
 	local backup_dir="$HOME/backups";
 	local date_format='%Y-%m-%d-%H-%M-%S';

 	# Usage.
 	if [ $# -eq 0 -o "$1" = '--help' ] || [ $# -eq 1 -a "$1" = '--' ]; then
 		echo 'Usage: backup [[USER@]HOST:]FILE...';
 		echo;
 		echo "Back up the given files and directories to $backup_dir/$(date +"$date_format")";
 		[ "$1" = '--' ] && shift;
 		[ $# -gt 0 ];
 		exit $?;
 	fi;

 	# Skip the "enough with the options; it's files only from now on" delimiter "--".
 	[ "$1" = '--' ] && shift;

 	# Loop the command-line arguments.
 	local i=0;
 	for path in "$@"; do
 		# Update the backup directory timestamp for each file being backed up.
 		local curr_date="$(date +"$date_format")";

 		# Check if this is a remote source.
 		! [[ "$path" =~ ^([^/]+):(.*) ]];
 		is_remote=$?;

 		# Determine the full source path, source location and target path.
 		# For local files, the source path and location are the same. For
 		# remote files, the location is [user@]host:path.
 		if [ $is_remote -eq 1 ]; then
 			# For SSH sources, use SSH to find the full path.
 			host="${BASH_REMATCH[1]}";
 			local source_path="$(ssh "$host" "$(printf "$(cat <<-'EOD'
 				host=%q;
 				path=%q;
 				if ! [ -z "$path" -o -e "$path" ]; then
 					echo "$host:$path does not exist." 1>&2;
 					exit 1;
 				fi;
 				{ [ -d "$path" ] && cd -- "$path" && pwd; } || { cd -- "$(dirname -- "$path")" && echo "$PWD/$(basename -- "$path")"; }
 			EOD)" "$host" "${BASH_REMATCH[2]}")")" || exit 1;
 			local source_location="$host:$source_path";
 			local source_path="/ssh=$host$source_path";
 		elif [ -z "$path" -o -e "$path" ]; then
 			# For local sources, go to the directory or the file's parent directory and use the working directory.
 			local source_path="$({ [ -d "$path" ] && cd -- "$path" && pwd; } || { cd -- "$(dirname -- "$path")" && echo "$PWD/$(basename -- "$path")"; })";
 			local source_location="$source_path";
 		else
 			echo "$path does not exist." 1>&2;
 			exit 1;
 		fi;

 		# Determine the target directory for the current backup.
 		local curr_backup="$backup_dir/$curr_date$source_path";
 		# if [ $is_remote -eq 1 ]; then
 		local curr_backup_dir="$(dirname "$curr_backup")";
 		local curr_backup_dir="$curr_backup";

 		# Check for previous backups.
 		local prev_backup='';
 		shopt -s nullglob;
 		for prev_backup in "$backup_dir/"*"$source_path"; do
 			:
 		done;

 for x in path is_remote source_path source_location curr_backup curr_backup_dir prev_backup; do printf $'%12s: "%s"\n' "$x" "${!x}"; done
 		# Back up using rsync, hard-linking unchanged files to the previous backup, if any.
 		mkdir -p "$curr_backup_dir";
 		if [ "$(basename "$source_path")" = "$path" ]; then
 			echo "Now backing up:  \"$path\"";
 		else
 			echo "Now backing up:  \"$path\" (\"$source_path\")";
 		fi;
 		echo "Backing up to:   \"$curr_backup\"";
 		if [ -z "$prev_backup" ]; then
 			echo 'Previous backup: (none)';
 			echo;
 			echo rsync --itemize-changes --archive -- "$source_location" "$curr_backup_dir";
 		else
 			echo "Previous backup: \"$prev_backup\"";
 			echo;
 			echo rsync --itemize-changes --archive --link-dest="$(dirname "$prev_backup")" -- "$source_location" "$curr_backup_dir"; # | sed '/\/\.svn\//d; /^cd+++++++ .*\/$/d';
 		fi;

 		# Print a blank line between two backups.
 		let i++;
 		[ $i -eq $# ] || echo;
 	done;
 )}

 diff-to-backup () {(
 	local backup_dir="$HOME/backups";

 	for x in "${@:-.}"; do
 		full_path="$(php -r 'echo realpath($_SERVER["argv"][1]);' "$x")";

 		# Check for previous backups.
 		local prev_backup='';
 		shopt -s nullglob;
 		for prev_backup in "$backup_dir/"*"$full_path"; do
 			:
 		done;

 		if [ -z "$prev_backup" ]; then
 			echo "There are no backups of \"$x\"";
 			exit 1;
 		else
 			udiff -x .svn -r "$prev_backup" "$x";
 		fi;
 		echo;
 	done;
 )}

 # XXX: Move this to ~/.ackrc
 alias ack='ack --type-add html=tpl --type-add php=inc --ignore-dir=docs';
 alias ack-svn-spaces='svn_files="$(svn status | awk '\''$2 !~ /^tags$/ {print $2; }'\'')"; echo "Looking through:"; sed "s/^/* /" <<< "$svn_files"; ack --php '\''(if|for|foreach|switch) \('\'' $svn_files';

 # Check the modified SVN files for todos.
 check-svn-files () {
 	declare -a svn_files;
 	if [ $# -eq 0 ]; then
 		while read file; do
 			svn_files+=("$file");
 		done < <(svn status | awk '$2 !~ /^tags$/ {print $2; }');
 	else
 		for file in "$@"; do
 			svn_files+=("$file");
 		done;
 	fi;
 	[ ${#svn_files[@]} -eq 0 ] && return;
 	echo "Looking through:";
 	for file in "${svn_files[@]}"; do
 		echo "* $file";
 	done;
 	ack --php --html '((if|for|foreach|switch) \()|todo|XXX|delme' "${svn_files[@]}";
 }

 tail-php-log () {
 	tail -fn0 /opt/local/var/log/lighttpd/error.log | grep --line-buffered -v 'PHP Warning:  filesize.*\.swf' | (
 		prefix='^\[..-...-.... ..:..:..\]';
 		# XXX delme
 		prefix='.*';
 		sed -l 's/(mod_fastcgi.c.2701) FastCGI-stderr: //' |\
 		highlight \
 			--red '.*PHP [^:]*[Ee]rror: .*' \
 			--dark-red '.*PHP Notice: .*[Uu]ndefined.*' \
 			--dark-green '.*PHP Notice: .*' \
 			--dark-yellow '.*PHP Warning: .*' \
 			--magenta '^#[0-9]\{1,\}[^(]*\(([^(]\{0,120\})\)\{0,1\}' \
 			--yellow "$prefix \[warn\].*" \
 			--green "$prefix \[info\].*" \
 			--red "$prefix \[[Ff]atal\].*" \
 			--black '^\[2010/.*\.php:[0-9]*';
 	);
 }

 diff-url () {(
 	cd /tmp || return $?;
 	declare -a urls;
 	declare -a before;
 	declare -a after;

 	# Remember all URLs.
 	for url in "$@"; do
 		urls+=("$url");
 	done;

 	# Save all URLs to "before and after".
 	for curr in {before,after}; do
 		read -p "Press Enter to save $curr...";

 		# Loop through all URLs.
 		for ((i = 0; i < ${#urls[@]}; i++)); do
 			url="${urls[$i]}";
 			num="$(printf '%02d' "$i")";
 			file="$curr-$num.html";
 			[ "$curr" = 'before' ] \
 				&& before+=("$file") \
 				|| after+=("$file");
 			wget -qO- "$url" | sed 's/m=[0-9]*//g; s/[0-9a-f]\{32\}//g; s/[0-9]* keer bekeken//' > "$file";
 			[ -z "$prev_x" ] && prev_x="$x";
 		done;
 	done;

 	# Loop through all URLs to diff their before and after.
 	for ((i = 0; i < ${#urls[@]}; i++)); do
 		url="${urls[$i]}";
 		num="$(printf '%02d' "$i")";
 		before="${before[$i]}";
 		after="${after[$i]}";
 		udiff --label="$url (before)" --label="$url (after)" "$before" "$after";
 		rm -f "$before" "$after";
 	done | colordiff | less -XFIRd;
 )}

 alias ctags='ctags --exclude={docs,cache,tiny_mce,layout} --recurse';

 # Set the terminal's title.
 title () {
 	echo -ne '\033]0;'"$@"'\a';
 }

 # Van Dale online dictionary look-up.
 vd () {
 	# Try to find the screen width. Make it a minimum of 35 so our awk patterns still match.
 	[ -z "$COLUMNS" ] && COLUMNS="$(tput cols)";
 	[ -z "$COLUMNS" -o "$COLUMNS" -lt 35 ] && COLUMNS=35;

 	# Dump the vandale.nl page. Because links does not support setting arbitrary headers or cookies, we hack the user agent string to include a newline and smuggle in our own Cookie: header.
 	lynx -dump -nolist -display_charset=UTF-8 -width="$COLUMNS" -useragent=$'Lynx\nCookie: country=nl' "http://www.vandale.nl/vandale/zoekService.do?selectedDictionary=nn&selectedDictionaryName=Nederlands&searchQuery=${*// /+}" |\
 		awk '
 			# This line is the first line after the word definition, so we can quit here.
 			/Gebruik dit woordenboek/ {
 				exit;
 			}

 			# Only print the interesting lines.
 			is_printing;

 			# Print everything after this line.
 			/Je hebt gezocht/ {
 				is_printing = 1;
 			}';
 }

 # Copy the bookmarklet that was modified last to the clipboard.
 copy-last-bookmarklet () {
 	file="$(find . -name '*.js' -exec ls -1rt {} + | tail -1)";
 	echo "$file" 1>&2;
 	putclip < "$file";
 }

 # Commit the latest bookmarks.html.
 alias book="git commit -m 'bookmarks.html: latest update' bookmarks.html";

 alias php54=~/src/php-5.4.0alpha1/sapi/cli/php
	# ============== shell
	# Case-insensitive globbing.
	shopt -s nocaseglob;

	# Do not overwrite files when redirecting using ">", ">&" or "<>".
	# Note that you can still override this with ">\|".
	set -o noclobber;

	# UTF-8 all the way.
	export LC_ALL='en_GB.UTF-8';
	export LANG='en_GB';

	# Expand "!" history when pressing space
	bind Space:magic-space;

	# ANSI colours and font properties.
	FG_BLACK=$'\e[30m';
	FG_RED=$'\e[31m';
	FG_GREEN=$'\e[32m';
	FG_YELLOW=$'\e[33m';
	FG_BLUE=$'\e[34m';
	FG_MAGENTA=$'\e[35m';
	FG_CYAN=$'\e[36m';
	FG_WHITE=$'\e[37m';
	BG_BLACK=$'\e[40m';
	BG_RED=$'\e[41m';
	BG_GREEN=$'\e[42m';
	BG_YELLOW=$'\e[43m';
	BG_BLUE=$'\e[44m';
	BG_MAGENTA=$'\e[45m';
	BG_CYAN=$'\e[46m';
	BG_WHITE=$'\e[47m';
	FONT_RESET=$'\e[0m';
	FONT_BOLD=$'\e[1m';
	FONT_BRIGHT="$FONT_BOLD";
	FONT_DIM=$'\e[2m';
	FONT_UNDERLINE=$'\e[4m';
	FONT_BLINK=$'\e[5m';
	FONT_REVERSE=$'\e[7m';
	FONT_HIDDEN=$'\e[8m';
	FONT_INVISIBLE="$FONT_HIDDEN";

	# Git prompt.
	git_branch () {
	branch="$(git symbolic-ref -q HEAD 2>/dev/null)";
	ret=$?;
	case $ret in
	0) echo "(${FG_WHITE}${branch##*/}${PROMPT_COLOUR})";;
	1) echo '(no branch)';;
	128) echo -n;;
	*) echo 'WTF?';;
	esac;
	return $ret;
	}
	[ -f ~/git-completion.bash ] && source ~/git-completion.bash;

	# Show a one-line process tree of the given process, defaulting to the current shell.
	process-tree () {
	pid="${1:-$$}";
	orig_pid="$pid";
	local commands=();
	while [ "$pid" != "$ppid" ]; do
	# Read the parent's process ID and the current process's command line.
	{ read -d ' ' ppid; read command; } < <(ps c -p "$pid" -o ppid= -o command= \| sed 's/^ *//');

	# Stop when we have reached the first process, or an sshd/login process.
	[ "$ppid" -eq 0 -o "$ppid" -eq 1 -o "$command" = 'login' -o "$command" = 'sshd' ] && break;

	# Insert the command in the front of the process array.
	commands=("$command" "${commands[@]}");

	# Prepare for the next iteration.
	pid="$ppid";
	ppid=;
	done;

	# Hide the first bash process.
	set -- "${commands[@]}";
	if [ "$1" = '-bash' -o "$1" = 'bash' ]; then
	shift;
	commands=("$@");
	fi;

	# Print the tree with the specified separator.
	separator='→';
	output="$(IFS="$separator"; echo "${commands[*]}")";
	echo "${output//$separator/ $separator }";
	}

	# More advanced prompt.
	export PROMPT_COLOUR="$FG_CYAN";
	[ "$USER" = "root" ] && export PROMPT_COLOUR="$FONT_BRIGHT$FG_RED";
	export PS1="${FONT_RESET}${PROMPT_COLOUR}-----[ \t ]$([ $SHLVL -gt 1 ] && echo " (${FONT_REVERSE}level $SHLVL${FONT_RESET}${PROMPT_COLOUR}: $(process-tree))") (${FONT_BRIGHT}${FG_WHITE}!\!${FONT_RESET}${PROMPT_COLOUR}) [ ${FONT_RESET}${FONT_BRIGHT}\${PROMPT_ERR_ICON}${FONT_RESET}${PROMPT_COLOUR} ] \u@\h \w \$(git_branch)\033[m\n\$ ";
	[[ "$TERM" =~ ^xterm ]] && export PS1="\033]0;\${PROMPT_TITLE}\W \a$PS1";
	export PROMPT_COMMAND='
	PROMPT_ERR_ICON="$(([ $? -eq 0 ] && echo $FG_GREEN":-)") \|\| echo -ne $FG_RED":-(")";
	PROMPT_HOST="${HOSTNAME%.local}";
	PROMPT_TITLE="${PROMPT_HOST}$([ "$USER" = "root" ] && echo "#" \|\| echo ":") "
	';

	# Intelligent command completion
	complete -d cd pushd;
	complete -u finger mail;
	complete -v set unset;

	# Paths
	export PATH="$HOME/bin:/opt/janmoesen/bin:/opt/janmoesen/sbin:/opt/local/bin:/opt/local/sbin:/bin:/usr/bin:/sbin:/usr/sbin:$PATH";

	# Override MacPorts' ssh
	for x in /usr/bin/ssh*; do
	[ -x "$x" ] && alias "$(basename "$x")"="$x";
	done;

	# ============== history
	export HISTSIZE=16384;
	export HISTFILESIZE=$HISTSIZE;
	export HISTCONTROL=ignoredups;

	# ============== editors
	alias nano='nano -w';
	alias pico='nano';
	export EDITOR=vi;

	# ============== file manipulation
	alias cp='cp -i';
	alias mv='mv -i';
	alias rm='rm -i';
	udiff () {
	diff -wU4 -x .svn "$@" \| colordiff \| less -XFIRd;
	return ${PIPESTATUS[0]};
	}

	# Move the given file(s) to the Trash.
	trash () {
	for path in "$@"; do
	# Make relative paths "absolutey".
	[ "${path:0:1}" = '/' ] \|\| path="$PWD/$1";

	# Execute the AppleScript to nudge Finder.
	echo "$(cat <<-EOD
	tell application "Finder"
	delete POSIX file "${path//\"/\"}"
	end
	EOD)" \| osascript;
	done;
	}


	# ============== navigation
	export CDPATH=".:~/Sites";
	export LS_COLORS='no=00:fi=00:di=01;34:ln=01;36:pi=40;33:so=01;35:do=01;35:bd=40;33;01:cd=40;33;01:or=40;31;01:ex=01;32:.tar=01;31:.tgz=01;31:.arj=01;31:.taz=01;31:.lzh=01;31:.zip=01;31:.z=01;31:.Z=01;31:.gz=01;31:.bz2=01;31:.deb=01;31:.rpm=01;31:.jar=01;31:.jpg=01;35:.jpeg=01;35:.gif=01;35:.bmp=01;35:.pbm=01;35:.pgm=01;35:.ppm=01;35:.tga=01;35:.xbm=01;35:.xpm=01;35:.tif=01;35:.tiff=01;35:.png=01;35:.mov=01;35:.mpg=01;35:.mpeg=01;35:.avi=01;35:.fli=01;35:.gl=01;35:.dl=01;35:.xcf=01;35:.xwd=01;35:.ogg=01;35:.mp3=01;35:.wav=01;35:';

	# Always use colour output for ls.
	[[ "$OSTYPE" =~ ^darwin ]] && alias ls='command ls -G' \|\| alias ls='command ls --color';

	# Show the given file(s) in the Finder.
	show () {
	# Default to the current directory.
	[ $# -eq 0 ] && set -- .;

	# Build the array of paths for AppleScript.
	local paths=();
	for path in "$@"; do
	# Make sure each path exists.
	if ! [ -e "$path" ]; then
	echo "show: $path: No such file or directory";
	continue;
	fi;

	# Crappily re-implement "readlink -f" ("realpath") for Darwin.
	# (The "cd ... > /dev/null" hides CDPATH noise.)
	[ -d "$path" ] \
	&& path="$(cd "$path" > /dev/null && pwd)" \
	\|\| path="$(cd "$(dirname "$path")" > /dev/null && \
	echo "$PWD/$(basename "$path")")";

	# Use the "POSIX file" AppleScript syntax.
	paths+=("POSIX file \"${path//\"/\"}\"");
	done;
	[ "${#paths[@]}" -eq 0 ] && return;

	# Group all output to pipe through osacript.
	{
	echo 'tell application "Finder"';
	echo -n 'select {'; # "reveal" would select only the last file.

	for ((i = 0; i < ${#paths[@]}; i++)); do
	echo -n "${paths[$i]}";
	[ $i -lt $(($# - 1)) ] && echo -n ', '; # Ugly array.join()...
	done;

	echo '}';
	echo 'activate';
	echo 'end tell';
	} \| osascript;
	}

	# ============== misc
	alias pro='vi ~/.bash_profile; source ~/.bash_profile'

	# Convert the parameters or STDIN to lowercase.
	lc () {
	if [ $# -eq 0 ]; then
	tr '[:upper:]' '[:lower:]';
	else
	tr '[:upper:]' '[:lower:]' <<< "$@";
	fi;
	}

	# Convert the parameters or STDIN to uppercase.
	uc () {
	if [ $# -eq 0 ]; then
	tr '[:lower:]' '[:upper:]';
	else
	tr '[:lower:]' '[:upper:]' <<< "$@";
	fi;
	}
	function which { which="$(command which "$@")"; local ret=$?; if [ $ret -eq 0 ]; then ls -dalF "$which"; fi; return $ret; }

	# Because OS X is case-sensitive by default, use aliases to get GET/HEAD/… working.
	for method in GET HEAD POST PUT DELETE TRACE OPTIONS; do
	alias "$method"="/opt/janmoesen/bin/lwp-request/$method";
	done;

	# Use PHP's built-in support to encode and decode base64.
	function base64 {
	if [ $# -eq 0 ]; then
	echo 'Usage: base64 [encode\|decode] <string>';
	return;
	elif [ "$1" = 'decode' ]; then
	action='decode';
	shift;
	elif [ "$1" = 'encode' ]; then
	action='encode';
	shift;
	else
	action='decode';
	fi;
	echo "$@" \| php -r "echo base64_$action(file_get_contents('php://stdin'));";
	echo;
	}

	# Highlight STDIN based on PCRE patterns.
	function highlight {
	local color=33;
	local perl_regex='';
	while [ $# -gt 0 ]; do
	local brightness=1;
	local param="$1";
	if [ "${param:0:2}" = "--" ]; then
	if [ "${param:2:5}" == "dark-" ]; then
	brightness=0;
	param="--${param:7}";
	elif [ "${param:2:6}" == "light-" ]; then
	brightness=1;
	param="--${param:8}";
	fi;
	case "${param:2}" in
	'black' \| 'red' \| 'green' \| 'yellow' \| 'blue' \| 'magenta' \| 'pink' \| 'cyan' \| 'white')
	param="--color=${param:2}";
	;;
	esac;
	fi;
	if [[ "${param:0:8}" = '--color=' ]]; then
	case ${param:8} in
	'black')
	color=30;;
	'red')
	color=31;;
	'green')
	color=32;;
	'yellow')
	color=33;;
	'blue')
	color=34;;
	'magenta' \| 'pink')
	color=35;;
	'cyan')
	color=36;;
	'white')
	color=37;;
	*) echo default;;
	esac
	shift;
	fi
	perl_regex="$perl_regex;s@${1//@/\\@/}@$(echo -n $'\e['$brightness';'$color'm$&'$'\e[m')@g";
	shift;
	done;
	perl -p -e "select(STDOUT); $\| = 1; ${perl_regex:1}";
	}
	#alias difflight='highlight --dark-red ^-.* \| highlight --dark-green ^+.* \| highlight --yellow ^Only.* \| highlight --yellow ^Files.*differ$ \| less -XFIRd'
	alias difflight='colordiff \| less -XFIRd'

	# Print a line of dashes or the given string across the entire screen.
	function line {
	width=$(tput cols);
	str=${1--};
	len=${#str};
	for ((i = 0; i < $width; i += $len)); do
	echo -n "${str:0:$(($width - $i))}";
	done;
	echo;
	}

	# Print the given text in the center of the screen.
	function center {
	width=$(tput cols);
	str="$@";
	len=${#str};
	[ $len -ge $width ] && echo "$str" && return;
	for ((i = 0; i < $(((($width - $len)) / 2)); i++)); do
	echo -n " ";
	done;
	echo "$str";
	}
	alias plistbuddy=/usr/libexec/PlistBuddy;
	alias firefox='/Applications/Aurora.app/Contents/MacOS/firefox-bin -p test -no-remote > /dev/null 2>&1 & disown %1';
	alias forkbugs='/Applications/Thunderbird.app/Contents/MacOS/thunderbird-bin -p Fork\ bugs -no-remote > /dev/null 2>&1 & disown %1';
	alias md5sum='md5';

	# Open the man page for the previous command.
	lman () { set -- $(fc -nl -1); while [ "$#" -gt 0 -a '(' "sudo" = "$1" -o "-" = "${1:0:1}" ')' ]; do shift; done; man "$1" \|\| help "$1"; }

	# Sort du's output but use human-readable units.
	function duh {
	du -sk "$@" \| sort -n;
	du -sk "$@" \| sort -n \| while read size fname; do
	for unit in KiB MiB GiB TiB PiB EiB ZiB YiB; do
	if [ "$size" -lt 1024 ]; then
	echo -e "${size}${unit}\t${fname}";
	break;
	fi;
	size=$((size/1024));
	done;
	done;
	}

	svndiff () {
	svn diff "$@" \| colordiff \| less -XFIRd;
	return ${PIPESTATUS[0]};
	}
	svnlog () {
	svn log "$@" \| sed -l '
	# Delete the last ----- commit separator line.
	$d

	# Catch the ----- other commit separator lines.
	/^-\{72\}$/ {
	a\


	# Replace the line of dashes with an empty line (i.e. "delete without going to the next cycle").
	c\

	# Go to the next line, which lists the revision, author, date and number of comment lines
	n

	# Put the current (revision) line in the hold space.
	h

	# Go to the next line, which is a blank line.
	n

	# Get the revision line from the hold space.
	g

	# Delete the current (blank) line and continue with the next cycle.
	d
	}

	# Indent all non-dashes lines.
	s/^/ /
	' \| tail +2 \| highlight \
	--dark-cyan '^r[1-9][0-9]* .*' \
	\| less -XFIRd;
	return ${PIPESTATUS[0]};
	}
	svnshow () {
	local rev="$1";
	[[ "$rev" =~ ^[0-9]+$ ]] && rev="r$rev";
	{
	svnlog -"$rev";
	echo;
	svndiff -c "$rev" -x -w;
	} \| less -XFIRd;
	}
	svnstatus () {
	declare -a modified_files;
	declare -a untracked_files;
	while read line; do
	status="${line:0:1}";
	file="${line:2}";
	while [ "${file:0:1}" = ' ' -a "${#file}" -gt 0 ]; do
	file="${file# }";
	done;
	case "$status" in
	'M' \| 'A' \| 'D' \| '!')
	modified_files+=("$status$file");
	;;
	*)
	untracked_files+=("$file");
	esac;
	done < <(svn status "$@" \| egrep -v '(front\|back)end/files');
	if [ ${#modified_files[@]} -gt 0 ]; then
	echo 'Changes to be committed:';
	for file in "${modified_files[@]}"; do
	status="${file:0:1}";
	case "$status" in
	'M') status='modified';;
	'A') status=' added';;
	'D') status=' deleted';;
	'!') status=' missing';;
	esac;
	file="${file:1}";
	echo $'\t'"$status: $file";
	done \| highlight --dark-green '.' --dark-red 'missing.';
	fi;
	if [ ${#untracked_files[@]} -gt 0 ]; then
	[ ${#modified_files[@]} -gt 0 ] && echo;
	echo 'Untracked files:';
	for file in "${untracked_files[@]}"; do
	echo $'\t'"$file";
	done \| highlight --dark-red '.*';
	fi;
	}
	vack () {
	local cmd='';
	if [ $# -eq 0 ]; then
	cmd="$(fc -nl -1)";
	cmd="${cmd:2}";
	else
	cmd='ack';
	for x in "$@"; do
	cmd="$cmd $(printf '%q' "$x")";
	done;
	echo "$cmd";
	fi;
	if [ "${cmd:0:4}" != 'ack ' ]; then
	$cmd;
	return $?;
	fi;
	declare -a files;
	while read -r file; do
	echo "$file";
	files+=("$file");
	done < <(bash -c "${cmd/ack/ack -l}");
	"${EDITOR:-vi}" "${files[@]}";
	}

	# Get/set the clipboard contents.
	#
	# I created these aliases to have the same command on Cygwin and OS X.
	alias getclip='pbpaste';
	alias putclip='pbcopy';

	# Back up the given files and directories using an incremental backup
	# that looks like a full backup, like Time Machine does.
	backup () {(
	# Backup format.
	local backup_dir="$HOME/backups";
	local date_format='%Y-%m-%d-%H-%M-%S';

	# Usage.
	if [ $# -eq 0 -o "$1" = '--help' ] \|\| [ $# -eq 1 -a "$1" = '--' ]; then
	echo 'Usage: backup [[USER@]HOST:]FILE...';
	echo;
	echo "Back up the given files and directories to $backup_dir/$(date +"$date_format")";
	[ "$1" = '--' ] && shift;
	[ $# -gt 0 ];
	exit $?;
	fi;

	# Skip the "enough with the options; it's files only from now on" delimiter "--".
	[ "$1" = '--' ] && shift;

	# Loop the command-line arguments.
	local i=0;
	for path in "$@"; do
	# Update the backup directory timestamp for each file being backed up.
	local curr_date="$(date +"$date_format")";

	# Check if this is a remote source.
	! [[ "$path" =~ ^([^/]+):(.*) ]];
	is_remote=$?;

	# Determine the full source path, source location and target path.
	# For local files, the source path and location are the same. For
	# remote files, the location is [user@]host:path.
	if [ $is_remote -eq 1 ]; then
	# For SSH sources, use SSH to find the full path.
	host="${BASH_REMATCH[1]}";
	local source_path="$(ssh "$host" "$(printf "$(cat <<-'EOD'
	host=%q;
	path=%q;
	if ! [ -z "$path" -o -e "$path" ]; then
	echo "$host:$path does not exist." 1>&2;
	exit 1;
	fi;
	{ [ -d "$path" ] && cd -- "$path" && pwd; } \|\| { cd -- "$(dirname -- "$path")" && echo "$PWD/$(basename -- "$path")"; }
	EOD)" "$host" "${BASH_REMATCH[2]}")")" \|\| exit 1;
	local source_location="$host:$source_path";
	local source_path="/ssh=$host$source_path";
	elif [ -z "$path" -o -e "$path" ]; then
	# For local sources, go to the directory or the file's parent directory and use the working directory.
	local source_path="$({ [ -d "$path" ] && cd -- "$path" && pwd; } \|\| { cd -- "$(dirname -- "$path")" && echo "$PWD/$(basename -- "$path")"; })";
	local source_location="$source_path";
	else
	echo "$path does not exist." 1>&2;
	exit 1;
	fi;

	# Determine the target directory for the current backup.
	local curr_backup="$backup_dir/$curr_date$source_path";
	# if [ $is_remote -eq 1 ]; then
	local curr_backup_dir="$(dirname "$curr_backup")";
	local curr_backup_dir="$curr_backup";

	# Check for previous backups.
	local prev_backup='';
	shopt -s nullglob;
	for prev_backup in "$backup_dir/"*"$source_path"; do
	:
	done;

	for x in path is_remote source_path source_location curr_backup curr_backup_dir prev_backup; do printf $'%12s: "%s"\n' "$x" "${!x}"; done
	# Back up using rsync, hard-linking unchanged files to the previous backup, if any.
	mkdir -p "$curr_backup_dir";
	if [ "$(basename "$source_path")" = "$path" ]; then
	echo "Now backing up: \"$path\"";
	else
	echo "Now backing up: \"$path\" (\"$source_path\")";
	fi;
	echo "Backing up to: \"$curr_backup\"";
	if [ -z "$prev_backup" ]; then
	echo 'Previous backup: (none)';
	echo;
	echo rsync --itemize-changes --archive -- "$source_location" "$curr_backup_dir";
	else
	echo "Previous backup: \"$prev_backup\"";
	echo;
	echo rsync --itemize-changes --archive --link-dest="$(dirname "$prev_backup")" -- "$source_location" "$curr_backup_dir"; # \| sed '/\/\.svn\//d; /^cd+++++++ .*\/$/d';
	fi;

	# Print a blank line between two backups.
	let i++;
	[ $i -eq $# ] \|\| echo;
	done;
	)}

	diff-to-backup () {(
	local backup_dir="$HOME/backups";

	for x in "${@:-.}"; do
	full_path="$(php -r 'echo realpath($_SERVER["argv"][1]);' "$x")";

	# Check for previous backups.
	local prev_backup='';
	shopt -s nullglob;
	for prev_backup in "$backup_dir/"*"$full_path"; do
	:
	done;

	if [ -z "$prev_backup" ]; then
	echo "There are no backups of \"$x\"";
	exit 1;
	else
	udiff -x .svn -r "$prev_backup" "$x";
	fi;
	echo;
	done;
	)}

	# XXX: Move this to ~/.ackrc
	alias ack='ack --type-add html=tpl --type-add php=inc --ignore-dir=docs';
	alias ack-svn-spaces='svn_files="$(svn status \| awk '\''$2 !~ /^tags$/ {print $2; }'\'')"; echo "Looking through:"; sed "s/^/* /" <<< "$svn_files"; ack --php '\''(if\|for\|foreach\|switch) \('\'' $svn_files';

	# Check the modified SVN files for todos.
	check-svn-files () {
	declare -a svn_files;
	if [ $# -eq 0 ]; then
	while read file; do
	svn_files+=("$file");
	done < <(svn status \| awk '$2 !~ /^tags$/ {print $2; }');
	else
	for file in "$@"; do
	svn_files+=("$file");
	done;
	fi;
	[ ${#svn_files[@]} -eq 0 ] && return;
	echo "Looking through:";
	for file in "${svn_files[@]}"; do
	echo "* $file";
	done;
	ack --php --html '((if\|for\|foreach\|switch) \()\|todo\|XXX\|delme' "${svn_files[@]}";
	}

	tail-php-log () {
	tail -fn0 /opt/local/var/log/lighttpd/error.log \| grep --line-buffered -v 'PHP Warning: filesize.*\.swf' \| (
	prefix='^\[..-...-.... ..:..:..\]';
	# XXX delme
	prefix='.*';
	sed -l 's/(mod_fastcgi.c.2701) FastCGI-stderr: //' \|\
	highlight \
	--red '.PHP [^:][Ee]rror: .*' \
	--dark-red '.PHP Notice: .[Uu]ndefined.*' \
	--dark-green '.PHP Notice: .' \
	--dark-yellow '.PHP Warning: .' \
	--magenta '^#[0-9]\{1,\}[^(]*\(([^(]\{0,120\})\)\{0,1\}' \
	--yellow "$prefix \[warn\].*" \
	--green "$prefix \[info\].*" \
	--red "$prefix \[[Ff]atal\].*" \
	--black '^\[2010/.\.php:[0-9]';
	);
	}

	diff-url () {(
	cd /tmp \|\| return $?;
	declare -a urls;
	declare -a before;
	declare -a after;

	# Remember all URLs.
	for url in "$@"; do
	urls+=("$url");
	done;

	# Save all URLs to "before and after".
	for curr in {before,after}; do
	read -p "Press Enter to save $curr...";

	# Loop through all URLs.
	for ((i = 0; i < ${#urls[@]}; i++)); do
	url="${urls[$i]}";
	num="$(printf '%02d' "$i")";
	file="$curr-$num.html";
	[ "$curr" = 'before' ] \
	&& before+=("$file") \
	\|\| after+=("$file");
	wget -qO- "$url" \| sed 's/m=[0-9]//g; s/[0-9a-f]\{32\}//g; s/[0-9] keer bekeken//' > "$file";
	[ -z "$prev_x" ] && prev_x="$x";
	done;
	done;

	# Loop through all URLs to diff their before and after.
	for ((i = 0; i < ${#urls[@]}; i++)); do
	url="${urls[$i]}";
	num="$(printf '%02d' "$i")";
	before="${before[$i]}";
	after="${after[$i]}";
	udiff --label="$url (before)" --label="$url (after)" "$before" "$after";
	rm -f "$before" "$after";
	done \| colordiff \| less -XFIRd;
	)}

	alias ctags='ctags --exclude={docs,cache,tiny_mce,layout} --recurse';

	# Set the terminal's title.
	title () {
	echo -ne '\033]0;'"$@"'\a';
	}

	# Van Dale online dictionary look-up.
	vd () {
	# Try to find the screen width. Make it a minimum of 35 so our awk patterns still match.
	[ -z "$COLUMNS" ] && COLUMNS="$(tput cols)";
	[ -z "$COLUMNS" -o "$COLUMNS" -lt 35 ] && COLUMNS=35;

	# Dump the vandale.nl page. Because links does not support setting arbitrary headers or cookies, we hack the user agent string to include a newline and smuggle in our own Cookie: header.
	lynx -dump -nolist -display_charset=UTF-8 -width="$COLUMNS" -useragent=$'Lynx\nCookie: country=nl' "http://www.vandale.nl/vandale/zoekService.do?selectedDictionary=nn&selectedDictionaryName=Nederlands&searchQuery=${*// /+}" \|\
	awk '
	# This line is the first line after the word definition, so we can quit here.
	/Gebruik dit woordenboek/ {
	exit;
	}

	# Only print the interesting lines.
	is_printing;

	# Print everything after this line.
	/Je hebt gezocht/ {
	is_printing = 1;
	}';
	}

	# Copy the bookmarklet that was modified last to the clipboard.
	copy-last-bookmarklet () {
	file="$(find . -name '*.js' -exec ls -1rt {} + \| tail -1)";
	echo "$file" 1>&2;
	putclip < "$file";
	}

	# Commit the latest bookmarks.html.
	alias book="git commit -m 'bookmarks.html: latest update' bookmarks.html";

	alias php54=~/src/php-5.4.0alpha1/sapi/cli/php