diff options
author | psyc://psyced.org/~lynX <ircs://psyced.org/youbroketheinternet> | 2016-08-10 15:29:00 +0000 |
---|---|---|
committer | psyc://psyced.org/~lynX <ircs://psyced.org/youbroketheinternet> | 2016-08-10 15:29:00 +0000 |
commit | 1bb9ec08c78b17289d4de72732c7821cf1dcbc49 (patch) | |
tree | 3c703299fae16b1f388cc76e80f819d078e7ec36 /bin/psycamp | |
parent | b33f6c50d4dba7276bf74e80b65d49ab758aaec3 (diff) | |
parent | 99592f27ec169070d21d700b1831775f5fbfbf96 (diff) | |
download | perlpsyc-1bb9ec08c78b17289d4de72732c7821cf1dcbc49.tar.gz perlpsyc-1bb9ec08c78b17289d4de72732c7821cf1dcbc49.zip |
Merge remote-tracking branch 'slit/master'
Diffstat (limited to 'bin/psycamp')
-rwxr-xr-x | bin/psycamp | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/bin/psycamp b/bin/psycamp index 40327ea..eaae14c 100755 --- a/bin/psycamp +++ b/bin/psycamp | |||
@@ -632,7 +632,7 @@ X | |||
632 | next; | 632 | next; |
633 | } | 633 | } |
634 | } | 634 | } |
635 | if ( /^(J|U|K|E|M|V|Q|X|C|F|L|W|S|R|Y)(\w?)\s*$/ ) { | 635 | if ( /^(J|U|K|E|M|V|Q|O|X|C|F|L|W|S|R|Y)(\w?)\s*$/ ) { |
636 | my $r = $2; | 636 | my $r = $2; |
637 | if ($r and $r ne $1) { | 637 | if ($r and $r ne $1) { |
638 | &say(BOLD, RED, ">> command $1$r not defined", RESET); | 638 | &say(BOLD, RED, ">> command $1$r not defined", RESET); |
@@ -645,7 +645,8 @@ X | |||
645 | $1 eq 'E' ? 'EDITABLE' : | 645 | $1 eq 'E' ? 'EDITABLE' : |
646 | $1 eq 'M' ? 'REMASTER' : | 646 | $1 eq 'M' ? 'REMASTER' : |
647 | $1 eq 'V' ? 'VOLATILE' : | 647 | $1 eq 'V' ? 'VOLATILE' : |
648 | $1 eq 'Q' ? 'COOL' : | 648 | $1 eq 'Q' ? 'QUIET' : |
649 | $1 eq 'O' ? 'COOL' : | ||
649 | $1 eq 'X' ? 'EXPORT' : | 650 | $1 eq 'X' ? 'EXPORT' : |
650 | $1 eq 'Y' ? 'EASY' : | 651 | $1 eq 'Y' ? 'EASY' : |
651 | $1 eq 'C' ? 'CRITICIZE' : | 652 | $1 eq 'C' ? 'CRITICIZE' : |
@@ -657,7 +658,11 @@ X | |||
657 | $f = $ENV{PWD}. '/'. $f unless $f =~ m!^/!; | 658 | $f = $ENV{PWD}. '/'. $f unless $f =~ m!^/!; |
658 | my $f2 = $f; | 659 | my $f2 = $f; |
659 | # the initial (.*) is a hack to make the regexp match the last occurance in the path string rather than earlier ones | 660 | # the initial (.*) is a hack to make the regexp match the last occurance in the path string rather than earlier ones |
661 | <<<<<<< .merge_file_4zqmrn | ||
660 | unless ($f =~ s:^(.*)/(SHARE|T|COMPLETE|KEEP|EDITABLE|FAVES|WRONG|SECONDARY|REPERTOIRE|NEW|TODO|USE|DEEJAY|REMASTER|CRITICIZE|EASY|INCOMING|incomingDJ|EXPORT|VOLATILE|L8R|COOL|CHAOS|DJ|byArtist|byGenre|vol)\d?/:\1/$t/:i) | 662 | unless ($f =~ s:^(.*)/(SHARE|T|COMPLETE|KEEP|EDITABLE|FAVES|WRONG|SECONDARY|REPERTOIRE|NEW|TODO|USE|DEEJAY|REMASTER|CRITICIZE|EASY|INCOMING|incomingDJ|EXPORT|VOLATILE|L8R|COOL|CHAOS|DJ|byArtist|byGenre|vol)\d?/:\1/$t/:i) |
663 | ======= | ||
664 | unless ($f =~ s:^(.*)/(SHARE|T|COMPLETE|KEEP|EDITABLE|FAVES|WRONG|SECONDARY|REPERTOIRE|NEW|TODO|USE|DEEJAY|REMASTER|CRITICIZE|EASY|INCOMING|incomingDJ|EXPORT|VOLATILE|L8R|QUIET|COOL|CHAOS|DJ|byArtist|byGenre|vol)\d?/:\1/$t/:i) | ||
665 | >>>>>>> .merge_file_aXWKyv | ||
661 | { | 666 | { |
662 | &say(BOLD, RED, ">> not applicable for $f", RESET); | 667 | &say(BOLD, RED, ">> not applicable for $f", RESET); |
663 | next; | 668 | next; |
@@ -1487,7 +1492,8 @@ the following uppercase commands: | |||
1487 | K = send to KEEP | 1492 | K = send to KEEP |
1488 | L = send to L8R | 1493 | L = send to L8R |
1489 | M = send to REMASTER | 1494 | M = send to REMASTER |
1490 | Q = send to COOL | 1495 | Q = send to QUIET |
1496 | O = send to COOL | ||
1491 | R = send to REPERTOIRE | 1497 | R = send to REPERTOIRE |
1492 | S = send to SECONDARY | 1498 | S = send to SECONDARY |
1493 | S = send to USE | 1499 | S = send to USE |