Browse Source

Trying to fake a conflict

master
John ShaggyTwoDope Jenkins 8 years ago
parent
commit
fac9fa3133
  1. 29
      perl-term-extendedcolor-xresources/PKGBUILD
  2. BIN
      perl-term-extendedcolor-xresources/Term-ExtendedColor-Xresources-0.072.tar.gz
  3. BIN
      perl-term-extendedcolor-xresources/perl-term-extendedcolor-xresources-0.072-1-x86_64.pkg.tar.xz
  4. BIN
      perl-term-extendedcolor-xresources/perl-term-extendedcolor-xresources-0.072-1.src.tar.gz
  5. BIN
      perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/.MTREE
  6. 23
      perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/.PKGINFO
  7. 73
      perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/usr/bin/site_perl/set_single_color
  8. 60
      perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/usr/bin/site_perl/xcolor
  9. BIN
      perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/usr/share/man/man1/set_single_color.1.gz
  10. BIN
      perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/usr/share/man/man1/xcolor.1.gz
  11. 324
      perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/usr/share/perl5/site_perl/Term/ExtendedColor/Xresources.pm
  12. 795
      perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/usr/share/perl5/site_perl/Term/ExtendedColor/Xresources/Colorscheme.pm
  13. 18
      vim-colortest/PKGBUILD
  14. 365
      vim-colortest/colortest
  15. BIN
      vim-colortest/pkg/vim-colortest/.MTREE
  16. 22
      vim-colortest/pkg/vim-colortest/.PKGINFO
  17. 365
      vim-colortest/pkg/vim-colortest/usr/bin/colortest
  18. BIN
      vim-colortest/vim-colortest-0.1-1-x86_64.pkg.tar.xz
  19. BIN
      vim-colortest/vim-colortest-0.1-1.src.tar.gz

29
perl-term-extendedcolor-xresources/PKGBUILD

