diff options
-rw-r--r-- | Version | 2 | ||||
-rw-r--r-- | colorsets/WhiteDesktop.cs | 92 | ||||
-rw-r--r-- | components/apps/QuakeConsole | 69 | ||||
-rw-r--r-- | components/bindings/Extra-Keybindings | 4 | ||||
-rw-r--r-- | preferences/DefaultTerminal | 2 | ||||
-rw-r--r-- | preferences/LastChoosenColorset | 2 | ||||
-rw-r--r-- | recipes/Dakkar | 3 | ||||
-rwxr-xr-x | scripts/fvwm-screen.pl | 28 |
8 files changed, 184 insertions, 18 deletions
@@ -1 +1 @@ -3.6.5 +3.7.5 diff --git a/colorsets/WhiteDesktop.cs b/colorsets/WhiteDesktop.cs new file mode 100644 index 0000000..e822809 --- /dev/null +++ b/colorsets/WhiteDesktop.cs @@ -0,0 +1,92 @@ +# WhiteDesktop colorset +# Written by: Social + +SetEnv Colorset_Name "WhiteDesktop" + +# What colorsets do we use? +Read /usr/share/fvwm-crystal/fvwm/colorsets/colorset-definition + +# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- +# QuakeConsole, thumbnailed windows +Colorset $[infostore.cs_quakeconsole] \ +Foreground "black", Background "black", \ +Hilight "black", Shadow "black", \ +IconAlpha 70 + + +Colorset $[infostore.cs_panel_inactive] \ +Foreground "black", Background "#888888", \ +Tint "#aaaaaa" 50, \ +fgTint, IconAlpha, IconTint + +Colorset $[infostore.cs_panel_active] \ +Foreground "darkgray", Background "darkgray", \ +Hilight "darkgray", Shadow "darkgray", \ +Tint "#888888" 50 + +Colorset $[infostore.cs_panel_wininactive] \ +Foreground "#555555", Background "#777777", \ +Hilight "#444444", Shadow "#444444", \ +Tint "#aaaaaa" 60 + +Colorset $[infostore.cs_panel_winactive] \ +Foreground "black", Background "#777777", \ +Hilight "#666666", Shadow "#666666", \ +Tint "#aaaaaa" 80 + +Colorset $[infostore.cs_panel_border] \ +Background "#777777" + +Colorset $[infostore.cs_menu_inactive] \ +Foreground "black", Background "white", \ +Hilight "white", Shadow "white", \ +Tint "#aaaaaa" 50 + +Colorset $[infostore.cs_menu_active] \ +Foreground "#333333", Background "white", \ +Hilight "#333333", Shadow "gray" + +Colorset $[infostore.cs_icon_active] \ +Foreground "black", Background "white", \ +Hilight "white", Shadow "darkgray", \ +RootTransparent + +Colorset $[infostore.cs_transparent] Transparent + +Colorset $[infostore.cs_acpibatt_99] \ +Foreground "black", Background "#444444", \ +Tint "#aaaaaa" 50, \ +fgTint "black" 100, IconAlpha, IconTint + +Colorset $[infostore.cs_acpibatt_74] \ +Foreground "#0000ff", Background "#444444", \ +Tint "#aaaaaa" 50, \ +fgTint "#0000ff" 100, IconAlpha, IconTint + +Colorset $[infostore.cs_acpibatt_49] \ +Foreground "#00ff00", Background "#444444", \ +Tint "#aaaaaa" 50, \ +fgTint "#00ff00" 100, IconAlpha, IconTint + +Colorset $[infostore.cs_acpibatt_24] \ +Foreground "#ffff00", Background "#444444", \ +Tint "#aaaaaa" 50, \ +fgTint "#ffff00" 100, IconAlpha, IconTint + +Colorset $[infostore.cs_acpibatt_12] \ +Foreground "#ff4400", Background "#444444", \ +Tint "#aaaaaa" 50, \ +fgTint "#ff4400" 100, IconAlpha, IconTint + +Colorset $[infostore.cs_acpibatt_0] \ +Foreground "#ff0000", Background "#444444", \ +Tint "#aaaaaa" 50, \ +fgTint "#ff0000" 100, IconAlpha, IconTint + +# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- +# Additional variables +SetEnv ThumbBorderColor "black" +SetEnv ExternalFontColor "gray40" + +SetEnv TrayerTint "0xaaaaaa" +SetEnv TrayerAlpha "128" diff --git a/components/apps/QuakeConsole b/components/apps/QuakeConsole new file mode 100644 index 0000000..32df96c --- /dev/null +++ b/components/apps/QuakeConsole @@ -0,0 +1,69 @@ + +# Variables +SetEnv QuakeConsole_Border "1" +#SetEnv QuakeConsoleTerminal "NO_QUAKECONSOLE_TERMINAL_FOUND" +#SetEnv QuakeConsole_Height "50" + +CheckPreferences QuakeConsoleHeight "SavePreferences QuakeConsoleHeight 'SetEnv QuakeConsole_Height 50'" +LoadPreferences QuakeConsoleHeight + +#Include preferences/QuakeConsole_Height + +DestroyFunc QuakeConsole +AddToFunc QuakeConsole ++ I None (QuakeConsoleNeedsUniqueName) QuakeConsole_Init ++ I All (QuakeConsoleNeedsUniqueName, CurrentDesk) QuakeConsole_Hide ++ I TestRc (0) QuakeConsole_Show + +DestroyFunc QuakeConsole_Init +AddToFunc QuakeConsole_Init ++ I Style QuakeConsoleNeedsUniqueName !Title, !Handles, SkipMapping, \ + WindowListSkip, VariableSize, VariablePosition, NoIcon, StaysOnTop, \ + !Iconifiable, EWMHMaximizeIgnoreWorkingArea, StickyAcrossPages, \ + Maximizable, BorderWidth $[QuakeConsole_Border], \ + Colorset $[infostore.cs_quakeconsole], HilightColorset $[infostore.cs_quakeconsole], \ + BorderColorset $[infostore.cs_quakeconsole], \ + HilightBorderColorset $[infostore.cs_quakeconsole], WindowShadeSteps 8, \ + WindowShadeShrinks + +# If you want to change QuakeConsole command, do it here! ++ I Exec exec alacritty --class QuakeConsoleNeedsUniqueName +# If you want to change QuakeConsole command, do it here! + ++ I Wait QuakeConsoleNeedsUniqueName ++ I All (QuakeConsoleNeedsUniqueName) Maximize 100 $[QuakeConsole_Height] +# The folowing line imply a horizontal shift, don't know why it is here: +#+ I All (QuakeConsoleNeedsUniqueName) Piperead 'echo Move `expr $[vp.width] / 2 - $[w.width] / 2`p w0' ++ I Style QuakeConsoleNeedsUniqueName FixedPosition ++ I All (QuakeConsoleNeedsUniqueName) MoveToDesk 0 666 ++ I Style QuakeConsoleNeedsUniqueName VariableSize, !Maximizable ++ I Prev (CurrentPage, AcceptsFocus, Visible) Focus + +DestroyFunc QuakeConsole_Show +AddToFunc QuakeConsole_Show +#+ I Window-RememberFocused ++ I All (QuakeConsoleNeedsUniqueName) MoveToDesk 0 $[desk.n] ++ I All (QuakeConsoleNeedsUniqueName) Raise +#+ I All (QuakeConsoleNeedsUniqueName) WindowShade false ++ I All (QuakeConsoleNeedsUniqueName) Focus + +DestroyFunc QuakeConsole_Hide +AddToFunc QuakeConsole_Hide +#+ I All (QuakeConsoleNeedsUniqueName) WindowShade true ++ I All (QuakeConsoleNeedsUniqueName) MoveToDesk 0 666 +#+ I All (QuakeConsoleNeedsUniqueName) WindowShade false ++ I Window-FocusRemembered + +DestroyFunc QuakeConsole-Resize +AddToFunc QuakeConsole-Resize ++ H Resize Direction S ++ H SetEnv QuakeConsole_Height "$[w.height]p" ++ H SavePreferences QuakeConsoleHeight "SetEnv QuakeConsole_Height $[w.height]p" + +Mouse (QuakeConsoleNeedsUniqueName) 2 W $[Mod1] QuakeConsole-Resize + +# Dummy functions to avoid error messages +AddToFunc Window-FocusRemembered I Nop +AddToFunc Window-RememberFocused I Nop + +# vim:ft=fvwm diff --git a/components/bindings/Extra-Keybindings b/components/bindings/Extra-Keybindings index 8520b22..631ae29 100644 --- a/components/bindings/Extra-Keybindings +++ b/components/bindings/Extra-Keybindings @@ -30,4 +30,6 @@ Key E A $[Mod1]2 - Key Print A $[Mod] - # use maim instead Key S A $[Mod1]S Exec maim -s | xclip -sel clip -t image/png -Key S A $[Mod1]SC Exec urxvt -geometry 20x1-0-0 +sb -b 0 -w 0 -title 'maim+xclip' -bl -e /bin/bash -c 'maim -d 5 -s | xclip -sel clip -t image/png' +# delayed snapshot; we need that `nohup` otherwise urxvt/bash will +# take xclip down when they exit +Key S A $[Mod1]SC Exec urxvt -geometry 20x1-0-0 +sb -b 0 -w 0 -title 'maim+xclip' -bl -e /bin/bash -c 'maim -d 5 -s | nohup xclip -sel clip -t image/png > /dev/null' diff --git a/preferences/DefaultTerminal b/preferences/DefaultTerminal index 516ba78..a97000c 100644 --- a/preferences/DefaultTerminal +++ b/preferences/DefaultTerminal @@ -1 +1 @@ -FindCommand DefaultTerminal urxvt terminator urxvt Eterm aterm mrxvt xterm gnome-terminal konsole xfce4-terminal +FindCommand DefaultTerminal alacritty urxvt xterm diff --git a/preferences/LastChoosenColorset b/preferences/LastChoosenColorset index 0661c12..d756132 100644 --- a/preferences/LastChoosenColorset +++ b/preferences/LastChoosenColorset @@ -1 +1 @@ -Colorsets-Set '/usr/bin/../share/fvwm-crystal/fvwm/colorsets/WhiteDesktop.cs' +Colorsets-Set '/home/dakkar/.fvwm-crystal/colorsets/WhiteDesktop.cs' diff --git a/recipes/Dakkar b/recipes/Dakkar index 3052e9f..6b56d46 100644 --- a/recipes/Dakkar +++ b/recipes/Dakkar @@ -1,6 +1,9 @@ Include components/functions/Music Include components/functions/Screen-Menu Include components/functions/Numpad-multihead +Include components/functions/Gather + +Module FvwmCommandS InfoStoreAdd DeskIconsSign " " LoadPreferences IconsType diff --git a/scripts/fvwm-screen.pl b/scripts/fvwm-screen.pl index eea4a3c..d462b29 100755 --- a/scripts/fvwm-screen.pl +++ b/scripts/fvwm-screen.pl @@ -3,35 +3,35 @@ use strict; use warnings; sub sess_names { - map { m{^ \s* \d+ \. ([^.]+?) (?:\.\w+)? \s+}smx } @_; + map { m{^ \s* (\d+) \. (.+?) \s+}smx } @_; } # Get list of detached/attached screen sessions and hostname my @screen_out=qx(screen -list); -my @detached_sessions=sess_names grep {m{\(Detached\)}} @screen_out; -my @attached_sessions=sess_names grep {m{\(Attached\)}} @screen_out; +my %detached_sessions=reverse sess_names grep {m{\(Detached\)}} @screen_out; +my %attached_sessions=reverse sess_names grep {m{\(Attached\)}} @screen_out; -print <<'EOL' if @detached_sessions; - + "Reattach first" A screen -d -RR +print <<'EOL' if %detached_sessions; +AddToMenu /Screens "Reattach first" StartTerminal screen -d -RR EOL print <<'EOL'; - + "New Session" A screen +AddToMenu /Screens "New Session" StartTerminal screen EOL -print <<'EOL' if @detached_sessions; - + "" NoP +print <<'EOL' if %detached_sessions; +AddToMenu /Screens "" NoP EOL -print <<"EOL" for @detached_sessions; - + "$_ (a)" A screen -r "$_" +print <<"EOL" for sort keys %detached_sessions; +AddToMenu /Screens "$_ (a)" StartTerminal screen -r "$detached_sessions{$_}" EOL -print <<'EOL' if @attached_sessions; - + "" NoP +print <<'EOL' if %attached_sessions; +AddToMenu /Screens "" NoP EOL -print <<"EOL" for @attached_sessions; - + "$_ (d)" A screen -d "$_" +print <<"EOL" for sort keys %attached_sessions; +AddToMenu /Screens "$_ (d)" StartTerminal screen -d "$attached_sessions{$_}" EOL |