diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-17 23:13:03 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-17 23:13:03 +0200 |
| commit | 971121b093a52d823bc2f0013ab25e6bc85be0d6 (patch) | |
| tree | ca79c36ebe3a491339d2a4277d6d17f8dc3e66b3 /DynamicLog.hs | |
| parent | 138095b1cfd4294e52aafad692c98ceaf34dcee4 (diff) | |
| download | XMonadContrib-971121b093a52d823bc2f0013ab25e6bc85be0d6.tar.gz XMonadContrib-971121b093a52d823bc2f0013ab25e6bc85be0d6.tar.xz XMonadContrib-971121b093a52d823bc2f0013ab25e6bc85be0d6.zip | |
Allow the user to change the order of workspaces, layout, title
darcs-hash:20071017211303-a5988-72a3633166bc0daf2ed3719b2172a44a4cd05fb5.gz
Diffstat (limited to 'DynamicLog.hs')
| -rw-r--r-- | DynamicLog.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/DynamicLog.hs b/DynamicLog.hs index cae7980..7dd9f0e 100644 --- a/DynamicLog.hs +++ b/DynamicLog.hs @@ -81,7 +81,7 @@ dynamicLogWithPP pp = do -- window title wt <- withWindowSet $ maybe (return "") (fmap show . getName) . S.peek - io . putStrLn . sepBy (ppSep pp) $ + io . putStrLn . sepBy (ppSep pp) . ppOrder pp $ [ ws , ppLayout pp ld , ppTitle pp wt @@ -147,7 +147,8 @@ data PP = PP { ppCurrent, ppVisible , ppHidden, ppHiddenNoWindows :: WorkspaceId -> String , ppSep :: String , ppTitle :: String -> String - , ppLayout :: String -> String } + , ppLayout :: String -> String + , ppOrder :: [String] -> [String] } -- | The default pretty printing options, as seen in dynamicLog defaultPP :: PP @@ -157,11 +158,13 @@ defaultPP = PP { ppCurrent = wrap "[" "]" , ppHiddenNoWindows = const "" , ppSep = " : " , ppTitle = const "" - , ppLayout = id } + , ppLayout = id + , ppOrder = id } -- | The options that sjanssen likes to use, as an example. Note the use of -- 'xmobarColor' and the record update on defaultPP sjanssenPP :: PP sjanssenPP = defaultPP { ppCurrent = xmobarColor "white" "#ff000000" , ppTitle = xmobarColor "#00ee00" "" + , ppOrder = reverse } |