From 6955db2cc30c89812a943ba1f86ca5303ac4e2b1 Mon Sep 17 00:00:00 2001 From: Ryan Kavanagh Date: Tue, 14 Feb 2023 10:31:20 -0500 Subject: xconsole shifting in xmonad --- dot_xmonad/xmonad.hs.tmpl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'dot_xmonad') diff --git a/dot_xmonad/xmonad.hs.tmpl b/dot_xmonad/xmonad.hs.tmpl index 1f424c3..d3f96d3 100644 --- a/dot_xmonad/xmonad.hs.tmpl +++ b/dot_xmonad/xmonad.hs.tmpl @@ -21,6 +21,7 @@ import XMonad.Hooks.DynamicLog (dzenColor, dynamicLogWithPP import XMonad.Hooks.ManageDocks (avoidStruts, docks, docksEventHook , ToggleStruts(ToggleStruts)) import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat) +import XMonad.Hooks.Place (placeHook, fixed) import XMonad.Hooks.UrgencyHook (focusUrgent) import XMonad.Layout.Accordion (Accordion(Accordion)) import XMonad.Layout.Dishes (Dishes(Dishes)) @@ -294,7 +295,7 @@ myXPConfig = def { -- My workspaces myWorkspaces = ["term", "web", "chatter", "reading", "gnus", "music", "LaTeX", "work", "radio"] - ++ (map show [9..20]) + ++ (map show [9..20]) ++ ["console"] -- smartBorders removes borders when there's no ambiguity myLayout = mkToggle (single MIRROR) (smartBorders $ toggleLayouts Full @@ -391,14 +392,17 @@ myManageHook = composeAll . concat $ , [ className =? c --> viewShift "web" | c <- web] , [ className =? c --> viewShift "chatter" | c <- chatter] , [ className =? c --> viewShift "music" | c <- music] + , [ className =? c --> doShift "console" | c <- xconsole] , [ isFullscreen --> doFullFloat ] ] where viewShift = doF . liftM2 (.) greedyView shift + doShift = doF . shift floats = ["MPlayer"] web = ["Firefox", "Firefox-esr", "Navigator", "google-chrome", "Google-chrome"] chatter = ["slack", "Slack"] music = ["pavucontrol", "Pavucontrol"] + xconsole = ["xconsole", "XConsole"] myConfig dzenPipe = docks $ def { workspaces = myWorkspaces -- cgit v1.2.3