@ -0,0 +1,29 @@ @@ -0,0 +1,29 @@
# CPAN Name : Term-ExtendedColor-Xresources
# Maintainer: John Jenkins <twodopeshaggy@gmail.com>
# Contributor: Magnus Woldrich <magnus@trapd00r.se>
pkgname='perl-term-extendedcolor-xresources'
pkgver="0.072"
pkgrel='1'
pkgdesc="Subclass to Term::ExtendedColor"
arch=('i686' 'x86_64')
url='http://search.cpan.org/dist/Term-ExtendedColor-Xresources'
license=('PerlArtistic' 'GPL')
depends=('perl-term-readkey')
options=('!emptydirs')
source=(http://search.cpan.org/CPAN/authors/id/W/WO/WOLDRICH/Term-ExtendedColor-Xresources-$pkgver.tar.gz)
md5sums=('8cfc8be19d7f1500194b4a5d2caffda7')
package() {
DIST_DIR="${srcdir}/Term-ExtendedColor-Xresources-${pkgver}"
{
cd "$DIST_DIR" &&
PERL_MM_USE_DEFAULT=1 perl Makefile.PL &&
make &&
make test &&
make DESTDIR="$pkgdir" install;
} || return 1;
}

BIN
perl-term-extendedcolor-xresources/Term-ExtendedColor-Xresources-0.072.tar.gz

Binary file not shown.

BIN
perl-term-extendedcolor-xresources/perl-term-extendedcolor-xresources-0.072-1-x86_64.pkg.tar.xz

Binary file not shown.

BIN
perl-term-extendedcolor-xresources/perl-term-extendedcolor-xresources-0.072-1.src.tar.gz

Binary file not shown.

BIN
perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/.MTREE

Binary file not shown.

23
perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/.PKGINFO

@ -0,0 +1,23 @@ @@ -0,0 +1,23 @@
# Generated by makepkg 4.2.0
# using fakeroot version 1.20.2
# Fri Jan 23 17:24:14 UTC 2015
pkgname = perl-term-extendedcolor-xresources
pkgver = 0.072-1
pkgdesc = Subclass to Term::ExtendedColor
url = http://search.cpan.org/dist/Term-ExtendedColor-Xresources
builddate = 1422033854
packager = Unknown Packager
size = 77824
arch = x86_64
license = PerlArtistic
license = GPL
depend = perl-term-readkey
makepkgopt = strip
makepkgopt = docs
makepkgopt = !libtool
makepkgopt = !staticlibs
makepkgopt = !emptydirs
makepkgopt = zipman
makepkgopt = purge
makepkgopt = !upx
makepkgopt = !debug

73
perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/usr/bin/site_perl/set_single_color

@ -0,0 +1,73 @@ @@ -0,0 +1,73 @@
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
use strict;
my $APP = 'set_single_color';
our $VERSION = '0.130';
use Getopt::Long;
use Pod::Usage;
use Term::ExtendedColor::Xresources qw(set_xterm_color);
our($index, $color) = (int(rand(15)), sprintf("%06x", rand(16777215)));
GetOptions(
'i|index:i' => \$index,
'c|color:s' => \$color,
'h|help' => sub { pod2usage(verbose => 1) and exit; },
'v|version' => sub { print "$APP v$VERSION\n" and exit; },
'm|man' => sub { pod2usage(verbose => 3) and exit; },
);
my $result = set_xterm_color( {$index => $color} );
print "Changing color index $index to color $color\n";
print values %{$result};
__END__
=pod
=head1 NAME
set_single_color - redefine a single color resource
=head1 DESCRIPTION
set_single_color demonstrates the function with the same name imported from
L<Term::ExtendedColor::Xresources>.
=head1 OPTIONS
-i, --index index color (0..255) to change
-c, --color specify color in hexadecimal
-h, --help show the help and exit
-v, --version show version info and exit
-m, --man show the manual and exit
=head1 AUTHOR
Magnus Woldrich
CPAN ID: WOLDRICH
magnus@trapd00r.se
http://japh.se
=head1 CONTRIBUTORS
None required yet.
=head1 COPYRIGHT
Copyright 2010, 2011 B<THIS PROGRAM>s L</AUTHOR> and L</CONTRIBUTORS> as listed
above.
=head1 LICENSE
This program is free software; you may redistribute it and/or modify it under
the same terms as Perl itself.
=cut

60
perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/usr/bin/site_perl/xcolor

@ -0,0 +1,60 @@ @@ -0,0 +1,60 @@
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
use strict;
use Term::ExtendedColor::Xresources qw(set_xterm_color);
use Term::ExtendedColor::Xresources::Colorscheme qw(
get_colorschemes
get_colorscheme
);
my $choice = shift;
my @valid = get_colorschemes();
if(!($choice ~~ @valid)) {
print "$_\n" for(sort(@valid));
exit;
}
else {
print values %{ get_colorscheme($choice) };
}
__END__
=pod
=head1 NAME
xcolor - colorschemes for X terminal emulators
=head1 SYNOPSIS
xcolor [COLORSCHEME]
=head1 OPTIONS
None.
=head1 AUTHOR
Magnus Woldrich
CPAN ID: WOLDRICH
magnus@trapd00r.se
http://japh.se
=head1 CONTRIBUTORS
None required yet.
=head1 COPYRIGHT
Copyright 2011 the B<xcolor> L</AUTHOR> and L</CONTRIBUTORS> as listed above.
=head1 LICENSE
This program is free software; you may redistribute it and/or modify it under
the same terms as Perl itself.
=cut

BIN
perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/usr/share/man/man1/set_single_color.1.gz

Binary file not shown.

BIN
perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/usr/share/man/man1/xcolor.1.gz

Binary file not shown.

324
perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/usr/share/perl5/site_perl/Term/ExtendedColor/Xresources.pm

@ -0,0 +1,324 @@ @@ -0,0 +1,324 @@
#!/usr/bin/perl
package Term::ExtendedColor::Xresources;
use strict;
BEGIN {
use Exporter;
use vars qw($VERSION @ISA @EXPORT_OK);
$VERSION = '0.072';
@ISA = qw(Exporter);
@EXPORT_OK = qw(
set_xterm_color
get_xterm_color
get_xterm_colors
set_background_color
set_foreground_color
);
}
use Carp qw(croak);
use Term::ReadKey;
*get_xterm_color = *get_xterm_colors;
sub get_xterm_colors {
my $arg = shift;
my $index = (exists($arg->{index})) ? $arg->{index} : [0 .. 255];
my @indexes;
if(ref($index) eq 'ARRAY') {
push(@indexes, @{$index});
}
elsif(ref($index) eq '') {
push(@indexes, $index);
}
if( grep { $_ < 0 } @indexes ) {
croak("Index must be a value within 0 .. 255, inclusive\n");
}
open(my $tty, '<', '/dev/tty') or croak("Can not open /dev/tty: $!\n");
my $colors;
for my $i(@indexes) {
next if not defined $i;
ReadMode('raw', $tty);
print "\e]4;$i;?\a"; # the '?' indicates a query
my $response = '';
my ($r, $g, $b);
while(1) {
if ($response =~ m[ rgb: (.{4}) / (.{4}) / (.{4}) ]x) {
($r, $g, $b) = map { substr $_, 0, 2 } ($1, $2, $3);
last;
}
else {
$response .= ReadKey(0, $tty);
}
}
ReadMode('normal');
$colors->{$i}->{raw} = $response;
# Return in base 10 by default
if($arg->{type} eq 'hex') {
$colors->{$i}->{red} = $r; # ff
$colors->{$i}->{green} = $g;
$colors->{$i}->{blue} = $b;
$colors->{$i}->{rgb} = "$r$g$b";
}
else {
($r, $g, $b) = (hex($r), hex($g), hex($b));
$colors->{$i}->{red} = $r; # 255
$colors->{$i}->{green} = $g;
$colors->{$i}->{blue} = $b;
$colors->{$i}->{rgb} = "$r/$g/$b"; # 255/255/0
}
$colors->{$i}{r} = $colors->{$i}{red};
$colors->{$i}{g} = $colors->{$i}{green};
$colors->{$i}{b} = $colors->{$i}{blue};
}
return $colors;
}
sub set_xterm_color {
# color => index
my $old_colors = shift;
if(ref($old_colors) ne 'HASH') {
croak("Hash reference expected");
}
my %new_colors;
for my $index(keys(%{ $old_colors })) {
if( ($index < 0) or ($index > 255) ) {
next;
}
if($old_colors->{$index} !~ /^[A-Fa-f0-9]{6}$/) {
next;
}
my($r, $g, $b) = $old_colors->{$index} =~ m/(..)/g;
my $term = $ENV{TERM};
# This is for GNU Screen and Tmux
# Tmux identifies itself as GNU Screen
# "\eP\e]4;198;rgb:50/20/40\a\e\\"
# echo -e "\033]12;green\007" should change the cursor color, but inside of
# screen, you have to wrap all that with "\eP" and "\a\e\\"
if($term =~ m/^screen/) {
$new_colors{ $index } = "\eP\e]4;$index;rgb:$r/$g/$b\a\e\\";
}
else {
$new_colors{ $index } = "\e]4;$index;rgb:$r/$g/$b\e\\"
}
}
if(!defined( wantarray() )) {
print for values %new_colors;
}
else {
return \%new_colors;
}
}
sub set_background_color {
my $color = shift;
$color =~ s/^#//g;
my $esc = "\e]11;#$color\007";
if(!defined( wantarray() )) {
print $esc;
}
else {
return $esc;
}
}
sub set_foreground_color {
my $color = shift;
$color =~ s/^#//g;
my $esc = "\e]10;#$color\007";
if(!defined( wantarray() )) {
print $esc;
}
else {
return $esc;
}
}
1;
__END__
=pod
=head1 NAME
Term::ExtendedColor::Xresources - Query and set various Xresources
=head1 SYNOPSIS
use Term::ExtendedColor::Xresources qw(
get_xterm_color
set_xterm_color
set_foreground_color
set_background_color
);
# make color index 220 represent red instead of yellow
set_xterm_color({ 220 => 'ff0000'});
# get RGB values for all defined colors
my $colors = get_xterm_color({
index => [0 .. 255], # default
type => 'hex', # default is base 10
});
# change the background color to red...
set_background_color('ff0000');
# .. and the foreground color to yellow
set_foreground_color('ffff00');
=head1 DESCRIPTION
B<Term::ExtendedColor::Xresources> provides functions for changing and querying
the underlying X terminal emulator for various X resources.
=head1 EXPORTS
None by default.
=head1 FUNCTIONS
=head2 set_xterm_color()
# Switch yellow and red
my $new_colors = set_xterm_color({
220 => 'ff0000',
196 => 'ffff00',
});
print $_ for values %{$new_colors};
# or just...
set_xterm_color({ 100 => ff0066});
Expects a hash reference where the keys are color indexes (0 .. 255) and the
values hexadecimal representations of the color values.
Changes the colors if called in void context. Else, returns a hash with the
indexes as keys and the appropriate escape sequences as values.
=head2 get_xterm_color()
my $defined_colors = get_xterm_color({ index => [0 .. 255], type => 'dec' });
print $defined_colors->{4}->{red}, "\n";
print $defined_colors->{8}->{rgb}, "\n";
B<0 - 15> is the standard I<ANSI> colors, all above them are extended colors.
Returns a hash reference with the index colors as keys.
By default the color values are in decimal.
The color values can be accessed by using their name:
my $red = $colors->{10}->{red};
Or by using the short notation:
my $red = $colors->{10}->{r};
The full color string can be retrieved like so:
my $rgb = $colors->{10}->{rgb};
The C<raw> element is the full, raw response from the terminal, including escape
sequences.
The following arguments are supported:
=over
=item index => $index | \@indexes
Arrayref of color indexes to look up and return. Defaults to [0..255], i.e.
all indexes. Alternately a single index may be passed.
=item type => 'dec' | 'hex'
May be 'dec' or 'hex'. The default is 'dec' (decimal) which returns color
values as integers between 0 and 255, and returns a 'rgb' string of the form
'$r/$g/$b' e.g. '255/0/0'. If 'hex' is passed, returns color values in
base 16, zero-padded to two characters (between 00 and ff) and a 'rgb' string
of the form '$r$g$b' e.g. 'ff0000'
=back
=head2 get_xterm_colors()
The same thing as B<get_xterm_color()>. Will be deprecated.
=head2 set_foreground_color()
set_foreground_color('ff0000');
my $fg = set_foreground_color('c0ffee');
Sets the foreground color if called in void context. Else, the appropriate
escape sequence is returned.
=head2 set_background_color()
set_background_color('121212');
my $bg = set_foreground_color('000000');
Sets the foreground color if called in void context. Else, the appropriate
escape sequence is returned.
=head1 SEE ALSO
L<Term::ExtendedColor>
=head1 AUTHOR
Magnus Woldrich
CPAN ID: WOLDRICH
magnus@trapd00r.se
http://japh.se
=head1 CONTRIBUTORS
None required yet.
=head1 COPYRIGHT
Copyright 2010, 2011 the B<Term::ExtendedColor::Xresources> L</AUTHOR> and
L</CONTRIBUTORS> as listed above.
=head1 LICENSE
This library is free software; you may redistribute it and/or modify it under
the same terms as Perl itself.
=cut

795
perl-term-extendedcolor-xresources/pkg/perl-term-extendedcolor-xresources/usr/share/perl5/site_perl/Term/ExtendedColor/Xresources/Colorscheme.pm

@ -0,0 +1,795 @@ @@ -0,0 +1,795 @@
#!/usr/bin/perl
package Term::ExtendedColor::Xresources::Colorscheme;
use strict;
BEGIN {
use Exporter;
use vars qw($VERSION @ISA @EXPORT_OK);
$VERSION = '0.004';
@ISA = qw(Exporter);
@EXPORT_OK = qw(
get_colorscheme
get_colorschemes
);
}
use Term::ExtendedColor::Xresources qw(set_xterm_color);
my %colorschemes = (
xterm => {
0 => '000000',
1 => 'cd0000',
2 => '00cd00',
3 => 'cdcd00',
4 => '0000cd',
5 => 'cd00cd',
6 => '00cdcd',
7 => 'e5e5e5',
8 => '4d4d4d',
9 => 'ff0000',
10 => '00ff00',
11 => 'ffff00',
12 => '0000ff',
13 => 'ff00ff',
14 => '00ffff',
15 => 'aabac8',
},
woldrich => {
0 => '030303',
1 => '1c1c1c',
2 => 'ff4747',
3 => 'ff6767',
4 => '2b4626',
5 => 'b03b31',
6 => 'ff8f00',
7 => 'bdf1ed',
8 => '1165e9',
9 => '5496ff',
10 => 'aef7af',
11 => 'b50077',
12 => 'cb1c13',
13 => '6be603',
14 => 'ffffff',
15 => 'aabac8',
},
matrix => {
0 => '121212',
1 => '021e00',
2 => '032d00',
3 => '043c00',
4 => '054b00',
5 => '065a00',
6 => '076900',
7 => 'ffffff',
8 => '098700',
9 => '0a9600',
10 => '0ba500',
11 => '0cb400',
12 => '0dc300',
13 => '0ed200',
14 => '0fe100',
15 => 'aabac8',
},
purple => {
0 => '121212',
1 => '300a97',
2 => '430ac0',
3 => '830abf',
4 => '7b0ad2',
5 => '370ad3',
6 => '650a78',
7 => 'ffffff',
8 => '960ac9',
9 => '5a0a8b',
10 => '5d0ac8',
11 => '8a0afa',
12 => '7b0a73',
13 => '8b0a25',
14 => '500a98',
15 => 'aabac8',
},
blue => {
0 => '121212',
1 => '141fe1',
2 => '1e2fd2',
3 => '283fc3',
4 => '324fb4',
5 => '3c5fa5',
6 => '466f96',
7 => 'ffffff',
8 => '5a8f78',
9 => '649f69',
10 => '6eaf5a',
11 => '78bf4b',
12 => '82cf3c',
13 => '8cdf2d',
14 => '96ef1e',
15 => 'aabac8',
},
grey => {
0 => '121212',
1 => '888888',
2 => '444444',
3 => '242424',
4 => '2d2d2d',
5 => '363636',
6 => '3f3f3f',
7 => 'ffffff',
8 => '515151',
9 => '5a5a5a',
10 => '636363',
11 => '6c6c6c',
12 => '757575',
13 => '7e7e7e',
14 => '878787',
15 => 'aabac8',
},
rasta => {
0 => '121212',
1 => '3c8d0a',
2 => '8f0d0a',
3 => '33810a',
4 => '349e0a',
5 => '12a10a',
6 => '729a0a',
7 => 'ffffff',
8 => '104770',
9 => 'b3410a',
10 => 'f0120a',
11 => 'b63e0a',
12 => '774c0a',
13 => '5d450a',
14 => '56540a',
15 => 'aabac8',
},
breeze => {
0 => '121212',
1 => '1043c1',
2 => '1865a2',
3 => '208783',
4 => '28a964',
5 => '30cb45',
6 => '38ed26',
7 => 'ffffff',
8 => '49210e',
9 => '51412c',
10 => '59614a',
11 => '618168',
12 => '69a186',
13 => '71c1a4',
14 => '79e1c2',
15 => 'aabac8',
},
freakcode => {
0 => '000000',
1 => 'ff6565',
2 => '93d44f',
3 => 'eab93d',
4 => '204a87',
5 => 'ce5c00',
6 => '89b6e2',
7 => 'cccccc',
8 => '555753',
9 => 'ff8d8d',
10 => 'c8e7a8',
11 => 'ffc123',
12 => '3465a4',
13 => 'f57900',
14 => '46a4ff',
15 => 'ffffff',
},
leosolaris => {
0 => '000000',
1 => 'a80000',
2 => '00a800',
3 => 'a85400',
4 => '0000a8',
5 => 'a800a8',
6 => '00a8a8',
7 => 'a8a8a8',
8 => '545054',
9 => 'f85450',
10 => '50fc50',
11 => 'f2fc50',
12 => '5054f8',
13 => 'f854f8',
14 => '50fcf8',
15 => 'f8fcf8',
},
smurnjiff => {
0 => '2e3436',
8 => '555753',
1 => 'cc0000',
9 => 'ef2929',
2 => '00ff00',
10 => '66ff66',
3 => 'c4a000',
11 => 'fc394f',
4 => '3456a4',
12 => '729fcf',
5 => '75507b',
13 => 'ad7fa8',
6 => '418179',
14 => '34e2e2',
7 => 'd3d7cf',
15 => 'eeeeec',
},
calcandcoffee => {
0 => 262729,
1 => 'f92671',
10 => 'a6e22e',
11 => 'fd971f',
12 => '66d9ef',
13 => '9e6ffe',
14 => 'a3babf',
15 => 'f8f8f2',
2 => 'a6e22e',
3 => 'fd971f',
4 => '66d9ef',
5 => '9e6ffe',
6 => '5e7175',
7 => 'f8f8f2',
8 => 554444,
9 => 'f92671'
},
daisuke2 => {
0 => '000000',
1 => 'ff6565',
10 => 'c8e7a8',
11 => 'ffc123',
12 => '3465a4',
13 => 'f57900',
14 => '46a4ff',
15 => 'ffffff',
2 => '93d44f',
3 => 'eab93d',
4 => '204a87',
5 => 'ce5c00',
6 => '89b6e2',
7 => 'cccccc',
8 => 555753,
9 => 'ff8d8d'
},
digerati => {
0 => 303030,
1 => 'c03000',
10 => 'a6cd07',
11 => 'b5c865',
12 => '4a7781',
13 => 'ff3b77',
14 => '4bb5c1',
15 => 'e2e2e5',
2 => 'b1d631',
3 => 'fecf35',
4 => 426870,
5 => '6d506d',
6 => '4bb5c1',
7 => 'e2e2e5',
8 => '5f5f5f',
9 => 'ff3a78'
},
longbow => {
0 => 222222,
1 => '9e5641',
10 => 'c4df90',
11 => 'ffe080',
12 => 'b8ddea',
13 => 'c18fcb',
14 => '6bc1d0',
15 => 'cdcdcd',
2 => '6c7e55',
3 => 'caaf2b',
4 => '7fb8d8',
5 => '956d9d',
6 => '4c8ea1',
7 => 808080,
8 => 454545,
9 => 'cc896d'
},
rasi => {
0 => 101010,
1 => 'f13a21',
10 => 'ffc005',
11 => '93ff00',
12 => '0071ff',
13 => 'ef0051',
14 => '4bb8fd',
15 => 'ffffff',
2 => '93f91d',
3 => 'ffd00a',
4 => '004f9e',
5 => 'ec0048',
6 => '2aa7e7',
7 => 'ffffff',
8 => '1d202f',
9 => 'ffffff'
},
reasons => {
0 => '1b1d1e',
1 => 'f92672',
10 => 'beed5f',
11 => 'e6db74',
12 => '66d9ef',
13 => '9e6ffe',
14 => 'a3babf',
15 => 'f8f8f2',
2 => 'a6e22e',
3 => 'fd971f',
4 => '66d9ef',
5 => '9e6ffe',
6 => '5e7175',
7 => 'ccccc6',
8 => 505354,
9 => 'ff669d'
},
square => {
0 => 171717,
1 => 'ea6868',
10 => '9ead72',
11 => 'e7db52',
12 => '66d9ef',
13 => 'ad7fa8',
14 => 'a3babf',
15 => 'e2e2e2',
2 => 'b6e77d',
3 => 'dbbb4b',
4 => '66d9ef',
5 => '75507b',
6 => '5e7175',
7 => 'f2f2f2',
8 => 554444,
9 => 'ff7272'
},
supertrain => {
0 => '1c1c1c',
1 => 'd81860',
10 => 'bde077',
11 => 'ffe863',
12 => 'aaccbb',
13 => 'bb4466',
14 => 'a3babf',
15 => '6c887a',
2 => 'b7ce42',
3 => 'fea63c',
4 => '66aabb',
5 => 'b7416e',
6 => '5e7175',
7 => 'ddeedd',
8 => '4d4d4d',
9 => 'f00060'
},
tango => {
0 => '2e3436',
1 => 'cc0000',
10 => '8ae234',
11 => 'fce94f',
12 => '729fcf',
13 => 'ad7fa8',
14 => '00f5e9',
15 => 'eeeeec',
2 => '4e9a06',
3 => 'c4a000',
4 => '00afff',
5 => '75507b',
6 => '0b939b',
7 => 'd3d7cf',
8 => 555753,
9 => 'ef2929'
},
tangoesque => {
0 => '000000',
1 => 'ff6565',
10 => 'c8e7a8',
11 => 'ffc123',
12 => '3465a4',
13 => 'f57900',
14 => '46a4ff',
15 => 'ffffff',
2 => '93d44f',
3 => 'eab93d',
4 => '204a87',
5 => 'ce5c00',
6 => '89b6e2',
7 => 'cccccc',
8 => 555753,
9 => 'ff8d8d'
},
taters => {
0 => '1c1c1c',
1 => 'd81860',
10 => 'bde077',
11 => 'ffe863',
12 => 'aaccbb',
13 => 'bb4466',
14 => 'a3babf',
15 => '6c887a',
2 => 'b7ce42',
3 => 'fea63c',
4 => '66aabb',
5 => 'b7416e',
6 => '5e7175',
7 => 'ddeedd',
8 => '4d4d4d',
9 => 'f00060'
},
thayer => {
0 => '1b1d1e',
1 => 'f92672',
10 => 'b6e354',
11 => 'feed6c',
12 => '8cedff',
13 => '9e6ffe',
14 => '899ca1',
15 => 'f8f8f2',
2 => '82b414',
3 => 'fd971f',
4 => '56c2d6',
5 => '8c54fe',
6 => 465457,
7 => 'ccccc6',
8 => 505354,
9 => 'ff5995'
},
b52 => {
0 => '1b1d1e',
1 => 'f92672',
10 => 'beed5f',
11 => 'e6db74',
12 => '66d9ef',
13 => '9e6ffe',
14 => 'a3babf',
15 => 'f8f8f2',
2 => 'a6e22e',
3 => 'fd971f',
4 => '66d9ef',
5 => '9e6ffe',
6 => '5e7175',
7 => 'ccccc6',
8 => 505354,
9 => 'ff669d'
},
c00kiez => {
0 => 222222,
1 => 'f60606',
10 => '93ff00',
11 => 'ffbf00',
12 => '0071ff',
13 => 'b18cfe',
14 => 'a3babf',
15 => 'ffffff',
2 => '72f91d',
3 => 'ff971f',
4 => '44a7ee',
5 => '9e6ffe',
6 => '5e7175',
7 => 'ffffff',
8 => 454545,
9 => 'f60606'
},
drkwolf => {
0 => 222222,
1 => 'ea6868',
10 => 'afd78a',
11 => 'ffa75d',
12 => '67cde9',
13 => 'ecaee9',
14 => '36fffc',
15 => 'ffffff',
2 => 'abcb8d',
3 => 'e8ae5b',
4 => '71c5f4',
5 => 'e2baf1',
6 => '21f1ea',
7 => 'f1f1f1',
8 => 554444,
9 => 'ff7272'
},
'freakcode' => {
0 => '000000',
1 => 'ff6565',
10 => 'c8e7a8',
11 => 'ffc123',
12 => '3465a4',
13 => 'f57900',
14 => '46a4ff',
15 => 'ffffff',
2 => '93d44f',
3 => 'eab93d',
4 => '204a87',
5 => 'ce5c00',
6 => '89b6e2',
7 => 'cccccc',
8 => 555753,
9 => 'ff8d8d'
},
jousi => {
0 => 262729,
1 => 'f90670',
10 => 'd9ff6d',
11 => 'e6db74',
12 => '66a7ff',
13 => 'b18cfe',
14 => 'a3babf',
15 => 'ffffff',
2 => 'beed5f',
3 => 'ff971f',
4 => '44a7ee',
5 => '9e6ffe',
6 => '88c9ff',
7 => 'ffffff',
8 => '3f3f3f',
9 => 'ff669d'
},
jstandler => {
0 => '000000',
1 => 'a80000',
10 => 'ed254f',
11 => 'ed254f',
12 => '5054f8',
13 => 'ed254f',
14 => '50fcf8',
15 => 'f8fcf8',
2 => 'ed254f',
3 => 'a85400',
4 => '020202',
5 => 'a800a8',
6 => '00a8a8',
7 => 'a8a8a8',
8 => 545054,
9 => 'f85450'
},
'leosolaris' => {
0 => '000000',
1 => 'a80000',
10 => '50fc50',
11 => 'f2fc50',
12 => '5054f8',
13 => 'f854f8',
14 => '50fcf8',
15 => 'f8fcf8',
2 => '00a800',
3 => 'a85400',
4 => '0000a8',
5 => 'a800a8',
6 => '00a8a8',
7 => 'a8a8a8',
8 => 545054,
9 => 'f85450'
},
librec00kiez => {
0 => 222222,
1 => 'c5000b',
10 => 'aecf00',
11 => 'ff950e',
12 => '0066cc',
13 => 'd11793',
14 => 'a3babf',
15 => 'ffffff',
2 => '579d1c',
3 => 'ff420e',
4 => '004586',
5 => '9932cc',
6 => '5e7175',
7 => 'ffffff',
8 => 454545,
9 => 'ff0000'
},
mattikus => {
0 => '1c1c1c',
1 => 'd81860',
10 => 'bde077',
11 => 'ffe863',
12 => 'aaccbb',
13 => 'bb4466',
14 => 'a3babf',
15 => '6c887a',
2 => 'b7ce42',
3 => 'fea63c',
4 => '66aabb',
5 => 'b7416e',
6 => '5e7175',
7 => 'ddeedd',
8 => '4d4d4d',
9 => 'f00060'
},
mmso2 => {
0 => '030303',
1 => 'ff4747',
10 => 'b2c470',
11 => 'efbd5c',
12 => '2a7cff',
13 => 'bd6cce',
14 => '7fc4a4',
15 => 'ffffff',
2 => 'a8e134',
3 => 'ffb400',
4 => '0066ee',
5 => 'd237ad',
6 => '18dfb0',
7 => 'dedede',
8 => '1c1c1c',
9 => 'ff6767'
},
sicpsnake => {
0 => 292929,
1 => 'de6951',
10 => '9dbf60',
11 => 'ec8a25',
12 => '5495dc',
13 => 'e41f66',
14 => '276cc2',
15 => 'ffffff',
2 => 'bcda55',
3 => 'e2a564',
4 => '2187f6',
5 => '875c8d',
6 => '4390b1',
7 => 'd2d2d2',
8 => '3d3d3d',
9 => 'c56a47'
},
'smurnjiff' => {
0 => '2e3436 ',
1 => 'cc0000 ',
10 => '66ff66 ',
11 => 'fc394f ',
12 => '729fcf ',
13 => 'ad7fa8 ',
14 => '34e2e2',
15 => 'eeeeec ',
2 => '00ff00 ',
3 => 'c4a000 ',
4 => '3456a4',
5 => '75507b',
6 => 418179,
7 => 'd3d7cf ',
8 => '555753 ',
9 => 'ef2929 '
},
'square' => {
0 => '2e3436',
1 => 'cc0000',
10 => '8ae234',
11 => 'fce94f',
12 => '729fcf',
13 => 'ad7fa8',
14 => '00f5e9',
15 => 'eeeeec',
2 => '4e9a06',
3 => 'c4a000',
4 => '3465a4',
5 => '75507b',
6 => '0b939b',
7 => 'd3d7cf',
8 => 555753,
9 => 'ef2929'
},
whordijk => {
0 => '1e2320',
1 => 705050,
10 => 'c3bf9f',
11 => 'f0dfaf',
12 => '94bff3',
13 => 'ec93d3',
14 => '93e0e3',
15 => 'ffffff',
2 => '60b48a',
3 => 'dfaf8f',
4 => 506070,
5 => 'dc8cc3',
6 => '8cd0d3',
7 => 'dcdccc',
8 => 709080,
9 => 'dca3a3'
},
);
sub get_colorscheme {
my $name = shift || 'xterm';
my $res = set_xterm_color( $colorschemes{$name} );
return $res;
}
sub get_colorschemes { return keys %colorschemes; }
1;
__END__
=pod
=head1 NAME
Term::ExtendedColor::Xresources::Colorscheme - Colorschemes
=head1 SYNOPSIS
use Term::ExtendedColor::Xresources qw(get_xterm_color set_xterm_color);
use Term::ExtendedColor::Xresources::Colorscheme qw(get_colorscheme);
my $colors = get_colorscheme('xterm');
set_xterm_color($colors);
=head1 DESCRIPTION
B<Term::ExtendedColor::Xresources::Colorscheme> provides a lot of pre-defined
colorschemes for the terminal.
=head1 EXPORTS
None by default.
=head1 FUNCTIONS
=head2 get_colorscheme()
=over 4
=item Arguments: $colorscheme
=item Return value: \%colorscheme
=back
Given a valid colorscheme name, return a hash reference where its keys are the
color indexes. Every index is mapped to a corresponding escape sequence that'll
change index color n when printed.
=head2 get_colorschemes()
=over 4
=item Arguments: None
=item Return value: @colorschemes
=back
Returns a list with all available colorschemes.
=head1 SEE ALSO
L<Term::ExtendedColor::Xresources>, L<Term::ExtendedColor>,
L<Term::ExtendedColor::TTY>
=head1 AUTHOR
Magnus Woldrich
CPAN ID: WOLDRICH
magnus@trapd00r.se
http://japh.se
=head1 CONTRIBUTORS
None required yet.
=head1 COPYRIGHT
Copyright 2010, 2011 the B<Term::ExtendedColor::Xresources::Colorscheme>
L</AUTHOR> and L</CONTRIBUTORS> as listed above.
=head1 LICENSE
This library is free software; you may redistribute it and/or modify it under
the same terms as Perl itself.
=cut

18
vim-colortest/PKGBUILD

@ -0,0 +1,18 @@ @@ -0,0 +1,18 @@
# Maintainer: John Jenkins <twodopeshaggy@gmail.com>
# contributor: portix <portix@gmx.net>
pkgname=vim-colortest
pkgver=0.1
_scriptid=4568
pkgrel=1
pkgdesc="xterm 256 color test and visual colors list"
arch=("i686" "x86_64")
url="http://www.vim.org/scripts/script.php?script_id=1349"
depends=('perl')
license=('WTFPL')
source=(colortest::http://www.vim.org/scripts/download_script.php?src_id=$_scriptid)
md5sums=('3fb0cacc39d4bbed8c06689740a8f62d')
package() {
install -D -m755 "${srcdir}/colortest" "${pkgdir}/usr/bin/colortest"
}

365
vim-colortest/colortest

@ -0,0 +1,365 @@ @@ -0,0 +1,365 @@
#!/usr/bin/perl
# by entheon, do whatever the hell you want with this file
print "\n";
print "**************************\n";
print "*XTERM 256Color Test Chart\n";
print "**************************\n";
print "* 16 = black\n";
print "* 255 = white\n";
print "*\n";
print "* Usage:\n";
print "* colortest -w\n";
print "* wide display\n";
print "*\n";
print "* colortest -w -r\n";
print "* wide display reversed\n";
print "*\n";
print "* colortest -w -s\n";
print "* extra spaces padding\n";
print "*\n";
print "* colortest -w -r -s\n";
print "* available combination\n";
print "*\n";
print "**************************\n";
if( $ARGV[0] eq "-w" || $ARGV[1] eq "-w" || $ARGV[2] eq "-w" ) {
push(@arr, [( " 16: 00/00/00", " 17: 00/00/5f", " 18: 00/00/87", " 19: 00/00/af", " 20: 00/00/d7", " 21: 00/00/ff")] );
push(@arr, [( " 22: 00/5f/00", " 23: 00/5f/5f", " 24: 00/5f/87", " 25: 00/5f/af", " 26: 00/5f/d7", " 27: 00/5f/ff")] );
push(@arr, [( " 28: 00/87/00", " 29: 00/87/5f", " 30: 00/87/87", " 31: 00/87/af", " 32: 00/87/d7", " 33: 00/87/ff")] );
push(@arr, [( " 34: 00/af/00", " 35: 00/af/5f", " 36: 00/af/87", " 37: 00/af/af", " 38: 00/af/d7", " 39: 00/af/ff")] );
push(@arr, [( " 40: 00/d7/00", " 41: 00/d7/5f", " 42: 00/d7/87", " 43: 00/d7/af", " 44: 00/d7/d7", " 45: 00/d7/ff")] );
push(@arr, [( " 46: 00/ff/00", " 47: 00/ff/5f", " 48: 00/ff/87", " 49: 00/ff/af", " 50: 00/ff/d7", " 51: 00/ff/ff")] );
push(@arr, [( " 52: 5f/00/00", " 53: 5f/00/5f", " 54: 5f/00/87", " 55: 5f/00/af", " 56: 5f/00/d7", " 57: 5f/00/ff")] );
push(@arr, [( " 58: 5f/5f/00", " 59: 5f/5f/5f", " 60: 5f/5f/87", " 61: 5f/5f/af", " 62: 5f/5f/d7", " 63: 5f/5f/ff")] );
push(@arr, [( " 64: 5f/87/00", " 65: 5f/87/5f", " 66: 5f/87/87", " 67: 5f/87/af", " 68: 5f/87/d7", " 69: 5f/87/ff")] );
push(@arr, [( " 70: 5f/af/00", " 71: 5f/af/5f", " 72: 5f/af/87", " 73: 5f/af/af", " 74: 5f/af/d7", " 75: 5f/af/ff")] );
push(@arr, [( " 76: 5f/d7/00", " 77: 5f/d7/5f", " 78: 5f/d7/87", " 79: 5f/d7/af", " 80: 5f/d7/d7", " 81: 5f/d7/ff")] );
push(@arr, [( " 82: 5f/ff/00", " 83: 5f/ff/5f", " 84: 5f/ff/87", " 85: 5f/ff/af", " 86: 5f/ff/d7", " 87: 5f/ff/ff")] );
push(@arr, [( " 88: 87/00/00", " 89: 87/00/5f", " 90: 87/00/87", " 91: 87/00/af", " 92: 87/00/d7", " 93: 87/00/ff")] );
push(@arr, [( " 94: 87/5f/00", " 95: 87/5f/5f", " 96: 87/5f/87", " 97: 87/5f/af", " 98: 87/5f/d7", " 99: 87/5f/ff")] );
push(@arr, [( " 100: 87/87/00", " 101: 87/87/5f", " 102: 87/87/87", " 103: 87/87/af", " 104: 87/87/d7", " 105: 87/87/ff")] );
push(@arr, [( " 106: 87/af/00", " 107: 87/af/5f", " 108: 87/af/87", " 109: 87/af/af", " 110: 87/af/d7", " 111: 87/af/ff")] );
push(@arr, [( " 112: 87/d7/00", " 113: 87/d7/5f", " 114: 87/d7/87", " 115: 87/d7/af", " 116: 87/d7/d7", " 117: 87/d7/ff")] );
push(@arr, [( " 118: 87/ff/00", " 119: 87/ff/5f", " 120: 87/ff/87", " 121: 87/ff/af", " 122: 87/ff/d7", " 123: 87/ff/ff")] );
push(@arr, [( " 124: af/00/00", " 125: af/00/5f", " 126: af/00/87", " 127: af/00/af", " 128: af/00/d7", " 129: af/00/ff")] );
push(@arr, [( " 130: af/5f/00", " 131: af/5f/5f", " 132: af/5f/87", " 133: af/5f/af", " 134: af/5f/d7", " 135: af/5f/ff")] );
push(@arr, [( " 136: af/87/00", " 137: af/87/5f", " 138: af/87/87", " 139: af/87/af", " 140: af/87/d7", " 141: af/87/ff")] );
push(@arr, [( " 142: af/af/00", " 143: af/af/5f", " 144: af/af/87", " 145: af/af/af", " 146: af/af/d7", " 147: af/af/ff")] );
push(@arr, [( " 148: af/d7/00", " 149: af/d7/5f", " 150: af/d7/87", " 151: af/d7/af", " 152: af/d7/d7", " 153: af/d7/ff")] );
push(@arr, [( " 154: af/ff/00", " 155: af/ff/5f", " 156: af/ff/87", " 157: af/ff/af", " 158: af/ff/d7", " 159: af/ff/ff")] );
push(@arr, [( " 160: d7/00/00", " 161: d7/00/5f", " 162: d7/00/87", " 163: d7/00/af", " 164: d7/00/d7", " 165: d7/00/ff")] );
push(@arr, [( " 166: d7/5f/00", " 167: d7/5f/5f", " 168: d7/5f/87", " 169: d7/5f/af", " 170: d7/5f/d7", " 171: d7/5f/ff")] );
push(@arr, [( " 172: d7/87/00", " 173: d7/87/5f", " 174: d7/87/87", " 175: d7/87/af", " 176: d7/87/d7", " 177: d7/87/ff")] );
push(@arr, [( " 178: d7/af/00", " 179: d7/af/5f", " 180: d7/af/87", " 181: d7/af/af", " 182: d7/af/d7", " 183: d7/af/ff")] );
push(@arr, [( " 184: d7/d7/00", " 185: d7/d7/5f", " 186: d7/d7/87", " 187: d7/d7/af", " 188: d7/d7/d7", " 189: d7/d7/ff")] );
push(@arr, [( " 190: d7/ff/00", " 191: d7/ff/5f", " 192: d7/ff/87", " 193: d7/ff/af", " 194: d7/ff/d7", " 195: d7/ff/ff")] );
push(@arr, [( " 196: ff/00/00", " 197: ff/00/5f", " 198: ff/00/87", " 199: ff/00/af", " 200: ff/00/d7", " 201: ff/00/ff")] );
push(@arr, [( " 202: ff/5f/00", " 203: ff/5f/5f", " 204: ff/5f/87", " 205: ff/5f/af", " 206: ff/5f/d7", " 207: ff/5f/ff")] );
push(@arr, [( " 208: ff/87/00", " 209: ff/87/5f", " 210: ff/87/87", " 211: ff/87/af", " 212: ff/87/d7", " 213: ff/87/ff")] );
push(@arr, [( " 214: ff/af/00", " 215: ff/af/5f", " 216: ff/af/87", " 217: ff/af/af", " 218: ff/af/d7", " 219: ff/af/ff")] );
push(@arr, [( " 220: ff/d7/00", " 221: ff/d7/5f", " 222: ff/d7/87", " 223: ff/d7/af", " 224: ff/d7/d7", " 225: ff/d7/ff")] );
push(@arr, [( " 226: ff/ff/00", " 227: ff/ff/5f", " 228: ff/ff/87", " 229: ff/ff/af", " 230: ff/ff/d7", " 231: ff/ff/ff")] );
push(@arr, [( " 232: 08/08/08", " 233: 12/12/12", " 234: 1c/1c/1c", " 235: 26/26/26", " 236: 30/30/30", " 237: 3a/3a/3a")] );
push(@arr, [( " 238: 44/44/44", " 239: 4e/4e/4e", " 240: 58/58/58", " 241: 62/62/62", " 242: 6c/6c/6c", " 243: 76/76/76")] );
push(@arr, [( " 244: 80/80/80", " 245: 8a/8a/8a", " 246: 94/94/94", " 247: 9e/9e/9e", " 248: a8/a8/a8", " 249: b2/b2/b2")] );
push(@arr, [( " 250: bc/bc/bc", " 251: c6/c6/c6", " 252: d0/d0/d0", " 253: da/da/da", " 254: e4/e4/e4", " 255: ee/ee/ee")] );
if( $ARGV[0] eq "-s" || $ARGV[1] eq "-s" || $ARGV[2] eq "-s" ){
$padding = " ";
}
else {
}
# display in reverse order
if( $ARGV[0] eq "-r" || $ARGV[1] eq "-r" || $ARGV[2] eq "-r" ){
for( $dimone = 0; $dimone < scalar @arr; $dimone++ ) {
$seed = ($dimone % 6) * -1;
for( $dimtwo = 0; $dimtwo < 6; $dimtwo++ ) {
$movone = $seed;
$movtwo = $seed * -1;
print $arr[$dimone][$dimtwo] . $padding;
$seed = $seed+1;
}
print "\n";
}
}
else {
for( $dimone = 0; $dimone < scalar @arr; $dimone++ ) {
$seed = ($dimone % 6) * -1;
for( $dimtwo = 0; $dimtwo < 6; $dimtwo++ ) {
$movone = $seed;
$movtwo = $seed * -1;
$newone = $dimone+$movone;
$newtwo = $dimtwo+$movtwo;
if( $newone < scalar @arr ){
print $arr[$newone][$newtwo] . $padding;
}
$seed = $seed+1;
}
print "\n";
}
}
print "\n";
print "\n";
}
else {
print " 16: 00/00/00\n";
print " 17: 00/00/5f\n";
print " 18: 00/00/87\n";
print " 19: 00/00/af\n";
print " 20: 00/00/d7\n";
print " 21: 00/00/ff\n";
print " 22: 00/5f/00\n";
print " 23: 00/5f/5f\n";
print " 24: 00/5f/87\n";
print " 25: 00/5f/af\n";
print " 26: 00/5f/d7\n";
print " 27: 00/5f/ff\n";
print " 28: 00/87/00\n";
print " 29: 00/87/5f\n";
print " 30: 00/87/87\n";
print " 31: 00/87/af\n";
print " 32: 00/87/d7\n";
print " 33: 00/87/ff\n";
print " 34: 00/af/00\n";
print " 35: 00/af/5f\n";
print " 36: 00/af/87\n";
print " 37: 00/af/af\n";
print " 38: 00/af/d7\n";
print " 39: 00/af/ff\n";
print " 40: 00/d7/00\n";
print " 41: 00/d7/5f\n";
print " 42: 00/d7/87\n";
print " 43: 00/d7/af\n";
print " 44: 00/d7/d7\n";
print " 45: 00/d7/ff\n";
print " 46: 00/ff/00\n";
print " 47: 00/ff/5f\n";
print " 48: 00/ff/87\n";
print " 49: 00/ff/af\n";
print " 50: 00/ff/d7\n";
print " 51: 00/ff/ff\n";
print " 52: 5f/00/00\n";
print " 53: 5f/00/5f\n";
print " 54: 5f/00/87\n";
print " 55: 5f/00/af\n";
print " 56: 5f/00/d7\n";
print " 57: 5f/00/ff\n";
print " 58: 5f/5f/00\n";
print " 59: 5f/5f/5f\n";
print " 60: 5f/5f/87\n";
print " 61: 5f/5f/af\n";
print " 62: 5f/5f/d7\n";
print " 63: 5f/5f/ff\n";
print " 64: 5f/87/00\n";
print " 65: 5f/87/5f\n";