aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorDavid Roundy <droundy@darcs.net>2007-12-01 17:23:10 +0100
committerDavid Roundy <droundy@darcs.net>2007-12-01 17:23:10 +0100
commit2bc8275bf2ba5f8dd19360055dc815ac4f9b3b10 (patch)
treee60b5b5899fea8cbc8cf592eb3ab458856034c99 /XMonad
parent788f3f53ecb9048c4694ae071ee783339ed83746 (diff)
downloadXMonadContrib-2bc8275bf2ba5f8dd19360055dc815ac4f9b3b10.tar.gz
XMonadContrib-2bc8275bf2ba5f8dd19360055dc815ac4f9b3b10.tar.xz
XMonadContrib-2bc8275bf2ba5f8dd19360055dc815ac4f9b3b10.zip
my urgency-hook code also seems to crach... change in Droundy.
darcs-hash:20071201162310-72aca-8014a50f32e0d7e9546ade93ec31f873b58735af.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Config/Droundy.hs11
1 files changed, 7 insertions, 4 deletions
diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs
index bd4bb36..42cbed3 100644
--- a/XMonad/Config/Droundy.hs
+++ b/XMonad/Config/Droundy.hs
@@ -8,13 +8,13 @@
module XMonad.Config.Droundy ( config, mytab ) where
-import Control.Monad.State ( modify )
+--import Control.Monad.State ( modify )
import XMonad hiding (keys, config)
import qualified XMonad (keys)
import XMonad.Config ( defaultConfig )
-import XMonad.Core ( windowset )
+--import XMonad.Core ( windowset )
import XMonad.Layouts hiding ( (|||) )
import XMonad.Operations
import qualified XMonad.StackSet as W
@@ -46,7 +46,7 @@ import XMonad.Actions.DynamicWorkspaces
import XMonad.Actions.RotView
--import XMonad.Hooks.ManageDocks
-import XMonad.Hooks.UrgencyHook
+--import XMonad.Hooks.UrgencyHook
myXPConfig :: XPConfig
myXPConfig = defaultXPConfig {font="-*-lucida-medium-r-*-*-14-*-*-*-*-*-*-*"
@@ -130,7 +130,8 @@ keys x = M.fromList $
++
zip (zip (repeat (modMask x .|. shiftMask)) [xK_F1..xK_F12]) (map (withNthWorkspace copy) [0..])
-config = withUrgencyHook FocusUrgencyHook $ defaultConfig
+config = -- withUrgencyHook FocusUrgencyHook $
+ defaultConfig
{ borderWidth = 1 -- Width of the window border in pixels.
, XMonad.workspaces = ["1:mutt","2:iceweasel"]
, layoutHook = workspaceDir "~" $ windowNavigation $
@@ -171,6 +172,7 @@ dropFromHead :: String -> String -> Maybe String
dropFromHead h s | take (length h) s == h = Just $ drop (length h) s
| otherwise = Nothing
+{-
data FocusUrgencyHook = FocusUrgencyHook deriving (Read, Show)
instance UrgencyHook FocusUrgencyHook Window where
@@ -187,3 +189,4 @@ instance UrgencyHook FocusUrgencyHook Window where
has _ Nothing = False
has x (Just (W.Stack t l rr)) = x `elem` (t : l ++ rr)
+-}