You are not logged in.

#476 2008-03-24 11:52:11

lyrae
Member
From: Australia
Registered: 2006-08-03
Posts: 142

Re: March 2008 Screenshots

ST.x wrote:
lyrae wrote:

http://xs125.xs.to/xs125/08131/grey222.png.xs.jpg

Kdemod
Inspired by a screenshot at customize.org.  Decided to try it with kde so here is the result!

niice colours, can you link us to the wall please?

Sure,   http://customize.org/wallpapers/48962

Offline

#477 2008-03-24 14:39:04

schivmeister
Developer/TU
From: Singapore
Registered: 2007-05-17
Posts: 971
Website

Re: March 2008 Screenshots

preview1he6.th.png

Inspired by Coal.


I need real, proper pen and paper for this.

Offline

#478 2008-03-24 16:01:29

sunn
Member
From: Norway
Registered: 2007-10-24
Posts: 41

Re: March 2008 Screenshots

2008-03-24-scrot-thumb.png
I've finally gotten around to installing the lcd font packages, and my fonts look better than ever. big_smile I had to make the terminal font slightly larger than it was before for it to look good though - I may play around a bit more with it, maybe try a different font or something.
My xfwm theme is basically thayer's excellent 1977 openbox theme, only for xfwm. I put it together myself. Hope you don't mind, thayer. smile

Last edited by sunn (2008-03-24 16:03:12)

Offline

#479 2008-03-24 16:09:13

Don-DiZzLe
Member
From: Nederland
Registered: 2007-03-31
Posts: 233

Re: March 2008 Screenshots

0324081280x1024yd6.th.png

Kudos to Gigamo for his excellent config and the guys at the #awesome channel. Keep up the great work!

Offline

#480 2008-03-24 19:18:11

Sjoden
Member
From: WA
Registered: 2007-08-16
Posts: 380
Website

Re: March 2008 Screenshots

@lyrae, what menu is that?

Offline

#481 2008-03-24 19:45:01

oew
Member
From: Norway
Registered: 2006-11-08
Posts: 105

Re: March 2008 Screenshots

Back with Arch and Openbox after a long time.
Nothing special really, but i am happy with this smile
march08_scrot.xs.png

Openbox and GTK theme is: Nova-Arch
Wallpaper: arch.blue
Font: DejaVu Sans Book


mvh
oew

Last edited by oew (2008-03-24 19:49:24)


there's no place like ~/

Offline

#482 2008-03-24 22:03:57

lyrae
Member
From: Australia
Registered: 2006-08-03
Posts: 142

Re: March 2008 Screenshots

@ Sjoden, it is a normal kmenu minus the icons.

Offline

#483 2008-03-24 22:42:38

ep2011
Member
Registered: 2008-02-28
Posts: 66

Re: March 2008 Screenshots

oew wrote:

Back with Arch and Openbox after a long time.
Nothing special really, but i am happy with this smile
[image]

Openbox and GTK theme is: Nova-Arch
Wallpaper: arch.blue
Font: DejaVu Sans Book

Can I have your conky config please? Looks very nice and matches your pypanel (and my pypanel is very similar so it would match mine too smile )

Last edited by ep2011 (2008-03-24 22:42:46)

Offline

#484 2008-03-24 23:40:37

Sjoden
Member
From: WA
Registered: 2007-08-16
Posts: 380
Website

Re: March 2008 Screenshots

@lyrae, Do you only have kwin loaded, without a desktop? I tried just starting kwin by itself, but i have no right click, I can only move the pointer, which is just an "X". I'm clueless as to how you set up that enviroment.

Offline

#485 2008-03-24 23:54:32

ep2011
Member
Registered: 2008-02-28
Posts: 66

Re: March 2008 Screenshots

Did a few updates...

screen194420zx2.th.jpg

Details are in my screenshot. My theme is a custom mix of 1977, Nova and Carbon. I don't think I can release it because I don't have permission, but it is easy enough to create yourself. That is also mplayer with ivtv drivers and a perl program to control the channels of the tv... I found that on ubuntu forums so I may be able to find the original post if someone wants it. Any other config is available on request.

edit: just realized that the info thing in urxvt is wrong. My icons are area-blue and I have no idea what my font is...
edit2: just fixed the info thing, and according to it my font is "Sans 9"

Last edited by ep2011 (2008-03-25 00:01:30)

Offline

#486 2008-03-25 00:44:05

Reasons
Member
From: Washington
Registered: 2007-11-04
Posts: 572

Re: March 2008 Screenshots

ep2011, what font are you using in the terminal or is that Sans too? Also, can you post the screenshot grabber you're using or the graphic part of it?
Thanks.

Offline

#487 2008-03-25 01:09:28

ep2011
Member
Registered: 2008-02-28
Posts: 66

Re: March 2008 Screenshots

Reasons wrote:

ep2011, what font are you using in the terminal or is that Sans too? Also, can you post the screenshot grabber you're using or the graphic part of it?
Thanks.

The screenshot grabber is from this thread, about a page or two previous...

thayer wrote:

[...]

Info-script: http://pastebin.com/f46fa06c4 (stats) and http://pastebin.com/f5d433ae4 (ascii art)

^^ what i did was call the first one info.pl and the second logos3.pl. i edited the first file and changed

require 'logos3.pl';

