twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 20:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

TopicSpace: +reverseLastFocusedTopics

Browse Source
This commit is contained in:
Nicolas Pouillard
2010-05-20 07:28:44 +00:00
parent c1a3a1c19d
commit 316e26fd0c
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Actions/TopicSpace.hs
View File

@@ -25,6 +25,7 @@ module XMonad.Actions.TopicSpace
, defaultTopicConfig , defaultTopicConfig
, getLastFocusedTopics , getLastFocusedTopics
, setLastFocusedTopic , setLastFocusedTopic
, reverseLastFocusedTopics
, pprWindowSet , pprWindowSet
, topicActionWithPrompt , topicActionWithPrompt
, topicAction , topicAction
@@ -232,6 +233,11 @@ setLastFocusedTopic w predicate =
. getPrevTopics . getPrevTopics
where seqList xs = length xs `seq` xs where seqList xs = length xs `seq` xs
-- | Reverse the list of "last focused topics"
reverseLastFocusedTopics :: X ()
reverseLastFocusedTopics =
XS.modify $ PrevTopics . reverse . getPrevTopics
-- | This function is a variant of 'DL.pprWindowSet' which takes a topic configuration -- | This function is a variant of 'DL.pprWindowSet' which takes a topic configuration
-- and a pretty-printing record 'PP'. It will show the list of topics sorted historically -- and a pretty-printing record 'PP'. It will show the list of topics sorted historically
-- and highlighting topics with urgent windows. -- and highlighting topics with urgent windows.
@@ -271,7 +277,7 @@ switchTopic tg topic = do
when (null wins) $ topicAction tg topic when (null wins) $ topicAction tg topic
-- | Switch to the Nth last focused topic or failback to the 'defaultTopic'. -- | Switch to the Nth last focused topic or failback to the 'defaultTopic'.
switchNthLastFocused ::TopicConfig -> Int -> X () switchNthLastFocused :: TopicConfig -> Int -> X ()
switchNthLastFocused tg depth = do switchNthLastFocused tg depth = do
lastWs <- getLastFocusedTopics lastWs <- getLastFocusedTopics
switchTopic tg $ (lastWs ++ repeat (defaultTopic tg)) !! depth switchTopic tg $ (lastWs ++ repeat (defaultTopic tg)) !! depth