A tcsh alias to control Kindle on FreeBSD

kindle.tcsh

# usage: kindle eject|start
# The 'start' command works for Kindle, but I saw an error message.
# However, I'm not silencing it here.
alias kindle	'camcontrol devlist | grep Kindle |'\
		'sed -nE '\''s/^.*(pass[[:digit:]]+).*$/\1/p'\'' |'\
		'xargs -J% camcontrol \!:1 % -E'

# Any brief command of camcontrol(8) is supported actually; 'eject'
# and 'start' are enough.
complete kindle		'p/1/(eject start)/'