to

require '/path/to/logos3.pl';

And for the font, I think that according to my .Xdefaults that it is DejaVu Sans Mono with a size of 8.

Last edited by ep2011 (2008-03-25 01:10:18)

Offline

#488 2008-03-25 01:40:37

hk2717
Member
From: China
Registered: 2007-09-13
Posts: 217

Re: March 2008 Screenshots

@ep2011: What is the icon theme please?

Offline

#489 2008-03-25 01:41:59

ep2011
Member
Registered: 2008-02-28
Posts: 66

Re: March 2008 Screenshots

hk2717 wrote:

@ep2011: What is the icon theme please?

Area-blue - http://www.gnome-look.org/content/show. … HPSESSID=6

Offline

#490 2008-03-25 02:17:51

disturbed1
Member
Registered: 2008-02-29
Posts: 13

Re: March 2008 Screenshots

Just a plain Gnome.

01ag9.th.png


02yf6.th.png

Offline

#491 2008-03-25 02:18:15

Reasons
Member
From: Washington
Registered: 2007-11-04
Posts: 572

Re: March 2008 Screenshots

ep2011 wrote:
Reasons wrote:

ep2011, what font are you using in the terminal or is that Sans too? Also, can you post the screenshot grabber you're using or the graphic part of it?
Thanks.

The screenshot grabber is from this thread, about a page or two previous...

thayer wrote:

[...]

Info-script: http://pastebin.com/f46fa06c4 (stats) and http://pastebin.com/f5d433ae4 (ascii art)

^^ what i did was call the first one info.pl and the second logos3.pl. i edited the first file and changed

require 'logos3.pl';

to

require '/path/to/logos3.pl';

And for the font, I think that according to my .Xdefaults that it is DejaVu Sans Mono with a size of 8.

Thanks. I use the same font, guess my fonts.conf is just a bit different as it renders thinner. Thansk for the ascii. smile

Offline

#492 2008-03-25 02:24:27

chris_ak
Member
Registered: 2008-03-25
Posts: 64

Re: March 2008 Screenshots

200803241802221280x800szu2.th.png
My first try at openbox... and also my first post on the archlinux forum.  Thanks to those who posted their openbox screenshots and config files on the openbox thread.  I borrowed nearly all aspects of my setup from the various posts on there, notably that of reasons setup.  I finally decided I could part with compiz and I've found a better life with openbox.   Also, does anyone know why the OS part of the info script comes up blank?  I've seen this problem on a few other users shots.  Here's the script that I copied off of one of those older threads:

#!/usr/bin/perl
use Switch;

use strict;



####################

## Config options ##

####################



## What distro logo to use to use, Available "Archlinux Debian None" ##

my $distro = "Archlinux";



## what values to display. Use "OS Kernel DE WM win_theme Theme Font Icons" ##

my $display = "OS Kernel DE WM Win_theme Theme Icons Font";



## Takes a screen shot if set to 0 ##

my $shot = 1;

## Command to run to take screen shot ##

my $command = "scrot";



## What colors to use for the variables. ##

my $textcolor = "\e[0m";



## Prints little debugging messages if set to 0 ##

my $quite = 1;







########################

## Script starts here ##

########################

## Define some thing to work with strict ##

my @line = ();

my $found = 0;

my $DE = "NONE";

my $WM = "NONE";



## Hash of WMs and the process they run ##

my %WMlist = ("Beryl", "beryl",

              "Fluxbox", "fluxbox",

              "Openbox", "openbox",

              "Blackbox", "blackbox",

              "Xfwm4", "xfwm4",

              "Metacity", "metacity",

              "Kwin", "kwin",

              "FVWM", "fvwm",

              "Enlightenment", "enlightenment",

              "IceWM", "icewm",

              "Window Maker", "wmaker",

              "PekWM","pekwm" );



## Hash of DEs and the process they run ##     

my %DElist = ("Gnome", "gnome-session",

              "Xfce4", "xfce-mcs-manage",

              "KDE", "ksmserver");



## Get Kernel version ##

if ( $display =~ "Kernel"){

  print "\::$textcolor Finding Kernel version\n" unless $quite == 1;

  my $kernel = `uname -r`;

  $kernel =~ s/\s+/ /g;

  $kernel = " Kernel:$textcolor $kernel";

  push(@line, "$kernel");

}



## Find running processes ##

print "\::$textcolor Getting processes \n" unless $quite == 1;

my $processes = `ps -A | awk {'print \$4'}`;



## Find DE ##

while( (my $DEname, my $DEprocess) = each(%DElist) ) {

  print "\::$textcolor Testing $DEname process: $DEprocess \n" unless $quite == 1;

  if ( $processes =~ m/$DEprocess/ ) {

    $DE = $DEname;

    print "\::$textcolor DE found as $DE\n" unless $quite == 1;

    if( $display =~ m/DE/ ) {

      push(@line, " DE:$textcolor $DE");

    }

    last;

  }

}



## Find WM ##

while( (my $WMname, my $WMprocess) = each(%WMlist) ) {

 print "\::$textcolor Testing $WMname process: $WMprocess \n" unless $quite == 1;

  if ( $processes =~ m/$WMprocess/ ) {

    $WM = $WMname;

    print "\::$textcolor WM found as $WM\n" unless $quite == 1;

    if( $display =~ m/WM/ ) {

      push(@line, " WM:$textcolor $WM");

    }

    last;

  }

}



