從特定類的窗口中刪除邊框

我試圖編寫一個非常類似的佈局修改器，它允許我根據窗口的類名稱屬性來刪除邊框。該代碼主要基於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

從特定類的窗口中刪除邊框

回答

相關問題