diff options
Diffstat (limited to '')
-rw-r--r-- | XMonad/Hooks/CurrentWorkspaceOnTop.hs | 2 | ||||
-rw-r--r-- | XMonad/Hooks/DynamicLog.hs | 10 | ||||
-rw-r--r-- | XMonad/Hooks/EwmhDesktops.hs | 4 | ||||
-rw-r--r-- | XMonad/Hooks/FadeInactive.hs | 2 | ||||
-rw-r--r-- | XMonad/Hooks/FadeWindows.hs | 2 | ||||
-rw-r--r-- | XMonad/Hooks/FloatNext.hs | 2 | ||||
-rw-r--r-- | XMonad/Hooks/InsertPosition.hs | 2 | ||||
-rw-r--r-- | XMonad/Hooks/ManageHelpers.hs | 2 | ||||
-rw-r--r-- | XMonad/Hooks/Minimize.hs | 4 | ||||
-rw-r--r-- | XMonad/Hooks/Place.hs | 4 | ||||
-rw-r--r-- | XMonad/Hooks/PositionStoreHooks.hs | 8 | ||||
-rw-r--r-- | XMonad/Hooks/RestoreMinimized.hs | 2 | ||||
-rw-r--r-- | XMonad/Hooks/Script.hs | 2 | ||||
-rw-r--r-- | XMonad/Hooks/ServerMode.hs | 2 | ||||
-rw-r--r-- | XMonad/Hooks/ToggleHook.hs | 4 | ||||
-rw-r--r-- | XMonad/Hooks/UrgencyHook.hs | 6 | ||||
-rw-r--r-- | XMonad/Hooks/WorkspaceByPos.hs | 4 | ||||
-rw-r--r-- | XMonad/Hooks/WorkspaceHistory.hs | 2 |
18 files changed, 32 insertions, 32 deletions
diff --git a/XMonad/Hooks/CurrentWorkspaceOnTop.hs b/XMonad/Hooks/CurrentWorkspaceOnTop.hs index 2c42413..5b94a8d 100644 --- a/XMonad/Hooks/CurrentWorkspaceOnTop.hs +++ b/XMonad/Hooks/CurrentWorkspaceOnTop.hs @@ -33,7 +33,7 @@ import qualified Data.Map as M -- -- > import XMonad.Hooks.CurrentWorkspaceOnTop -- > --- > main = xmonad $ defaultConfig { +-- > main = xmonad $ def { -- > ... -- > logHook = currentWorkspaceOnTop -- > ... diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs index 0547c80..3bdf5f1 100644 --- a/XMonad/Hooks/DynamicLog.hs +++ b/XMonad/Hooks/DynamicLog.hs @@ -88,7 +88,7 @@ import XMonad.Hooks.ManageDocks -- -- > main = xmonad =<< xmobar myConfig -- > --- > myConfig = defaultConfig { ... } +-- > myConfig = def { ... } -- -- There is also 'statusBar' if you'd like to use another status bar, or would -- like to use different formatting options. The 'xmobar', 'dzen', and @@ -99,7 +99,7 @@ import XMonad.Hooks.ManageDocks -- ('dynamicLog' or 'dynamicLogXinerama') by simply setting your logHook to the -- appropriate function, for instance: -- --- > main = xmonad $ defaultConfig { +-- > main = xmonad $ def { -- > ... -- > logHook = dynamicLog -- > ... @@ -124,7 +124,7 @@ import XMonad.Hooks.ManageDocks -- > -- > main = do -- > h <- spawnPipe "xmobar -options -foo -bar" --- > xmonad $ defaultConfig { +-- > xmonad $ def { -- > ... -- > logHook = dynamicLogWithPP $ defaultPP { ppOutput = hPutStrLn h } -- @@ -153,7 +153,7 @@ import XMonad.Hooks.ManageDocks -- -- > main = xmonad =<< dzen myConfig -- > --- > myConfig = defaultConfig { ... } +-- > myConfig = def { ... } -- -- The intent is that the above config file should provide a nice -- status bar with minimal effort. @@ -178,7 +178,7 @@ dzen conf = statusBar ("dzen2 " ++ flags) dzenPP toggleStrutsKey conf -- -- > main = xmonad =<< xmobar myConfig -- > --- > myConfig = defaultConfig { ... } +-- > myConfig = def { ... } -- -- This works pretty much the same as 'dzen' function above. -- diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs index f7f19c3..8b3a644 100644 --- a/XMonad/Hooks/EwmhDesktops.hs +++ b/XMonad/Hooks/EwmhDesktops.hs @@ -44,8 +44,8 @@ import XMonad.Util.WindowProperties (getProp32) -- > import XMonad -- > import XMonad.Hooks.EwmhDesktops -- > --- > main = xmonad $ ewmh defaultConfig{ handleEventHook = --- > handleEventHook defaultConfig <+> fullscreenEventHook } +-- > main = xmonad $ ewmh def{ handleEventHook = +-- > handleEventHook def <+> fullscreenEventHook } -- -- You may also be interested in 'avoidStruts' from "XMonad.Hooks.ManageDocks". diff --git a/XMonad/Hooks/FadeInactive.hs b/XMonad/Hooks/FadeInactive.hs index 71a6fcd..d1e64a6 100644 --- a/XMonad/Hooks/FadeInactive.hs +++ b/XMonad/Hooks/FadeInactive.hs @@ -40,7 +40,7 @@ import Control.Monad -- > myLogHook = fadeInactiveLogHook fadeAmount -- > where fadeAmount = 0.8 -- > --- > main = xmonad defaultConfig { logHook = myLogHook } +-- > main = xmonad def { logHook = myLogHook } -- -- fadeAmount can be any rational between 0 and 1. -- you will need to have xcompmgr <http://freedesktop.org/wiki/Software/xapps> diff --git a/XMonad/Hooks/FadeWindows.hs b/XMonad/Hooks/FadeWindows.hs index 30e1de4..4b8e62b 100644 --- a/XMonad/Hooks/FadeWindows.hs +++ b/XMonad/Hooks/FadeWindows.hs @@ -115,7 +115,7 @@ import Graphics.X11.Xlib.Extras (Event(..)) -- a tight loop trying to fade the popup in). I find it useful to -- have a key binding to restart the compositing manager; for example, -- --- main = xmonad $ defaultConfig { +-- main = xmonad $ def { -- {- ... -} -- } -- `additionalKeysP` diff --git a/XMonad/Hooks/FloatNext.hs b/XMonad/Hooks/FloatNext.hs index 93d0eda..f98ea15 100644 --- a/XMonad/Hooks/FloatNext.hs +++ b/XMonad/Hooks/FloatNext.hs @@ -53,7 +53,7 @@ hookName = "__float" -- -- and adding 'floatNextHook' to your 'ManageHook': -- --- > myManageHook = floatNextHook <+> manageHook defaultConfig +-- > myManageHook = floatNextHook <+> manageHook def -- -- The 'floatNext' and 'toggleFloatNext' functions can be used in key -- bindings to float the next spawned window: diff --git a/XMonad/Hooks/InsertPosition.hs b/XMonad/Hooks/InsertPosition.hs index 722c48a..0c6230c 100644 --- a/XMonad/Hooks/InsertPosition.hs +++ b/XMonad/Hooks/InsertPosition.hs @@ -31,7 +31,7 @@ import Data.Monoid(Endo(Endo)) -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: -- -- > import XMonad.Hooks.InsertPosition --- > xmonad defaultConfig { manageHook = insertPosition Master Newer <+> myManageHook } +-- > xmonad def { manageHook = insertPosition Master Newer <+> myManageHook } -- -- You should you put the manageHooks that use 'doShift' to take effect -- /before/ 'insertPosition', so that the window order will be consistent. diff --git a/XMonad/Hooks/ManageHelpers.hs b/XMonad/Hooks/ManageHelpers.hs index 093e0cb..de03b55 100644 --- a/XMonad/Hooks/ManageHelpers.hs +++ b/XMonad/Hooks/ManageHelpers.hs @@ -13,7 +13,7 @@ -- -- > import XMonad.Hooks.ManageHelpers -- > main = --- > xmonad defaultConfig{ +-- > xmonad def{ -- > ... -- > manageHook = composeOne [ -- > isKDETrayWindow -?> doIgnore, diff --git a/XMonad/Hooks/Minimize.hs b/XMonad/Hooks/Minimize.hs index dd9567c..5e2ab03 100644 --- a/XMonad/Hooks/Minimize.hs +++ b/XMonad/Hooks/Minimize.hs @@ -33,8 +33,8 @@ import XMonad.Layout.Minimize -- > -- > myHandleEventHook = minimizeEventHook -- > myLayout = minimize (Tall 1 (3/100) (1/2)) ||| Full ||| etc.. --- > main = xmonad defaultConfig { layoutHook = myLayout --- > , handleEventHook = myHandleEventHook } +-- > main = xmonad def { layoutHook = myLayout +-- > , handleEventHook = myHandleEventHook } minimizeEventHook :: Event -> X All minimizeEventHook (ClientMessageEvent {ev_window = w, diff --git a/XMonad/Hooks/Place.hs b/XMonad/Hooks/Place.hs index 65d3e49..e1138ce 100644 --- a/XMonad/Hooks/Place.hs +++ b/XMonad/Hooks/Place.hs @@ -59,8 +59,8 @@ import Control.Monad.Trans (lift) -- -- and adding 'placeHook' to your 'manageHook', for example: -- --- > main = xmonad $ defaultConfig { manageHook = placeHook simpleSmart --- > <+> manageHook defaultConfig } +-- > main = xmonad $ def { manageHook = placeHook simpleSmart +-- > <+> manageHook def } -- -- Note that 'placeHook' should be applied after most other hooks, especially hooks -- such as 'doFloat' and 'doShift'. Since hooks combined with '<+>' are applied from diff --git a/XMonad/Hooks/PositionStoreHooks.hs b/XMonad/Hooks/PositionStoreHooks.hs index 9ebcbb4..0818b1c 100644 --- a/XMonad/Hooks/PositionStoreHooks.hs +++ b/XMonad/Hooks/PositionStoreHooks.hs @@ -58,12 +58,12 @@ import qualified Data.Set as S -- otherwise use 'Just defaultTheme' or similar to inform the module about the -- decoration theme used. -- --- > myManageHook = positionStoreManageHook Nothing <+> manageHook defaultConfig +-- > myManageHook = positionStoreManageHook Nothing <+> manageHook def -- > myHandleEventHook = positionStoreEventHook -- > --- > main = xmonad defaultConfig { manageHook = myManageHook --- > , handleEventHook = myHandleEventHook --- > } +-- > main = xmonad def { manageHook = myManageHook +-- > , handleEventHook = myHandleEventHook +-- > } -- positionStoreManageHook :: Maybe Theme -> ManageHook diff --git a/XMonad/Hooks/RestoreMinimized.hs b/XMonad/Hooks/RestoreMinimized.hs index 3759ce5..05aa846 100644 --- a/XMonad/Hooks/RestoreMinimized.hs +++ b/XMonad/Hooks/RestoreMinimized.hs @@ -34,7 +34,7 @@ import XMonad.Layout.Minimize -- > -- > myHandleEventHook = restoreMinimizedEventHook -- > --- > main = xmonad defaultConfig { handleEventHook = myHandleEventHook } +-- > main = xmonad def { handleEventHook = myHandleEventHook } data RestoreMinimized = RestoreMinimized deriving ( Show, Read ) diff --git a/XMonad/Hooks/Script.hs b/XMonad/Hooks/Script.hs index 82e4868..b298920 100644 --- a/XMonad/Hooks/Script.hs +++ b/XMonad/Hooks/Script.hs @@ -34,7 +34,7 @@ import XMonad -- For example, if you wanted to run the hook "startup" in your script every -- time your startup hook ran, you could modify your xmonad config as such: -- --- > main = xmonad $ defaultConfig { +-- > main = xmonad $ def { -- > ... -- > startupHook = execScriptHook "startup" -- > ... diff --git a/XMonad/Hooks/ServerMode.hs b/XMonad/Hooks/ServerMode.hs index c072f53..bbe1097 100644 --- a/XMonad/Hooks/ServerMode.hs +++ b/XMonad/Hooks/ServerMode.hs @@ -79,7 +79,7 @@ import XMonad.Actions.Commands -- -- Then edit your @handleEventHook@ by adding the 'serverModeEventHook': -- --- > main = xmonad defaultConfig { handleEventHook = serverModeEventHook } +-- > main = xmonad def { handleEventHook = serverModeEventHook } -- data ServerMode = ServerMode deriving ( Show, Read ) diff --git a/XMonad/Hooks/ToggleHook.hs b/XMonad/Hooks/ToggleHook.hs index 2b1e611..a497678 100644 --- a/XMonad/Hooks/ToggleHook.hs +++ b/XMonad/Hooks/ToggleHook.hs @@ -85,12 +85,12 @@ modify' n f = XS.modify (HookState . setter . hooks) -- and adding 'toggleHook name hook' to your 'ManageHook' where @name@ is the -- name of the hook and @hook@ is the hook to execute based on the state. -- --- > myManageHook = toggleHook "float" doFloat <+> manageHook defaultConfig +-- > myManageHook = toggleHook "float" doFloat <+> manageHook def -- -- Additionally, toggleHook' is provided to toggle between two hooks (rather -- than on/off). -- --- > myManageHook = toggleHook' "oldfocus" (const id) W.focusWindow <+> manageHook defaultConfig +-- > myManageHook = toggleHook' "oldfocus" (const id) W.focusWindow <+> manageHook def -- -- The 'hookNext' and 'toggleHookNext' functions can be used in key -- bindings to set whether the hook is applied or not. diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs index 7ef09b5..06a4910 100644 --- a/XMonad/Hooks/UrgencyHook.hs +++ b/XMonad/Hooks/UrgencyHook.hs @@ -106,7 +106,7 @@ import Foreign.C.Types (CLong) -- 'withUrgencyHook'. For example: -- -- > main = xmonad $ withUrgencyHook dzenUrgencyHook { args = ["-bg", "darkgreen", "-xs", "1"] } --- > $ defaultConfig +-- > $ def -- -- This will pop up a dzen bar for five seconds telling you you've got an -- urgent window. @@ -118,7 +118,7 @@ import Foreign.C.Types (CLong) -- extra popup, install NoUrgencyHook, as so: -- -- > main = xmonad $ withUrgencyHook NoUrgencyHook --- > $ defaultConfig +-- > $ def -- -- Now, your "XMonad.Hooks.DynamicLog" must be set up to display the urgent -- windows. If you're using the 'dzen' or 'dzenPP' functions from that module, @@ -259,7 +259,7 @@ minutes secs = secs * 60 -- | The default 'UrgencyConfig'. suppressWhen = Visible, remindWhen = Dont. -- Use a variation of this in your config just as you use a variation of --- defaultConfig for your xmonad definition. +-- 'def' for your xmonad definition. urgencyConfig :: UrgencyConfig urgencyConfig = UrgencyConfig { suppressWhen = Visible, remindWhen = Dont } diff --git a/XMonad/Hooks/WorkspaceByPos.hs b/XMonad/Hooks/WorkspaceByPos.hs index b7f1323..9d577f5 100644 --- a/XMonad/Hooks/WorkspaceByPos.hs +++ b/XMonad/Hooks/WorkspaceByPos.hs @@ -33,9 +33,9 @@ import Control.Monad.Error ((<=<),guard,lift,runErrorT,throwError) -- -- > import XMonad.Hooks.WorkspaceByPos -- > --- > myManageHook = workspaceByPos <+> manageHook defaultConfig +-- > myManageHook = workspaceByPos <+> manageHook def -- > --- > main = xmonad defaultConfig { manageHook = myManageHook } +-- > main = xmonad def { manageHook = myManageHook } workspaceByPos :: ManageHook workspaceByPos = (maybe idHook doShift <=< liftX . needsMoving) =<< ask diff --git a/XMonad/Hooks/WorkspaceHistory.hs b/XMonad/Hooks/WorkspaceHistory.hs index ed41f42..8080619 100644 --- a/XMonad/Hooks/WorkspaceHistory.hs +++ b/XMonad/Hooks/WorkspaceHistory.hs @@ -38,7 +38,7 @@ import qualified XMonad.Util.ExtensibleState as XS -- -- Then add the hook to your 'logHook': -- --- > main = xmonad $ defaultConfig +-- > main = xmonad $ def -- > { ... -- > , logHook = ... >> workspaceHistoryHook >> ... -- > , ... |