## Find WM theme ##

if ( $display =~ m/Win_theme/ ){

  switch($WM) {

    case "Openbox" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.config/openbox/rc.xml")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /<name>(.+)<\/name>/ ) {

          while ( $found == 0 ) {

            print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

            push(@line, " WM Theme:$textcolor $1");

            $found = 1;

          }

        }

      }

      close(FILE);

    }

    case "Beryl" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.emerald/themes/schoensyDarkgreen/theme.ini")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /name=(.+)/ ) {

          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

          push(@line, " WM Theme:$textcolor $1");

        }

      }

      close(FILE);

    }

    case "Metacity" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      my $gconf = `gconftool-2 -g /apps/metacity/general/theme`;

      print "\::$textcolor $WM theme found as $gconf\n" unless $quite == 1;

      chomp ($gconf);

      push(@line, " WM Theme:$textcolor $gconf");

    }

    case "Fluxbox" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.fluxbox/init")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /session.styleFile:.*\/(.+)/ ) {

          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

          push(@line, " WM Theme:$textcolor $1");

        }

      }

      close(FILE);

    }

    case "Blackbox" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.blackboxrc")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /session.styleFile:.*\/(.+)/ ) {

          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

          push(@line, " WM Theme:$textcolor $1");

        }

      }

      close(FILE);

    }

    case "Xfwm4" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.config/xfce4/mcs_settings/xfwm4.xml")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /<option name="Xfwm\/ThemeName" type="string" value="(.+)"\/>/ ) {

          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

          push(@line, " WM Theme:$textcolor $1");

        }

  } 

      close(FILE);

    }

    case "Kwin" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.kde/share/config/kwinrc")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /PluginLib=kwin3_(.+)/ ) {

          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

          push(@line, " WM Theme:$textcolor $1");

        }

      }

      close(FILE);

    }

    case "Enlightenment" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      my $remote = `enlightenment_remote -theme-get theme` ;

      if( $remote =~ m/.*FILE="(.+).edj"/ ) {

        print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

        push(@line, " WM Theme:$textcolor $1");

      }     

    }       

    case "IceWM" { 

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.icewm/theme")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /Theme="(.+)\/.*.theme/ ) {

          while( $found == 0 ) {

            print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

            push(@line, " WM Theme:$textcolor $1");

            $found = 1;

          }

        }

      }   

      close(FILE);

    }   

    case "PekWM" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.pekwm/config")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /Theme.*\/(.*)"/ ) {

            print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

            push(@line, " WM Theme:$textcolor $1");

        }

      }

      close(FILE); 

    } 

  }   

}     

      

## Find Theme Icon ans Font ##

if ( $display =~ m/[Theme, Icons, Font,]/) {

  switch($DE) {

    case "Gnome" {

      print "\::$textcolor Finding $DE variables\n" unless $quite == 1;

      if ( $display =~ m/Theme/ ) {

        my $gconf = `gconftool-2 -g /desktop/gnome/interface/gtk_theme`;

        chomp ($gconf);

        print "\::$textcolor GTK Theme found as $1\n" unless $quite == 1;

        push(@line, " GTK Theme:$textcolor $gconf");

      }

      if ( $display =~ m/Icons/ ) {

        my $gconf = `gconftool-2 -g /desktop/gnome/interface/icon_theme`;

        chomp ($gconf);

        push(@line, " Icons:$textcolor $gconf");

      } 

      if ( $display =~ m/Font/ ) {

        my $gconf = `gconftool-2 -g /desktop/gnome/interface/font_name`;

        chomp ($gconf);

        push(@line, " Font:$textcolor $gconf");

      }

    } 

    case "Xfce4" {

      my @sort = ();

      print "\::$textcolor Finding $DE variables\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.config/xfce4/mcs_settings/gtk.xml")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

     if ( $display =~ m/Theme/ ) {

          if (/<option name="Net\/ThemeName" type="string" value="(.+)"\/>/ ) {

            print "\::$textcolor GTK Theme found as $1\n" unless $quite == 1;

            unshift(@sort, " GTK Theme:$textcolor $1");

          } 

        }

        if ( $display =~ m/Icons/ ) {

          if (/<option name="Net\/IconThemeName" type="string" value="(.+)"\/>/ ) {

            print "\::$textcolor Icons found as $1\n" unless $quite == 1;

            unshift(@sort, " Icons:$textcolor $1");

          }

        }

        if ( $display =~ m/Font/ ) {

          if ( /<option name="Gtk\/FontName" type="string" value="(.+)"\/>/ ) {

            print "\::$textcolor Font found as $1\n" unless $quite == 1;

            unshift(@sort, " Font:$textcolor $1");

          } 

        }

      }

      close(FILE);

      ## Sort variables so they're ordered "Theme Icon Font" ##

      foreach my $i (@sort) {

        push(@line, "$i");

      }

    } 

    case "KDE" { 

      print "\::$textcolor Finding $DE variables\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.kde/share/config/kdeglobals")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) { 

        if ( $display =~ m/Theme/ ) {

          if ( /widgetStyle=(.+)/  ) {

            print "\::$textcolor Wiget Style found as $1\n" unless $quite == 1;

            push(@line, " Wiget Style:$textcolor $1");

          }

          if (/colorScheme=(.+).kcsrc/ ) {

            print "\::$textcolor Color Scheme found as $1\n" unless $quite == 1;

            push(@line, " Color Scheme:$textcolor $1");

          }

        }

        if ( $display =~ m/Icons/ ) {

          if ( /Theme=(.+)/ ) {

            print "\::$textcolor Icons found as $1\n" unless $quite == 1;

            push(@line, " Icons:$textcolor $1");

          } 

        }   

        if ( $display =~ m/Font/ ) {

          if ( /font=(.+)/ ) {

            my $font = (split/,/, $1)[0];

            print "\::$textcolor Font found as $font\n" unless $quite == 1;

            push(@line, " Font:$textcolor $font");

          }

        }

      }

      close(FILE);

  

    }

    else {

      my @files = ("$ENV{HOME}/.gtkrc-2.0", "$ENV{HOME}/.gtkrc.mine",);

      foreach my $file (@files) {

        if ( -e $file ) {

          print "\::$textcolor Opening $file\n" unless $quite == 1; 

          open(FILE, $file)

          || die "\e[0;31m<Failed>\n";

          while( <FILE> ) {

            if ( $display =~ m/Theme/ ) {

              if( /include ".*themes\/(.+)\/gtk-(1|2)\.0\/gtkrc"/ ){

                print "\::$textcolor GTK theme found as $1\n" unless $quite == 1;

                push(@line, " GTK Theme:$textcolor $1");

              }

            }

            if ( $display =~ m/Icons/ ) {

              if( /.*gtk-icon-theme-name.*"(.+)"/ ) {

                print "\::$textcolor Icons found as $1\n" unless $quite == 1;

                push(@line, " Icons:$textcolor $1");

              }

            }

            if ( $display =~ m/Font/ ) {

              if( /.*gtk-font-name.*"(.+)"/ ) {

                print "\::$textcolor Font found as $1\n" unless $quite == 1;

                push(@line, " Font:$textcolor $1");

             }

            }

          }

          close(FILE);

        }

      }

    }

  }

}



