MasseR/xmonad-masser
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Don't hide unselected topic

Browse Source
This commit is contained in:
Mats Rauhala 2019-05-23 11:53:37 +03:00
parent 3789e23cb9
commit 1639feed4c
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/XMonad/TopicSpace.hs
View File

@ -4,7 +4,6 @@ module XMonad.TopicSpace (topicKeys', addTopic, TopicAction(..)) where
import XMonad.Actions.TopicSpace import XMonad.Actions.TopicSpace
import XMonad import XMonad
import qualified Data.Map as M import qualified Data.Map as M
import XMonad.Actions.GridSelect
import XMonad.Actions.DynamicWorkspaces import XMonad.Actions.DynamicWorkspaces
import XMonad.TopicUtils import XMonad.TopicUtils
import XMonad.Util.EZConfig (mkNamedKeymap) import XMonad.Util.EZConfig (mkNamedKeymap)

4
src/XMonad/TopicUtils.hs
View File

@ -28,7 +28,9 @@ safeRunInTerm dir (Just command) = safeSpawn "urxvt" ["-cd", dir, "-e", command]
inactiveTags :: X [WorkspaceId] inactiveTags :: X [WorkspaceId]
inactiveTags = map W.tag . inactive' <$> gets windowset inactiveTags = map W.tag . inactive' <$> gets windowset
where 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 :: GSConfig WorkspaceId -> X ()
gridselectMove conf = do gridselectMove conf = do