从特定类的窗口中删除边框

我试图编写一个非常类似的布局修改器，它允许我根据窗口的类名称属性来删除边框。该代码主要基于XMonad.Layout.NoBorders，除了在X monad中执行的逻辑以允许基于className进行过滤之外。到目前为止，我已经得到的代码是：从特定类的窗口中删除边框

{-# LANGUAGE FlexibleInstances #-} 
{-# LANGUAGE MultiParamTypeClasses #-} 
{-# LANGUAGE UndecidableInstances #-} 

module XMonad.Layout.ExcludeBorders where 

import   Control.Monad 
import   Data.Monoid 
import   XMonad 
import   XMonad.Layout.LayoutModifier 
import   XMonad.StackSet hiding (filter) 

setBorders :: [Window] -> Dimension -> X() 
setBorders ws bw = 
    withDisplay $ \d -> mapM_ (\w -> io $ setWindowBorderWidth d w bw) ws 

data ExcludeBorders p a = 
    ExcludeBorders p 
       [a] 
    deriving (Eq, Read, Show) 

excludeBorders :: p -> l a -> ModifiedLayout (ExcludeBorders p) l a 
excludeBorders qs = ModifiedLayout (ExcludeBorders qs []) 

instance (Show p, Read (ExcludeBorders p Window), Excludes p) => 
     LayoutModifier (ExcludeBorders p) Window where 
    unhook (ExcludeBorders _p s) = asks (borderWidth . config) >>= setBorders s 
    redoLayout (ExcludeBorders p _s) _ mst wrs = do 
    ws <- withWindowSet (\wset -> excludes p wset mst wrs) 
    setBorders ws 0 
    return (wrs, Just $ ExcludeBorders p ws) 

class Excludes p where 
    excludes :: 
     p 
    -> WindowSet 
    -> Maybe (Stack Window) 
    -> [(Window, Rectangle)] 
    -> X [Window] 

data ExcludeProp = 
    ExcludeClassName String 
    deriving (Eq, Read, Show) 

instance Excludes [ExcludeProp] where 
    excludes qs _wset mst _wrs = 
    flip filterM (integrate' mst) $ \w -> 
     fmap (getAny . mconcat) . 
     sequenceA . map (fmap Any . flip runQuery w . toQuery) $ 
     qs 

toQuery :: ExcludeProp -> Query Bool 
toQuery (ExcludeClassName s) = className =? s

可在布局挂钩可以使用如下：

excludeBorders [ExcludeClassName "Krunner", ExcludeClassName "plasmashell"]

不幸的是它并没有收到预期的效果，或者任何影响完全不熟悉写作布局修饰符我不确定我在做什么错误，也许我误解了redoLayout函数应该如何工作。任何指针将不胜感激。

编辑：一些进一步的测试表明，这可能是KDE /等离子Windows和/或问题，我的配置不如说什么我的代码做一个特点。

来源

2017-06-02 ppb

原来的主逻辑很好，除非不考虑浮动窗口。更改Excludes实例如下：

instance Excludes [ExcludeProp] where 
    excludes qs wset mst _wrs = 
    let ws = integrate' mst ++ [w | (w, _) <- Map.toList . floating $ wset] 
    in flip filterM ws $ \w -> 
     fmap (getAny . mconcat) . 
     sequenceA . map (fmap Any . flip runQuery w . toQuery) $ 
     qs

使它适用于我的用例。

来源

2017-06-02 17:49:49 ppb

从特定类的窗口中删除边框

回答

相关问题