dmitriy.kazimirov/inxi
1
0
Fork 0
mirror of https://github.com/smxi/inxi.git synced 2025-01-19 00:47:47 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

more dekstop info added

Browse source
This commit is contained in:
Harald Hope 2023-12-24 13:21:50 -08:00
parent 96301679f4
commit e7cda60354
1 changed files with 40 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

71
pinxi
View file

@ -50,8 +50,8 @@ use POSIX qw(ceil uname strftime ttyname);
## INXI INFO ## ## INXI INFO ##
my $self_name='pinxi'; my $self_name='pinxi';
my $self_version='3.3.31'; my $self_version='3.3.31';
my $self_date='2023-12-19'; my $self_date='2023-12-24';
my $self_patch='32'; my $self_patch='33';
## END INXI INFO ## ## END INXI INFO ##
my ($b_pledge,@pledges); my ($b_pledge,@pledges);
@ -9586,7 +9586,8 @@ sub cpuinfo_data_grabber {
# $file = "$fake_data_dir/cpu/sys-ci-pairs/x86-brickwizard-atom-n270~cpuinfo-1.txt"; # $file = "$fake_data_dir/cpu/sys-ci-pairs/x86-brickwizard-atom-n270~cpuinfo-1.txt";
# $file = "$fake_data_dir/cpu/sys-ci-pairs/x86-amd-phenom-chrisretusn-cpuinfo-1.txt"; # $file = "$fake_data_dir/cpu/sys-ci-pairs/x86-amd-phenom-chrisretusn-cpuinfo-1.txt";
# $file = "$fake_data_dir/cpu/sys-ci-pairs/x86-drgibbon-intel-i7-cpuinfo.txt"; # $file = "$fake_data_dir/cpu/sys-ci-pairs/x86-drgibbon-intel-i7-cpuinfo.txt";
$file = "$fake_data_dir/cpu/sys-ci-pairs/ryzen-threadripper-2x-32-3950x-cpuinfo.txt"; $file = "$fake_data_dir/cpu/sys-ci-pairs/ryzen-threadripper-1x64-3950x-cpuinfo.txt";
# $file = "$fake_data_dir/cpu/sys-ci-pairs/amd-threadripper-1x12-5945wx-cpuinfo-1.txt";
## ARM/MIPS ## ARM/MIPS
# $file = "$fake_data_dir/cpu/arm/arm-4-core-pinebook-1.txt"; # $file = "$fake_data_dir/cpu/arm/arm-4-core-pinebook-1.txt";
# $file = "$fake_data_dir/cpu/arm/armv6-single-core-1.txt"; # $file = "$fake_data_dir/cpu/arm/armv6-single-core-1.txt";
@ -9859,7 +9860,8 @@ sub sys_data_grabber {
# $file = "$fake_data_dir/cpu/sys-ci-pairs/x86-brickwizard-atom-n270~sys-1.txt"; # $file = "$fake_data_dir/cpu/sys-ci-pairs/x86-brickwizard-atom-n270~sys-1.txt";
# $file = "$fake_data_dir/cpu/sys-ci-pairs/x86-amd-phenom-chrisretusn-sys-1.txt"; # $file = "$fake_data_dir/cpu/sys-ci-pairs/x86-amd-phenom-chrisretusn-sys-1.txt";
# $file = "$fake_data_dir/cpu/sys-ci-pairs/x86-drgibbon-intel-i7-sys.txt"; # $file = "$fake_data_dir/cpu/sys-ci-pairs/x86-drgibbon-intel-i7-sys.txt";
$file = "$fake_data_dir/cpu/sys-ci-pairs/ryzen-threadripper-2x-32-3950x-sys.txt"; $file = "$fake_data_dir/cpu/sys-ci-pairs/ryzen-threadripper-1x64-3950x-sys.txt";
# $file = "$fake_data_dir/cpu/sys-ci-pairs/amd-threadripper-1x12-5945wx-cpuinfo-1.txt";
@files = main::reader($file); @files = main::reader($file);
} }
# There's a massive time hit reading full globbed set of files, so grab and # There's a massive time hit reading full globbed set of files, so grab and
@ -18692,7 +18694,7 @@ sub get_compositors {
# these are more obscure, so check for them after primary common ones # these are more obscure, so check for them after primary common ones
push (@compositors,qw(3dwm cosmic-comp dcompmgr gala kmscon push (@compositors,qw(3dwm cosmic-comp dcompmgr gala kmscon
metisse mir moblin monsterwm picom ukwm unagi unity-system-compositor metisse mir moblin monsterwm picom ukwm unagi unity-system-compositor
xcompmgr xfwm4 xfwm5 xfwm)); xcompmgr xfwm3 xfwm4 xfwm5 xfwm));
my $matches = join('|',@compositors) . $ps_data{'wl-comp'}; my $matches = join('|',@compositors) . $ps_data{'wl-comp'};
foreach my $psg (@ps_gui){ foreach my $psg (@ps_gui){
if ($psg =~ /^($matches)$/){ if ($psg =~ /^($matches)$/){
@ -28666,12 +28668,12 @@ sub get_env_de_data {
eval $start if $b_log; eval $start if $b_log;
my ($program,@version_data); my ($program,@version_data);
if (!$desktop->[0]){ if (!$desktop->[0]){
# 0: 1/0; 1: env var search; 2: data; 3: gtk tk; 4: qt tk; 5: ps_gui search # 0: 1/0; 1: env var search; 2: data; 3: gtk tk; 4: qt tk; 5: ps search
my @desktops =( my @desktops =(
[1,'unity','unity',0,0], [1,'unity','unity',0,0],
[0,'budgie','budgie-desktop',0,0], [0,'budgie','budgie-desktop',0,0],
# debian package: lxde-core. # debian package: lxde-core.
# NOTE: some distros fail to set XDG data for root # NOTE: some distros fail to set XDG data for root, ps may get it
[1,'lxde','lxpanel',0,0,',^lxsession$'], [1,'lxde','lxpanel',0,0,',^lxsession$'],
[1,'razor','razor-session',0,1,'^razor-session$'], [1,'razor','razor-session',0,1,'^razor-session$'],
# BAD: lxqt-about opens dialogue, sigh. # BAD: lxqt-about opens dialogue, sigh.
@ -28692,9 +28694,12 @@ sub get_env_de_data {
); );
foreach my $item (@desktops){ foreach my $item (@desktops){
# Check if in xdg_desktop OR desktop_session OR if in $item->[6] and in ps_gui # Check if in xdg_desktop OR desktop_session OR if in $item->[6] and in ps_gui
if ((($item->[0] && ($xdg_desktop eq $item->[1] || $desktop_session eq $item->[1])) || if ((($item->[0] &&
(!$item->[0] && ($xdg_desktop =~ /$item->[1]/ || $desktop_session =~ /$item->[1]/))) || ($xdg_desktop eq $item->[1] || $desktop_session eq $item->[1])) ||
($item->[5] && @ps_gui && (grep {/$item->[5]/} @ps_gui))){ (!$item->[0] &&
($xdg_desktop =~ /$item->[1]/ || $desktop_session =~ /$item->[1]/))) ||
($item->[5] &&
@{$ps_data{'desktop-ps'}} && (grep {/$item->[5]/} @{$ps_data{'desktop-ps'}}))){
($desktop->[0],$desktop->[1]) = ProgramData::full($item->[2]); ($desktop->[0],$desktop->[1]) = ProgramData::full($item->[2]);
$b_gtk = $item->[3]; $b_gtk = $item->[3];
$b_qt = $item->[4]; $b_qt = $item->[4];
@ -28925,11 +28930,6 @@ sub get_ps_de_data {
# ['flwm','flwm','flwm',''], # ['flwm','flwm','flwm',''],
['flwm','flwm(_topside)?','flwm',''], ['flwm','flwm(_topside)?','flwm',''],
['fvwm-crystal','fvwm.*-crystal','fvwm-crystal','fvwm'], ['fvwm-crystal','fvwm.*-crystal','fvwm-crystal','fvwm'],
['fvwm1','fvwm1','fvwm1',''],
['fvwm2','fvwm2','fvwm2',''],
['fvwm3','fvwm3','fvwm3',''],
['fvwm95','fvwm95','fvwm95',''],
['fvwm','fvwm','fvwm',''],
['hyprland','[Hh]yprland','hyprctl',''], ['hyprland','[Hh]yprland','hyprctl',''],
# ['qtile','.*qtile','qtile',''], # *(python.*)?qtile' # ['qtile','.*qtile','qtile',''], # *(python.*)?qtile'
# ['stumpwm','stumpwm','stumpwm',''], # '(sh|c?lisp)?.*stumpwm' # ['stumpwm','stumpwm','stumpwm',''], # '(sh|c?lisp)?.*stumpwm'
@ -28954,9 +28954,10 @@ sub get_ps_de_data {
# unverfied: 2bwm catwm mcwm penrose snapwm uwm wmfs wmfs2 wingo wmii2 # unverfied: 2bwm catwm mcwm penrose snapwm uwm wmfs wmfs2 wingo wmii2
# xfdesktoo is fallback in case not in xprop # xfdesktoo is fallback in case not in xprop
@wms = qw(icewm 2bwm 9wm aewm aewm\+\+ afterstep amiwm antiwm awesome @wms = qw(icewm 2bwm 9wm aewm aewm\+\+ afterstep amiwm antiwm awesome
blackbox bspwm calmwm catwm cde clfswm ctwm dawn dusk dwm echinus evilwm blackbox bspwm calmwm catwm cde clfswm ctwm dawn dusk dwm
fluxbox hackedbox herbstluftwm instantwm i3 ion3 jbwm jwm echinus evilwm fluxbox fvwm1 fvwm2 fvwm3 fvwm95 fvwm
larswm leftwm lwm matchbox-window-manager mcwm mini musca mvwm mwm hackedbox herbstluftwm instantwm i3 ion3 jbwm jwm larswm leftwm lwm
matchbox-window-manager mcwm mini musca mvwm mwm
nawm notion nscde openbox pekwm penrose qtile qvwm ratpoison nawm notion nscde openbox pekwm penrose qtile qvwm ratpoison
sawfish scrotwm snapwm spectrwm stumpwm tinywm tvtwm twm uwm sawfish scrotwm snapwm spectrwm stumpwm tinywm tvtwm twm uwm
windowlab wmfs wmfs2 wingo wmii2 wmii wmx xmonad yeahwm); windowlab wmfs wmfs2 wingo wmii2 wmii wmx xmonad yeahwm);
@ -29060,7 +29061,7 @@ sub get_wm_main {
marco mcwm mini muffin musca deepin-mutter mutter deepin-metacity metacity marco mcwm mini muffin musca deepin-mutter mutter deepin-metacity metacity
mvwm mwm nawm notion openbox qtile qvwm penrose ratpoison sawfish scrotwm mvwm mwm nawm notion openbox qtile qvwm penrose ratpoison sawfish scrotwm
snapwm spectrwm stumpwm tinywm tvtwm twm ukwm windowlab WindowMaker wingo snapwm spectrwm stumpwm tinywm tvtwm twm ukwm windowlab WindowMaker wingo
wmfs2? wmii2? wmx xfwm[45]? xmonad yeahwm); wmfs2? wmii2? wmx xfwm[345]? xmonad yeahwm);
my $wms = join('|',@wms) . $ps_data{'wl-comp'}; my $wms = join('|',@wms) . $ps_data{'wl-comp'};
foreach my $psg (@ps_gui){ foreach my $psg (@ps_gui){
if ($psg =~ /^($wms)$/){ if ($psg =~ /^($wms)$/){
@ -34210,6 +34211,7 @@ sub set_values {
'xfdesktop-toolkit' => ['Built[[:space:]]with[[:space:]]GTK',4,'--version','Gtk',0,1,0,'',''], 'xfdesktop-toolkit' => ['Built[[:space:]]with[[:space:]]GTK',4,'--version','Gtk',0,1,0,'',''],
# ' This is xfwm4 version 4.16.1 (revision 5f61a84ad) for Xfce 4.16' # ' This is xfwm4 version 4.16.1 (revision 5f61a84ad) for Xfce 4.16'
'xfwm' => ['xfwm[3-8]? version',5,'--version','xfwm',0,1,0,'^^\s+',''],# unverified 'xfwm' => ['xfwm[3-8]? version',5,'--version','xfwm',0,1,0,'^^\s+',''],# unverified
'xfwm3' => ['xfwm3? version',5,'--version','xfwm',0,1,0,'^^\s+',''], # unverified
'xfwm4' => ['xfwm4? version',5,'--version','xfwm',0,1,0,'^^\s+',''], 'xfwm4' => ['xfwm4? version',5,'--version','xfwm',0,1,0,'^^\s+',''],
'xfwm5' => ['xfwm5? version',5,'--version','xfwm',0,1,0,'^^\s+',''], # unverified 'xfwm5' => ['xfwm5? version',5,'--version','xfwm',0,1,0,'^^\s+',''], # unverified
'xmonad' => ['^xmonad',2,'--version','XMonad',0,1,0,'',''], 'xmonad' => ['^xmonad',2,'--version','XMonad',0,1,0,'',''],
@ -34563,9 +34565,11 @@ sub set_gui {
my ($b_wl,$working,@match,@temp); my ($b_wl,$working,@match,@temp);
# desktops / wm (some wm also compositors) # desktops / wm (some wm also compositors)
if ($show{'system'}){ if ($show{'system'}){
@temp=qw(razor-desktop razor-session lxsession lxqt-session # some desktops detect via ps as fallback
tdelauncher tdeinit_phase1); process_gui(\@{$ps_data{'desktop-ps'}},join('|', qw(
push(@match,@temp); razor-desktop razor-session lxsession lxqt-session
tdelauncher tdeinit_phase1)));
@temp=qw(2bwm 3dwm 9wm afterstep aewm aewm\+\+ amiwm antiwm awesome @temp=qw(2bwm 3dwm 9wm afterstep aewm aewm\+\+ amiwm antiwm awesome
blackbox bspwm calmwm catwm cde clfswm ctwm (openbsd-)?cwm blackbox bspwm calmwm catwm cde clfswm ctwm (openbsd-)?cwm
dawn dusk dwm echinus evilwm fluxbox flwm flwm_topside dawn dusk dwm echinus evilwm fluxbox flwm flwm_topside
@ -34585,21 +34589,22 @@ sub set_gui {
@temp=qw(budgie-wm compiz deepin-wm gala gnome-shell @temp=qw(budgie-wm compiz deepin-wm gala gnome-shell
twin kwin_wayland kwin_x11 kwinft kwin marco twin kwin_wayland kwin_x11 kwinft kwin marco
deepin-metacity metacity metisse mir muffin deepin-mutter mutter deepin-metacity metacity metisse mir muffin deepin-mutter mutter
ukwm xfwm[45]?); ukwm xfwm[345]?);
push(@match,@temp); push(@match,@temp);
} }
# info: NOTE: glx-dock is cairo-dock # info: NOTE: glx-dock is cairo-dock
if ($show{'system'} && $extra > 2){ if ($show{'system'} && $extra > 2){
process_gui(\@{$ps_data{'info-active'}},join('|', qw( process_gui(\@{$ps_data{'info-active'}},join('|', qw(
alltray awesomebar awn bar bemenu bmpanel bmpanel2 budgie-panel cairo-dock albert alltray awesomebar awn bar bemenu bmpanel bmpanel2 budgie-panel
dde-dock dmenu dockbarx docker docky dzen dzen2 fbpanel fspanel cairo-dock dde-dock dmenu(-wayland)? dockbarx docker docky dzen dzen2
glx-dock gnome-panel hpanel i3bar i3-status(-rs|-rust)? icewmtray fbpanel fspanel fuzzel glx-dock gnome-panel hpanel
kdocker kicker latte latte-dock lemonbar ltpanel luastatus lxpanel lxqt-panel i3bar i3-status(-rs|-rust)? icewmtray kdocker kicker krunner ksmoothdock
matchbox-panel mate-panel nwg-bar nwg-dock nwg-panel ourico latte lavalauncher latte-dock lemonbar ltpanel luastatus lxpanel lxqt-panel
perlpanel plank plasma-desktop plasma-netbook polybar pypanel matchbox-panel mate-panel mauncher nwg-(bar|dock|launchers|panel) ourico
razor-panel razorqt-panel rootbar sfwbar stalonetray swaybar perlpanel plank polybar pypanel razor(qt)?-panel rofi rootbar
taskbar tint2 trayer ukui-panel vala-panel wapanel waybar wbar wharf sfwbar simplepanel sirula stalonetray swaybar taskbar tint2 tofi trayer
wingpanel witray xfce[45]?-panel xmobar yambar yabar))); ukui-panel vala-panel wapanel waybar wbar wharf wingpanel witray wldash wofi
xfce[45]?-panel xmobar yambar yabar yofi)));
# Generate tools: screensavers/lockers. Note that many lockers may not be services # Generate tools: screensavers/lockers. Note that many lockers may not be services
@{$ps_data{'tools-test'}}=qw(away boinc-screensaver budgie-screensaver @{$ps_data{'tools-test'}}=qw(away boinc-screensaver budgie-screensaver
cinnamon-screensaver gnome-screensaver gsd-screensaver-proxy gtklock i3lock cinnamon-screensaver gnome-screensaver gsd-screensaver-proxy gtklock i3lock
@ -34615,7 +34620,7 @@ sub set_gui {
@temp=qw(3dwm budgie-wm cairo compiz compton cosmic-comp deepin-wm dcompmgr @temp=qw(3dwm budgie-wm cairo compiz compton cosmic-comp deepin-wm dcompmgr
enlightenment gala gnome-shell kmscon kwin_wayland kwin_x11 kwinft kwin enlightenment gala gnome-shell kmscon kwin_wayland kwin_x11 kwinft kwin
marco metisse mir moblin muffin mutter picom steamcompmgr surfaceflinger marco metisse mir moblin muffin mutter picom steamcompmgr surfaceflinger
ukwm unagi unity-system-compositor wayland xcompmgr xfwm[45]?); ukwm unagi unity-system-compositor wayland xcompmgr xfwm[345]?);
push(@match,@temp); push(@match,@temp);
$b_wl = 1; $b_wl = 1;
} }