Difference between revisions of "Xmonad/Config archive/Don's xmonad.hs"
< Xmonad | Config archive
Jump to navigation
Jump to search
DonStewart (talk | contribs) |
DonStewart (talk | contribs) |
||
Line 6: | Line 6: | ||
<haskell> |
<haskell> |
||
import XMonad |
import XMonad |
||
− | import qualified Data.Map as M |
||
⚫ | |||
import XMonad.Hooks.DynamicLog |
import XMonad.Hooks.DynamicLog |
||
⚫ | |||
+ | import XMonad.Prompt |
||
+ | import XMonad.Prompt.RunOrRaise |
||
main = dzen $ \x -> xmonad $ x |
main = dzen $ \x -> xmonad $ x |
||
Line 14: | Line 15: | ||
, normalBorderColor = "#333333" |
, normalBorderColor = "#333333" |
||
, focusedBorderColor = "red" |
, focusedBorderColor = "red" |
||
− | , layoutHook = avoidStrutsOn [U] (layoutHook x) |
||
− | , keys = \c -> mykeys c `M.union` keys x c |
||
, manageHook = |
, manageHook = |
||
− | (manageHook x |
+ | (manageHook x |
− | (className =? " |
+ | <+> (className =? "stalonetray" --> doIgnore) |
+ | ) |
||
− | |||
} |
} |
||
+ | `additionalKeys` |
||
+ | [ ((modMask x , xK_p), runOrRaisePrompt defaultXPConfig { position = Top })] |
||
− | mykeys (XConfig{modMask=modm}) = M.fromList |
||
− | [((modm, xK_b ), sendMessage ToggleStruts) |
||
− | ] |
||
</haskell> |
</haskell> |
||
Revision as of 07:08, 13 April 2008
Configuration files get much simpler in xmonad 0.5, as you just override those values you need to.
This is the ~/.xmonad/xmonad.hs file.
import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Util.EZConfig
import XMonad.Prompt
import XMonad.Prompt.RunOrRaise
main = dzen $ \x -> xmonad $ x
{ terminal = "term"
, normalBorderColor = "#333333"
, focusedBorderColor = "red"
, manageHook =
(manageHook x
<+> (className =? "stalonetray" --> doIgnore)
)
}
`additionalKeys`
[ ((modMask x , xK_p), runOrRaisePrompt defaultXPConfig { position = Top })]
Launches dzen on startup, with some good defaults.
My .xinitrc:
# .xinitrc
xrandr -s 0
xrdb $HOME/.Xresources
xsetroot -cursor_name left_ptr
xsetroot -solid '#80a0af'
xset b 100 0 0
xset r rate 140 200
xmodmap -e "keycode 233 = Page_Down"
xmodmap -e "keycode 234 = Page_Up"
xmodmap -e "remove Lock = Caps_Lock"
xmodmap -e "keysym Caps_Lock = Control_L"
xmodmap -e "add Control = Control_L"
PATH=/home/dons/bin:$PATH
# launch the external 60 second clock, and launch the workspace status bar
FG='#a8a3f7'
BG='#3f3c6d'
#FONT="-xos4-terminus-medium-r-normal--16-160-72-72-c-80-iso8859-1"
xmonad-clock | dzen2 -e '' -x 400 -w 1200 -ta r -fg $FG -bg $BG &
xmonad &
# wait for xmonad
wait $!
pkill -HUP dzen2
pkill -HUP -f xmonad-clock
wait