diff options
Diffstat (limited to 'XMonad/Actions/LinkWorkspaces.hs')
| -rw-r--r-- | XMonad/Actions/LinkWorkspaces.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/XMonad/Actions/LinkWorkspaces.hs b/XMonad/Actions/LinkWorkspaces.hs index 2163af3..7859953 100644 --- a/XMonad/Actions/LinkWorkspaces.hs +++ b/XMonad/Actions/LinkWorkspaces.hs @@ -40,6 +40,7 @@ import qualified Data.Map as M -- > import XMonad.Actions.LinkWorkspaces -- -- and add a function to print messages like +-- -- > message_command (S screen) = " dzen2 -p 1 -w 300 -xs " ++ show (screen + 1) -- > message_color_func c1 c2 msg = dzenColor c1 c2 msg -- > message screen c1 c2 msg = spawn $ "echo '" ++ (message_color_func c1 c2 msg) ++ "' | " ++ message_command screen |