Remove mentions of defaultConfig

These were superseded, but forgotten to be updated, by Data.Default.def
in 5140f5b5d0.
This commit is contained in:
slotThe
2021-01-28 21:08:54 +01:00
parent 94670a72be
commit e83081b6ef
5 changed files with 17 additions and 18 deletions

View File

@@ -94,12 +94,12 @@ grab" and let the C-c C-u be sent to the application.
The simplest way to enable this is to use 'useDefaultPrefixArgument' The simplest way to enable this is to use 'useDefaultPrefixArgument'
> xmonad $ useDefaultPrefixArgument $ defaultConfig { .. } > xmonad $ useDefaultPrefixArgument $ def { .. }
The default prefix argument is C-u. If you want to customize the The default prefix argument is C-u. If you want to customize the
prefix argument, use the following: prefix argument, use the following:
> xmonad $ usePrefixArgument prefixKey $ defaultConfig { .. } > xmonad $ usePrefixArgument prefixKey $ def { .. }
where 'prefixKey' is a function which takes 'XConfig' as an argument where 'prefixKey' is a function which takes 'XConfig' as an argument
in case you wish to extract the 'modMask'. An example in case you wish to extract the 'modMask'. An example

View File

@@ -533,7 +533,7 @@ instance UrgencyHook StdoutUrgencyHook where
-- --
-- Useful for scratchpad workspaces perhaps: -- Useful for scratchpad workspaces perhaps:
-- --
-- > main = xmonad (withUrgencyHook (filterUrgencyHook ["NSP", "SP"]) defaultConfig) -- > main = xmonad (withUrgencyHook (filterUrgencyHook ["NSP", "SP"]) def)
filterUrgencyHook :: [WorkspaceId] -> Window -> X () filterUrgencyHook :: [WorkspaceId] -> Window -> X ()
filterUrgencyHook skips w = do filterUrgencyHook skips w = do
ws <- gets windowset ws <- gets windowset

View File

@@ -53,7 +53,7 @@ import Data.Maybe
-- --
-- > myWorkspaces = ["1:main","2:misc","3","4"] -- > myWorkspaces = ["1:main","2:misc","3","4"]
-- > ... -- > ...
-- > main = xmonad $ defaultConfig { -- > main = xmonad $ def {
-- > logHook = wallpaperSetter defWallpaperConf { -- > logHook = wallpaperSetter defWallpaperConf {
-- > wallpapers = defWPNames myWorkspaces -- > wallpapers = defWPNames myWorkspaces
-- > <> WallpaperList [("1:main",WallpaperDir "1")] -- > <> WallpaperList [("1:main",WallpaperDir "1")]

View File

@@ -72,7 +72,7 @@ import Control.Arrow (second)
-- --
-- > main = xmonad -- > main = xmonad
-- > $ fullscreenSupport -- > $ fullscreenSupport
-- > $ defaultConfig { ... } -- > $ def { ... }
fullscreenSupport :: LayoutClass l Window => fullscreenSupport :: LayoutClass l Window =>
XConfig l -> XConfig (ModifiedLayout FullscreenFull l) XConfig l -> XConfig (ModifiedLayout FullscreenFull l)
fullscreenSupport c = c { fullscreenSupport c = c {

View File

@@ -3,7 +3,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonad.Util.SpawnNamedPipe -- Module : XMonad.Util.SpawnNamedPipe
-- Copyright : (c) Christian Wills 2014 -- Copyright : (c) Christian Wills 2014
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
-- Maintainer : cwills.dev@gmail.com -- Maintainer : cwills.dev@gmail.com
@@ -35,10 +35,10 @@ import qualified Data.Map as Map
-- --
-- > import XMonad.Util.SpawnNamedPipe -- > import XMonad.Util.SpawnNamedPipe
-- > import Data.Maybe -- > import Data.Maybe
-- > -- >
-- > -- StartupHook -- > -- StartupHook
-- > startupHook' = spawnNamedPipe "dzen2" "dzenPipe" -- > startupHook' = spawnNamedPipe "dzen2" "dzenPipe"
-- > -- >
-- > -- LogHook -- > -- LogHook
-- > logHook' = do -- > logHook' = do
-- > mh <- getNamedPipeHandle "dzenPipe" -- > mh <- getNamedPipeHandle "dzenPipe"
@@ -46,31 +46,30 @@ import qualified Data.Map as Map
-- > ppOutput = maybe (\s -> return ()) (hPutStrLn) mh} -- > ppOutput = maybe (\s -> return ()) (hPutStrLn) mh}
-- > -- >
-- > -- Main -- > -- Main
-- > main = xmonad $ defaultConfig { -- > main = xmonad $ def { startupHook = startupHook'
-- > startupHook = startupHook' -- > , logHook = logHook'}
-- > , logHook = logHook'}
-- --
data NamedPipes = NamedPipes { pipeMap :: Map.Map String Handle } data NamedPipes = NamedPipes { pipeMap :: Map.Map String Handle }
deriving (Show, Typeable) deriving (Show, Typeable)
instance ExtensionClass NamedPipes where instance ExtensionClass NamedPipes where
initialValue = NamedPipes Map.empty initialValue = NamedPipes Map.empty
-- | When 'spawnNamedPipe' is executed with a command "String" and a name -- | When 'spawnNamedPipe' is executed with a command "String" and a name
-- "String" respectively. The command string is spawned with 'spawnPipe' (as -- "String" respectively. The command string is spawned with 'spawnPipe' (as
-- long as the name chosen hasn't been used already) and the "Handle" returned -- long as the name chosen hasn't been used already) and the "Handle" returned
-- is saved in Xmonad's state associated with the name "String". -- is saved in Xmonad's state associated with the name "String".
spawnNamedPipe :: String -> String -> X () spawnNamedPipe :: String -> String -> X ()
spawnNamedPipe cmd name = do spawnNamedPipe cmd name = do
b <- XS.gets (Map.member name . pipeMap) b <- XS.gets (Map.member name . pipeMap)
unless b $ do unless b $ do
h <- spawnPipe cmd h <- spawnPipe cmd
XS.modify (NamedPipes . Map.insert name h . pipeMap) XS.modify (NamedPipes . Map.insert name h . pipeMap)
-- | Attempts to retrieve a "Handle" to a pipe previously stored in Xmonad's -- | Attempts to retrieve a "Handle" to a pipe previously stored in Xmonad's
-- state associated with the given string via a call to 'spawnNamedPipe'. If the -- state associated with the given string via a call to 'spawnNamedPipe'. If the
-- given string doesn't exist in the map stored in Xmonad's state Nothing is -- given string doesn't exist in the map stored in Xmonad's state Nothing is
-- returned. -- returned.
getNamedPipe :: String -> X (Maybe Handle) getNamedPipe :: String -> X (Maybe Handle)
getNamedPipe name = XS.gets (Map.lookup name . pipeMap) getNamedPipe name = XS.gets (Map.lookup name . pipeMap)