## Display the system info ##



if ( $distro =~ m/Archlinux/ ) {



## Get Archlinux version ##

if ( $display =~ "OS"){

  print "\::$textcolor Finding Archlinux version\n" unless $quite == 1;

  my $version = `cat /etc/arch-release`;

  $version =~ s/\s+/ /g;

  $version = " OS:$textcolor $version";

  unshift(@line, "$version");

}



my $c1 = "\e[0;32m";

my $c2 = "\e[1;32m";



print "$c1              __
$c1          _=(SDGJT=_
$c1        _GTDJHGGFCVS)                $c1@line[0]
$c1       ,GTDJGGDTDFBGX0               $c1@line[1]
$c1      JDJDIJHRORVFSBSVL$c2-=+=,_        $c1@line[2]
$c1     IJFDUFHJNXIXCDXDSV,$c2  \"DEBL      $c1@line[3]
$c1    [LKDSDJTDU=OUSCSBFLD.$c2   '?ZWX,   $c1@line[4]
$c1   ,LMDSDSWH'     \`DCBOSI$c2     DRDS], $c1@line[5]
$c1   SDDFDFH'         !YEWD,$c2   )HDROD  $c1@line[6]
$c1  !KMDOCG            &GSU|$c2\_GFHRGO'   $c1@line[7]
$c1  HKLSGP'$c2           __$c1\TKM0$c2\GHRBV)'    $c1@line[8]
$c1 JSNRVW'$c2       __+MNAEC$c1\IOI,$c2\BN'
$c1 HELK['$c2    __,=OFFXCBGHC$c1\FD)
$c1 ?KGHE $c2\_-#DASDFLSV='$c1    'EF
$c1 'EHTI                   !H
$c1  \`0F'                   '!
\e[0m";

}





if ( $distro =~ m/None/ ) {

my $color = "\e[0;34m";

  foreach my $filled ( @line ) {

    print "$color $filled\n"

  }

}



if ( $distro =~ m/Debian/ ) {



## Get Debian version ##

if ( $display =~ "OS"){

  print "\::$textcolor Finding Debian version\n" unless $quite == 1;

  my $version = `cat /etc/Debian_release`;

  $version =~ s/\s+/ /g;

  $version = " OS:$textcolor $version";

  unshift(@line, "$version");

}



my $c1 = "\e[0;31m";



print "

$c1       _,met\$\$\$\$\$gg.

$c1    ,g\$\$\$\$\$\$\$\$\$\$\$\$\$\$\$P.

$c1  ,g\$\$P\"\"       \"\"\"Y\$\$.\".              @line[0]

$c1 ,\$\$P'              \`\$\$\$.              @line[1]

$c1',\$\$P       ,ggs.     \`\$\$b:            @line[2]

$c1\`d\$\$'     ,\$P\"'   .    \$\$\$             @line[3]

$c1 \$\$P      d\$'     ,    \$\$P             @line[4]

$c1 \$\$:      \$\$.   -    ,d\$\$'             @line[5]

$c1 \$\$\;      Y\$b._   _,d\$P'               @line[6]

$c1 Y\$\$.    \`.\`\"Y\$\$\$\$P\"'                  @line[7]

$c1 \`\$\$b      \"-.__                       @line[8]

$c1  \`Y\$\$

$c1   \`Y\$\$.

$c1     \`\$\$b.

$c1       \`Y\$\$b.

$c1          \`\"Y\$b._

$c1              \`\"\"\"\"

\e[0m";   

}       

      

## Run screen shot graper ##

`$command` unless $shot != 0;

Offline

#493 2008-03-25 02:33:38

solarwind
Member
From: Toronto
Registered: 2008-03-18
Posts: 546

Re: March 2008 Screenshots

chris_ak wrote:

http://img72.imageshack.us/img72/3382/2 … zu2.th.png
My first try at openbox... and also my first post on the archlinux forum.  Thanks to those who posted their openbox screenshots and config files on the openbox thread.  I borrowed nearly all aspects of my setup from the various posts on there, notably that of reasons setup.  I finally decided I could part with compiz and I've found a better life with openbox.   Also, does anyone know why the OS part of the info script comes up blank?  I've seen this problem on a few other users shots.  Here's the script that I copied off of one of those older threads:

#!/usr/bin/perl
use Switch;

use strict;



####################

## Config options ##

####################



## What distro logo to use to use, Available "Archlinux Debian None" ##

my $distro = "Archlinux";



## what values to display. Use "OS Kernel DE WM win_theme Theme Font Icons" ##

my $display = "OS Kernel DE WM Win_theme Theme Icons Font";



## Takes a screen shot if set to 0 ##

my $shot = 1;

## Command to run to take screen shot ##

my $command = "scrot";



## What colors to use for the variables. ##

my $textcolor = "\e[0m";



## Prints little debugging messages if set to 0 ##

my $quite = 1;







########################

## Script starts here ##

########################

## Define some thing to work with strict ##

my @line = ();

my $found = 0;

my $DE = "NONE";

my $WM = "NONE";



## Hash of WMs and the process they run ##

my %WMlist = ("Beryl", "beryl",

              "Fluxbox", "fluxbox",

              "Openbox", "openbox",

              "Blackbox", "blackbox",

              "Xfwm4", "xfwm4",

              "Metacity", "metacity",

              "Kwin", "kwin",

              "FVWM", "fvwm",

              "Enlightenment", "enlightenment",

              "IceWM", "icewm",

              "Window Maker", "wmaker",

              "PekWM","pekwm" );



## Hash of DEs and the process they run ##     

my %DElist = ("Gnome", "gnome-session",

              "Xfce4", "xfce-mcs-manage",

              "KDE", "ksmserver");



## Get Kernel version ##

if ( $display =~ "Kernel"){

  print "\::$textcolor Finding Kernel version\n" unless $quite == 1;

  my $kernel = `uname -r`;

  $kernel =~ s/\s+/ /g;

  $kernel = " Kernel:$textcolor $kernel";

  push(@line, "$kernel");

}



## Find running processes ##

print "\::$textcolor Getting processes \n" unless $quite == 1;

my $processes = `ps -A | awk {'print \$4'}`;



## Find DE ##

while( (my $DEname, my $DEprocess) = each(%DElist) ) {

  print "\::$textcolor Testing $DEname process: $DEprocess \n" unless $quite == 1;

  if ( $processes =~ m/$DEprocess/ ) {

    $DE = $DEname;

    print "\::$textcolor DE found as $DE\n" unless $quite == 1;

    if( $display =~ m/DE/ ) {

      push(@line, " DE:$textcolor $DE");

    }

    last;

  }

}



## Find WM ##

while( (my $WMname, my $WMprocess) = each(%WMlist) ) {

 print "\::$textcolor Testing $WMname process: $WMprocess \n" unless $quite == 1;

  if ( $processes =~ m/$WMprocess/ ) {

    $WM = $WMname;

    print "\::$textcolor WM found as $WM\n" unless $quite == 1;

    if( $display =~ m/WM/ ) {

      push(@line, " WM:$textcolor $WM");

    }

    last;

  }

}



## Find WM theme ##

if ( $display =~ m/Win_theme/ ){

  switch($WM) {

    case "Openbox" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.config/openbox/rc.xml")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /<name>(.+)<\/name>/ ) {

          while ( $found == 0 ) {

            print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

            push(@line, " WM Theme:$textcolor $1");

            $found = 1;

          }

        }

      }

      close(FILE);

    }

    case "Beryl" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.emerald/themes/schoensyDarkgreen/theme.ini")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /name=(.+)/ ) {

          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

          push(@line, " WM Theme:$textcolor $1");

        }

      }

      close(FILE);

    }

    case "Metacity" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      my $gconf = `gconftool-2 -g /apps/metacity/general/theme`;

      print "\::$textcolor $WM theme found as $gconf\n" unless $quite == 1;

      chomp ($gconf);

      push(@line, " WM Theme:$textcolor $gconf");

    }

    case "Fluxbox" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.fluxbox/init")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /session.styleFile:.*\/(.+)/ ) {

          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

          push(@line, " WM Theme:$textcolor $1");

        }

      }

      close(FILE);

    }

    case "Blackbox" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.blackboxrc")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /session.styleFile:.*\/(.+)/ ) {

          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

          push(@line, " WM Theme:$textcolor $1");

        }

      }

      close(FILE);

    }

    case "Xfwm4" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.config/xfce4/mcs_settings/xfwm4.xml")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /<option name="Xfwm\/ThemeName" type="string" value="(.+)"\/>/ ) {

          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

          push(@line, " WM Theme:$textcolor $1");

        }

  } 

      close(FILE);

    }

    case "Kwin" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.kde/share/config/kwinrc")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /PluginLib=kwin3_(.+)/ ) {

          print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

          push(@line, " WM Theme:$textcolor $1");

        }

      }

      close(FILE);

    }

    case "Enlightenment" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      my $remote = `enlightenment_remote -theme-get theme` ;

      if( $remote =~ m/.*FILE="(.+).edj"/ ) {

        print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

        push(@line, " WM Theme:$textcolor $1");

      }     

    }       

    case "IceWM" { 

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.icewm/theme")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /Theme="(.+)\/.*.theme/ ) {

          while( $found == 0 ) {

            print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

            push(@line, " WM Theme:$textcolor $1");

            $found = 1;

          }

        }

      }   

      close(FILE);

    }   

    case "PekWM" {

      print "\::$textcolor Finding $WM theme\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.pekwm/config")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

        if( /Theme.*\/(.*)"/ ) {

            print "\::$textcolor $WM theme found as $1\n" unless $quite == 1;

            push(@line, " WM Theme:$textcolor $1");

        }

      }

      close(FILE); 

    } 

  }   

}     

      

## Find Theme Icon ans Font ##

if ( $display =~ m/[Theme, Icons, Font,]/) {

  switch($DE) {

    case "Gnome" {

      print "\::$textcolor Finding $DE variables\n" unless $quite == 1;

      if ( $display =~ m/Theme/ ) {

        my $gconf = `gconftool-2 -g /desktop/gnome/interface/gtk_theme`;

        chomp ($gconf);

        print "\::$textcolor GTK Theme found as $1\n" unless $quite == 1;

        push(@line, " GTK Theme:$textcolor $gconf");

      }

      if ( $display =~ m/Icons/ ) {

        my $gconf = `gconftool-2 -g /desktop/gnome/interface/icon_theme`;

        chomp ($gconf);

        push(@line, " Icons:$textcolor $gconf");

      } 

      if ( $display =~ m/Font/ ) {

        my $gconf = `gconftool-2 -g /desktop/gnome/interface/font_name`;

        chomp ($gconf);

        push(@line, " Font:$textcolor $gconf");

      }

    } 

    case "Xfce4" {

      my @sort = ();

      print "\::$textcolor Finding $DE variables\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.config/xfce4/mcs_settings/gtk.xml")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) {

     if ( $display =~ m/Theme/ ) {

          if (/<option name="Net\/ThemeName" type="string" value="(.+)"\/>/ ) {

            print "\::$textcolor GTK Theme found as $1\n" unless $quite == 1;

            unshift(@sort, " GTK Theme:$textcolor $1");

          } 

        }

        if ( $display =~ m/Icons/ ) {

          if (/<option name="Net\/IconThemeName" type="string" value="(.+)"\/>/ ) {

            print "\::$textcolor Icons found as $1\n" unless $quite == 1;

            unshift(@sort, " Icons:$textcolor $1");

          }

        }

        if ( $display =~ m/Font/ ) {

          if ( /<option name="Gtk\/FontName" type="string" value="(.+)"\/>/ ) {

            print "\::$textcolor Font found as $1\n" unless $quite == 1;

            unshift(@sort, " Font:$textcolor $1");

          } 

        }

      }

      close(FILE);

      ## Sort variables so they're ordered "Theme Icon Font" ##

      foreach my $i (@sort) {

        push(@line, "$i");

      }

    } 

    case "KDE" { 

      print "\::$textcolor Finding $DE variables\n" unless $quite == 1;

      open(FILE, "$ENV{HOME}/.kde/share/config/kdeglobals")

      || die "\e[0;31m<Failed>\n";

      while( <FILE> ) { 

        if ( $display =~ m/Theme/ ) {

          if ( /widgetStyle=(.+)/  ) {

            print "\::$textcolor Wiget Style found as $1\n" unless $quite == 1;

            push(@line, " Wiget Style:$textcolor $1");

          }

          if (/colorScheme=(.+).kcsrc/ ) {

            print "\::$textcolor Color Scheme found as $1\n" unless $quite == 1;

            push(@line, " Color Scheme:$textcolor $1");

          }

        }

        if ( $display =~ m/Icons/ ) {

          if ( /Theme=(.+)/ ) {

            print "\::$textcolor Icons found as $1\n" unless $quite == 1;

            push(@line, " Icons:$textcolor $1");

          } 

        }   

        if ( $display =~ m/Font/ ) {

          if ( /font=(.+)/ ) {

            my $font = (split/,/, $1)[0];

            print "\::$textcolor Font found as $font\n" unless $quite == 1;

            push(@line, " Font:$textcolor $font");

          }

        }

      }

      close(FILE);

  

    }

    else {

      my @files = ("$ENV{HOME}/.gtkrc-2.0", "$ENV{HOME}/.gtkrc.mine",);

      foreach my $file (@files) {

        if ( -e $file ) {

          print "\::$textcolor Opening $file\n" unless $quite == 1; 

          open(FILE, $file)

          || die "\e[0;31m<Failed>\n";

          while( <FILE> ) {

            if ( $display =~ m/Theme/ ) {

              if( /include ".*themes\/(.+)\/gtk-(1|2)\.0\/gtkrc"/ ){

                print "\::$textcolor GTK theme found as $1\n" unless $quite == 1;

                push(@line, " GTK Theme:$textcolor $1");

              }

            }

            if ( $display =~ m/Icons/ ) {

              if( /.*gtk-icon-theme-name.*"(.+)"/ ) {

                print "\::$textcolor Icons found as $1\n" unless $quite == 1;

                push(@line, " Icons:$textcolor $1");

              }

            }

            if ( $display =~ m/Font/ ) {

              if( /.*gtk-font-name.*"(.+)"/ ) {

                print "\::$textcolor Font found as $1\n" unless $quite == 1;

                push(@line, " Font:$textcolor $1");

             }

            }

          }

          close(FILE);

        }

      }

    }

  }

}



## Display the system info ##



if ( $distro =~ m/Archlinux/ ) {



## Get Archlinux version ##

if ( $display =~ "OS"){

  print "\::$textcolor Finding Archlinux version\n" unless $quite == 1;

  my $version = `cat /etc/arch-release`;

  $version =~ s/\s+/ /g;

  $version = " OS:$textcolor $version";

  unshift(@line, "$version");

}



my $c1 = "\e[0;32m";

my $c2 = "\e[1;32m";



print "$c1              __
$c1          _=(SDGJT=_
$c1        _GTDJHGGFCVS)                $c1@line[0]
$c1       ,GTDJGGDTDFBGX0               $c1@line[1]
$c1      JDJDIJHRORVFSBSVL$c2-=+=,_        $c1@line[2]
$c1     IJFDUFHJNXIXCDXDSV,$c2  \"DEBL      $c1@line[3]
$c1    [LKDSDJTDU=OUSCSBFLD.$c2   '?ZWX,   $c1@line[4]
$c1   ,LMDSDSWH'     \`DCBOSI$c2     DRDS], $c1@line[5]
$c1   SDDFDFH'         !YEWD,$c2   )HDROD  $c1@line[6]
$c1  !KMDOCG            &GSU|$c2\_GFHRGO'   $c1@line[7]
$c1  HKLSGP'$c2           __$c1\TKM0$c2\GHRBV)'    $c1@line[8]
$c1 JSNRVW'$c2       __+MNAEC$c1\IOI,$c2\BN'
$c1 HELK['$c2    __,=OFFXCBGHC$c1\FD)
$c1 ?KGHE $c2\_-#DASDFLSV='$c1    'EF
$c1 'EHTI                   !H
$c1  \`0F'                   '!
\e[0m";

}





if ( $distro =~ m/None/ ) {

my $color = "\e[0;34m";

  foreach my $filled ( @line ) {

    print "$color $filled\n"

  }

}



if ( $distro =~ m/Debian/ ) {



## Get Debian version ##

if ( $display =~ "OS"){

  print "\::$textcolor Finding Debian version\n" unless $quite == 1;

  my $version = `cat /etc/Debian_release`;

  $version =~ s/\s+/ /g;

  $version = " OS:$textcolor $version";

  unshift(@line, "$version");

}



my $c1 = "\e[0;31m";



print "

$c1       _,met\$\$\$\$\$gg.

$c1    ,g\$\$\$\$\$\$\$\$\$\$\$\$\$\$\$P.

$c1  ,g\$\$P\"\"       \"\"\"Y\$\$.\".              @line[0]

$c1 ,\$\$P'              \`\$\$\$.              @line[1]

$c1',\$\$P       ,ggs.     \`\$\$b:            @line[2]

$c1\`d\$\$'     ,\$P\"'   .    \$\$\$             @line[3]

$c1 \$\$P      d\$'     ,    \$\$P             @line[4]

$c1 \$\$:      \$\$.   -    ,d\$\$'             @line[5]

$c1 \$\$\;      Y\$b._   _,d\$P'               @line[6]

$c1 Y\$\$.    \`.\`\"Y\$\$\$\$P\"'                  @line[7]

$c1 \`\$\$b      \"-.__                       @line[8]

$c1  \`Y\$\$

$c1   \`Y\$\$.

$c1     \`\$\$b.

$c1       \`Y\$\$b.

$c1          \`\"Y\$b._

$c1              \`\"\"\"\"

\e[0m";   

}       

      

## Run screen shot graper ##

`$command` unless $shot != 0;

Wow I really like your setup.

A few questions though: what's that system monitor you're using up top? Is it conky? If so, can you post the .conkyrc? Also, how are you getting the drop shadows on your windows? Also, what's that taskbar you're using at the bottom?

Offline

#494 2008-03-25 02:51:25

Reasons
Member
From: Washington
Registered: 2007-11-04
Posts: 572

Re: March 2008 Screenshots

chris_ak wrote:

http://img72.imageshack.us/img72/3382/2 … zu2.th.png
My first try at openbox... and also my first post on the archlinux forum.  Thanks to those who posted their openbox screenshots and config files on the openbox thread.  I borrowed nearly all aspects of my setup from the various posts on there, notably that of reasons setup.  I finally decided I could part with compiz and I've found a better life with openbox.   Also, does anyone know why the OS part of the info script comes up blank?  I've seen this problem on a few other users shots.  Here's the script that I copied off of one of those older threads

Edit the /etc/arch-release file to have something.

Offline

#495 2008-03-25 04:00:09

BetterLeftUnsaid
Member
From: My Happy Place
Registered: 2007-11-04
Posts: 78

Re: March 2008 Screenshots

thumb-screenie.png

Yay my first screenshot!  It's kinda bright, though...a lot of pink and white. =P

Offline

#496 2008-03-25 04:36:19

chris_ak
Member
Registered: 2008-03-25
Posts: 64

Re: March 2008 Screenshots

solarwind wrote:
chris_ak wrote:

http://img72.imageshack.us/img72/3382/2 … zu2.th.png
My first try at openbox... and also my first post on the archlinux forum.  Thanks to those who posted their openbox screenshots and config files on the openbox thread.  I borrowed nearly all aspects of my setup from the various posts on there, notably that of reasons setup.  I finally decided I could part with compiz and I've found a better life with openbox.   Also, does anyone know why the OS part of the info script comes up blank?  I've seen this problem on a few other users shots.  Here's the script that I copied off of one of those older threads

Wow I really like your setup.

A few questions though: what's that system monitor you're using up top? Is it conky? If so, can you post the .conkyrc? Also, how are you getting the drop shadows on your windows? Also, what's that taskbar you're using at the bottom?

Thanks man.  I'd been waiting to use that radiohead wallpaper for a long time. 
Yeah the system monitor is conky:

#avoid flicker

double_buffer yes



#own window to run simultanious 2 or more conkys

own_window  yes

own_window_transparent no

own_window_type normal

own_window_hints undecorate,sticky,skip_taskbar,skip_pager 



#borders

draw_borders no

border_margin 1



#shades

draw_shades no



#position

gap_x 6

gap_y 0

alignment top_left



#behaviour

update_interval 1



#colour

default_color  8f8f8f

#default_shade_color 000000

own_window_colour 262626



#font

use_xft yes

xftfont bauhaus:pixelsize=10



#to prevent window from moving

use_spacer no

minimum_size 1268 0



#mpd

mpd_host localhost

mpd_port 6600



TEXT

${voffset -1} Arch ${color e0e0e0}$kernel${color} | Cpu: ${color e0e0e0}${font}${cpu}% ${color} Mem: ${color e0e0e0}${font}${mem} ${color} | ${color} Up: ${color e0e0e0}${font}${uptime_short}${color}  | ${color} Net: ${color e0e0e0}${font}${downspeed eth0} Kb/s ${color} ${totaldown eth0} downloaded${color} | ${color} ${color e0e0e0}${upspeed eth0} Kb/s ${color} ${totalup eth0} uploaded${color}  |  ${color}Root: ${color e0e0e0}${font}${fs_free /} ${color} Home: ${color e0e0e0}${font}${fs_free /home} ${color} | ${color} Arch-pkg: ${color e0e0e0}${font}${execi 300 perl ~/scripts/conky-updates.pl}${color} | ${color} Weather: ${color e0e0e0} ${execi 1800 weatherget -f ~/scripts/.conkyweatherrc --station-id=USAK0116 --standard } ${color} | ${color} Mpd:  ${color e0e0e0}${font}${mpd_smart}

The weather and arch package scripts can be found here: http://vredfreak.atspace.com/projects.html

The panel I'm using on the bottom is the pypanel.  As for the dropshadow effect is made possible by xcompmgr.  I suggest you check out the openbox thread... http://bbs.archlinux.org/viewtopic.php?id=45692 lots of good stuff on there from people smarter than me.

Offline

#497 2008-03-25 05:11:49

lyrae
Member
From: Australia
Registered: 2006-08-03
Posts: 142

Re: March 2008 Screenshots

Sjoden wrote:

@lyrae, Do you only have kwin loaded, without a desktop? I tried just starting kwin by itself, but i have no right click, I can only move the pointer, which is just an "X". I'm clueless as to how you set up that enviroment.

No, the full kdemod package.  You can get it at http://kdemod.ath.cx/index.html.    Let me know if you still need help. wink

Offline

#498 2008-03-25 11:14:32

dawn
Member
Registered: 2008-01-15
Posts: 51

Re: March 2008 Screenshots

BetterLeftUnsaid wrote:

http://i199.photobucket.com/albums/aa18 … reenie.png

Yay my first screenshot!  It's kinda bright, though...a lot of pink and white. =P

I like it very much. The only thing I would change is the terminal font. Bitstream Vera Sans Mono would match you theme.

Offline

#499 2008-03-25 12:26:03

Jedimind
Member
Registered: 2008-02-15
Posts: 24

Re: March 2008 Screenshots

Might be a little offtopic, but does anyone of you know a good tool to join screenshots of several workspaces? I know you can do it with gimp but if there was an easy CLI-application for this then it would be great...

Offline

#500 2008-03-25 12:29:45

Arkane
Member
From: Switzerland
Registered: 2008-02-18
Posts: 263

Re: March 2008 Screenshots

You can do it with ImageMagick; actually, you can do everything with ImageMagick.

Read man montage for details.


What does not kill you will hurt a lot.

Offline

Board footer

Powered by FluxBB