From ad3b3fe2a4f0df41d0e77a74501512df3cc24a78 Mon Sep 17 00:00:00 2001 From: Gianni Ceccarelli Date: Tue, 10 Oct 2023 09:26:21 +0100 Subject: import QuakeConsoleTerminal, hack it for alacritty --- components/apps/QuakeConsole | 69 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 69 insertions(+) create mode 100644 components/apps/QuakeConsole 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 -- cgit v1.2.3