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

Added prompts and cleanup

Browse source
This commit is contained in:
Cedric Girard 2012-02-09 15:20:17 +01:00
parent 2cf4fd4bab
commit 839a47fa58
1 changed files with 105 additions and 90 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

85
xmonad/xmonad.hs
View file

@ -1,14 +1,6 @@
--
-- xmonad example config file.
--
-- A template showing all available configuration hooks,
-- and how to override the defaults in your own xmonad.hs conf file.
--
-- Normally, you'd only override those defaults you care about.
--
import XMonad import XMonad
import System.Exit import System.Exit
import Data.List
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe) import XMonad.Util.Run(spawnPipe)
@ -28,6 +20,10 @@ import XMonad.Hooks.SetWMName
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 XMonad.Prompt
import XMonad.Prompt.Man
import XMonad.Prompt.Shell
-- 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.
-- --
@ -78,6 +74,12 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
-- launch xmenud -- launch xmenud
, ((modm, xK_x ), spawn "xmenud") , ((modm, xK_x ), spawn "xmenud")
-- shell Prompt
, ((modm .|. shiftMask, xK_x ), shellPrompt myXPConfig)
-- man Prompt
, ((modm, xK_F1 ), manPrompt myXPConfig)
-- close focused window -- close focused window
, ((modm .|. shiftMask, xK_c ), kill) , ((modm .|. shiftMask, xK_c ), kill)
@ -121,31 +123,28 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
, ((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_comma ), sendMessage (IncMasterN 1)) , ((modm, xK_comma ), sendMessage (IncMasterN 1))
-- Deincrement the number of windows in the master area -- Deincrement the number of windows in the master area
, ((modm , xK_semicolon), sendMessage (IncMasterN (-1))) , ((modm, xK_semicolon), sendMessage (IncMasterN (-1)))
-- toggle the status bar gap (used with avoidStruts from Hooks.ManageDocks) -- toggle the status bar gap (used with avoidStruts from Hooks.ManageDocks)
, ((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 ), spawn "gxmessage -center -buttons No:1,Yes:0 -default Yes -timeout 60 Do you really want to close Xmonad session ? && pkill xmonad")
, ((modm .|. shiftMask, xK_q ), spawn "/home/cgirard/shutdown.sh") , ((modm .|. shiftMask, xK_q ), spawn "/home/cgirard/shutdown.sh")
--, ((modm .|. shiftMask, xK_q ), spawn "gnome-session-save --gui --shutdown-dialog")
-- Restart xmonad -- Restart xmonad
, ((modm , xK_q ), restart "xmonad" True) , ((modm, xK_q ), restart "xmonad" True)
-- GridSelected -- GridSelected
, ((modm , xK_g), goToSelected defaultGSConfig) , ((modm, xK_g ), goToSelected defaultGSConfig)
-- Switch next/previous workspace -- Switch next/previous workspace
, ((modm , xK_Right), nextWS) , ((modm, xK_Right ), nextWS)
, ((modm , xK_Left), prevWS) , ((modm, xK_Left ), prevWS)
, ((modm .|. shiftMask , xK_Right), shiftToNext) , ((modm .|. shiftMask , xK_Right), shiftToNext)
, ((modm .|. shiftMask , xK_Left), shiftToPrev) , ((modm .|. shiftMask , xK_Left), shiftToPrev)
] ]
@ -209,19 +208,19 @@ myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
-- which denotes layout choice. -- which denotes layout choice.
-- --
myLayout = spacing 3 $ avoidStruts $ myLayout = spacing 3 $ avoidStruts $
tiled ||| Mirror tiled ||| Full ||| Grid ||| simpleFloat tiled ||| Mirror tiled ||| Full ||| Grid ||| simpleFloat
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 tiled = Tall nmaster delta ratio
-- The default number of windows in the master pane -- The default number of windows in the master pane
nmaster = 1 nmaster = 1
-- Default proportion of screen occupied by master pane -- Default proportion of screen occupied by master pane
ratio = 56/100 ratio = 56/100
-- Percent of screen to increment by when resizing panes -- Percent of screen to increment by when resizing panes
delta = 3/100 delta = 3/100
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Window rules: -- Window rules:
@ -240,25 +239,28 @@ myLayout = spacing 3 $ avoidStruts $
-- --
myManageHook = composeAll myManageHook = composeAll
[ className =? "MPlayer" --> doFloat [ className =? "MPlayer" --> doFloat
-- , className =? "Gimp" --> doFloat
, className =? "Pidgin" --> doF (W.shift "irc") , className =? "Pidgin" --> doF (W.shift "irc")
, className =? "Xchat" --> doF (W.shift "irc") , className =? "Xchat" --> doF (W.shift "irc")
, title =? "weechat 0.3.6" --> doF (W.shift "irc")
--, fmap ("Oracle" `isPrefixOf`) title --> doF (W.shift "irc")
, className =? "Thunderbird" --> doF (W.shift "mail") , className =? "Thunderbird" --> doF (W.shift "mail")
, className =? "Lanikai" --> doF (W.shift "mail") , className =? "Lanikai" --> doF (W.shift "mail")
, className =? "Shredder" --> doF (W.shift "mail") , className =? "Shredder" --> doF (W.shift "mail")
, className =? "Miramar" --> doF (W.shift "mail") , className =? "Miramar" --> doF (W.shift "mail")
, className =? "Gcalctool" --> doFloat , className =? "Daily" --> doF (W.shift "mail")
, className =? "Gcalctool" --> doFloat
, className =? "VirtualBox" --> doFloat , className =? "VirtualBox" --> doFloat
, className =? "Xmessage" --> doFloat , className =? "Xmessage" --> doFloat
, className =? "Gxmessage" --> doFloat , className =? "Gxmessage" --> doFloat
, className =? "DialogBox" --> doFloat , className =? "DialogBox" --> doFloat
, resource =? "Download" --> doFloat , resource =? "Download" --> doFloat
, resource =? "Browser" --> doFloat , resource =? "Browser" --> doFloat
, resource =? "Toplevel" --> doFullFloat
, resource =? "Dialog" --> doFloat , resource =? "Dialog" --> doFloat
, resource =? "desktop_window" --> doIgnore , resource =? "desktop_window" --> doIgnore
, resource =? "kdesktop" --> doIgnore ] , resource =? "kdesktop" --> doIgnore ]
<+> manageDocks <+> manageDocks
<+> composeOne <+> composeOne
[ isFullscreen -?> doFullFloat ] [ isFullscreen -?> doFullFloat ]
-- Whether focus follows the mouse pointer. -- Whether focus follows the mouse pointer.
@ -281,8 +283,21 @@ myLogHook pipe = dynamicLogWithPP xmobarPP
, ppCurrent = xmobarColor "#AE6F38" "" . wrap "[" "]" , ppCurrent = xmobarColor "#AE6F38" "" . wrap "[" "]"
, ppTitle = xmobarColor "#6B8836" "" . shorten 60 , ppTitle = xmobarColor "#6B8836" "" . shorten 60
} }
>> ewmhDesktopsLogHook >> ewmhDesktopsLogHook
>> setWMName "LG3D" >> setWMName "LG3D"
------------------------------------------------------------------------
-- Prompts
--
myXPConfig = defaultXPConfig
--{
-- font = "-*-terminus-*-*-*-*-12-*-*-*-*-*-*-u"
-- ,fgColor = "#00FFFF"
-- , bgColor = "#000000"
-- , bgHLight = "#000000"
-- , fgHLight = "#FF0000"
-- , position = Top
--}
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Startup hook -- Startup hook