annotate tclIndex @ 8:2c01c09bdc0f

Handle "artist - title" as well as "artist / title". Add track number to filename. If the infile isn't stdin, move it to the mp3 directory.
author darius
date Thu, 18 Jul 2002 06:33:52 +0000
parents 5cead4da1db9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
5cead4da1db9 Initial import.
darius
parents:
diff changeset
1 # Tcl autoload index file, version 2.0
5cead4da1db9 Initial import.
darius
parents:
diff changeset
2 # This file is generated by the "auto_mkindex" command
5cead4da1db9 Initial import.
darius
parents:
diff changeset
3 # and sourced to set up indexing information for one or
5cead4da1db9 Initial import.
darius
parents:
diff changeset
4 # more commands. Typically each line is a command that
5cead4da1db9 Initial import.
darius
parents:
diff changeset
5 # sets an element in the auto_index array, where the
5cead4da1db9 Initial import.
darius
parents:
diff changeset
6 # element name is the name of a command and the value is
5cead4da1db9 Initial import.
darius
parents:
diff changeset
7 # a script that loads the command.
5cead4da1db9 Initial import.
darius
parents:
diff changeset
8
5cead4da1db9 Initial import.
darius
parents:
diff changeset
9 set auto_index(read_c2w) [list source [file join $dir cddb2.tcl]]
5cead4da1db9 Initial import.
darius
parents:
diff changeset
10 set auto_index(main) [list source [file join $dir cddb2.tcl]]
5cead4da1db9 Initial import.
darius
parents:
diff changeset
11 set auto_index(edit_tracks) [list source [file join $dir tracknamer.tcl]]
5cead4da1db9 Initial import.
darius
parents:
diff changeset
12 set auto_index(add_entries) [list source [file join $dir tracknamer.tcl]]
5cead4da1db9 Initial import.
darius
parents:
diff changeset
13 set auto_index(save_names) [list source [file join $dir tracknamer.tcl]]
5cead4da1db9 Initial import.
darius
parents:
diff changeset
14 set auto_index(print_info) [list source [file join $dir tracknamer.tcl]]
5cead4da1db9 Initial import.
darius
parents:
diff changeset
15 set auto_index(namer_exit) [list source [file join $dir tracknamer.tcl]]
5cead4da1db9 Initial import.
darius
parents:
diff changeset
16 set auto_index(loadlibs) [list source [file join $dir tracknamer.tcl]]
5cead4da1db9 Initial import.
darius
parents:
diff changeset
17 set auto_index(log) [list source [file join $dir tracknamer.tcl]]