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.TopicSpace: Update X.H.DynamicLog references

Browse Source
This commit is contained in:
Yecine Megdiche 2021-10-04 18:29:34 +02:00
parent 8ef05975c7
commit 7ec3a4e034
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
XMonad/Actions/TopicSpace.hs
View File

@ -72,16 +72,16 @@ where
import XMonad import XMonad
import XMonad.Prelude import XMonad.Prelude
import qualified Data.Map.Strict as M import qualified Data.Map.Strict as M
import qualified XMonad.Hooks.DynamicLog as DL import qualified XMonad.Hooks.StatusBar.PP as SBPP
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import Data.Map (Map) import Data.Map (Map)
import XMonad.Prompt (XPConfig) import XMonad.Prompt (XPConfig)
import XMonad.Prompt.Workspace (workspacePrompt) import XMonad.Prompt.Workspace (workspacePrompt)
import XMonad.Hooks.DynamicLog (PP(ppHidden, ppVisible)) import XMonad.Hooks.StatusBar.PP (PP(ppHidden, ppVisible))
import XMonad.Hooks.UrgencyHook (readUrgents) import XMonad.Hooks.UrgencyHook (readUrgents)
import XMonad.Hooks.WorkspaceHistory import XMonad.Hooks.WorkspaceHistory
( workspaceHistory ( workspaceHistory
@ -284,9 +284,9 @@ setLastFocusedTopic tc w predicate = do
reverseLastFocusedTopics :: X () reverseLastFocusedTopics :: X ()
reverseLastFocusedTopics = workspaceHistoryModify reverse reverseLastFocusedTopics = workspaceHistoryModify reverse
-- | This function is a variant of 'DL.pprWindowSet' which takes a topic configuration -- | This function is a variant of 'SBPP.pprWindowSet' which takes a topic
-- and a pretty-printing record 'PP'. It will show the list of topics sorted historically -- configuration and a pretty-printing record 'PP'. It will show the list of
-- and highlight topics with urgent windows. -- topics sorted historically and highlight topics with urgent windows.
pprWindowSet :: TopicConfig -> PP -> X String pprWindowSet :: TopicConfig -> PP -> X String
pprWindowSet tg pp = do pprWindowSet tg pp = do
winset <- gets windowset winset <- gets windowset
@ -301,7 +301,7 @@ pprWindowSet tg pp = do
add_depth proj topic = proj pp . (((topic++":")++) . show) . depth $ topic add_depth proj topic = proj pp . (((topic++":")++) . show) . depth $ topic
pp' = pp { ppHidden = add_depth ppHidden, ppVisible = add_depth ppVisible } pp' = pp { ppHidden = add_depth ppHidden, ppVisible = add_depth ppVisible }
sortWindows = take maxDepth . sortOn (depth . W.tag) sortWindows = take maxDepth . sortOn (depth . W.tag)
return $ DL.pprWindowSet sortWindows urgents pp' winset return $ SBPP.pprWindowSet sortWindows urgents pp' winset
-- | Given a prompt configuration and a topic configuration, trigger the action associated with -- | Given a prompt configuration and a topic configuration, trigger the action associated with
-- the topic given in prompt. -- the topic given in prompt.