X-dark/config_files
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

latest xmonad conf

Browse source
This commit is contained in:
Cedric Girard 2017-07-04 13:52:07 +02:00
parent 972c23b2f5
commit 231e467190
1 changed files with 40 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
xmonad/xmonad.hs
View file

@ -35,6 +35,7 @@ import qualified XMonad.StackSet as W
-- The preferred terminal program, which is used in a binding below and by -- The preferred terminal program, which is used in a binding below and by
-- certain contrib modules. -- certain contrib modules.
-- --
--myTerminal = "urxvtc -e bash"
myTerminal = "termite -e bash" myTerminal = "termite -e bash"
-- Whether focus follows the mouse pointer. -- Whether focus follows the mouse pointer.
@ -61,7 +62,17 @@ myModMask = mod4Mask
-- --
-- > workspaces = ["web", "irc", "code" ] ++ map show [4..9] -- > workspaces = ["web", "irc", "code" ] ++ map show [4..9]
-- --
myWorkspaces = ["web","mail","3","4","5","6","irc","8","9"] myWorkspaces = clickable $ ["web","2","3","4","5","6","irc","8","9"]
where clickable l = [ "^ca(1,setxkbmap fr;xdotool key super+ampersand)web^ca()",
"^ca(1,setxkbmap fr;xdotool key super+eacute)2^ca()",
"^ca(1,setxkbmap fr;xdotool key super+quotedbl)3^ca()",
"^ca(1,setxkbmap fr;xdotool key super+apostrophe)4^ca()",
"^ca(1,setxkbmap fr;xdotool key super+parenleft)5^ca()",
"^ca(1,setxkbmap fr;xdotool key super+minus)6^ca()",
"^ca(1,setxkbmap fr;xdotool key super+egrave)irc^ca()",
"^ca(1,setxkbmap fr;xdotool key super+underscore)8^ca()",
"^ca(1,setxkbmap fr;xdotool key super+ccedilla)9^ca()"
]
-- Border colors for unfocused and focused windows, respectively. -- Border colors for unfocused and focused windows, respectively.
-- --
@ -78,7 +89,8 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
[ ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf) [ ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
-- launch dmenu -- launch dmenu
, ((modm, xK_p ), spawn "exe=`yeganesh -x` && eval \"exec $exe\"") --, ((modm, xK_p ), spawn "exe=`yeganesh -x` && eval \"exec $exe\"")
, ((modm, xK_p ), spawn "exe=`dmenu_run -hist ~/.config/dmenu2/hist -dim 0.4` && eval \"exec $exe\"")
-- launch gmrun -- launch gmrun
, ((modm .|. shiftMask, xK_p ), spawn "gmrun") , ((modm .|. shiftMask, xK_p ), spawn "gmrun")
@ -185,7 +197,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
-- lock screen -- lock screen
-- --
[ ((modm .|. shiftMask, xK_w), spawn "slimlock")] [ ((modm .|. shiftMask, xK_w), spawn "sxlock -l")]
++ ++
-- screenshots -- screenshots
@ -260,11 +272,12 @@ myManageHook = composeAll
, className =? "Xchat" --> doF (W.shift "irc") , className =? "Xchat" --> doF (W.shift "irc")
, title =? "weechat 0.3.6" --> doF (W.shift "irc") , title =? "weechat 0.3.6" --> doF (W.shift "irc")
--, fmap ("Oracle" `isPrefixOf`) title --> doF (W.shift "irc") --, fmap ("Oracle" `isPrefixOf`) title --> doF (W.shift "irc")
, className =? "Thunderbird" --> doF (W.shift "mail") , className =? "Navigator" --> doF (W.shift "web")
, className =? "Lanikai" --> doF (W.shift "mail") --, className =? "Thunderbird" --> doF (W.shift "mail")
, className =? "Shredder" --> doF (W.shift "mail") --, className =? "Lanikai" --> doF (W.shift "mail")
, className =? "Miramar" --> doF (W.shift "mail") --, className =? "Shredder" --> doF (W.shift "mail")
, className =? "Daily" --> doF (W.shift "mail") --, className =? "Miramar" --> doF (W.shift "mail")
--, className =? "Daily" --> doF (W.shift "mail")
, className =? "Gcalctool" --> doFloat , className =? "Gcalctool" --> doFloat
, className =? "VirtualBox" --> doFloat , className =? "VirtualBox" --> doFloat
, className =? "Xmessage" --> doFloat , className =? "Xmessage" --> doFloat
@ -276,9 +289,14 @@ myManageHook = composeAll
, resource =? "Browser" --> doFloat , resource =? "Browser" --> doFloat
, resource =? "Toplevel" --> doFullFloat , resource =? "Toplevel" --> doFullFloat
, resource =? "Dialog" --> doFloat , resource =? "Dialog" --> doFloat
, title =? "KeePassHttp: Confirm Access" --> doFloat
, title =? "Search and Select List of Values - Nightly" --> doFloat
, resource =? "desktop_window" --> doIgnore , resource =? "desktop_window" --> doIgnore
, resource =? "kdesktop" --> doIgnore ] , resource =? "kdesktop" --> doIgnore ]
-- , isFullscreen --> doFullFloat ]
<+> manageDocks <+> manageDocks
-- <+> composeOne
--[ isFullscreen -?> (doF W.focusDown <+> doFullFloat)]
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Event handling -- Event handling
@ -289,7 +307,9 @@ 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 <+> fullscreenEventHook -- myEventHook = mempty <+> fullscreenEventHook
myEventHook = ewmhDesktopsEventHook <+> fullscreenEventHook
-- myEventHook = ewmhDesktopsEventHook
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Status bars and logging -- Status bars and logging
@ -301,6 +321,13 @@ myEventHook = mempty <+> fullscreenEventHook
-- --
-- > logHook = dynamicLogDzen -- > logHook = dynamicLogDzen
-- --
-- myLogHook pipe = dynamicLogWithPP xmobarPP
-- { ppOutput = hPutStrLn pipe
-- , ppCurrent = xmobarColor "#AE6F38" "" . wrap "[" "]"
-- , ppTitle = xmobarColor "#6B8836" "" . shorten 60
-- }
-- >> ewmhDesktopsLogHook
-- >> setWMName "LG3D"
myLogHook pipe = dynamicLogWithPP dzenPP myLogHook pipe = dynamicLogWithPP dzenPP
{ ppOutput = hPutStrLn pipe { ppOutput = hPutStrLn pipe
, ppCurrent = dzenColor "#AE6F38" "" . wrap "[" "]" , ppCurrent = dzenColor "#AE6F38" "" . wrap "[" "]"
@ -308,7 +335,7 @@ myLogHook pipe = dynamicLogWithPP dzenPP
} }
>> ewmhDesktopsLogHook >> ewmhDesktopsLogHook
dzenConky = "conky -c ~/.xmonad/conkyrc | /usr/bin/dzen2 -x 650 -w 629 -fn '-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*' -ta r" dzenConky = "conky -c ~/.xmonad/conkyrc | /usr/bin/dzen2 -x 800 -w 800 -fn '-misc-fixed-*-*-*-*-12-*-*-*-*-*-*-*' -ta r"
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Prompts -- Prompts
@ -339,9 +366,10 @@ myStartupHook = return ()
-- 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
dzproc <- spawnPipe "/usr/bin/dzen2 -w 650 -fn '-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*' -ta l" --xmproc <- spawnPipe "/usr/bin/xmobar /home/cgirard/.xmobarrc"
dzproc <- spawnPipe "/usr/bin/dzen2 -w 800 -fn '-misc-fixed-*-*-*-*-12-*-*-*-*-*-*-*' -ta l"
spawn dzenConky spawn dzenConky
xmonad $ defaultConfig { xmonad $ docks $ defaultConfig {
-- simple stuff -- simple stuff
terminal = myTerminal, terminal = myTerminal,
focusFollowsMouse = myFocusFollowsMouse, focusFollowsMouse = myFocusFollowsMouse,