sravan/xmonad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Re-Write Config based on NapoleonWils0n's Config

Browse Source 
- Figured out "true" fullscreen
- Played around with xmobar colors and settings a bit
- Removed some unnecessary layouts
This commit is contained in:
Sravan Balaji
2021-05-08 23:01:58 -04:00
parent b1ec8b9e6b
commit c489419b72
3 changed files with 296 additions and 240 deletions
Download Patch File Download Diff File Expand all files Collapse all files

284
README.org
View File

@@ -18,21 +18,35 @@
#+begin_src haskell #+begin_src haskell
import XMonad import XMonad
import XMonad.Config.Desktop
import Data.Monoid
import System.Exit
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import qualified Data.Map as M import qualified Data.Map as M
import Data.Monoid -- system
import System.IO (hPutStrLn)
import XMonad.Util.Run -- spawnPipe -- util
import XMonad.Util.Run (safeSpawn, unsafeSpawn, runInTerm, spawnPipe)
import XMonad.Util.SpawnOnce import XMonad.Util.SpawnOnce
import XMonad.Util.EZConfig import XMonad.Util.EZConfig (additionalKeysP, additionalMouseBindings)
import XMonad.Hooks.ManageDocks -- manage dock type programs like xmobar -- hooks
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageHelpers (isFullscreen, isDialog, doFullFloat, doCenterFloat, doRectFloat)
import XMonad.Hooks.Place (placeHook, withGaps, smart)
import System.IO -- actions
import System.Exit import XMonad.Actions.CopyWindow
-- layout
import XMonad.Layout.NoBorders
import XMonad.Layout.Spacing (spacing)
import XMonad.Layout.GridVariants (Grid(Grid))
import XMonad.Layout.ResizableTile
#+end_src #+end_src
* Terminal * Terminal
@@ -114,93 +128,104 @@ is mod1Mask ("left alt"). You may also consider using mod3Mask
** General ** General
#+begin_src haskell #+begin_src haskell
myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $ -- myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
-- launch a terminal -- -- launch a terminal
[ ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf) -- [ ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
-- launch rofi drun -- -- launch rofi drun
, ((modm, xK_p ), spawn "rofi -show drun") -- , ((modm, xK_p ), spawn "rofi -show drun")
-- launch rofi clipboard -- -- launch rofi clipboard
, ((modm, xK_c ), spawn "rofi -show clipboard") -- , ((modm, xK_c ), spawn "rofi -show clipboard")
-- close focused window -- -- close focused window
, ((modm .|. shiftMask, xK_c ), kill) -- , ((modm .|. shiftMask, xK_c ), kill)
-- Rotate through the available layout algorithms -- -- Rotate through the available layout algorithms
, ((modm, xK_space ), sendMessage NextLayout) -- , ((modm, xK_space ), sendMessage NextLayout)
-- Reset the layouts on the current workspace to default -- -- Reset the layouts on the current workspace to default
, ((modm .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf) -- , ((modm .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf)
-- Resize viewed windows to the correct size -- -- Resize viewed windows to the correct size
, ((modm, xK_n ), refresh) -- , ((modm, xK_n ), refresh)
-- Move focus to the next window -- -- Move focus to the next window
, ((modm, xK_Tab ), windows W.focusDown) -- , ((modm, xK_Tab ), windows W.focusDown)
-- Move focus to the next window -- -- Move focus to the next window
, ((modm, xK_j ), windows W.focusDown) -- , ((modm, xK_j ), windows W.focusDown)
-- Move focus to the previous window -- -- Move focus to the previous window
, ((modm, xK_k ), windows W.focusUp ) -- , ((modm, xK_k ), windows W.focusUp )
-- Move focus to the master window -- -- Move focus to the master window
, ((modm, xK_m ), windows W.focusMaster ) -- , ((modm, xK_m ), windows W.focusMaster )
-- Swap the focused window and the master window -- -- Swap the focused window and the master window
, ((modm, xK_Return), windows W.swapMaster) -- , ((modm, xK_Return), windows W.swapMaster)
-- Swap the focused window with the next window -- -- Swap the focused window with the next window
, ((modm .|. shiftMask, xK_j ), windows W.swapDown ) -- , ((modm .|. shiftMask, xK_j ), windows W.swapDown )
-- Swap the focused window with the previous window -- -- Swap the focused window with the previous window
, ((modm .|. shiftMask, xK_k ), windows W.swapUp ) -- , ((modm .|. shiftMask, xK_k ), windows W.swapUp )
-- Shrink the master area -- -- Shrink the master area
, ((modm, xK_h ), sendMessage Shrink) -- , ((modm, xK_h ), sendMessage Shrink)
-- Expand the master area -- -- Expand the master area
, ((modm, xK_l ), sendMessage Expand) -- , ((modm, xK_l ), sendMessage Expand)
-- Push window back into tiling -- -- Push window back into tiling
, ((modm, xK_t ), withFocused $ windows . W.sink) -- , ((modm, xK_t ), withFocused $ windows . W.sink)
-- Increment the number of windows in the master area -- -- Increment the number of windows in the master area
, ((modm, xK_i ), sendMessage (IncMasterN 1)) -- , ((modm, xK_i ), sendMessage (IncMasterN 1))
-- Deincrement the number of windows in the master area -- -- Deincrement the number of windows in the master area
, ((modm, xK_d), sendMessage (IncMasterN (-1))) -- , ((modm, xK_d), sendMessage (IncMasterN (-1)))
-- Toggle the status bar gap -- -- Toggle the status bar gap
-- Use this binding with avoidStruts from Hooks.ManageDocks. -- -- Use this binding with avoidStruts from Hooks.ManageDocks.
-- See also the statusBar function from Hooks.DynamicLog. -- -- See also the statusBar function from Hooks.DynamicLog.
-- -- --
-- , ((modm , xK_b ), sendMessage ToggleStruts) -- -- , ((modm , xK_b ), sendMessage ToggleStruts)
-- Quit xmonad -- -- Quit xmonad
, ((modm .|. shiftMask, xK_q ), io (exitWith ExitSuccess)) -- , ((modm .|. shiftMask, xK_q ), io (exitWith ExitSuccess))
-- Restart xmonad -- -- Restart xmonad
, ((modm , xK_q ), spawn "xmonad --recompile; xmonad --restart") -- , ((modm , xK_q ), spawn "xmonad --recompile; xmonad --restart")
-- Run xmessage with a summary of the default keybindings (useful for beginners) -- -- Run xmessage with a summary of the default keybindings (useful for beginners)
, ((modm .|. shiftMask, xK_slash ), spawn ("echo \"" ++ help ++ "\" | xmessage -file -")) -- , ((modm .|. shiftMask, xK_slash ), spawn ("echo \"" ++ help ++ "\" | xmessage -file -"))
] -- ]
++ -- ++
-- mod-[1..9], Switch to workspace N -- -- mod-[1..9], Switch to workspace N
-- mod-shift-[1..9], Move client to workspace N -- -- mod-shift-[1..9], Move client to workspace N
[((m .|. modm, k), windows $ f i) -- [((m .|. modm, k), windows $ f i)
| (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9] -- | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
, (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] -- , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
++ -- ++
-- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3 -- -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
-- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3 -- -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
[((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f)) -- [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
| (key, sc) <- zip [xK_w, xK_e, xK_r] [0..] -- | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
, (f, m) <- [(W.view, 0), (W.shift, shiftMask)]] -- , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
#+end_src
** Custom Bindings
#+begin_src haskell
myKeys =
[ ("S-C-a", windows copyToAll) -- copy window to all workspaces
, ("S-C-z", killAllOtherCopies) -- kill copies of window on other workspaces
, (("M-a"), sendMessage MirrorShrink) -- decrease vertical window size
, (("M-z"), sendMessage MirrorExpand) -- increase vertical window size
]
#+end_src #+end_src
** Mouse Bindings ** Mouse Bindings
@@ -235,37 +260,27 @@ defaults, as xmonad preserves your old layout settings by default.
The available layouts. Note that each layout is separated by |||, The available layouts. Note that each layout is separated by |||,
which denotes layout choice. which denotes layout choice.
*Example With Xmobar*
#+begin_example
myLayout = avoidStruts (tiled ||| Mirror tiled ||| Full)
where
-- default tiling algorithm partitions the screen into two panes
tiled = Tall nmaster delta ratio
-- The default number of windows in the master pane
nmaster = 1
-- Default proportion of screen occupied by master pane
ratio = 1/2
-- Percent of screen to increment by when resizing panes
delta = 3/100
#+end_example
#+begin_src haskell #+begin_src haskell
myLayout = avoidStruts (tiled ||| Mirror tiled ||| Full) myLayout =
avoidStruts ( tiled ||| grid ||| monocle ) ||| fullscreen
where where
-- default tiling algorithm partitions the screen into two panes -- default tiling algorithm partitions the screen into two panes
tiled = Tall nmaster delta ratio
-- The default number of windows in the master pane
nmaster = 1 nmaster = 1
delta = 3/100
tiled_ratio = 1/2
tiled_spacing = 10
tiled = spacing tiled_spacing $ ResizableTall nmaster delta tiled_ratio []
-- Default proportion of screen occupied by master pane -- grid
ratio = 1/2 grid_ratio = 16/9
grid_spacing = 10
grid = spacing grid_spacing $ Grid grid_ratio
-- Percent of screen to increment by when resizing panes -- monocle
delta = 3/100 monocle = smartBorders (Full)
-- fullscreen
fullscreen = noBorders (Full)
#+end_src #+end_src
* Window Rules * Window Rules
@@ -299,7 +314,7 @@ which denotes layout choice.
combine event hooks use mappend or mconcat from Data.Monoid. combine event hooks use mappend or mconcat from Data.Monoid.
#+begin_src haskell #+begin_src haskell
myEventHook = mempty -- myEventHook = mempty
#+end_src #+end_src
* Status Bars & Logging * Status Bars & Logging
@@ -319,17 +334,6 @@ See the ~XMonad.Hooks.DynamicLog~ extension for examples.
with mod-q. Used by, e.g., XMonad.Layout.PerWorkspace to initialize with mod-q. Used by, e.g., XMonad.Layout.PerWorkspace to initialize
per-workspace layout choices. per-workspace layout choices.
*Example*
#+begin_src haskell :tangle no
import XMonad.Util.SpawnOnce
myStartupHook = do
spawnOnce "nitrogen --restore &"
spawnOnce "picom &"
#+end_src
By default, do nothing.
#+begin_src haskell #+begin_src haskell
myStartupHook = do myStartupHook = do
spawnOnce "nitrogen --restore &" spawnOnce "nitrogen --restore &"
@@ -347,31 +351,33 @@ Run xmonad with the settings you specify. No need to modify this.
-- `xmobar -x 0` launches the bar on monitor 0 -- `xmobar -x 0` launches the bar on monitor 0
xmproc <- spawnPipe "xmobar -x 0 /home/sravan/.xmonad/xmobar.config" xmproc <- spawnPipe "xmobar -x 0 /home/sravan/.xmonad/xmobar.config"
-- launches xmobar as a dock -- launches xmobar as a dock
xmonad $ docks defaultConfig xmonad $ ewmh desktopConfig
{ -- simple stuff { manageHook = manageDocks <+> manageHook desktopConfig
terminal = myTerminal, , startupHook = myStartupHook
focusFollowsMouse = myFocusFollowsMouse, , layoutHook = myLayout
clickJustFocuses = myClickJustFocuses, , borderWidth = myBorderWidth
borderWidth = myBorderWidth, , terminal = myTerminal
modMask = myModMask, , modMask = myModMask
workspaces = myWorkspaces, , normalBorderColor = myNormalBorderColor
normalBorderColor = myNormalBorderColor, , focusedBorderColor = myFocusedBorderColor
focusedBorderColor = myFocusedBorderColor, , logHook = dynamicLogWithPP xmobarPP
{ ppOutput = \x -> hPutStrLn xmproc x
-- key bindings , ppCurrent = xmobarColor "green" "" . wrap "[" "]" -- current workspace in xmobar
keys = myKeys, , ppVisible = xmobarColor "cyan" "" -- visible but not current workspace
mouseBindings = myMouseBindings, , ppHidden = xmobarColor "yellow" "" . wrap "+" "" -- hidden workspaces in xmobar
, ppHiddenNoWindows = xmobarColor "white" "" -- hidden workspaces (no windows)
-- hooks, layouts , ppTitle = xmobarColor "purple" "" . shorten 80 -- title of active window in xmobar
layoutHook = myLayout, , ppSep = " | " -- separators in xmobar
manageHook = myManageHook, , ppUrgent = xmobarColor "red" "" . wrap "!" "!" -- urgent workspace
handleEventHook = myEventHook, , ppOrder = \(ws:l:t:ex) -> [ws,l,t]
logHook = dynamicLogWithPP xmobarPP }
{ ppOutput = hPutStrLn xmproc -- focusFollowsMouse = myFocusFollowsMouse,
, ppTitle = xmobarColor "green" "" . shorten 50 -- clickJustFocuses = myClickJustFocuses,
}, -- workspaces = myWorkspaces,
startupHook = myStartupHook -- keys = myKeys,
} -- mouseBindings = myMouseBindings,
-- handleEventHook = myEventHook,
} `additionalKeysP` myKeys
#+end_src #+end_src
** Default Keybindings Reference ** Default Keybindings Reference
@@ -434,13 +440,22 @@ Finally, a copy of the default bindings in simple textual tabular format.
#+begin_src haskell :tangle ./xmobar.config #+begin_src haskell :tangle ./xmobar.config
Config { font = "xft:FiraCode Nerd Font Mono:weight=bold:pixelsize=12:antialias=true:hinting=true" Config { font = "xft:FiraCode Nerd Font Mono:weight=bold:pixelsize=12:antialias=true:hinting=true"
, additionalFonts = []
, borderColor = "black"
, border = TopB
, bgColor = "black" , bgColor = "black"
, fgColor = "white" , fgColor = "white"
, alpha = 255
, position = Top , position = Top
, textOffset = -1
, iconOffset = -1
, lowerOnStart = True , lowerOnStart = True
, pickBroadest = False
, persistent = False
, hideOnStart = False , hideOnStart = False
, iconRoot = "."
, allDesktops = True , allDesktops = True
, persistent = True , overrideRedirect = True
, commands = [ Run Weather "K7D2" ["-t","<station>: <tempF>F","-L","18","-H","25","--normal","green","--high","red","--low","lightblue"] 36000 , commands = [ Run Weather "K7D2" ["-t","<station>: <tempF>F","-L","18","-H","25","--normal","green","--high","red","--low","lightblue"] 36000
, Run Network "wlp0s20f3" ["-L","0","-H","32","--normal","green","--high","red"] 10 , Run Network "wlp0s20f3" ["-L","0","-H","32","--normal","green","--high","red"] 10
, Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10 , Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10
@@ -452,6 +467,7 @@ Finally, a copy of the default bindings in simple textual tabular format.
] ]
, sepChar = "%" , sepChar = "%"
, alignSep = "}{" , alignSep = "}{"
, template = "%StdinReader% }{ %cpu% | %memory% * %swap% | %wlp0s20f3% | <fc=#ee9a00>%date%</fc>| %uname%" , template = "%StdinReader% }\
\{ %cpu% | %memory% * %swap% | %wlp0s20f3% | <fc=#ee9a00>%date%</fc> | %uname%"
} }
#+end_src #+end_src

14
xmobar.config
View File

@@ -1,11 +1,20 @@
Config { font = "xft:FiraCode Nerd Font Mono:weight=bold:pixelsize=12:antialias=true:hinting=true" Config { font = "xft:FiraCode Nerd Font Mono:weight=bold:pixelsize=12:antialias=true:hinting=true"
, additionalFonts = []
, borderColor = "black"
, border = TopB
, bgColor = "black" , bgColor = "black"
, fgColor = "white" , fgColor = "white"
, alpha = 255
, position = Top , position = Top
, textOffset = -1
, iconOffset = -1
, lowerOnStart = True , lowerOnStart = True
, pickBroadest = False
, persistent = False
, hideOnStart = False , hideOnStart = False
, iconRoot = "."
, allDesktops = True , allDesktops = True
, persistent = True , overrideRedirect = True
, commands = [ Run Weather "K7D2" ["-t","<station>: <tempF>F","-L","18","-H","25","--normal","green","--high","red","--low","lightblue"] 36000 , commands = [ Run Weather "K7D2" ["-t","<station>: <tempF>F","-L","18","-H","25","--normal","green","--high","red","--low","lightblue"] 36000
, Run Network "wlp0s20f3" ["-L","0","-H","32","--normal","green","--high","red"] 10 , Run Network "wlp0s20f3" ["-L","0","-H","32","--normal","green","--high","red"] 10
, Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10 , Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10
@@ -17,5 +26,6 @@ Config { font = "xft:FiraCode Nerd Font Mono:weight=bold:pixelsize=12:antialias=
] ]
, sepChar = "%" , sepChar = "%"
, alignSep = "}{" , alignSep = "}{"
, template = "%StdinReader% }{ %cpu% | %memory% * %swap% | %wlp0s20f3% | <fc=#ee9a00>%date%</fc>| %uname%" , template = "%StdinReader% }\
\{ %cpu% | %memory% * %swap% | %wlp0s20f3% | <fc=#ee9a00>%date%</fc> | %uname%"
} }

238
xmonad.hs
View File

@@ -1,19 +1,33 @@
import XMonad import XMonad
import XMonad.Config.Desktop
import Data.Monoid
import System.Exit
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import qualified Data.Map as M import qualified Data.Map as M
import Data.Monoid -- system
import System.IO (hPutStrLn)
import XMonad.Util.Run -- spawnPipe -- util
import XMonad.Util.Run (safeSpawn, unsafeSpawn, runInTerm, spawnPipe)
import XMonad.Util.SpawnOnce import XMonad.Util.SpawnOnce
import XMonad.Util.EZConfig import XMonad.Util.EZConfig (additionalKeysP, additionalMouseBindings)
import XMonad.Hooks.ManageDocks -- manage dock type programs like xmobar -- hooks
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageHelpers (isFullscreen, isDialog, doFullFloat, doCenterFloat, doRectFloat)
import XMonad.Hooks.Place (placeHook, withGaps, smart)
import System.IO -- actions
import System.Exit import XMonad.Actions.CopyWindow
-- layout
import XMonad.Layout.NoBorders
import XMonad.Layout.Spacing (spacing)
import XMonad.Layout.GridVariants (Grid(Grid))
import XMonad.Layout.ResizableTile
myTerminal = "kitty" myTerminal = "kitty"
@@ -34,93 +48,100 @@ myWorkspaces = ["1", "2", "3", "4", "5", "6", "7", "8", "9"]
myModMask = mod4Mask myModMask = mod4Mask
myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $ -- myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
-- launch a terminal -- -- launch a terminal
[ ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf) -- [ ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
-- launch rofi drun -- -- launch rofi drun
, ((modm, xK_p ), spawn "rofi -show drun") -- , ((modm, xK_p ), spawn "rofi -show drun")
-- launch rofi clipboard -- -- launch rofi clipboard
, ((modm, xK_c ), spawn "rofi -show clipboard") -- , ((modm, xK_c ), spawn "rofi -show clipboard")
-- close focused window -- -- close focused window
, ((modm .|. shiftMask, xK_c ), kill) -- , ((modm .|. shiftMask, xK_c ), kill)
-- Rotate through the available layout algorithms -- -- Rotate through the available layout algorithms
, ((modm, xK_space ), sendMessage NextLayout) -- , ((modm, xK_space ), sendMessage NextLayout)
-- Reset the layouts on the current workspace to default -- -- Reset the layouts on the current workspace to default
, ((modm .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf) -- , ((modm .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf)
-- Resize viewed windows to the correct size -- -- Resize viewed windows to the correct size
, ((modm, xK_n ), refresh) -- , ((modm, xK_n ), refresh)
-- Move focus to the next window -- -- Move focus to the next window
, ((modm, xK_Tab ), windows W.focusDown) -- , ((modm, xK_Tab ), windows W.focusDown)
-- Move focus to the next window -- -- Move focus to the next window
, ((modm, xK_j ), windows W.focusDown) -- , ((modm, xK_j ), windows W.focusDown)
-- Move focus to the previous window -- -- Move focus to the previous window
, ((modm, xK_k ), windows W.focusUp ) -- , ((modm, xK_k ), windows W.focusUp )
-- Move focus to the master window -- -- Move focus to the master window
, ((modm, xK_m ), windows W.focusMaster ) -- , ((modm, xK_m ), windows W.focusMaster )
-- Swap the focused window and the master window -- -- Swap the focused window and the master window
, ((modm, xK_Return), windows W.swapMaster) -- , ((modm, xK_Return), windows W.swapMaster)
-- Swap the focused window with the next window -- -- Swap the focused window with the next window
, ((modm .|. shiftMask, xK_j ), windows W.swapDown ) -- , ((modm .|. shiftMask, xK_j ), windows W.swapDown )
-- Swap the focused window with the previous window -- -- Swap the focused window with the previous window
, ((modm .|. shiftMask, xK_k ), windows W.swapUp ) -- , ((modm .|. shiftMask, xK_k ), windows W.swapUp )
-- Shrink the master area -- -- Shrink the master area
, ((modm, xK_h ), sendMessage Shrink) -- , ((modm, xK_h ), sendMessage Shrink)
-- Expand the master area -- -- Expand the master area
, ((modm, xK_l ), sendMessage Expand) -- , ((modm, xK_l ), sendMessage Expand)
-- Push window back into tiling -- -- Push window back into tiling
, ((modm, xK_t ), withFocused $ windows . W.sink) -- , ((modm, xK_t ), withFocused $ windows . W.sink)
-- Increment the number of windows in the master area -- -- Increment the number of windows in the master area
, ((modm, xK_i ), sendMessage (IncMasterN 1)) -- , ((modm, xK_i ), sendMessage (IncMasterN 1))
-- Deincrement the number of windows in the master area -- -- Deincrement the number of windows in the master area
, ((modm, xK_d), sendMessage (IncMasterN (-1))) -- , ((modm, xK_d), sendMessage (IncMasterN (-1)))
-- Toggle the status bar gap -- -- Toggle the status bar gap
-- Use this binding with avoidStruts from Hooks.ManageDocks. -- -- Use this binding with avoidStruts from Hooks.ManageDocks.
-- See also the statusBar function from Hooks.DynamicLog. -- -- See also the statusBar function from Hooks.DynamicLog.
-- -- --
-- , ((modm , xK_b ), sendMessage ToggleStruts) -- -- , ((modm , xK_b ), sendMessage ToggleStruts)
-- Quit xmonad -- -- Quit xmonad
, ((modm .|. shiftMask, xK_q ), io (exitWith ExitSuccess)) -- , ((modm .|. shiftMask, xK_q ), io (exitWith ExitSuccess))
-- Restart xmonad -- -- Restart xmonad
, ((modm , xK_q ), spawn "xmonad --recompile; xmonad --restart") -- , ((modm , xK_q ), spawn "xmonad --recompile; xmonad --restart")
-- Run xmessage with a summary of the default keybindings (useful for beginners) -- -- Run xmessage with a summary of the default keybindings (useful for beginners)
, ((modm .|. shiftMask, xK_slash ), spawn ("echo \"" ++ help ++ "\" | xmessage -file -")) -- , ((modm .|. shiftMask, xK_slash ), spawn ("echo \"" ++ help ++ "\" | xmessage -file -"))
] -- ]
++ -- ++
-- mod-[1..9], Switch to workspace N -- -- mod-[1..9], Switch to workspace N
-- mod-shift-[1..9], Move client to workspace N -- -- mod-shift-[1..9], Move client to workspace N
[((m .|. modm, k), windows $ f i) -- [((m .|. modm, k), windows $ f i)
| (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9] -- | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
, (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] -- , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
++ -- ++
-- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3 -- -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
-- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3 -- -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
[((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f)) -- [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
| (key, sc) <- zip [xK_w, xK_e, xK_r] [0..] -- | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
, (f, m) <- [(W.view, 0), (W.shift, shiftMask)]] -- , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
myKeys =
[ ("S-C-a", windows copyToAll) -- copy window to all workspaces
, ("S-C-z", killAllOtherCopies) -- kill copies of window on other workspaces
, (("M-a"), sendMessage MirrorShrink) -- decrease vertical window size
, (("M-z"), sendMessage MirrorExpand) -- increase vertical window size
]
myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList $ myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList $
@@ -138,19 +159,26 @@ myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList $
-- you may also bind events to the mouse scroll wheel (button4 and button5) -- you may also bind events to the mouse scroll wheel (button4 and button5)
] ]
myLayout = avoidStruts (tiled ||| Mirror tiled ||| Full) myLayout =
avoidStruts ( tiled ||| grid ||| monocle ) ||| fullscreen
where where
-- default tiling algorithm partitions the screen into two panes -- default tiling algorithm partitions the screen into two panes
tiled = Tall nmaster delta ratio
-- The default number of windows in the master pane
nmaster = 1 nmaster = 1
delta = 3/100
tiled_ratio = 1/2
tiled_spacing = 10
tiled = spacing tiled_spacing $ ResizableTall nmaster delta tiled_ratio []
-- Default proportion of screen occupied by master pane -- grid
ratio = 1/2 grid_ratio = 16/9
grid_spacing = 10
grid = spacing grid_spacing $ Grid grid_ratio
-- Percent of screen to increment by when resizing panes -- monocle
delta = 3/100 monocle = smartBorders (Full)
-- fullscreen
fullscreen = noBorders (Full)
myManageHook = composeAll myManageHook = composeAll
[ className =? "MPlayer" --> doFloat [ className =? "MPlayer" --> doFloat
@@ -158,7 +186,7 @@ myManageHook = composeAll
, resource =? "desktop_window" --> doIgnore , resource =? "desktop_window" --> doIgnore
, resource =? "kdesktop" --> doIgnore ] , resource =? "kdesktop" --> doIgnore ]
myEventHook = mempty -- myEventHook = mempty
-- myLogHook = return () -- myLogHook = return ()
@@ -170,31 +198,33 @@ main = do
-- `xmobar -x 0` launches the bar on monitor 0 -- `xmobar -x 0` launches the bar on monitor 0
xmproc <- spawnPipe "xmobar -x 0 /home/sravan/.xmonad/xmobar.config" xmproc <- spawnPipe "xmobar -x 0 /home/sravan/.xmonad/xmobar.config"
-- launches xmobar as a dock -- launches xmobar as a dock
xmonad $ docks defaultConfig xmonad $ ewmh desktopConfig
{ -- simple stuff { manageHook = manageDocks <+> manageHook desktopConfig
terminal = myTerminal, , startupHook = myStartupHook
focusFollowsMouse = myFocusFollowsMouse, , layoutHook = myLayout
clickJustFocuses = myClickJustFocuses, , borderWidth = myBorderWidth
borderWidth = myBorderWidth, , terminal = myTerminal
modMask = myModMask, , modMask = myModMask
workspaces = myWorkspaces, , normalBorderColor = myNormalBorderColor
normalBorderColor = myNormalBorderColor, , focusedBorderColor = myFocusedBorderColor
focusedBorderColor = myFocusedBorderColor, , logHook = dynamicLogWithPP xmobarPP
{ ppOutput = \x -> hPutStrLn xmproc x
-- key bindings , ppCurrent = xmobarColor "green" "" . wrap "[" "]" -- current workspace in xmobar
keys = myKeys, , ppVisible = xmobarColor "cyan" "" -- visible but not current workspace
mouseBindings = myMouseBindings, , ppHidden = xmobarColor "yellow" "" . wrap "+" "" -- hidden workspaces in xmobar
, ppHiddenNoWindows = xmobarColor "white" "" -- hidden workspaces (no windows)
-- hooks, layouts , ppTitle = xmobarColor "purple" "" . shorten 80 -- title of active window in xmobar
layoutHook = myLayout, , ppSep = " | " -- separators in xmobar
manageHook = myManageHook, , ppUrgent = xmobarColor "red" "" . wrap "!" "!" -- urgent workspace
handleEventHook = myEventHook, , ppOrder = \(ws:l:t:ex) -> [ws,l,t]
logHook = dynamicLogWithPP xmobarPP }
{ ppOutput = hPutStrLn xmproc -- focusFollowsMouse = myFocusFollowsMouse,
, ppTitle = xmobarColor "green" "" . shorten 50 -- clickJustFocuses = myClickJustFocuses,
}, -- workspaces = myWorkspaces,
startupHook = myStartupHook -- keys = myKeys,
} -- mouseBindings = myMouseBindings,
-- handleEventHook = myEventHook,
} `additionalKeysP` myKeys
help :: String help :: String
help = unlines ["The default modifier key is 'alt'. Default keybindings:", help = unlines ["The default modifier key is 'alt'. Default keybindings:",