From 1639feed4c02ad0dacf9f4ab560e741d1c200632 Mon Sep 17 00:00:00 2001 From: Mats Rauhala Date: Thu, 23 May 2019 11:53:37 +0300 Subject: [PATCH] Don't hide unselected topic --- src/XMonad/TopicSpace.hs | 1 - src/XMonad/TopicUtils.hs | 4 +++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/XMonad/TopicSpace.hs b/src/XMonad/TopicSpace.hs index 2bf3e0d..b2f259e 100644 --- a/src/XMonad/TopicSpace.hs +++ b/src/XMonad/TopicSpace.hs @@ -4,7 +4,6 @@ module XMonad.TopicSpace (topicKeys', addTopic, TopicAction(..)) where import XMonad.Actions.TopicSpace import XMonad import qualified Data.Map as M -import XMonad.Actions.GridSelect import XMonad.Actions.DynamicWorkspaces import XMonad.TopicUtils import XMonad.Util.EZConfig (mkNamedKeymap) diff --git a/src/XMonad/TopicUtils.hs b/src/XMonad/TopicUtils.hs index 63e536e..5fc1a36 100644 --- a/src/XMonad/TopicUtils.hs +++ b/src/XMonad/TopicUtils.hs @@ -28,7 +28,9 @@ safeRunInTerm dir (Just command) = safeSpawn "urxvt" ["-cd", dir, "-e", command] inactiveTags :: X [WorkspaceId] inactiveTags = map W.tag . inactive' <$> gets windowset where - inactive' s = W.hidden s ++ map W.workspace (filter (\w -> (W.tag . W.workspace . W.current) s /= (W.tag . W.workspace) w) (W.visible s)) + inactive' s = + let current = W.currentTag s + in W.hidden s ++ map W.workspace (filter (\w -> current /= (W.tag . W.workspace) w) (W.visible s)) gridselectMove :: GSConfig WorkspaceId -> X () gridselectMove conf = do