mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-08-01 12:41:52 -07:00
Remove mentions of defaultConfig
These were superseded, but forgotten to be updated, by Data.Default.def
in 5140f5b5d0
.
This commit is contained in:
@@ -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
|
||||||
|
@@ -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
|
||||||
|
@@ -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")]
|
||||||
|
@@ -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 {
|
||||||
|
@@ -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)
|
||||||
|
Reference in New Issue
Block a user