latest update 1
This commit is contained in:
parent
f8447a82d4
commit
85d2be8e21
1 changed files with 4 additions and 7 deletions
11
xmonad.hs
11
xmonad.hs
|
@ -144,7 +144,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
|
||||||
, ((modm, xK_x ), spawn "wlogout")
|
, ((modm, xK_x ), spawn "wlogout")
|
||||||
|
|
||||||
-- Restart xmonad
|
-- Restart xmonad
|
||||||
, ((modm , xK_q ), spawn "xmonad --recompile; xmonad --restart")
|
, ((modm , xK_q ), spawn "killall xmobar; 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 -"))
|
||||||
|
@ -240,7 +240,7 @@ myManageHook = composeAll
|
||||||
-- return (All True) if the default handler is to be run afterwards. To
|
-- return (All True) if the default handler is to be run afterwards. To
|
||||||
-- combine event hooks use mappend or mconcat from Data.Monoid.
|
-- combine event hooks use mappend or mconcat from Data.Monoid.
|
||||||
--
|
--
|
||||||
myEventHook = mempty
|
myEventHook = fullscreenEventHook
|
||||||
|
|
||||||
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
||||||
-- Status bars and logging
|
-- Status bars and logging
|
||||||
|
@ -261,6 +261,7 @@ myLogHook = return ()
|
||||||
myStartupHook = do
|
myStartupHook = do
|
||||||
spawnOnce "nitrogen --restore &"
|
spawnOnce "nitrogen --restore &"
|
||||||
spawnOnce "picom &"
|
spawnOnce "picom &"
|
||||||
|
spawnOnce "trayer --edge bottom --align left --widthtype request --heighttype request --SetDockType true --transparent true --alpha 255 --SetPartialStrut false --expand true &"
|
||||||
|
|
||||||
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
||||||
-- Command to launch the bar.
|
-- Command to launch the bar.
|
||||||
|
@ -278,11 +279,7 @@ toggleStrutsKey XConfig {XMonad.modMask = modMask} = (modMask, xK_b)
|
||||||
-- Run xmonad with the settings you specify. No need to modify this.
|
-- Run xmonad with the settings you specify. No need to modify this.
|
||||||
--
|
--
|
||||||
main = do
|
main = do
|
||||||
xmonad =<< statusBar myBar myPP toggleStrutsKey defaults
|
xmonad =<< statusBar myBar myPP toggleStrutsKey $ defaults { handleEventHook = handleEventHook def <+> fullscreenEventHook }
|
||||||
xmonad $ defaultConfig
|
|
||||||
{ handleEventHook = fullscreenEventHook
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
-- A structure containing your configuration settings, overriding
|
-- A structure containing your configuration settings, overriding
|
||||||
-- fields in the default config. Any you don't override, will
|
-- fields in the default config. Any you don't override, will
|
||||||
|
|
Loading…
Reference in a new issue