twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.A.TreeSelect: Deprecate tsDefaultConfig

Browse Source 
Replace with Data.Default.def, as already happened a while ago (in
0f1b6fb7726fc54b0ef318143ab2ffc43faed8fa) in all other modules.
This commit is contained in:
slotThe 2021-01-28 21:09:37 +01:00
parent e83081b6ef
commit 227a3e0aa5
1 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
XMonad/Actions/TreeSelect.hs
View File

@ -40,6 +40,7 @@ module XMonad.Actions.TreeSelect
, TSConfig(..) , TSConfig(..)
, tsDefaultConfig , tsDefaultConfig
, def
-- * Navigation -- * Navigation
-- $navigation -- $navigation
@ -113,10 +114,10 @@ import Graphics.X11.Xrender
-- --
-- Optionally, if you add 'workspaceHistoryHook' to your 'logHook' you can use the \'o\' and \'i\' keys to select from previously-visited workspaces -- Optionally, if you add 'workspaceHistoryHook' to your 'logHook' you can use the \'o\' and \'i\' keys to select from previously-visited workspaces
-- --
-- > xmonad $ defaultConfig { ... -- > xmonad $ def { ...
-- > , workspaces = toWorkspaces myWorkspaces -- > , workspaces = toWorkspaces myWorkspaces
-- > , logHook = workspaceHistoryHook -- > , logHook = workspaceHistoryHook
-- > } -- > }
-- --
-- After that you still need to bind buttons to 'treeselectWorkspace' to start selecting a workspaces and moving windows -- After that you still need to bind buttons to 'treeselectWorkspace' to start selecting a workspaces and moving windows
-- --
@ -131,22 +132,22 @@ import Graphics.X11.Xrender
-- $config -- $config
-- The selection menu is very configurable, you can change the font, all colors and the sizes of the boxes. -- The selection menu is very configurable, you can change the font, all colors and the sizes of the boxes.
-- --
-- The default config defined as 'tsDefaultConfig' -- The default config defined as 'def'
-- --
-- > tsDefaultConfig = TSConfig { ts_hidechildren = True -- > def = TSConfig { ts_hidechildren = True
-- > , ts_background = 0xc0c0c0c0 -- > , ts_background = 0xc0c0c0c0
-- > , ts_font = "xft:Sans-16" -- > , ts_font = "xft:Sans-16"
-- > , ts_node = (0xff000000, 0xff50d0db) -- > , ts_node = (0xff000000, 0xff50d0db)
-- > , ts_nodealt = (0xff000000, 0xff10b8d6) -- > , ts_nodealt = (0xff000000, 0xff10b8d6)
-- > , ts_highlight = (0xffffffff, 0xffff0000) -- > , ts_highlight = (0xffffffff, 0xffff0000)
-- > , ts_extra = 0xff000000 -- > , ts_extra = 0xff000000
-- > , ts_node_width = 200 -- > , ts_node_width = 200
-- > , ts_node_height = 30 -- > , ts_node_height = 30
-- > , ts_originX = 0 -- > , ts_originX = 0
-- > , ts_originY = 0 -- > , ts_originY = 0
-- > , ts_indent = 80 -- > , ts_indent = 80
-- > , ts_navigate = defaultNavigation -- > , ts_navigate = defaultNavigation
-- > } -- > }
-- $pixel -- $pixel
-- --
@ -258,6 +259,7 @@ defaultNavigation = M.fromList
-- Using nice alternating blue nodes -- Using nice alternating blue nodes
tsDefaultConfig :: TSConfig a tsDefaultConfig :: TSConfig a
tsDefaultConfig = def tsDefaultConfig = def
{-# DEPRECATED tsDefaultConfig "Use def (from Data.Default, and re-exported by XMonad.Actions.TreeSelect) instead." #-}
-- | Tree Node With a name and extra text -- | Tree Node With a name and extra text
data TSNode a = TSNode { tsn_name :: String data TSNode a = TSNode { tsn_name :: String