aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRyan Kavanagh <rak@rak.ac>2023-02-14 10:31:20 -0500
committerRyan Kavanagh <rak@rak.ac>2023-02-14 10:31:20 -0500
commit6955db2cc30c89812a943ba1f86ca5303ac4e2b1 (patch)
treed19865752720f529bf3759f1670ae1e33d7b9779
parent~/.signature by default in gnus (diff)
xconsole shifting in xmonad
-rw-r--r--dot_xmonad/xmonad.hs.tmpl6
1 files changed, 5 insertions, 1 deletions
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