aboutsummaryrefslogtreecommitdiff
path: root/bin/psycamp
diff options
context:
space:
mode:
authorpsyc://psyced.org/~lynX <ircs://psyced.org/youbroketheinternet>2016-08-10 15:29:00 +0000
committerpsyc://psyced.org/~lynX <ircs://psyced.org/youbroketheinternet>2016-08-10 15:29:00 +0000
commit1bb9ec08c78b17289d4de72732c7821cf1dcbc49 (patch)
tree3c703299fae16b1f388cc76e80f819d078e7ec36 /bin/psycamp
parentb33f6c50d4dba7276bf74e80b65d49ab758aaec3 (diff)
parent99592f27ec169070d21d700b1831775f5fbfbf96 (diff)
downloadperlpsyc-1bb9ec08c78b17289d4de72732c7821cf1dcbc49.tar.gz
perlpsyc-1bb9ec08c78b17289d4de72732c7821cf1dcbc49.zip
Merge remote-tracking branch 'slit/master'
Diffstat (limited to 'bin/psycamp')
-rwxr-xr-xbin/psycamp12
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