#2876 Le 09/03/2009, à 01:56
- DrGonzo
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
Voilà mon bureau:
Dernière modification par DrGonzo (Le 09/03/2009, à 07:31)
Hors ligne
#2877 Le 09/03/2009, à 02:23
- Samaelh
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
@wayr
Archlinux c'est le Bien 
Par contre, quel est le programme dans le terminal ?
#2878 Le 09/03/2009, à 10:41
- Rydgel
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
@Samaelh: un script en perl dispo sur le forum arch. Si tu trouves pas je le post ici ce soir en rentrant du taf
Linux - Web 2.0 --> http://phollow.fr
Hors ligne
#2879 Le 09/03/2009, à 10:43
- spatz
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
@Dr Gonzo : tu peut détailler ce qui est en bas (un panel, un conky ?) et j'aime bien le thème Songbird, c'est lequel?
PLOP ! Blogueur ! Râleur ! Agnostique ! Architecte ! Floodeur ! Gentil ! Chiant ! Fourbe ! Crâneur ! GNU/Windows/Linuxien ! Machiavélique ! Beau ! Républicain ! Intelligent ! Bosseur ! Très Prétentieux ! Scientifique ! Frimeur ! Étudiant ! De bonne foi ! Perverti ! Ubunteros ! Grand ! Sociable! Altruiste ! Provoc' ! Censé !
Hors ligne
#2880 Le 09/03/2009, à 11:49
- dreadlocks
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
@wayr
Archlinux c'est le Bien
Par contre, quel est le programme dans le terminal ?
oui archlinux c'est bien
et voila le script que tu recherche
#!/usr/bin/perl
use Switch;
use strict;
use File::Basename;
####################
## Config options ##
####################
## What distro logo to use to use, Available "Archlinux Debian Ubuntu None" ##
my $distro = "Archlinux";
my $myArchVersion = "ArchLinux (Core Dump)";
## 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 Background";
## Takes a screen shot if set to 0 ##
my $shot = 0;
## Command to run to take screen shot ##
my $command = "scrot -d 10";
## 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 = "Beryl";
## 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 "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 and Font ##
if ( $display =~ m/[Theme, Icons, Font, Background]/) {
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");
}
if ( $display =~ m/Background/ ) {
my $gconf = `gconftool-2 -g /desktop/gnome/background/picture_filename`;
chomp ($gconf);
my $bname = basename($gconf);
push(@line, " Background:$textcolor $bname");
}
}
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 = $myArchVersion;
$version =~ s/\s+/ /g;
$version = " OS:$textcolor $version";
unshift(@line, "$version");
}
my $c1 = "\e[1;36m";
my $c2 = "\e[0;36m";
system("clear");
print "
${c1} -`
${c1} .o+`
${c1} `ooo/ $c1@line[0]
${c1} `+oooo: $c1@line[1]
${c1} `+oooooo: $c1@line[2]
${c1} -+oooooo+: $c1@line[3]
${c1} `/:-:++oooo+: $c1@line[4]
${c1} `/++++/+++++++: $c1@line[5]
${c1} `/++++++++++++++: $c1@line[6]
${c1} `/+++${c2}ooooooooooooo/` $c1@line[7]
${c2} ./ooosssso++osssssso+` $c1@line[8]
${c2} .oossssso-````/ossssss+`
${c2} -osssssso. :ssssssso.
${c2} :osssssss/ osssso+++.
${c2} /ossssssss/ +ssssooo/-
${c2} `/ossssso+/:- -:/+osssso+-
${c2} `+sso+:-` `.-/+oso:
${c2} `++:. `-/+/
${c2} .` ``
${c2}
\e[0m";
}
system("scrot -d 6");dépendance scrot
Dernière modification par dreadlocks (Le 09/03/2009, à 11:51)
dreadlocks@jabber.fr
Hors ligne
#2881 Le 09/03/2009, à 12:02
- DrGonzo
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
@Dr Gonzo : tu peut détailler ce qui est en bas (un panel, un conky ?) et j'aime bien le thème Songbird, c'est lequel?
En fait c'est juste une bande que j'ai ajouté au fond d'écran. Pour l'heure et Songbird c'est conky et pour les applications lancées c'est AWN.
Hors ligne
#2882 Le 09/03/2009, à 12:21
- spatz
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
Merci 
et le thème utilise dans Songbird stp?
PLOP ! Blogueur ! Râleur ! Agnostique ! Architecte ! Floodeur ! Gentil ! Chiant ! Fourbe ! Crâneur ! GNU/Windows/Linuxien ! Machiavélique ! Beau ! Républicain ! Intelligent ! Bosseur ! Très Prétentieux ! Scientifique ! Frimeur ! Étudiant ! De bonne foi ! Perverti ! Ubunteros ! Grand ! Sociable! Altruiste ! Provoc' ! Censé !
Hors ligne
#2883 Le 09/03/2009, à 14:29
- wayr
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
@wayr
Archlinux c'est le Bien
Par contre, quel est le programme dans le terminal ?
Oui, Arch Linux rocks !
Le script utilisé est bien celui qu'a posté dreadlocks ; )
Dernière modification par wayr (Le 09/03/2009, à 14:45)
Hors ligne
#2884 Le 09/03/2009, à 14:50
- DrGonzo
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
Merci
C'est Glossy Coat 2
Hors ligne
#2885 Le 09/03/2009, à 14:52
- spatz
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
Merci beaucoup à toi DrGonzo et bonne journée.
PLOP ! Blogueur ! Râleur ! Agnostique ! Architecte ! Floodeur ! Gentil ! Chiant ! Fourbe ! Crâneur ! GNU/Windows/Linuxien ! Machiavélique ! Beau ! Républicain ! Intelligent ! Bosseur ! Très Prétentieux ! Scientifique ! Frimeur ! Étudiant ! De bonne foi ! Perverti ! Ubunteros ! Grand ! Sociable! Altruiste ! Provoc' ! Censé !
Hors ligne
#2886 Le 09/03/2009, à 15:00
- Zeibux
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
Je vais pas poster une miniature, j'ai mis un theme Vista ^^
boooooouuuuu saymal.
Croix de bois croix de fer, si je mens, j'me tape une bière
La Valeur sur, c'est sur qu'il avale!
je veux bien qu'on pisse dans un violon, mais.. En rythme non d'un chien!
[Mémoire virtuelle limitée] encrypté, et dans un format obscur, propriétaire et non documenté...
Hors ligne
#2887 Le 09/03/2009, à 20:03
- wiscot
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
wiscot a écrit :Joli
Des info's ?
http://www.gnome-look.org/content/show. … tent=95982
pour emerald , c'est une théme que j'ai un peu modifié
voilou
Hors ligne
#2888 Le 11/03/2009, à 11:26
- levieucep
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
Voila le mien
KDE 4.2.1 kubuntu 8.10
Seb
Dernière modification par levieucep (Le 11/03/2009, à 13:57)
Ubuntu 9.10
ACER ASPIRE 5315
Quand le dernier arbre sera abbatu, la dernière riviére empoisonnée, le dernier poisson péché, alors vous comprendrez que l'argent ne se mange pas (Indiens CRI du Canada)
Hors ligne
#2889 Le 11/03/2009, à 13:25
- Titang
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
J'aime beaucoup ton Wall levieucep. Il vient d'où?
Merci d'avance
Hors ligne
#2890 Le 11/03/2009, à 13:51
- levieucep
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
J'aime beaucoup ton Wall levieucep. Il vient d'où?
Merci d'avance
Salut Titang,
je te colle le lien
http://th05.deviantart.com/fs41/150/i/2009/021/6/9/Only_Earth_by_TheAL.jpg
ou ça
http://www.deviantart.com/#catpath=customization/wallpaper&order=9&q=earth+only
@+
Levieucep
Dernière modification par levieucep (Le 11/03/2009, à 13:51)
Ubuntu 9.10
ACER ASPIRE 5315
Quand le dernier arbre sera abbatu, la dernière riviére empoisonnée, le dernier poisson péché, alors vous comprendrez que l'argent ne se mange pas (Indiens CRI du Canada)
Hors ligne
#2891 Le 12/03/2009, à 20:35
- ayoli
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
Non, je n'ai pas changé que le wall . Les themes emerald et gtk sont customisés.
Hors ligne
#2892 Le 14/03/2009, à 00:38
- tournesol_de_nuit
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
Le sourire est un des plaisirs simple...
Hors ligne
#2893 Le 14/03/2009, à 00:49
- Valentin2105
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
Hors ligne
#2894 Le 14/03/2009, à 00:54
- tournesol_de_nuit
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
Il est soft,et dimensional,j'aime bien
Le sourire est un des plaisirs simple...
Hors ligne
#2895 Le 14/03/2009, à 02:04
- wiscot
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
Bonsoir , petite modif 
et on ose dire que Gnome c'est moche !!!! 
SEXY!
Dernière modification par wiscot (Le 14/03/2009, à 02:06)
Hors ligne
#2896 Le 14/03/2009, à 03:09
- Valentin2105
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
@Wiscot :
C'est quoi tes icones, et ton thème et ton metacity ?
Dernière modification par Valentin2105 (Le 14/03/2009, à 03:10)
Hors ligne
#2897 Le 14/03/2009, à 03:24
- wiscot
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
@Wiscot :
C'est quoi tes icones, et ton thème et ton metacity ?
tout pompé ici sauf emerald thème modifié
Hors ligne
#2898 Le 14/03/2009, à 03:43
- Valentin2105
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
C'est quoi emerald thème ?
Hors ligne
#2899 Le 14/03/2009, à 09:12
- kouskous
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
Joli les derniers..
Vous auriez un truc pour améliorer la gueule des menus d'Opera (sous Arch, openbox) ? parce que là, bon, c'est tout carré tout moche 
#!/usr/bin/killall
« « J'aime kouskous » — kouskous. » — kouskous.
Hors ligne
#2900 Le 14/03/2009, à 10:09
- Alv
Re : POSTEZ DES MINIATURES - A quoi ressemble votre environnement (2)?
Essaye avec ça http://forum.ubuntu-fr.org/viewtopic.php?id=299245
En fait j'ai un gros doute: Opera est en QT ou pas?
Dernière modification par Alv (Le 14/03/2009, à 10:12)
Hors ligne