# print a file's tag
tag/read file

# write a tag to a file, erasing the existing tag
tag/write file <tag

# overwrite tags present in both file and tag, leaving tags present
# only in file intact
tag/overwrite file <tag

# append tags to a file, leaving duplicates intact
tag/append file <tag

# print tags that are present in and identical among the given files
tag/common *.mp3

# print the title tag of each given file
tag/col title *.mp3

# for all given files, write the nth line of titles to the nth file
tag/join title titles *.mp3

# shorthand for tag/join track tracks *.mp3
tag/track *.mp3

# print the command to rename a file to reflect its disc, track, and
# title tags
tag/rename file


# start the acme tag client
Tag

# send mp3's to the acme tag client. if it's not running, print a
# warning instead of trying to edit it
type	is	text
data	matches	'[a-zA-Z¡-￿0-9_\-./]+'
data	matches	'([a-zA-Z¡-￿0-9_\-./]+)\.(mp3|MP3|flac|FLAC)'
arg	isfile	$0
data	set	$file
plumb	to	tag
plumb	client	echo tag port isn''''t open

# rename files to please the plumber
for(x in *.mp3) { mv $x `{echo $x | tr ' +,\''()[]&!?:;' _} }


# to edit a batch of files, do the following:
for(x in *.mp3) { mv $x `{echo $x | tr ' +,\''()[]&!?:;' _} }
&& tag/common *.mp3 >tag
&& tag/col title *.mp3 >titles

# now change tag and titles to your liking, write the tags, add track
# numbers, and rename the files:
{for(x in *.mp3) tag/write $x <tag}
&& tag/join title titles *.mp3
&& tag/tracks *.mp3
&& {for(x in *.mp3) tag/rename $x} | rc