aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRyan Kavanagh <rak@rak.ac>2022-10-29 11:43:35 -0400
committerRyan Kavanagh <rak@rak.ac>2022-10-29 11:43:35 -0400
commitd27d53b9b2516869200359a866d577d41c2cae82 (patch)
treea90df41497773f76e2182aa2cc44e153c8c3a100
parent/var/lib/mpd/music automounter (diff)
xmonad: port to most recent xmonad
-rw-r--r--dot_xmonad/xmonad.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/dot_xmonad/xmonad.hs b/dot_xmonad/xmonad.hs
index 9b41a9d..a3e8c85 100644
--- a/dot_xmonad/xmonad.hs
+++ b/dot_xmonad/xmonad.hs
@@ -5,7 +5,7 @@ import System.Environment (getEnv, setEnv)
import System.IO (hPutStrLn)
import XMonad
import XMonad.Actions.CopyWindow (copy, kill1, killAllOtherCopies)
-import XMonad.Actions.CycleWS (moveTo, nextWS, WSType(NonEmptyWS)
+import XMonad.Actions.CycleWS (moveTo, nextWS, emptyWS, WSType(Not)
, prevWS, shiftToNext, shiftToPrev, toggleWS)
import XMonad.Actions.DynamicWorkspaces (addWorkspacePrompt, removeWorkspace
, renameWorkspace, selectWorkspace
@@ -42,7 +42,7 @@ import XMonad.Layout.Tabbed (shrinkText, tabbed)
import XMonad.Layout.ThreeColumns (ThreeCol(ThreeColMid))
import XMonad.Layout.ToggleLayouts (toggleLayouts, ToggleLayout(ToggleLayout))
import XMonad.Layout.WindowNavigation (Navigate(Move))
-import XMonad.Prompt (fgColor, bgColor, XPPosition(Bottom), height
+import XMonad.Prompt (fgColor, bgColor, XPPosition(Bottom), height, font
, position, promptBorderWidth)
import XMonad.Prompt.Shell (shellPrompt)
import XMonad.Util.Loggers (date, logCmd)
@@ -71,14 +71,14 @@ myMouseBindings (XConfig {XMonad.modMask = modMask}) = fromList $
, ((modMask, button3), (\w -> focus w >> mouseResizeWindow w
>> windows shiftMaster))
-- you may also bind events to the mouse scroll wheel (button4 and button5)
- , ((modMask, button5), (\_ -> moveTo Next NonEmptyWS))
- , ((modMask, button4), (\_ -> moveTo Prev NonEmptyWS ))
+ , ((modMask, button5), (\_ -> moveTo Next (Not emptyWS)))
+ , ((modMask, button4), (\_ -> moveTo Prev (Not emptyWS)))
-- scroll wheel click, bottom right corner on trackball
, ((modMask, 6), (\w -> focus w >> kill))
, ((modMask, 8), (\w -> focus w >> kill))
]
-mykeys x = [
+mykeys _ = [
((myMod, xK_Left), prevWS)
, ((myMod, xK_Right), nextWS)
, ((myMod .|. shiftMask, xK_Left), shiftToPrev >> prevWS)
@@ -284,6 +284,7 @@ myXPConfig = def {
, promptBorderWidth = 0
, position = Bottom
, height = 15
+ , font = "xft:" ++ xftFont
}
-----------------
@@ -412,7 +413,6 @@ myConfig dzenPipe = docks $ def {
, keys = \x -> (fromList $ mykeys x)
`union` dvorakify (keys def x)
, logHook = dynamicLogWithPP $ mPP dzenPipe
- , handleEventHook = docksEventHook
}
main = do